#============================================================================== # Calls onenote to retrieve data for a note for the current roster. Calls # insertnote to add this note to the roster. #============================================================================== addNint IS OP DBName RName { IF RName ~= DBName THEN mainwindow 'ADDING NOTE'; newnote := onenote (head (value RName)) null; IF not isfault newnote THEN errchk newr := (insertnote (value RName) newnote "Add); IF first errchk THEN RName assign newr; calculatedisplay (value RName) ELSE comments string second errchk; replace&exit ENDIF ELSE comments string newnote; replace&exit ENDIF ELSE comments 'Can''t change Master'; replace&exit ENDIF }