Routine: TIUPRPN7

Package	Total	Call Graph
Text Integration Utility	5	PRINT^TIUPRPN1 (REPLACE,SETUP)^TIUPRPN3 $$DATE^TIUPRPN4 3^TIUPRPN5 $$READ^TIUU
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Registration	1	PID^VADPT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Text Integration Utility	2	TIU PRINT PN BATCH INTERACTIVE TIU PRINT PN BATCH SCHEDULED

Name	Comments	DBIA/ICR reference
BATCH	;batch print outpatient progress notes sorted by terminal digit
DEV
EXIT
PRINT	;entry point for non-interactive tasked job
TROUBLE	;message to print if no output
LOC(LOC,DIV)	;checks if this location should be batch prted

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+10
^%ZISC	DEV+11
^%ZTLOAD	DEV+8
^DIC	BATCH+18
PRINT^TIUPRPN1	PRINT+27
REPLACE^TIUPRPN3	PRINT+18
SETUP^TIUPRPN3	BATCH+7
$$DATE^TIUPRPN4	BATCH+22, BATCH+29
3^TIUPRPN5	BATCH+29
$$READ^TIUU	BATCH+26
PID^VADPT	PRINT+22
$$FMTE^XLFDT	BATCH+25, TROUBLE+2
$$NOW^XLFDT	PRINT+9, TROUBLE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Notes will be printed in terminal digit order." Line Location: BATCH+8
Function Call: WRITE	Prompt: !!?5,"This option may also be scheduled to run non-interactively" Line Location: BATCH+9
Function Call: WRITE	Prompt: !?5,"in file #19.2 OPTION SCHEDULING FILE.",!! Line Location: BATCH+10
Function Call: WRITE	Prompt: $C(7),$C(7),!?5,"Before using this option " Line Location: BATCH+12
Function Call: WRITE	Prompt: "you must enter the divisions for your site in" Line Location: BATCH+13
Function Call: WRITE	Prompt: !?5,"file #8925.94 - TIU DIVISION PRINT PARAMETERS FILE." Line Location: BATCH+14
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: $C(7),$C(7),!?5,"You must select a printer for this " Line Location: DEV+2
Function Call: WRITE	Prompt: "option!!" Line Location: DEV+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: DEV+8
Function Call: WRITE	Prompt: !!,"The option [TIU PRINT PN BATCH OUTPT] ran to completion at " Line Location: TROUBLE+1
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,"1P")," but did not find any notes." Line Location: TROUBLE+2
Function Call: WRITE	Prompt: !!,"If you were expecting notes to print review the following:" Line Location: TROUBLE+3
Function Call: WRITE	Prompt: !!,"INTERACTIVE" Line Location: TROUBLE+5
Function Call: WRITE	Prompt: !,"-----------" Line Location: TROUBLE+6
Function Call: WRITE	Prompt: !,"1. Very little can go wrong- the required criteria is screened" Line Location: TROUBLE+7
Function Call: WRITE	Prompt: !,"while the user is manually queueing the job." Line Location: TROUBLE+8
Function Call: WRITE	Prompt: !!,"2. This option prints all the outpatient progress notes, in" Line Location: TROUBLE+9
Function Call: WRITE	Prompt: !,"terminal digit order, for the selected date range for ALL CLINICS" Line Location: TROUBLE+10
Function Call: WRITE	Prompt: !,"for the selected DIVISION. Verify that you have signed progress" Line Location: TROUBLE+11
Function Call: WRITE	Prompt: !,"notes satisfying this criteria.",! Line Location: TROUBLE+12
Function Call: WRITE	Prompt: !!,"NON-INTERACTIVE (job set to run in OPTION SCHEDULING FILE (#19.2)" Line Location: TROUBLE+14
Function Call: WRITE	Prompt: !,"-----------------------------------------------------------------" Line Location: TROUBLE+15
Function Call: WRITE	Prompt: !,"1. DIVISION must be defined in file #8925.94 (TIU DIVISION PRINT" Line Location: TROUBLE+16
Function Call: WRITE	Prompt: !,"PRINT PARAMETERS FILE)." Line Location: TROUBLE+17
Function Call: WRITE	Prompt: !!,"2. The variable TIUDIV must be defined in the VARIABLE NAME " Line Location: TROUBLE+18
Function Call: WRITE	Prompt: !,"multiple of the OPTION SCHEDULING FILE (#19.2). TIUDIV should" Line Location: TROUBLE+19
Function Call: WRITE	Prompt: !,"be set to the IEN of an entry in the TIU DIVISION PRINT PARAMETERS" Line Location: TROUBLE+20
Function Call: WRITE	Prompt: !,"FILE (#8925.94)." Line Location: TROUBLE+21
Function Call: WRITE	Prompt: !!,"3. This option must find a valid date in field #1.01 of" Line Location: TROUBLE+22
Function Call: WRITE	Prompt: !,"file #8925.94 to start looping on. If a valid date is not " Line Location: TROUBLE+23
Function Call: WRITE	Prompt: !,"found, the option will terminate with this message." Line Location: TROUBLE+24
Function Call: WRITE	Prompt: !!,"4. To assist in troubleshooting, if no notes are found, the" Line Location: TROUBLE+25
Function Call: WRITE	Prompt: !,"DATE/TIME field (#1.01) of file #8925.94 will not be re-set" Line Location: TROUBLE+26
Function Call: WRITE	Prompt: !,"to the new value (which is NOW) when the option begins " Line Location: TROUBLE+27
Function Call: WRITE	Prompt: "calculating." Line Location: TROUBLE+28
Routine Call	%ZIS Line Location: DEV+10
Routine Call	DIC Line Location: BATCH+18
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEV
^DG(40.8 - [#40.8]	BATCH+17
^DISV(	BATCH+17
^DPT - [#2]	PRINT+20
^SC - [#44]	LOC+3
^TIU("TIUPR"	EXIT!
^TIU(8925 - [#8925]	PRINT+14, PRINT+16, PRINT+17, PRINT+20
^TIU(8925.93 - [#8925.93]	LOC+2, LOC+3
^TIU(8925.94 - [#8925.94]	BATCH+12, BATCH+21, DEV, PRINT+10, PRINT+12, PRINT+28*
^TMP("TIULQ"	PRINT+8!, EXIT!
^TMP("TIUPR"	PRINT+8!, PRINT+24*, PRINT+25
^TMP("TIUREPLACE"	PRINT+8!, PRINT+19, PRINT+23, EXIT!

Name	Line Occurrences
$$LOC	PRINT+15
DEV	DEV+3
EXIT	DEV+1, DEV+5, PRINT+6, PRINT+25
PRINT	DEV+11
TROUBLE	PRINT+6, PRINT+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1*, DEV+9!
%ZIS("B"	DEV*
ANS	BATCH+6~, BATCH+26*, BATCH+28
DATE	PRINT+7~, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+23*, PRINT+24
DFN	PRINT+7~, PRINT+20*, PRINT+24
DIC	BATCH+16*, BATCH+18!
DIC("A"	BATCH+16*
DIC("B"	BATCH+17*
DIC(0	BATCH+16*
>> DIRUT	BATCH+27
DIV	BATCH+6~, PRINT+7~, PRINT+12*, PRINT+15, LOC~, LOC+3
DUZ	BATCH+17
HRCN	PRINT+22~
IEN	LOC+1~, LOC+2*, LOC+3
IFN	PRINT+7~, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+23, PRINT+24
IO	DEV+11
IO("Q"	DEV+5!
IOST	DEV+2
LAST	BATCH+6~, BATCH+21*, BATCH+22, BATCH+23, BATCH+25, BATCH+28
LOC	PRINT+7~, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, LOC~, LOC+2, LOC+3
POP	DEV+1!
SSN	PRINT+7~, PRINT+20, PRINT+22, PRINT+24
STOP	PRINT+7~, PRINT+9*, PRINT+16, PRINT+28
STSAVE	DEV+9!
TIUDIV	BATCH+6~, BATCH+19, BATCH+21, BATCH+24, DEV, DEV+4, DEV+9!, PRINT+6, PRINT+10, PRINT+12 , PRINT+28
TIUQT	BATCH+6~, BATCH+23, BATCH+27, BATCH+29
TIUSTART	BATCH+6~, BATCH+22, BATCH+28, BATCH+29, DEV+9!, PRINT+10, PRINT+11, PRINT+15
U	BATCH+17, BATCH+19, BATCH+21, BATCH+24, DEV, DEV+4, PRINT+10, PRINT+12, PRINT+20, PRINT+28 , LOC+3
Y	BATCH+6~, BATCH+18, BATCH+19
Y(0	BATCH+19
ZTDESC	DEV+7*, DEV+9!
ZTDTH	DEV+9!
ZTIO	DEV+9!
ZTRTN	DEV+6*, DEV+9!
>> ZTSAVE("TIUDIV"	DEV+6*
>> ZTSAVE("TIUSTART"	DEV+6*
ZTSK	DEV+8, DEV+9!

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRPN7

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: