Routine: PSDRPGS2

Information

PSDRPGS2 ;BIR/JPW,LTL,BJW-Reprint Green Sheet (VA FORM 10-2638) cont'd ; 3 Mar 98

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Controlled Substances	1	A7BAR^PSDPGS1
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSDRPGS

Entry Points

Name	Comments	DBIA/ICR reference
START	;loop through transactions
END
LOOP
SET	;set data for printing
PRINT	;print green sheet
SETT	;set trans naous

External References

Name	Field # of Occurrence
^%ZIS	START+2
^%ZISC	END+2
^DIE	PRINT+26
A7BAR^PSDPGS1	START+5

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: ?33,NAOUN Line Location: PRINT+5
Function Call: WRITE	Prompt: $C(13),?70,@A7BAR1,@PSD10,PSDPN,@A7BAR0,@PSD12 Line Location: PRINT+7
Function Call: WRITE	Prompt: @PSDL,!?6,"CONTROLLED SUBSTANCE ADMINISTRATION RECORD",?54 Line Location: PRINT+8
Function Call: WRITE	Prompt: "Pharmacy Dispensing # ",@PSD10,PSDPN,@PSD12,!?6 Line Location: PRINT+9
Function Call: WRITE	Prompt: "Drug: ",@PSD10,PSDRN,@PSD12,?60,"Exp: ",EXPD,?78 Line Location: PRINT+10
Function Call: WRITE	Prompt: "Qty: ",@PSD10,QTY,@PSD12,!?6 Line Location: PRINT+11
Function Call: WRITE	Prompt: "Lot#",LOT,?21,"Ord by: ",$E(ORDN,1,20) Line Location: PRINT+12
Function Call: WRITE	Prompt: ?45,"Disp by: ",$E(PSDBYN,1,20),?70,"Date: ",PSDDT,@PSDL(1),!?7 Line Location: PRINT+13
Function Call: WRITE	Prompt: LN,@PSDL,!?6 Line Location: PRINT+14
Function Call: WRITE	Prompt: "\| DATE TIME NAME OF PATIENT DOSE BALANCE ADMINISTERED BY \|" Line Location: PRINT+15
Function Call: WRITE	Prompt: !?6,"\|_______\|_____\|_______________________\|_____\|______\|___________________________\|" Line Location: PRINT+16
Function Call: WRITE	Prompt: !?6,"Above Drug Received: Date__________ R.N. Sign_____________________________" Line Location: PRINT+18
Function Call: WRITE	Prompt: !?6,"Above Drug Administered: Date__________ R.N. Sign_____________________________" Line Location: PRINT+19
Function Call: WRITE	Prompt: !?6,"Entries Reviewed: Date__________ R.PH. Sign____________________________",!?6 Line Location: PRINT+20
Function Call: WRITE	Prompt: @PSDL(1),"Drug: ",@PSD10,PSDRN,@PSD12,?60 Line Location: PRINT+21
Function Call: WRITE	Prompt: "Pharmacy Dispensing # ",@PSD10,PSDPN,@PSD12,!?6 Line Location: PRINT+22
Function Call: WRITE	Prompt: "Automated VA FORM 10-2638" Line Location: PRINT+23
Routine Call	%ZIS Line Location: START+2
Routine Call	DIE Line Location: PRINT+26

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	START+6, START+7, START+8
^DD("DD"	SET+10, PRINT+3
^DPT - [#2]	PRINT+5
^PSD(58.8 - [#58.8]	SET+6, SET+19, SETT+3
^PSD(58.81 - [#58.81]	LOOP+1, SET+2, SET+4, SET+9, SET+12, SET+15, SET+18, PRINT+5, SETT+1, SETT+2 , SETT+4
^PSDRUG - [#50]	SET+7
^VA(200 - [#200]	SET+13, SET+14

Label References

Name	Line Occurrences
LOOP	START+11, LOOP+2
PRINT	SET+15
SET	LOOP+1
SETT	SET+17, SETT+4

Naked Globals

Name	Field # of Occurrence
^(0	SET+6, SET+7, SET+13, SET+14, SET+19, SETT+3
^(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+7
A7BAR1	START+4~, PRINT+7
>> A7PRT	PRINT+7
ANS	END!
ASK	END!
C	END!
CNT	END!, SET+15, SET+18, SET+19, PRINT+6, SETT+1, SETT+3, SETT+4
D	END!
DA	END!, PRINT+26!*
DIC	END!
DIE	END!, PRINT+26!*
DIR	END!
DIROUT	END!
DIRUT	END!
DR	END!, PRINT+26!*
DTOUT	END!
DUOUT	END!
EXP	END!, SET+10*
EXPD	END!, SET+10*, PRINT+10
IO	START+2
IOF	PRINT+4
ION	START+2
>> IOP	START+2*
IOST(0	START+6, START+7, START+8
LINE	END!, PRINT+16*
>> LN	PRINT+14*
LOT	END!, SET+10*, PRINT+12
NAOU	END!, SET+18, SET+19, SETT+2, SETT+3
NAOUN	END!, SET+6*, PRINT+5
NODE	END!, SET+2*, SET+3, 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	END+1!, SET+11, SET+13, PRINT+1*, PRINT+12
POP	END+1!
PRT	END+1!
PSD	START+10, END+1!, SET+5, SET+6
PSD1	START+11*, END+1!, LOOP
PSD1(	START+11, LOOP
PSD10	START+4~, START+6*, START+9, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+21, PRINT+22
PSD12	START+4~, START+6*, START+9, PRINT+4, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+21, PRINT+22
PSDA	END+1!, LOOP+1*, SET+2, SET+4, SET+9, SET+12, SET+15, PRINT+5, PRINT+26
PSDBY	END+1!, SET+11, SET+12, SET+14
PSDBYN	END+1!, SET+11, SET+14, PRINT+2*, PRINT+13
PSDCNT	START+10, END+1!, LOOP
PSDCPI	END+1!
PSDDT	END+1!, PRINT+3*, PRINT+13
PSDEV	END+1!
PSDL	START+4~, START+7*, START+9, PRINT+8, PRINT+14
PSDL(1	START+8*, START+9, PRINT+13, PRINT+21
PSDOUT	END+1!, SET+1, SET+15, SET+17, SETT+2
PSDPN	END+1!, LOOP*, LOOP+1, PRINT+7, PRINT+9, PRINT+22
PSDR	END+1!, SET+7*
PSDRN	END+1!, SET+7*, PRINT+10, PRINT+21
PSDS	START+10, END+1!, SET+3
PSDSN	END+1!
PSDT	END+1!, SET+8*, PRINT+3
PSDTR	END+1!, SET+1!
PSDTR(	SET+15, SET+18, SET+19, PRINT+6, SETT+1, SETT+3, SETT+4
PSDTRN	END+1!, SETT+1*, SETT+2, SETT+4
PSDYR	END+1!, PRINT+3*
QTY	END+1!, SET+9*, PRINT+11
REPRINT	END+1!, SET+4*, PRINT+5
SITE	END+1!
STAT	END+1!
TRANS	END+1!, SET+1!, SET+16*, PRINT+5, PRINT+6
U	START+6, START+7, START+8, SET+3, PRINT+5
Y	END+1!, SET+10, PRINT+3
ZTDESC	END+1!
ZTDTH	END+1!
>> ZTQUEUED	START+2, END+2
>> ZTREQ	END+2*
ZTRTN	END+1!
ZTSAVE	END+1!
ZTSK	END+1!

Customize PDF page

Package: Controlled Substances