Routine: PSDGSRV1

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
Controlled Substances	1	^PSDGSRV2
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	2	PSDADJ PSDGSRV

Entry Points

Name	Comments	DBIA/ICR reference
DESTA	;update naou balance added 8/19/96
OK
SUB	;add balance,Line 4,6,9 added 7/9/97 to update naou bal.
DEST	;set up file 58.86
UPDATE	;update 58.81
QTY	;
PRINT	;print 2321
MSG	;
END
ASKN
FIND
ORDER	;update order info in 58.8
REAS

External References

Name	Field # of Occurrence
NOW^%DTC	UPDATE+2, SUB+2
^DIC	ORDER+6, FIND+1
^DIE	UPDATE+6, ORDER+3, ORDER+7, FIND+5
^DIR	QTY+4, ASKN, REAS, OK+2
^PSDGSRV2	PRINT+6
$$FMTE^XLFDT	PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QTY+1
Function Call: WRITE	Prompt: !!,"Accessing Green Sheet information...",! Line Location: UPDATE+1
Function Call: WRITE	Prompt: !!,"Updating your records..." Line Location: UPDATE+7
Function Call: WRITE	Prompt: "nursing records now..." Line Location: ORDER+2
Function Call: WRITE	Prompt: "done.",!! Line Location: ORDER+8
Function Call: WRITE	Prompt: ?2,"* The status of your Green Sheet #"_PSDPN_" * ",! Line Location: ORDER+9
Function Call: WRITE	Prompt: ?6,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" "_$P($G(^PSD(58.83,CSTAT,0)),"^") Line Location: ORDER+10
Function Call: WRITE	Prompt: $C(7),!!,"* THIS GREEN SHEET HAS NOT BEEN COMPLETED *",!,"The status remains "_STATN,! Line Location: MSG+1
Function Call: WRITE	Prompt: !!!,"Old Balance: ",BAL,?25,"New Balance: ",BAL+RQTY,!! Line Location: SUB+9
Function Call: WRITE	Prompt: !!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,!! Line Location: SUB+10
Function Call: WRITE	Prompt: !!!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,! Line Location: DESTA+6
Function Call: WRITE	Prompt: !!,"Accessing your transaction history...",!! Line Location: DEST+2
Function Call: WRITE	Prompt: !!,"Creating an entry in the Destruction file..." Line Location: DEST+7
Function Call: WRITE	Prompt: !!,"Your Destruction Holding number is ",PSDHLD Line Location: FIND+3
Function Call: WRITE	Prompt: !!,"Incomplete information. You must use the Reprint Disp/Receiving Report",!,"for VA FORM 10-2321 to be printed.",! Line Location: FIND+6
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"No copies printed!!",!! Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"Enter a whole number between 1 and 9",! Line Location: PRINT+2
Routine Call	DIE Line Location: UPDATE+6 ORDER+3 ORDER+7 FIND+5
Routine Call	DIC Line Location: ORDER+6 FIND+1
Routine Call	DIR Line Location: QTY+4 ASKN REAS OK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+3
^PSD(58.8 - [#58.8]	ORDER+5, ORDER+6, SUB+1, SUB+3, SUB+4, SUB+5, SUB+7, SUB+8, DESTA+1, DESTA+2 , DESTA+4*, DESTA+5, DEST+5
^PSD(58.81 - [#58.81]	ORDER+9, ORDER+10, ORDER+11, DEST+3, DEST+6, FIND+5*
^PSD(58.82 - [#58.82]	ORDER+10
^PSD(58.83 - [#58.83]	ORDER+10
^PSD(58.86 - [#58.86]	DEST+8, FIND*, FIND+2
^PSDRUG - [#50]	DEST+5
^VA(200 - [#200]	ASKN+1

Label References

Name	Line Occurrences
DESTA	ORDER+12
END	QTY+4, ASKN, REAS, OK+2, ORDER+11
FIND	FIND
MSG	QTY+4, ASKN, REAS, OK+2
PRINT	ORDER+11, PRINT+2
QTY	OK+3
SUB	UPDATE+2

Naked Globals

Name	Field # of Occurrence
^(0	ORDER+5*, ORDER+10, ORDER+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UPDATE+2, END!, SUB+2
%DT	END!
%H	END!
%I	END!
BAL	UPDATE+4, END!, SUB+3*, SUB+9
C	END!
COMP	QTY+2, REAS, UPDATE+2, UPDATE+4, UPDATE+5, ORDER+3, ORDER+7, ORDER+11, ORDER+12, END! , DEST+4*
CPBY	END!
CSTAT	UPDATE+4, UPDATE+5, ORDER+3, ORDER+10*, END!
D	END!
DA	ASKN!, REAS!, OK!, UPDATE+3!, UPDATE+6!, ORDER+3!, ORDER+6!, ORDER+7!, END!, FIND+1! , FIND+4!, FIND+5!
DA(1	ORDER+3, ORDER+6, ORDER+7*
DA(2	ORDER+3, ORDER+6, ORDER+7*
DIC	ORDER+6!, END!, FIND+1!
DIC(0	ORDER+6, FIND+1
DIE	UPDATE+3!, UPDATE+6!, ORDER+3!, ORDER+7!, END!, FIND+4!, FIND+5!
DINUM	ORDER+6!, END!, FIND+1
DIR	QTY+1!, QTY+4!, ASKN!, REAS!, OK!, OK+2!, END!
DIR("?"	QTY+3, OK+1
DIR("A"	QTY+2, ASKN, OK*
DIR("B"	OK*
DIR(0	QTY+1, ASKN, REAS, OK
DIROUT	END!
DIRUT	QTY+1!, QTY+4, QTY+5!, OK!, OK+2, END!
DLAYGO	ORDER+6!, END!, FIND+1!
DR	UPDATE+3!, UPDATE+4, UPDATE+5, UPDATE+6!, ORDER+3!, ORDER+7!, END!, FIND+4!*, FIND+5!
DT	ORDER+6, ORDER+7
DTIME	PRINT+1
DTOUT	ASKN!, REAS!, END!, FIND+6
DUOUT	ASKN!, REAS!, END!
DUZ	DEST+5
EXP	ORDER+11, END+1!, DEST+3, DEST+6, PRINT+5
EXP1	END+1!, PRINT+5*
EXPD	END+1!, PRINT+5*
LOT	ORDER+11, END+1!, DEST+3, DEST+6*
MFG	ORDER+11, END+1!, DEST+3, DEST+6*
NAOU	ORDER+3, END+1!, SUB+4, SUB+7, DESTA+2, DESTA+4
NBKU	QTY+2, END+1!, DEST+5*
NODE	END+1!, DEST+3*, DEST+4, DEST+5, DEST+6
NOK	END+1!
NUM	END+1!, PRINT+1*, PRINT+2
NURS	ASKN+1*, UPDATE+4, UPDATE+5, END+1!
NURSN	ASKN+1*, END+1!, FIND+4
OCOMP	END+1!
OK	END+1!
ORD	ORDER+3, END+1!
PG	END+1!, PRINT+4*
POP	END+1!
PSDA	UPDATE+3, ORDER+9, ORDER+10, ORDER+11, END+1!, DEST+3, DEST+6, FIND+4, FIND+5
PSDCT	END+1!, DEST+1*
PSDEV	END+1!
PSDHLD	END+1!, FIND*, FIND+1, FIND+3, FIND+4, FIND+5
PSDOUT	END+1!, MSG+1, DEST+1
PSDPN	ORDER+9, END+1!
PSDR	ORDER+3, ORDER+5, ORDER+6, ORDER+7, END+1!, SUB+1, SUB+3, SUB+4, SUB+5, SUB+7 , SUB+8, DESTA+1, DESTA+2, DESTA+4, DESTA+5, DEST+5*, FIND+4
PSDRN	END+1!, DEST+5*
PSDS	ORDER+5, ORDER+6, ORDER+7, END+1!, SUB+1, SUB+3, SUB+5, SUB+8, DESTA+1, DESTA+5 , DEST+4*, DEST+5, FIND+4
PSDSN	END+1!
PSDTYP	END+1!, DEST+3*, DEST+4, DEST+6
PSDUZ	UPDATE+4, UPDATE+5, END+1!, DEST+5*, FIND+4
PSDUZN	END+1!
PSDYR	END+1!, PRINT+3*, PRINT+4
QTY	QTY+1, QTY+3, END+2!
REAS	REAS+1, END+2!, DEST+4, DEST+6*
RECD	END+2!
RECDT	UPDATE+2, UPDATE+4, UPDATE+5, ORDER+3, END+2!, SUB+2, DEST+4, FIND+4, PRINT+3, PRINT+4
RQTY	QTY+5, UPDATE+4, UPDATE+5, END+2!, SUB+5, SUB+7, SUB+9, SUB+10, DESTA+4, DESTA+6 , DEST+4, FIND+4
STAT	ORDER+9*, ORDER+10, END+2!
STATN	END+2!, MSG+1
SUB	END+2!
WARDBAL	END+2!, SUB+4, SUB+10, DESTA+2, DESTA+6
X	ORDER+6, END+2!, FIND+1
Y	QTY+4, QTY+5, ASKN+1, REAS+1, OK+3, END+2!, FIND+6, PRINT+3*

Customize PDF page

Package: Controlled Substances

Routine: PSDGSRV1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: