Routine: TIUPRPN5

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

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

Text Integration Utility

PRINT^TIUPRPN1 ($$PAGE,REPLACE,SETUP)^TIUPRPN3 $$READ^TIUU

VA Fileman

^%DT ^DIC

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

Package

Total

Caller Graph

Text Integration Utility

TIU PRINT PN OUTPT LOC TIUPRPN4 TIUPRPN7

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!

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

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!

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRPN5

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed