Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Text Integration Utility 3 PRINT^TIUPRPN1  ($$PAGE,REPLACE,SETUP)^TIUPRPN3  $$READ^TIUU  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Text Integration Utility 3 TIU PRINT PN OUTPT LOC  TIUPRPN4  TIUPRPN7  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+1
^%ZIS DEV+1
HOME^%ZIS DEV+11
^%ZISC DEV+12
^%ZTLOAD DEV+9
^DIC DIC+3
PRINT^TIUPRPN1 PRINT+3
$$PAGE^TIUPRPN3 DATE+19
REPLACE^TIUPRPN3 DATE+8
SETUP^TIUPRPN3 LOC+8
$$READ^TIUU NOTES+9
$$FMTE^XLFDT NOTES+8, RANGE+2, RANGE+3, DATE+16

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+11
Routine Call
  • DIC
  • Line Location:
    • DIC+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEV
^DPT - [#2] DATE+10
^TIU(8925 - [#8925] DIC+5, NOTES+5, RANGE, RANGE+1, DATE+5, DATE+7, DATE+10
^TIU(8925.93 - [#8925.93] NOTES+3, NOTES+5*, NOTES+12*, NOTES+13, DEV, DEV+4*, PRINT+4*
^TMP("TIULQ" PRINT+1!, EXIT!
^TMP("TIUPR" DATE+12*, EXIT!
^TMP("TIUREPLACE" NOTES+2!, DATE+9, DATE+11, DATE+14, NOTESX+1!, EXIT!

Label References

Name Line Occurrences
@( NOTES+14
DATE DATE+3
DEV DEV+3
EXIT DEV+1, DEV+5
NOTES DIC+7
NOTESX DATE+16, DATE+19
PRINT DEV+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, DATE+1!
%DT("A" DATE*
%DT(0 DATE*
%ZIS DEV+1*, DEV+10!
%ZIS("B" DEV*
ANS NOTES+1~, NOTES+9*, NOTES+11
BEG NOTES+1~, NOTES+6*, NOTES+8, DATE+4*, DATE+5*, DATE+7, DATE+8, DATE+11*, DATE+12, DATE+13
CTR NOTES+1~, DATE+5*, DATE+14*, DATE+15, DATE+17, DATE+18
DFN NOTES+1~, DATE+10*
DIC LOC+7~, DIC+1*
DIC("A" DIC+1*
DIC("S" DIC+2*, DIC+3!
DIC(0 DIC+1*
>> DIRUT NOTES+10
>> DTOUT DATE+1
IFN NOTES+1~, NOTES+11*, DATE+6*, DATE+7*, DATE+8, DATE+9*, DATE+10, DATE+11, DATE+12, DATE+13
IO DEV+12
IO("Q" DEV+5!
IOST DEV+2
MSG NOTES+1~, NOTES+3*, NOTES+5*, NOTES+12*, NOTES+14
NEW NOTES+1~, RANGE+1*, RANGE+3, DATE+2
OLD NOTES+1~, RANGE*, RANGE+2
POP DEV+1!
SORT NOTES+1~, DATE+10*, DATE+12
TIULAST NOTES+1~, NOTES+3*, NOTES+4, NOTES+5, NOTES+6, NOTES+11, DATE+13*, DATE+16, DEV+10!, PRINT+4
TIULOC LOC+7~, DIC+4*, DIC+5, DIC+7, NOTES~, NOTES+3, NOTES+5, NOTES+12, NOTES+13, RANGE
, RANGE+1, RANGE+5, DATE+5, DATE+7, DATE+17, DEV, DEV+4, DEV+10!, PRINT+4
TIUQT LOC+7~, DIC, DIC+3*, NOTES+1~, NOTES+4, NOTES+10*, NOTES+13, DATE+1*
TIUSPG NOTES+1~, DATE+18*, DATE+19*, DEV+10!, PRINT+3
U DIC+4, NOTES+3, NOTES+5, NOTES+11, NOTES+12, NOTES+13, RANGE+5, DATE+10, DATE+17, DEV
, DEV+4, PRINT+4
Y LOC+7~, DIC+3, DIC+4, NOTES+1~, DATE+1, DATE+2, DATE+4
Y(0 DIC+4
ZTDESC DEV+8*, DEV+10!
ZTDTH DEV+10!
ZTIO DEV+10!
>> ZTQUEUED PRINT+2
>> ZTREQ PRINT+2*
ZTRTN DEV+6*, DEV+10!
ZTSAVE DEV+10!
ZTSAVE("TIULAST" DEV+7*
ZTSAVE("TIULOC" DEV+7*
ZTSAVE("TIUSPG" DEV+7*
ZTSAVE("^TMP(""TIUPR"",$J," DEV+6*
ZTSK DEV+9, DEV+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All