Routine: PSDEVO1

Information

PSDEVO1 ;BIR/JPW-Edit/Cancel a Verified Order (cont'd) ; 22 Jun 93

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIE ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSDEVO

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry for edit verified order
DIE
REPRT	;
UPDATE	;
MSG
NQ
ORDER

External References

Name	Field # of Occurrence
NOW^%DTC	UPDATE+1, NQ+11
^DIE	DIE+3, ORDER+1
^DIR	EN+5, NQ+1, NQ+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"You may edit quantity, manufacturer, lot # and expiration date.",!,?5,"If you wish to edit drug or NAOU, you must cancel this order",!,?5,"and enter a new order.",!! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"This verified order has been previously edited.",!,"You must cancel this order and re-enter a new one.",!! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Sorry. You've selected ZERO as the new dispensing balance.",!,"If the new balance is ZERO, please CANCEL this order." Line Location: NQ+3
Function Call: WRITE	Prompt: !!,"Old Dispensed Quantity: ",QTY," New Dispensed Quantity: ",NQTY,! Line Location: NQ+4
Function Call: WRITE	Prompt: !!,"This transaction cannot be processed.",!,"Your vault balance is ",$P(^PSD(58.8,+PSDS,1,+PSDR,0),"^",4),"." Line Location: NQ+5
Function Call: WRITE	Prompt: !!,"Accessing your transaction information..." Line Location: NQ+9
Function Call: WRITE	Prompt: !!,"Old Balance: ",BAL,?35,"New Balance: ",BAL+AQTY,!! Line Location: NQ+14
Function Call: WRITE	Prompt: !,"Updating transaction history..." Line Location: DIE+0
Function Call: WRITE	Prompt: !,"Updating Order..." Line Location: DIE+5
Function Call: WRITE	Prompt: "done." Line Location: ORDER+3
Function Call: WRITE	Prompt: !!,"The VA FORM 10-2321 has been previously printed for this order.",!,"Please use the 'Reprint VA FORM 10-2321' .",!! Line Location: REPRT+1
Function Call: WRITE	Prompt: !!," No action taken. ",!! Line Location: MSG+0
Routine Call	DIE Line Location: DIE+3 ORDER+1
Routine Call	DIR Line Location: EN+5 NQ+1 NQ+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	UPDATE+1, NQ+5, NQ+10, NQ+12, NQ+13
^PSD(58.81 - [#58.81]	DIE+4, REPRT+1
^PSD(58.85 - [#58.85]	ORDER+2

Label References

Name	Line Occurrences
DIE	UPDATE+1
MSG	EN+2, EN+5, NQ+2, NQ+3, NQ+5, NQ+8, DIE+3

Naked Globals

Name	Field # of Occurrence
^("CS"	REPRT+1
^(0	NQ+12, DIE+4, ORDER+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UPDATE+1, NQ+11
>> AQTY	UPDATE+1, NQ+4, NQ+5, NQ+12, NQ+14, DIE+2
>> BAL	UPDATE+1, NQ+12, NQ+14, DIE+2
DA	EN+3!, NQ!, NQ+6!, DIE+2!, DIE+3!, ORDER!, ORDER+1!
DA(1	ORDER*
DA(2	ORDER*
DIE	DIE+2!, DIE+3!, ORDER!, ORDER+1!
>> DILOCKTM	NQ+10
DIR	EN+3!, EN+5!, NQ!, NQ+1!, NQ+6!, NQ+8!
DIR("?"	EN+4, EN+5, NQ+1, NQ+6
DIR("A"	EN+5, NQ, NQ+7*
DIR("B"	NQ+7*
DIR(0	EN+3, NQ, NQ+6*
DIRUT	EN+3!, EN+5, NQ+6!, NQ+8
DR	DIE+2!, DIE+3!, ORDER!, ORDER+1!
DTOUT	NQ!, NQ+2
DUOUT	NQ!, NQ+2
>> EXP	DIE+4*, ORDER+1
>> FIELD	EN+6*, UPDATE+1
>> LOT	DIE+4*, ORDER+1
>> MFG	DIE+4*, ORDER+1
>> NAOU	ORDER, ORDER+2
>> NBKU	NQ
>> NPKG	NQ
>> NQTY	EN+2, UPDATE+1, NQ+3, NQ+4, DIE+2, ORDER+1, ORDER+2
>> ORD	ORDER, ORDER+2
>> PSDA	DIE+2, DIE+4, REPRT+1
>> PSDOUT	EN+2, EN+5, NQ+2, NQ+3, DIE+3*
>> PSDR	UPDATE+1, NQ+5, NQ+10, NQ+12, NQ+13, ORDER, ORDER+2
>> PSDS	UPDATE+1, NQ+5, NQ+10, NQ+12, NQ+13
>> PSDT	UPDATE+1, NQ+11, DIE+2
>> PSDUZ	DIE+2
>> QTY	UPDATE+1, NQ+4
>> WK	ORDER+2*
>> Y	EN+6, NQ+3, NQ+8, DIE+3

Customize PDF page

Package: Controlled Substances

Routine: PSDEVO1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: