Routine: PSDPGS1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^DIE

Package	Total	Caller Graph
Controlled Substances	3	PSDPGS PSDRPGS1 PSDRPGS2

Entry Points

Name	Comments	DBIA/ICR reference
SET	;set data for printing
END
A7BAR	;DALISC/JRR set up vars to print barcode on green sheet
START	;loop through transactions
PRINT	;print green sheet
LOOP

External References

Name	Field # of Occurrence
^%ZIS	START+2
^%ZISC	END+4
^DIE	SET+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The device you selected is not set up for green sheets, please contact IRM.",!! Line Location: START+9
Function Call: WRITE	Prompt: !,"* SORRY NO GREEN SHEETS TO PRINT *",! Line Location: PRINT+1
Function Call: WRITE	Prompt: ?33,NAOUN," ",$P($G(^DPT(+$P(NODE,U,9),0)),U) Line Location: PRINT+7
Function Call: WRITE	Prompt: $C(13),?70,@A7BAR1,@PSD10,PSDPN,@A7BAR0,@PSD12 Line Location: PRINT+8
Function Call: WRITE	Prompt: LN,@PSDL,!?6 Line Location: PRINT+15
Function Call: WRITE	Prompt: !?6,"\|________\|_____\|_______________________\|_____\|______\|___________________________\|" Line Location: PRINT+17
Routine Call	DIE Line Location: SET+16
Routine Call	%ZIS Line Location: START+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	A7BAR+3
^%ZIS(2 - [#3.2]	START+6, START+7, START+8, A7BAR+3
^DD("DD"	PRINT+6, SET+10
^DPT - [#2]	PRINT+7
^PSD(58.8 - [#58.8]	START+14, START+15, SET+2, SET+6
^PSD(58.81 - [#58.81]	START+17, LOOP+1, SET+1, SET+2, SET+3, SET+5, SET+9, SET+12, SET+15
^PSDRUG - [#50]	SET+7
^PSI(58.2 - [#58.2]	START+14
^TMP("PSDPGS"	START+10!, PRINT+1, PRINT+2, PRINT+3, END+3!, SET+15*
^VA(200 - [#200]	SET+13, SET+14

Label References

Name	Line Occurrences
A7BAR	START+5
END	PRINT+1
LOOP	START+12, LOOP+2
PRINT	START+13
SET	START+17, LOOP+1

Naked Globals

Name	Field # of Occurrence
^("BAR"	A7BAR+3
^(0	START+14, START+15, SET+6, SET+7, SET+13, SET+14
^(1	SET+12
^(4	SET+9
^(5	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	END!
A7BAR0	START+4~, PRINT+8, A7BAR+4
A7BAR1	START+4~, PRINT+8, A7BAR+4
A7PRT	PRINT+8, A7BAR+2!, A7BAR+4*
ALL	START+15, END!
ANS	START+12, START+13, START+14, START+15, END!, SET+4
ASK	END!
C	END!
CNT	START+14*, END!
D	END!
DA	END!, SET+16!*
DIC	END!
DIE	END!, SET+16!*
DIR	END!
DIROUT	END!
DIRUT	END!
DR	END!, SET+16!*
DTOUT	END!
DUOUT	END!
EXP	END!, SET+10*
EXPD	END!, SET+10*, SET+15
IO	START+2
IOF	PRINT+7
ION	START+2
IOP	START+2*, END!
>> IOS	A7BAR+3
IOST(0	START+6, START+7, START+8
JJ	END!, A7BAR+3*
LINE	PRINT+17*, END!
>> LN	PRINT+15*
LOOP	START+16*, START+17, END!
LOT	END!, SET+10*, SET+15
NAOU	END!
NAOU(	START+14, START+15, SET+4
NAOUN	PRINT+3, PRINT+7, END!, SET+6, SET+15
NODE	PRINT+3, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+21, END!, SET+5, SET+7, SET+8 , SET+9, SET+10
NODE1	END!, SET+12*
OK	END+1!
ORD	END+1!, SET+11, SET+12, SET+13
ORDN	PRINT+3, PRINT+4, PRINT+13, END+1!, SET+11, SET+13, SET+15
POP	END+1!
PRT	START+16, END+1!
PSD	START+14, START+15, START+17, END+1!, LOOP+1, SET+2, SET+4, SET+6
PSD1	START+12*, END+1!, LOOP
PSD1(	START+12, LOOP
PSD10	START+4~, START+6*, START+9, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+21, PRINT+22
PSD12	START+4~, START+6*, START+9, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+21, PRINT+22
PSDA	START+17, END+1!, LOOP+1, SET+1, SET+2, SET+3, SET+5, SET+9, SET+12, SET+15 , SET+16
PSDBY	END+1!, SET+11, SET+12, SET+14
PSDBYN	PRINT+3, PRINT+5, PRINT+14, END+1!, SET+11, SET+14, SET+15
PSDCNT	START+11, END+1!, LOOP
PSDCPI	END+1!
PSDDT	PRINT+6*, PRINT+14, END+1!
PSDEV	END+1!
PSDG	START+14, END+1!
PSDG(	START+14
PSDL	START+4~, START+7*, START+9, PRINT+9, PRINT+15
PSDL(1	START+8*, START+9, PRINT+14, PRINT+21
PSDN	START+14*, END+1!
PSDOUT	END+1!
PSDPN	PRINT+2, PRINT+3, PRINT+8, PRINT+10, PRINT+22, END+1!, LOOP, LOOP+1, SET+8*, SET+15
PSDR	END+1!, SET+7*
PSDRN	END+1!, SET+7*, SET+15
PSDS	END+1!, SET+1, SET+2
>> PSDSITE	START+14, START+15
PSDSN	END+1!
PSDT	PRINT+3, PRINT+6, END+1!, SET+8, SET+15
PSDYR	PRINT+6*, END+1!
QTY	END+2!, SET+9*, SET+15
SEL	END+2!
SITE	END+2!
STAT	START+17*, END+2!
U	START+6, START+7, START+8, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+21, SET+2, SET+15
X	END+2!
Y	PRINT+6, END+2!, SET+10
ZTDESC	END+2!
ZTDTH	END+2!
>> ZTQUEUED	START+2, END+4
>> ZTREQ	END+4*
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDPGS1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: