Routine: PSDOR21

Package	Total	Call Graph
VA Fileman	6	^DIC ^DIE ^DIK ^DIR ^DIWP ^DIWW

Package

Total

Call Graph

^DIC ^DIE ^DIK ^DIR ^DIWP ^DIWW

Name	Comments	DBIA/ICR reference
EDIT	;edit or delete order request
ADD
PHARM	;create worksheet entry in file 58.85
DEL	;deletes order request
ASK	;displays order for review
DISPLAY	;displays order request to screen

Name	Field # of Occurrence
^DIC	ADD+1
^DIE	EDIT+4, ADD+4
^DIK	DEL+1
^DIR	ASK+3
^DIWP	DISPLAY+8
^DIWW	DISPLAY+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !! Line Location: ASK+6
Function Call: WRITE	Prompt: "Your order request #"_CNT1_" of "_CNT Condition for execution: $D(ORD) Line Location: ASK+6
Function Call: WRITE	Prompt: ?32,"Sent to Pharmacy...",!! Line Location: ASK+6
Function Call: WRITE	Prompt: @IOF,!,?23,"Controlled Substance Order Request" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: " # "_CNT1_" of "_CNT Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!,"Pharmacy Dispensing #: ",!,"Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^"),?52,"Request Date: ",REQD,!,LN,! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,"Disp. Location",?16,": " Line Location: DISPLAY+5
Function Call: WRITE	Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^") Condition for execution: +PSDS Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": " Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:" Line Location: DISPLAY+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDIT+1
Function Call: WRITE	Prompt: !!,"Press <RET> to edit this order request, or enter 'D' to delete the request.",! Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,?25,"Request being deleted...",! Line Location: DEL+1
Function Call: WRITE	Prompt: ?5,!!,"Processing your request now..." Line Location: PHARM+1
Routine Call	DIE Line Location: EDIT+4 ADD+4
Routine Call	DIC Line Location: ADD+1
Routine Call	DIR Line Location: ASK+3

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	DISPLAY+5, DISPLAY+7, DISPLAY+8, ADD+3, ADD+5, ADD+6
^PSD(58.82 - [#58.82]	DISPLAY+6
^PSD(58.85 - [#58.85]	PHARM+1, ADD, ADD+2, ADD+5, ADD+6*
^UTILITY($J	DISPLAY+7!
^VA(200 - [#200]	DISPLAY+3

Name	Line Occurrences
ADD	ADD
ASK	PSDOR21+3, ASK+5
DEL	ASK+4, EDIT+1, EDIT+3
DISPLAY	ASK+1
EDIT	ASK+5, EDIT+2
PHARM	ASK+6

Name	Field # of Occurrence
^(0	ADD+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PSDOR21+3, ASK+6, DISPLAY+2
>> CNT1	PSDOR21+3*, ASK+6, DISPLAY+2
DA	ASK+2!, EDIT+4!, DEL+1, ADD+1!, ADD+4*, ADD+7!
DA(1	EDIT+4, DEL+1
DA(2	EDIT+4, DEL+1
DIC	ADD+1!*, ADD+7!
DIC(0	ADD+1*
DIE	EDIT+4!, ADD+1!, ADD+4!, ADD+7!
DIK	DEL+1!*
>> DILOCKTM	PHARM+1
DIR	ASK+2!, ASK+3!
DIR("?"	ASK+2, ASK+3
DIR("A"	ASK+2*
DIR("B"	ASK+2*
DIR(0	ASK+2*
DIRUT	ASK+2!, ASK+4
>> DIWF	DISPLAY+8*
>> DIWL	DISPLAY+8*
>> DIWR	DISPLAY+8*
DLAYGO	ADD+1!*, ADD+7!
DR	EDIT+4!, ADD+1!, ADD+4, ADD+7!
DT	ADD+3
DTIME	ASK+6, EDIT+1
IOF	DISPLAY+2
LN	DISPLAY+1!*, DISPLAY+3
>> NAOU	DISPLAY+7, DISPLAY+8, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> NAOUN	DISPLAY+6
>> ORD	PSDOR21+3, ASK+6, DISPLAY+2
>> ORD(	PSDOR21+3
>> PSDA	PSDOR21+3*, DISPLAY+7, DISPLAY+8, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> PSDOUT	ASK+4, ASK+5, EDIT+1, DEL+1*
>> PSDQTY	PSDOR21+3, DISPLAY+4, ADD+4, ADD+7
>> PSDR	DISPLAY+7, DISPLAY+8, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6
>> PSDR(1	ADD+7
>> PSDR(2	PSDOR21+3
>> PSDRD	ADD+3*, ADD+4
PSDREC	ADD*, ADD+1, ADD+4, ADD+5, ADD+6, ADD+7!
>> PSDRN	DISPLAY+4
>> PSDS	DISPLAY+5, ADD+4
>> PSDUZ	DISPLAY+3, ADD+4
>> REQD	DISPLAY+3
>> TEXT	DISPLAY+7*, DISPLAY+8
WORD	ADD+6*, ADD+7!
>> X	ASK+6, DISPLAY+8, EDIT+1, EDIT+2, EDIT+3, ADD+1*
>> Y	ASK+5, ASK+6

Customize PDF page

Package: Controlled Substances

Routine: PSDOR21

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: