Routine: PSGOE7

Information

PSGOE7 ;BIR/CML3-SELECT DRUG ;15 MAY 00 / 1:43 PM

Package	Total	Call Graph
Inpatient Medications	5	$$ENDDN^PSGMI (END,ENDDC)^PSGSICHK DIN^PSJDIN $$OINAME^PSJLMUTL READ^PSJUTL
VA Fileman	3	^DIC MIX^DIC1 YN^DICN

Package	Total	Caller Graph
Inpatient Medications	13	PSGOD PSGOE0 PSGOE8 PSGOE9 PSGOEEW PSGOEF PSGOER0 PSGOERS PSJHL7 PSJOE1 PSJOEEW PSJOREN PSJORPOE

Name	Comments	DBIA/ICR reference
SNFM	; show non-formulary message
DO	; dosage ordered
AD	; Ask Drug
GTNEDFD(APP,PDRG)	; Find defaults from Orderable Item.
AD1	;
NFOH	;
NF	;
DONE	;
CHKDRG(DRG)	; Determine if dispense drug is valid for Unit Dose.

Name	Line Occurrences
Function Call: READ	Prompt: "Select DRUG: " Formatting: !! Timeout: DTIME Variable: X Line Location: AD1+2
Function Call: WRITE	Prompt: $C(7) Line Location: AD1+2
Function Call: WRITE	Prompt: !!?2,"Select the medication you wish the patient to receive." Line Location: AD1+5
Function Call: WRITE	Prompt: " You should consult",!,"with your pharmacy before ordering any non-formulary medication." Condition for execution: PSJSYSU<3 Line Location: AD1+5
Function Call: WRITE	Prompt: ! Line Location: AD1+5
Function Call: WRITE	Prompt: !!,"There are no formulary alternatives entered for this item." Line Location: NF+3
Function Call: WRITE	Prompt: " You should consult",!,"with your pharmacy before ordering this item." Condition for execution: PSJSYSU>2 Line Location: NF+3
Function Call: WRITE	Prompt: !!,Q3," has been entered as a formulary " Line Location: NF+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>67 Line Location: NF+4
Function Call: WRITE	Prompt: "alternative." Line Location: NF+4
Function Call: WRITE	Prompt: !!,"Is ",$S(Q=1:"this",1:Q3)," acceptable" Line Location: NF+5
Function Call: WRITE	Prompt: ! Line Location: NF+7
Function Call: WRITE	Prompt: !!?2 Line Location: NFOH+2
Function Call: WRITE	Prompt: ! Condition for execution: $L(Z)+$X+2>IOM Line Location: NFOH+2
Function Call: WRITE	Prompt: Z," " Line Location: NFOH+2
Function Call: WRITE	Prompt: !,$G(^(Q,0)) Line Location: SNFM+1
Function Call: WRITE	Prompt: ! Line Location: SNFM+2
Routine Call	DIC Line Location: NF+7

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(50.7 - [#50.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.3 - [#50.3]	GTNEDFD+3
^PS(50.7 - [#50.7]	GTNEDFD+1
^PS(59.7 - [#59.7]	SNFM+1
^PSDRUG - [#50]	AD1+9, AD1+11, NF+2, NF+4, CHKDRG+1
^PSDRUG("ASP"	AD1+14

Name	Field # of Occurrence
%	DONE+1!, NF+5*, NF+6
%Y	DONE+1!
APP	GTNEDFD~, GTNEDFD+3
CNT	NF+2~*, NF+3, NF+4, NF+6
>> D	AD+3, AD+4
DA	NF+7!
DA(1	NF+7*
DIC	AD+3!, AD+4, DONE+1!, NF+7!*
DIC("A"	NF+7*
DIC("S"	AD+3, AD+4
DIC("T"	AD+4*
DIC(0	AD+3, NF+7
DRG	CHKDRG~, CHKDRG+1
DT	CHKDRG+1
DTIME	AD1+2
IOM	NFOH+2
PDRG	GTNEDFD~, GTNEDFD+1, GTNEDFD+3
PSGDICS	PSGOE7+9*, DONE+1!
>> PSGDO	AD1+6, DO+5
>> PSGDRG	AD1+6, AD1+8, AD1+9, AD1+10, AD1+11, AD1+14, DO+2, NF+2, NF+4, NF+7
>> PSGDRGN	AD1+6, AD1+8, AD1+10, AD1+14
>> PSGNEDFD	AD1+6, DO+1
PSGODO	AD+2!
PSGORD	AD1+1!
>> PSGORQF	AD1+2, AD1+3, DO+2
>> PSGP	DO+2
>> PSGPDRG	AD1+6, AD1+11, AD1+12*, AD1+14, DO+1, DO+3
>> PSGPDRGN	AD1+6, AD1+11, AD1+12*
>> PSGX	DO+3*
PSJDOSE	AD+1!
PSJDOX	AD+1!
PSJLUAPP	DONE+1!
PSJORD	AD1+1!
>> PSJSYSU	AD+3, AD1+5, AD1+7, DO+2, DO+3, NF+1, NF+3, SNFM+1
Q	NF+5, SNFM+1, GTNEDFD+2~, GTNEDFD+3*
Q1	DONE+1!, NF+2, NF+4, NF+6
Q2	DONE+1!
Q3	DONE+1!, NF+4*, NF+5, NF+6, NFOH+1
U	CHKDRG+1
X	AD1+2, AD1+3, AD1+4, AD1+5, AD1+6, AD1+14, NFOH+1, NFOH+2, CHKDRG+1, GTNEDFD+2~* , GTNEDFD+3*, GTNEDFD+4
>> Y	AD1+6, AD1+8, AD1+10, AD1+12, DO+3, NF+1, NF+3, NF+6, NFOH+2, SNFM+1* , SNFM+2*
>> Y(0	AD1+8, AD1+10, NF+6*
Z	DONE+1!, NFOH+2*