Routine: PSOEXBCH

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	1	EN^PSOHLSN1
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOEXRST

Entry Points

Name	Comments	DBIA/ICR reference
DEQUE
HEAD
MSNQ
END
GETPPL	;
GETN	;
LIST
MSQ
DEEND
PART	;
QUE
DELIST
MEDEX	;
DEHEAD

External References

Name	Field # of Occurrence
^%ZIS	QUE, DEQUE
^%ZISC	QUE+2, END, DEQUE+2, DEEND
^%ZTLOAD	QUE+2, DEQUE+2
EN^PSOHLSN1	MEDEX+3
DEM^VADPT	GETPPL+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOTHING PRINTED" Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"This report must be sent to a printer!",! Line Location: QUE+1
Function Call: WRITE	Prompt: ?44,$G(HLZZDRUG) Line Location: LIST+7
Function Call: WRITE	Prompt: !?38,$G(HLZZDRUG) Line Location: LIST+8
Function Call: WRITE	Prompt: !!,"No Rx's to print!",! Line Location: LIST+10
Function Call: WRITE	Prompt: !!,"END OF LIST" Line Location: LIST+11
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+4
Function Call: WRITE	Prompt: !!,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?13,"PATIENT NAME",?44,"BATCH ",LLL,! Line Location: HEAD+5
Function Call: WRITE	Prompt: "-" Line Location: HEAD+5
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"This report must be sent to a printer!",! Line Location: DEQUE+1
Function Call: WRITE	Prompt: !!,"No Rx's to print!",! Line Location: DELIST+5
Function Call: WRITE	Prompt: !!,"END OF LIST" Line Location: DELIST+6
Function Call: WRITE	Prompt: @IOF Line Location: DEHEAD+1
Function Call: WRITE	Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,! Line Location: DEHEAD+1
Function Call: WRITE	Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,! Line Location: DEHEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: DEEND+0
Function Call: WRITE	Prompt: !!,"REPORT of batched Rx's queued to print!",! Line Location: MSQ+0
Function Call: WRITE	Prompt: !!,"REPORT of batched Rx's being sent to print!",! Line Location: MSNQ+0
Routine Call	%ZIS Line Location: QUE DEQUE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD, DEHEAD
^DPT - [#2]	LIST+4, DELIST+3, GETN+2
^PS(52.5 - [#52.5]	DELIST+1, DELIST+2, DELIST+3
^PS(52.51 - [#52.51]	LIST+1, LIST+2, LIST+9, GETN+1, GETN+2, GETPPL+5, GETPPL+6, PART+1
^PSDRUG - [#50]	LIST+5
^PSRX - [#52]	LIST+2, LIST+4, LIST+5, LIST+6, DELIST+2, DELIST+3, GETPPL+9, MEDEX+1, MEDEX+3*
^TMP($J	LIST, LIST+1, HEAD, END!, DELIST, DELIST+1, DEHEAD, DEEND!, GETN+1, GETPPL+3 , GETPPL+4
^VA(200 - [#200]	HEAD+5, DEHEAD+1

Label References

Name	Line Occurrences
DEEND	DELIST+7
DEHEAD	DELIST+1, DELIST+4
DEQUE	DEQUE+1
END	LIST+12
GETN	LIST
HEAD	LIST+1, LIST+9
MEDEX	GETPPL+10
MSNQ	QUE+3, DEQUE+3
MSQ	QUE+2, DEQUE+2
PART	GETPPL+11, GETPPL+12
QUE	QUE+1

Naked Globals

Name	Field # of Occurrence
^("STA"	GETPPL+9
^(0	LIST+2, HEAD+5, DELIST+2, DELIST+3, DEHEAD+1, GETPPL+6, PART+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE!, DEQUE!
DFN	GETPPL+2~, GETPPL+6*, GETPPL+11, GETPPL+12, PART+1
DT	MEDEX+1
GG	END!, DELIST+2*, DELIST+3, DEEND!
>> HLZNAME	GETN+2*
HLZZDRUG	LIST+5*, LIST+7, LIST+8, END!
HLZZDRUL	LIST+5*, LIST+7, LIST+8, END!
HLZZNAME	LIST+4*, LIST+6, END!
INRX	LIST+2, LIST+4, LIST+5, LIST+6, END!, DELIST+2, DELIST+3, DEEND!
IO	LIST, DELIST
IO("Q"	QUE+2, DEQUE+2
IOF	HEAD+1, HEAD+2, HEAD+3, END, DEHEAD+1, DEEND
IOP	QUE!, DEQUE!
IOSL	LIST+9, HEAD+3, DELIST+4
IOST	QUE+1, DEQUE+1
LLL	LIST, LIST+1, HEAD, HEAD+5, END!, DELIST, DELIST+1, DEHEAD, DEHEAD+1, DEEND! , GETN+1
>> NM1	GETN+1*
>> NM2	GETN+1*
>> NM3	GETN+1*, GETN+2
PCOMM	GETPPL+2~, MEDEX+3*
PDCT	GETPPL+2~, GETPPL+5, GETPPL+7
PDEAD	GETPPL+2~, GETPPL+5, GETPPL+7, GETPPL+8
PMEDX	GETPPL+2~, GETPPL+10, MEDEX+2
POP	QUE!, DEQUE!
PPLDT	GETPPL+2~, GETPPL+4*, GETPPL+5
PPLDV	GETPPL+2~
PPLDZ	GETPPL+2~, GETPPL+4*, GETPPL+5
PPLOOP	GETPPL+2~, GETPPL+5*, GETPPL+6, PART+1
PPLOP	GETPPL+2~, GETPPL+3*, GETPPL+4
PPLRXN	GETPPL+2~, GETPPL+6*, GETPPL+9, GETPPL+11, GETPPL+12, MEDEX+1, MEDEX+3, PART+1
PPLX	GETPPL+1!
PPLX(	GETPPL+11, GETPPL+12
PSEXSTAT	END!
PSOIOF	LIST!, LIST+9*!, HEAD+2, HEAD+3, END!
PSOPDUZ	HEAD, HEAD+5, END!, DEHEAD, DEHEAD+1, DEEND!
PSOPTIME	HEAD, HEAD+5, END!, DEHEAD, DEHEAD+1, DEEND!
>> PSOSITE	LIST+1, LIST+2, LIST+9, HEAD, GETN+1, GETPPL+4, GETPPL+5
PSX	END!
REDT	LIST+1, LIST+9, END!, DELIST+1, DELIST+2, DEEND!
REDUZ	LIST+1, LIST+9, END!, DELIST+1, DELIST+2, DEEND!
RESITE	DELIST+1*, DELIST+2, DEEND!
RXPRX	GETPPL+1!
RXPRX(	PART+1*
SBFLAG	LIST, LIST+6, LIST+10, HEAD+1, HEAD+3, HEAD+4, DELIST, DELIST+3, DELIST+5, DEEND!
SS	LIST+1, LIST+2, LIST+9, END!, DELIST+1, DELIST+2, DEEND!
>> VADM(6	GETPPL+7
>> Y	HEAD, DEHEAD
>> ZTDESC	QUE+2, DEQUE+2
>> ZTQUEUED	END, DEEND
>> ZTREQ	END, DEEND
>> ZTRTN	QUE+2, DEQUE+2
>> ZTSAVE("PSOSITE"	QUE+2, DEQUE+2
>> ZTSAVE("^TMP($J,""PSODES"","	DEQUE+2*
>> ZTSAVE("^TMP($J,""PSODESPR"","	DEQUE+2*
>> ZTSAVE("^TMP($J,""PSOHLRES"","	QUE+2*
>> ZTSAVE("^TMP($J,""PSOHLSPR"","	QUE+2*
ZZZZ	HEAD+5, END!, DEHEAD+1, DEEND!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOEXBCH

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: