Routine: PSOSURST

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	3	DEVBAR^PSOBMST ^PSOLSET ^PSOSUBCH
VA Fileman	3	^%DT NOW^%DTC ^DIR
CMOP	1	^PSXRPPL1

Package	Total	Caller Graph
CMOP	1	PSXRPPL1
Outpatient Pharmacy	1	PSO PNDRPT

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEG+1, QUE
NOW^%DTC	QUE
^%ZIS	QUE+2
^%ZISC	END+1
^%ZTLOAD	QUE+11
^DIR	BEG+9, BEG+11, YLOOP+6, YLOOP+7, LIST+1, HEADONE
DEVBAR^PSOBMST	QUE+3
^PSOLSET	PSOSURST+2
^PSOSUBCH	YLOOP+8
^PSXRPPL1	PSOSURST+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter a date range to see all batches printed from suspense within those dates." Line Location: START+0
Function Call: WRITE	Prompt: ! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: BEG+1
Function Call: WRITE	Prompt: !!,"Gathering batches, please wait...",! Line Location: BEG+2
Function Call: WRITE	Prompt: $C(7),!!,"There are no printed batches found for that date range!",! Line Location: BEG+5
Function Call: WRITE	Prompt: @IOF Line Location: BEG+6
Function Call: WRITE	Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),! Line Location: BEG+6
Function Call: WRITE	Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),! Line Location: BEG+6
Function Call: WRITE	Prompt: !?2,AAA,?10,PSODATE,?40,PSOUSER Line Location: BEG+8
Function Call: WRITE	Prompt: @IOF Line Location: BEG+9
Function Call: WRITE	Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),! Line Location: BEG+9
Function Call: WRITE	Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),! Line Location: BEG+9
Function Call: WRITE	Prompt: ! Line Location: BEG+11
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print!",! Line Location: BEG+11
Function Call: WRITE	Prompt: ! Line Location: YLOOP+6
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print!",! Line Location: YLOOP+6
Function Call: WRITE	Prompt: ! Line Location: YLOOP+7
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print!",! Line Location: YLOOP+7
Function Call: WRITE	Prompt: ! Line Location: QUE+0
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print!",! Line Location: QUE+0
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Function Call: WRITE	Prompt: !!,"REPRINTED LABELS QUEUED TO PRINT!",! Line Location: QUE+12
Function Call: WRITE	Prompt: !,"END OF LIST" Line Location: LIST+5
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,! Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,! Line Location: HEAD+0
Function Call: WRITE	Prompt: @IOF Line Location: HEADONE+1
Function Call: WRITE	Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,! Line Location: HEADONE+1
Function Call: WRITE	Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,! Line Location: HEADONE+1
Routine Call	DIR Line Location: BEG+9 BEG+11 YLOOP+6 YLOOP+7 LIST+1 HEADONE
Routine Call	%ZIS Line Location: QUE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PSOSURST+3
^DD("DD"	BEG+8, YLOOP+4
^DPT - [#2]	LIST+3
^PS(52.5 - [#52.5]	BEG+3, LIST+1, LIST+2, LIST+3
^PS(59 - [#59]	BEG+6, BEG+9
^PSRX - [#52]	LIST+2, LIST+3
^TMP($J	BEG!, BEG+4, BEG+5, BEG+7, BEG+13, YLOOP+2*, YLOOP+3, YLOOP+4, QUE+8, QUE+9 , END!, LIST, LIST+1
^UTILITY($J	BEG!, QUE+10*, END!
^VA(200 - [#200]	BEG+8, YLOOP+4
^XUSEC("PSX XMIT"	PSOSURST+4
^XUSEC("PSXCMOPMGR"	PSOSURST+4

Label References

Name	Line Occurrences
BEG	BEG+5
END	PSOSURST+2, BEG+1, BEG+10
HEAD	LIST+1
HEADONE	LIST+2
LIST	YLOOP+9
START	PSOSURST+3, BEG+11, YLOOP+6, YLOOP+7, YLOOP+8, YLOOP+9, QUE, QUE+2

Naked Globals

Name	Field # of Occurrence
^(0	BEG+8, YLOOP+4, LIST+2, LIST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUE
%DT	BEG+1!, QUE!, END!
%DT("A"	BEG+1, QUE
%DT("B"	QUE*
%DT(0	BEG+1, QUE
%ZIS	QUE+2*, END!
%ZIS("A"	QUE+2*
%ZIS("B"	QUE+2*
AA	BEG+6, BEG+9, END!
AAA	BEG+7*, BEG+8, END!
BEGDATE	BEG+1, BEG+2, BEG+3, END!
COUNT	BEG+12, BEG+13, YLOOP+1, YLOOP+2, END!
DIR	BEG+9!, BEG+11!, YLOOP+6!, YLOOP+7!, LIST+1!, HEADONE!
DIR("A"	BEG+11, YLOOP+6, YLOOP+7*
DIR("B"	YLOOP+6, YLOOP+7
DIR(0	BEG+9, BEG+11, YLOOP+6, YLOOP+7, LIST+1, HEADONE
>> DIRUT	YLOOP+7
DTOUT	BEG!, BEG+1, BEG+11, YLOOP+6, QUE, END!
DUOUT	BEG+11, END!
DUZ	PSOSURST+4
ENDDATE	BEG+1, BEG+2, BEG+3, END!
GG	QUE+7, END!, LIST+2, LIST+3
INRX	END!, LIST+2*, LIST+3
IOF	BEG+6, BEG+9, HEAD, HEADONE+1
ION	QUE+5
>> IOS	QUE+3
IOSL	BEG+8, LIST+2
IOST	QUE+2
JJ	BEG+13, YLOOP+2, END!
LLL	END!, LIST*, LIST+1, HEAD, HEADONE+1
MMM	BEG+3*, BEG+4, END!
NNN	QUE+8*, QUE+9, END!
POP	QUE+2, END!
PSIDATE	BEG+7, BEG+8, YLOOP+4, END!
>> PSOBAR0	QUE+4
>> PSOBAR1	QUE+4
>> PSOBARS	QUE+4*
PSODATE	BEG+8, YLOOP+4, YLOOP+5, END!
PSODUZ	BEG+7, BEG+8, YLOOP+4, END!
PSOIOS	QUE+3~*
PSOLISTY	BEG!, YLOOP+7*, YLOOP+8, YLOOP+9, END+1!
PSOOUT	BEG!, BEG+7, BEG+8, BEG+9, BEG+10, BEG+11, YLOOP+9, LIST, LIST+1, LIST+2 , LIST+4, LIST+5, HEADONE*
>> PSOPAR	PSOSURST+2, QUE+4
PSOREDEV	QUE+5*, QUE+6, END!
PSORTIME	QUE+1*, QUE+6, END!
>> PSOSITE	BEG+4, BEG+6, BEG+9, LIST+1, LIST+2
PSOSUREP	QUE+1*, END!
PSOUSER	BEG+8, YLOOP+4, YLOOP+5, END!
PSRDATE	QUE+9*, QUE+10, END+1!
PSRDIV	QUE+9*, QUE+10, END+1!
PSRDUZ	QUE+9*, QUE+10, END+1!
>> PSXSYS	PSOSURST+4
PSYLOOP	YLOOP*, YLOOP+1, YLOOP+2, END!
RECNT	BEG+2, BEG+4, BEG+11*, END+1!
REDT	END+1!, LIST+1*, LIST+2
REDUZ	END+1!, LIST+1*, LIST+2
RR	BEG+13, YLOOP+2, END+1!
SS	END+1!, LIST+1*, LIST+2
X	PSOSURST+3~*!
XXX	BEG+3*, BEG+4, END+1!
>> Y	BEG+1, BEG+8, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13, YLOOP+4, YLOOP+6, YLOOP+7 , YLOOP+8, QUE, QUE+1, LIST+1, LIST+4, LIST+5, HEADONE
>> Y(	YLOOP, YLOOP+1, YLOOP+2
>> Y(1	YLOOP
>> ZTDESC	QUE+6*
>> ZTDTH	QUE+6*
>> ZTIO	QUE+6*
>> ZTRTN	QUE+6*
>> ZTSAVE(	QUE+7*
>> ZTSAVE("^UTILITY($J,""PSOREPT"","	QUE+11*
ZZ	BEG+12, YLOOP+1, END+1!
ZZZ	BEG+3, BEG+4, BEG+12, YLOOP+1, YLOOP+3, YLOOP+4, YLOOP+5, END+1!
>> ZZZZ	HEAD, HEADONE+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSURST

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HEAD
END
HEADONE
LIST
BEG
START		ICR #1970 Status: Active Usage: Private
QUE
YLOOP