Routine: PSOSUDP1

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
Kernel	1	^%ZTLOAD
Outpatient Pharmacy	1	DEQUE^PSOSUBCH

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOSUDPR

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEG+1
^%ZTLOAD	DEL+6
^DIR	PSOSUDP1+2, BEG+10, BEG+12, YLOOP+6, YLOOP+7, DEL, LIST+1, HEADONE
DEQUE^PSOSUBCH	YLOOP+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSOSUDP1+2
Function Call: WRITE	Prompt: !!?3,"Nothing deleted!" Line Location: PSOSUDP1+2
Function Call: WRITE	Prompt: !!,"Enter a date range to see all batches printed from suspense within those dates." Line Location: PSOSUDP1+3
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+6
Function Call: WRITE	Prompt: @IOF Line Location: BEG+7
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+7
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+7
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+7
Function Call: WRITE	Prompt: !?1,AAA,?8,PSODATE,?30,PSOUSER,?59,PSPRDIV Line Location: BEG+9
Function Call: WRITE	Prompt: @IOF Line Location: BEG+10
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+10
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+10
Function Call: WRITE	Prompt: !,"BATCH",?8,"QUEUED TO PRINT ON:",?30,"PRINTED BY:",?59,"DIVISION" Line Location: BEG+10
Function Call: WRITE	Prompt: ! Line Location: BEG+12
Function Call: WRITE	Prompt: ! Line Location: YLOOP+6
Function Call: WRITE	Prompt: ! Line Location: YLOOP+7
Function Call: WRITE	Prompt: ! Line Location: DEL+6
Function Call: WRITE	Prompt: !!,"PRINTED BATCHES QUEUED FOR DELETION!",!! Line Location: DEL+7
Function Call: WRITE	Prompt: !!?3,"Nothing deleted!" Line Location: ENDM+0
Function Call: WRITE	Prompt: !,"END OF LIST" Line Location: LIST+6
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: PSOSUDP1+2 BEG+10 BEG+12 YLOOP+6 YLOOP+7 DEL LIST+1 HEADONE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+9, YLOOP+4
^DPT - [#2]	LIST+4
^PS(52.5 - [#52.5]	BEG+3, LIST+2, LIST+3, LIST+4
^PS(59 - [#59]	PSOSUDP1+2, BEG+9
^PSRX - [#52]	LIST+3, LIST+4
^TMP($J	BEG!, BEG+4, BEG+5, BEG+6, BEG+8, BEG+14, YLOOP+2, YLOOP+3, YLOOP+4, DEL+2 , DEL+3, END!, LIST, LIST+2
^UTILITY($J	BEG!, DEL+4*, END!
^VA(200 - [#200]	BEG+9, YLOOP+4

Label References

Name	Line Occurrences
BEG	BEG+6
END	PSOSUDP1+2, BEG+11, YLOOP+7, YLOOP+9, DEL+8
ENDM	BEG+1, BEG+12, YLOOP+6, YLOOP+8, DEL
HEAD	LIST+2
HEADONE	LIST+3
LIST	YLOOP+9

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEG+1!*, END!
%DT("A"	BEG+1*
%DT(0	BEG+1*
%ZIS	END!
AA	BEG+7, BEG+10, END!
AAA	BEG+8*, BEG+9, END!
BEGDATE	BEG+1, BEG+2, BEG+3, END!
COUNT	BEG+13, BEG+14, YLOOP+1, YLOOP+2, END!
DIR	PSOSUDP1+2!, BEG+10!, BEG+12!, YLOOP+6!, YLOOP+7!, DEL!, LIST+1!, HEADONE!
DIR("A"	PSOSUDP1+2, BEG+12, YLOOP+6, YLOOP+7, DEL*
DIR("B"	PSOSUDP1+2, YLOOP+6, YLOOP+7, DEL
DIR(0	PSOSUDP1+2, BEG+10, BEG+12, YLOOP+6, YLOOP+7, DEL, LIST+1, HEADONE
>> DIRUT	YLOOP+7
DTOUT	PSOSUDP1+2, BEG!, BEG+1, BEG+12, YLOOP+6, END!
DUOUT	PSOSUDP1+2, BEG+12, END!
ENDDATE	BEG+1, BEG+2, BEG+3, END!
GG	DEL+1, END!, LIST+3, LIST+4
INRX	END!, LIST+3*, LIST+4
IOF	BEG+7, BEG+10, HEAD, HEADONE+1
IOSL	BEG+9, LIST+3
JJ	BEG+14, YLOOP+2, END!
LLL	END!, LIST*, LIST+2, HEAD, HEADONE+1
MMM	BEG+3*, BEG+4, BEG+5, END!
NNN	DEL+2*, DEL+3, END!
PDIVFLAG	PSOSUDP1+2!*, BEG+4, BEG+5, END!
PDPRDIV	END!
POP	END!
PSIDATE	BEG+8, BEG+9, YLOOP+4, END!
PSODATE	BEG+9, YLOOP+4, YLOOP+5, END!
>> PSODIVS	PSOSUDP1+2
PSODUZ	BEG+8, BEG+9, YLOOP+4, END!
PSOLISTD	BEG!, YLOOP+7*, YLOOP+8, YLOOP+9, END!
PSOOUT	BEG!, BEG+8, BEG+9, BEG+10, BEG+11, BEG+12, YLOOP+9, LIST, LIST+1, LIST+2 , LIST+3, LIST+5, LIST+6, HEADONE*
PSOREDEV	END!
PSORTIME	END!
>> PSOSITE	PSOSUDP1+2, BEG+4
PSOUSER	BEG+9, YLOOP+4, YLOOP+5, END!
PSPDIV	BEG+8*, BEG+9, END!
>> PSPRDIV	BEG+9*
PSRDATE	DEL+3*, DEL+4, END+1!
PSRDIV	DEL+3*, DEL+4, END+1!
PSRDUZ	DEL+3*, DEL+4, END+1!
PSYLOOP	YLOOP*, YLOOP+1, YLOOP+2, END!
RECNT	BEG+2, BEG+4, BEG+5, BEG+12, END+1!
REDT	END+1!, LIST+2*, LIST+3
REDUZ	END+1!, LIST+2*, LIST+3
RESITE	END+1!, LIST+2*, LIST+3
RR	BEG+14, YLOOP+2, END+1!
SS	END+1!, LIST+2*, LIST+3
XXX	BEG+3*, BEG+4, BEG+5, END+1!
>> Y	PSOSUDP1+2, BEG+1, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13, BEG+14, YLOOP+4, YLOOP+6 , YLOOP+7, YLOOP+8, DEL, LIST+1, LIST+5, LIST+6, HEADONE
>> Y(	YLOOP, YLOOP+1, YLOOP+2
>> Y(1	YLOOP
>> ZTDESC	DEL+6*
>> ZTDTH	DEL+6*
>> ZTIO	DEL+6*
>> ZTRTN	DEL+6*
>> ZTSAVE(	DEL+1*
>> ZTSAVE("^UTILITY($J,""PSODEPT"","	DEL+5*
>> ZTSK	DEL+7
ZZ	BEG+13, YLOOP+1, END+1!
ZZZ	BEG+3, BEG+4, BEG+5, BEG+13, YLOOP+1, YLOOP+3, YLOOP+4, YLOOP+5, END+1!
>> ZZZZ	HEAD, HEADONE+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSUDP1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: