Routine: PSODRGN

Package	Total	Call Graph
Outpatient Pharmacy	3	10^PSOBKDED JUMP^PSODIR1 M1^PSOOREDX
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	$$ERXONLY^APSPFNC6

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOBKDED

Entry Points

External References

Name	Field # of Occurrence
$$ERXONLY^APSPFNC6	SELECT+31
$$GET1^DIQ	SELECT+11
^DIR	SELECT+18, SELECT+23, TRADE+2, 6+7
10^PSOBKDED	6+9
JUMP^PSODIR1	SELECT+26
M1^PSOOREDX	6+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"The following Drug(s) are available for selection:" Line Location: SELECT+4
Function Call: WRITE	Prompt: !,PSDC_". "_$P(^PSDRUG(PSI,0),"^")_$S($P(^(0),"^",9):" (N/F)",1:"") Line Location: SELECT+6
Function Call: WRITE	Prompt: !!," This Dispense Drug is now Inactive. You may select a" Line Location: SELECT+13
Function Call: WRITE	Prompt: !," new Orderable Item, or you can enter a new Order with" Line Location: SELECT+14
Function Call: WRITE	Prompt: !," an Active Drug.",! Line Location: SELECT+15
Function Call: WRITE	Prompt: !!,"No drugs available!",! Line Location: SELECT+16
Function Call: WRITE	Prompt: ! Line Location: SELECT+23
Routine Call	DIR Line Location: SELECT+18 SELECT+23 TRADE+2 6+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SELECT+2, SELECT+5, SELECT+6, SELECT+21, SELECT+34
^PSDRUG("ASP"	SELECT+5
^PSRX - [#52]	SELECT+10

Label References

Name	Line Occurrences
ETX	SELECT+19
KV	SELECT+23, SELECT+34, TX
SELECT	SELECT+28, SELECT+29, SELECT+31
SELECTX	SELECT+24, SELECT+25, SELECT+26, SELECT+27
TRADE	SELECT+35
TRADEX	TRADE+4

Naked Globals

Name	Field # of Occurrence
^("I"	SELECT+5
^(0	SELECT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLOZPAT	SELECT+1!
DA	SELECT+10, TRADE+1!, TRADEX+1!
DIC	SELECT+2!, TRADE+1!, TRADE+2!
DIE	TRADEX+1!
DIR	SELECT+17!, SELECT+18!, TRADE+1!, TRADE+2!, KV!, 6+7!
DIR("A"	SELECT+17, SELECT+23, 6+3, 6+4, 6+5, 6+6
DIR("B"	TRADE+2, 6+2
DIR(0	SELECT+17, SELECT+23, TRADE+2, 6+2
DIRUT	TRADE+3!, TRADE+4, TRADEX, TRADEX+1!, KV!, 6+7, 6+8
DR	TRADEX+1!
DRG	SELECT+9~, SELECT+10*, SELECT+11
DT	SELECT+5, SELECT+12
DTOUT	SELECT+25, SELECT+27, SELECTX!, TRADE+4, TRADEX+1!, KV!
DUOUT	SELECT+28!, SELECTX!, TRADE+4, TRADEX+1!, KV!
>> I	6+5*
>> OR0	SELECT+2
>> POERR	SELECT+2, SELECT+26
PSDC	SELECT+4, SELECT+6, SELECT+7, SELECT+8, SELECT+19, SELECT+20, SELECT+23, SELECTX!, ETX, TX!
PSDC(	SELECT+7*, SELECT+34
PSI	SELECT+4, SELECT+5, SELECT+6, SELECT+7, SELECTX!, TX!
PSOBDR	SELECT+19!, 6+9!
PSOBDR("NAME"	SELECT+19*, 6+1, 6+4
PSODIR	SELECT+26!
PSODIR("FIELD"	SELECT+26
PSODIR("FLD"	SELECT+26*
>> PSODRG("QFLG"	SELECT+26, SELECT+33
>> PSODRUG("DAW"	SELECT+2!
>> PSODRUG("IEN"	SELECT+3, SELECT+21, SELECT+22!
>> PSODRUG("NAME"	SELECT+3, SELECT+19, SELECT+22!, 6+1, 6+4
>> PSODRUG("NDC"	SELECT+2!
>> PSODRUG("OI"	SELECT+5, SELECT+21
>> PSODRUG("TRAD	E NAME" , SELECT+2!, TRADE+5*
>> PSOEDIT	SELECT+25, SELECT+27, SELECT+33, 6+1
>> PSONEW("DFLG"	SELECT+25, SELECT+27, TRADE+4*
>> PSONEW("FIELD"	SELECT+26*
>> PSONEW("FLD"	SELECT+26
>> PSONEW("OLD V	AL" , SELECT+3*, SELECT+33, SELECTX!
>> PSORX("DFLG"	6+7*
>> PSORX("EDIT"	TRADE+4
>> PSORXED	SELECT+1, SELECT+24
>> PSORXED("DFLG"	SELECT+24, TRADEX
>> PSOTRN	TRADE+2
PSOY	SELECT+34!*
PSOY(0	SELECT+34*, SELECT+35
>> SIG(	6+5
U	SELECT+26
>> VALMBCK	ETX*
>> VALMSG	ETX*
X	SELECT+2!, SELECT+9~, SELECT+11*, SELECT+12, SELECT+24, SELECT+25, SELECT+26, SELECTX!, TRADE+1!, TRADE+3 , TRADEX+1!, TX!
Y	SELECT+2!, SELECT+3, SELECT+29, SELECT+31, SELECT+33, SELECT+34, SELECTX!, TRADE+1!, TRADE+3, TRADE+5 , TRADEX+1!, TX!, 6+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODRGN

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
TRADEX
TX
ETX
6	;Called from PSOBKDED due to it's routine size.
TRADE	;
KV
SELECTX
SELECT	;