Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: TIUPRPN4

Package: Text Integration Utility

Routine: TIUPRPN4


Information

TIUPRPN4 ;SLC/MJC;Print Progress Notes for Inpt Location; 6/26/01

Source Information

Source file <TIUPRPN4.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;sorts PNs for prting by WARD location
DIC
NOTES(TIULOC) ;sets date/time of when notes prted
NOTESX ;
DATE()
ADD ; enter/edit locations in file 8925.93
DIV ; enter/edit division params in file 8925.94

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"No notes have been signed for "_WARD_" since "
  • Line Location: NOTES+26
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(TIULAST,"1P")
  • Line Location: NOTES+27
Function Call: WRITE
  • Prompt: !,">> "_CTR_" note"_$S(CTR>1:"s",1:"")_" found for WARD "_WARD
  • Line Location: NOTES+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+2
Info |  Source |  Entry Points |  Interaction Calls