Routine: PSJOE1

Call Graph Total: 17

Package	Total	Call Graph
Inpatient Medications	15	($$ENDD,$$ENDTC,$$ENNPN)^PSGMI ^PSGOE1 ^PSGOE3 ^PSGOE4 ^PSGOE7 (CHKDD,CKDT,EDIT,GTSTATUS)^PSGOEE (ENNOU,ENSFE)^PSGOEE0 ^PSGOES ^PSGOETO CHK^PSGOEV EN^PSGPEN GETUD^PSJLMGUD INIT^PSJLMUDE $$OINAME^PSJLMUTL $$ENNOO^PSJUTL5
Registration	1	EN^VALM
VA Fileman	1	YN^DICN

Package

Total

Call Graph

($$ENDD,$$ENDTC,$$ENNPN)^PSGMI ^PSGOE1 ^PSGOE3 ^PSGOE4 ^PSGOE7 (CHKDD,CKDT,EDIT,GTSTATUS)^PSGOEE (ENNOU,ENSFE)^PSGOEE0 ^PSGOES
^PSGOETO CHK^PSGOEV EN^PSGPEN GETUD^PSJLMGUD INIT^PSJLMUDE $$OINAME^PSJLMUTL $$ENNOO^PSJUTL5

Registration

EN^VALM

VA Fileman

YN^DICN

Package	Total	Caller Graph
Inpatient Medications	1	PSJOE0

Package

Total

Caller Graph

Inpatient Medications

PSJOE0

Name	Comments	DBIA/ICR reference
EN	;
AD	; Ask Drug
EDIT(PROMPT)	; ; Edit fields in a UD order. ; PROMPT=0 - Select fields to edit by number. ; PROMPT=1 - Prompt to select fields for editing.
DONE	;
FTD	;
TAM	; Try Again Message
GDO	;

External References

Name	Field # of Occurrence
YN^DICN	GDO+1
$$ENDD^PSGMI	AD+8, AD+9, EDIT+13
$$ENDTC^PSGMI	AD+8, AD+9, EDIT+13
$$ENNPN^PSGMI	AD+9, EDIT+13
^PSGOE1	AD+17
^PSGOE3	AD+5
^PSGOE4	AD+5
^PSGOE7	AD+2
CHKDD^PSGOEE	EDIT+12
CKDT^PSGOEE	EDIT+10, EDIT+12
EDIT^PSGOEE	EDIT+6
GTSTATUS^PSGOEE	EDIT+12
ENNOU^PSGOEE0	EDIT+8, EDIT+9
ENSFE^PSGOEE0	AD+17
^PSGOES	AD+4
^PSGOETO	AD+15
CHK^PSGOEV	AD+10, EDIT+14
EN^PSGPEN	AD+16
GETUD^PSJLMGUD	AD+17
INIT^PSJLMUDE	EDIT+15
$$OINAME^PSJLMUTL	AD+8
$$ENNOO^PSJUTL5	AD+13
EN^VALM	AD+12, AD+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IOSC,@IOSTBM,IORC Line Location: AD+1
Function Call: WRITE	Prompt: !,"No order created." Line Location: AD+14
Function Call: WRITE	Prompt: !!,"Drug is not found in Formulary List." Line Location: GDO+1
Function Call: WRITE	Prompt: !,"Would you like to try to search the list again" Line Location: GDO+1
Function Call: READ	Prompt: "Enter FREE TEXT DRUG: " Formatting: !! Timeout: DTIME Variable: PSGDRGN Line Location: FTD+1
Function Call: WRITE	Prompt: $C(7) Line Location: FTD+1
Function Call: WRITE	Prompt: $C(7)," ??",!?2,"(",X," not allowed.)" Line Location: FTD+2
Function Call: WRITE	Prompt: !!?2,"ENTER DRUG ORDERED (1-39 CHARACTERS).",!?2,"Since the drug cannot be found in the DRUG file, enter the drug name here",!,"exactly as ordered. Press the RETURN key (or enter an '^') to skip over this",!,"drug, or to again search the" Line Location: FTD+4
Function Call: WRITE	Prompt: " DRUG file for this one." Line Location: FTD+5
Function Call: WRITE	Prompt: !!," Enter a 'Y' to try again to find the drug ordered from the Formulary. (The",!,"order cannot become active until a Formulary drug has been entered.) Enter 'N'",!,"to enter the drug ordered as free text for later reference." Line Location: TAM+1
Function Call: WRITE	Prompt: " Enter '^' to exit.",! Line Location: TAM+2
Routine Call	VALM Line Location: AD+12 AD+17

Name	Line Occurrences
@(	EDIT+6
AD	PSJOE1+6, AD+4, AD+6, AD+14, AD+15, AD+18
DONE	AD+3
FTD	FTD+2, FTD+5
TAM	GDO+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DONE+1!, GDO+1*, GDO+2
DA	DONE+1!
DIC	DONE+1!
DIE	DONE+1!
DR	EDIT+7*, EDIT+8, DONE+1!
DRG	DONE+1!
DRGN	DONE+1!
DRGO	DONE+1!
DTIME	FTD+1
DUZ	AD+9, EDIT+13
>> IOBM	AD+1*
>> IORC	AD+1
>> IOSC	AD+1
IOSL	AD+1
>> IOSTBM	AD+1
>> IOTM	AD+1*
ND	DONE+1!
OC	DONE+1!
ORIFN	DONE+1!
ORIT	DONE+1!
ORPK	DONE+1!
ORSTOP	DONE+1!
ORSTRT	DONE+1!
ORSTS	DONE+1!
ORTX	DONE+1!
PC	PSJOE1+6, EN+1, AD+4*, DONE+1!
PROMPT	EDIT~, EDIT+6
>> PSGAT	AD+9*
PSGDO	AD+10, EDIT+14, DONE+1!
>> PSGDRGN	FTD+1*, FTD+2, FTD+3
>> PSGDT	AD+9, EDIT+13
>> PSGEBN	AD+9, EDIT+13
PSGEFN	AD+7!*
PSGEFN(	AD+7*
>> PSGFD	AD+11*, EDIT+14
>> PSGFDN	AD+8*
PSGFDX	AD+1~
>> PSGLI	AD+9, EDIT+13
>> PSGLIN	AD+9, EDIT+13
PSGMR	AD+10, EDIT+14, DONE+1!
PSGMRN	DONE+1!
PSGNEDFD	DONE+1!
PSGNEFD	AD+8, AD+10, AD+11, DONE+1!
PSGNEFDO	AD+1~
PSGNESD	AD+8, AD+10, AD+11, DONE+1!
>> PSGOEAV	AD+9, AD+15
PSGOEE	AD+7!, AD+15!, AD+16
PSGOEEF	AD+7!, AD+17*
>> PSGOEEG	EDIT+6*
>> PSGOEENO	EDIT+7*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
>> PSGOEEWF	EDIT+6*
PSGOEOS	AD+7!
PSGOES	EDIT+9, DONE+1!
>> PSGOINST	AD+8*
PSGORD	AD+15, AD+16, AD+17, EDIT+15, DONE+1!
PSGOROE1	AD+6, DONE+1!
PSGORQF	AD+1~, AD+3
>> PSGP	AD+17, EDIT+15
>> PSGPD	AD+8*
>> PSGPDN	AD+8*
>> PSGPDNX	EDIT+10
>> PSGPDRG	AD+8, AD+10, EDIT+14
PSGS0XT	DONE+1!
PSGS0Y	AD+9, DONE+1!
PSGSCH	AD+10, EDIT+14, DONE+1!
>> PSGSD	AD+11*, EDIT+14
>> PSGSDN	AD+8*
PSGSDX	AD+1~
PSGSI	DONE+1!
>> PSGST	AD+10, EDIT+14
>> PSGSTAT	AD+9*
PSGX	DONE+1!
PSJACEPT	AD+12!, AD+13, AD+14!
>> PSJNEWOE	EDIT+6, EDIT+7, EDIT+8
>> PSJNOO	AD+13*, AD+14
PSJNORD	AD+1~*
>> PSJORD	AD+15*
>> PSJORQF	AD+3, AD+4
>> PSJSYSP0	AD+5
>> PSJSYSU	AD+16
U	AD+8, AD+9, AD+10, EDIT+13, EDIT+14
>> VALM("TM"	AD+1
>> VALMBCK	AD+12, EDIT+7, EDIT+8*
VALMSG	EDIT+11!, EDIT+12*
>> X	AD+4, AD+7, FTD+2
Y	AD+12, EDIT+6, DONE+1!
Z	DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSJOE1

Information

Source Information