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: TIUPRPN5

Package: Text Integration Utility

Routine: TIUPRPN5


Information

TIUPRPN5 ;SLC/MJC-Sort PNs for Prting by Location;6/26/01

Source Information

Source file <TIUPRPN5.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;sorts PNs for prting by CLINIC location
DIC
NOTES(TIULOC) ;returns date/time;ien of last note prted
RANGE
DATE
DEV
NOTESX ;
PRINT ;
EXIT
1
2
3
HELP ; help for continue from this point prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!?5,"Pick a date between the OLDEST and the MOST "
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: "RECENT."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No notes have been signed for this location since "
  • Line Location: DATE+15
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(+TIULAST,"1P")
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !,">> "_CTR_" note"_$S(CTR>1:"s",1:"")_" found for "_$P(TIULOC,U,3)
  • Line Location: DATE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!?5,"You must select a "
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "printer for this option!!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !!,"I don't seem to have any record of you having used this option "
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !,"to print progress notes for this location.",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"I could not determine what the last note printed for this "
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,"location was."
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !!,"Please select a date and all notes from that date to NOW will be"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,"printed. The last note printed will become the new base date.",!
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !!,"OK- then select a different date.",!
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !!,"Every note that has been signed since this date (last time this"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"notes were printed using this option) until NOW will be printed."
  • Line Location: HELP+2
Info |  Source |  Entry Points |  Interaction Calls