Routine: PSDORN1

Package	Total	Call Graph
VA Fileman	6	^DIC ^DIE ^DIK ^DIR ^DIWP ^DIWW
Kernel	2	(T0,T1)^%ZOSV SIG^XUSESIG
Controlled Substances	1	^PSDORNP

Package

Total

Call Graph

VA Fileman

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

Kernel

(T0,T1)^%ZOSV SIG^XUSESIG

Controlled Substances

^PSDORNP

Package	Total	Caller Graph
Controlled Substances	5	PSDOR2 PSDORN PSDORNC PSDORNO PSDORNV

Package

Total

Caller Graph

Controlled Substances

PSDOR2 PSDORN PSDORNC PSDORNO PSDORNV

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
T0^%ZOSV	PHARM+1
T1^%ZOSV	ADD+8
^DIC	ADD+1
^DIE	EDIT+4, ADD+4
^DIK	DEL+1
^DIR	ASK+3
^DIWP	DISPLAY+13
^DIWW	DISPLAY+14
^PSDORNP	ADD+9
SIG^XUSESIG	ASK+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !! Line Location: ASK+7
Function Call: WRITE	Prompt: "Your order request #"_CNT1_" of "_CNT Condition for execution: $D(ORD) Line Location: ASK+7
Function Call: WRITE	Prompt: @IOF,!,?17,"Controlled Substance " Line Location: DISPLAY+2
Function Call: WRITE	Prompt: "Order Request" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: " # "_CNT1_" of "_CNT Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !!,"Pharmacy Dispensing #: ",! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: "Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^") Line Location: DISPLAY+7
Function Call: WRITE	Prompt: ?51,$S($G(PSDT(9))]"":"Needed by: "_PSDT(9),1:"Request Date: "_REQD),!,LN,! Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A" Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !,"Disp. Location",?16,": " Line Location: DISPLAY+10
Function Call: WRITE	Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^") Condition for execution: +PSDS Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": " Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:" Line Location: DISPLAY+11
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+2
Routine Call	DIE Line Location: EDIT+4 ADD+4
Routine Call	DIC Line Location: ADD+1
Routine Call	DIR Line Location: ASK+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISPLAY+5
^PSD(58.8 - [#58.8]	DISPLAY+10, DISPLAY+12, DISPLAY+13, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
^PSD(58.82 - [#58.82]	DISPLAY+11
^PSD(58.85 - [#58.85]	PHARM+2, ADD, ADD+2, ADD+5, ADD+6*
^UTILITY($J	DISPLAY+12!
^VA(200 - [#200]	DISPLAY+7

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

Name	Field # of Occurrence
^(0	ADD+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PSDORN1+8, ASK+7, DISPLAY+4
>> CNT1	PSDORN1+8*, ASK+7, DISPLAY+4
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+2
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+13*
>> DIWL	DISPLAY+13*
>> DIWR	DISPLAY+13*
DLAYGO	ADD+1!*, ADD+7!
DR	EDIT+4!, ADD+1!, ADD+4, ADD+7!
DT	ADD+3
DTIME	ASK+9, EDIT+1
IOF	DISPLAY+2
LN	DISPLAY+1!*, DISPLAY+8
>> NAOU	DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> NAOUN	DISPLAY+11
>> ORD	PSDORN1+8, ASK+7, ASK+9, DISPLAY+4
>> ORD(	PSDORN1+8
>> PAT	DISPLAY+5, ADD+4
>> PSDA	PSDORN1+8*, DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> PSDEM	DISPLAY+3
>> PSDOUT	ASK+4, ASK+5, ASK+6, EDIT+1, DEL+1
>> PSDQTY	DISPLAY+9, ADD+4
>> PSDR	DISPLAY+12, DISPLAY+13, EDIT+4, DEL+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+9
>> PSDRD	ADD+3*, ADD+4
PSDREC	ADD*, ADD+1, ADD+4, ADD+5, ADD+6, ADD+9!
>> PSDRN	DISPLAY+9
>> PSDS	DISPLAY+10, ADD+4
>> PSDT(9	DISPLAY+8, ADD+9!
>> PSDUZ	DISPLAY+7, ADD+4
>> REQD	DISPLAY+8
>> TEXT	DISPLAY+12*, DISPLAY+13
U	DISPLAY+5, ADD+4, ADD+9
WORD	ADD+6*, ADD+7!
X	ASK+6~, ASK+9, DISPLAY+13, EDIT+1, EDIT+2, EDIT+3, ADD+1*
X1	ASK+6~
>> XRT0	ADD+8
>> XRTL	PHARM+1
>> XRTN	ADD+8*
>> Y	ASK+5, ASK+6

Customize PDF page

Package: Controlled Substances

Routine: PSDORN1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items