Routine: PSJOE0

Package	Total	Call Graph
Inpatient Medications	10	^PSGOE1 ENASR^PSGON EN2^PSGVW ENIN^PSIVOPT ENIN^PSIVORE PIV^PSIVUTL ^PSJO ENL^PSJO3 $$COMPLEX^PSJOE EN^PSJOE1
Registration	1	(CLEAR,PAUSE)^VALM1
VA Fileman	1	^DIR

Package

Total

Call Graph

Inpatient Medications

^PSGOE1 ENASR^PSGON EN2^PSGVW ENIN^PSIVOPT ENIN^PSIVORE PIV^PSIVUTL ^PSJO ENL^PSJO3
$$COMPLEX^PSJOE EN^PSJOE1

Registration

(CLEAR,PAUSE)^VALM1

VA Fileman

^DIR

Package	Total	Caller Graph
Inpatient Medications	3	PSGVBWP PSJOE PSJPR

Package

Total

Caller Graph

Inpatient Medications

PSGVBWP PSJOE PSJPR

Entry Points

Name	Comments	DBIA/ICR reference
CONT	;
CKNEW	;
GODO1	;
LMNEW(PSGP,PSJPROT)	;Entry point for new order entry from listman. ; PSGP = DFN ; PSJPROT=1:UD ONLY; 2:IV ONLY; 3:BOTH
AM	;
ENVW	; ask user to select or view any of the orders shown
START	; print orders
DONE	;
GODO	;Display selected order.
OLDCOM(DFN,PSJORD)	;
ASKTYP	; Ask if completing as IV or UD.

External References

Name	Field # of Occurrence
^DIR	CONT+1, GODO1+1, ASKTYP+3, ASKTYP+4
^PSGOE1	GODO+3
ENASR^PSGON	ENVW+1
EN2^PSGVW	GODO+3
ENIN^PSIVOPT	GODO+2
ENIN^PSIVORE	LMNEW+12
PIV^PSIVUTL	ASKTYP+2
^PSJO	START+1
ENL^PSJO3	START+1
$$COMPLEX^PSJOE	OLDCOM+1
EN^PSJOE1	LMNEW+12
CLEAR^VALM1	OLDCOM+3, OLDCOM+7
PAUSE^VALM1	OLDCOM+6, OLDCOM+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Patient is shown as deceased. You may not enter orders for this patient." Line Location: CKNEW+2
Function Call: WRITE	Prompt: !!,"(NOTE: You cannot enter Unit Dose orders for this patient.)" Line Location: CKNEW+3
Function Call: WRITE	Prompt: !! Line Location: ASKTYP+2
Function Call: WRITE	Prompt: ! Line Location: ASKTYP+4
Function Call: WRITE	Prompt: !!!!!?21," * WARNING * " Line Location: OLDCOM+3
Function Call: WRITE	Prompt: !!!?5,"The following order contains a Requested Duration" Line Location: OLDCOM+4
Function Call: WRITE	Prompt: !?12,"and may be part of a complex dose!" Line Location: OLDCOM+5
Function Call: WRITE	Prompt: !!," Review the entire profile to determine appropriate action(s).",!!!!!!! Line Location: OLDCOM+6
Function Call: WRITE	Prompt: !!!!!?21," * WARNING * " Line Location: OLDCOM+7
Function Call: WRITE	Prompt: !!!?5,"The following order contains a Requested Duration" Line Location: OLDCOM+8
Function Call: WRITE	Prompt: !?12,"and may be part of a complex dose!" Line Location: OLDCOM+9
Function Call: WRITE	Prompt: !!," Review the entire profile to determine appropriate action(s).",!!!!!!! Line Location: OLDCOM+10
Function Call: WRITE	Prompt: !!?2,"Enter a 'Y' (or press the RETURN key) to enter new INPATIENT orders for this",!,"patient. Enter an 'N' (or an '^') if there are no new orders for this patient." Line Location: AM+1
Routine Call	DIR Line Location: CONT+1 GODO1+1 ASKTYP+3 ASKTYP+4

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	LMNEW+6
^PS(53.1 - [#53.1]	ENVW+6, GODO+1, GODO+2, OLDCOM+2
^PS(55 - [#55]	LMNEW+6, OLDCOM+2
^TMP("PSJON"	ENVW+5
^VA(200 - [#200]	LMNEW+7

Name	Line Occurrences
@(	GODO+1
ASKTYP	GODO+2
CKNEW	LMNEW+5
CONT	CKNEW+2, CKNEW+3
DONE	START+1, ENVW+3, ENVW+5
GODO	ENVW+6, ENVW+8
GODO1	GODO+1, GODO+2

Name	Field # of Occurrence
^("PS"	LMNEW+7
^(5.1	LMNEW+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CF	CKNEW+1!
CHK	CKNEW+1!
DFN	OLDCOM~, OLDCOM+1, OLDCOM+2
DIR	CONT+1!, GODO1+1!, ASKTYP+4!
DIR("?"	ASKTYP+4*
DIR("A"	CONT+1, ASKTYP+4
DIR(0	CONT+1, GODO1+1, ASKTYP+3, ASKTYP+4
>> DIRUT	GODO+2
DT	LMNEW+7
>> DTOUT	GODO1+1
>> DUOUT	GODO1+1
DURFLG	OLDCOM+2~*
IOF	GODO1+1
OD	CKNEW+1!
P	DONE+2!
PSG	DONE+1!
PSGDL	DONE+1!
PSGDLS	DONE+1!
PSGDO	DONE+1!
PSGDRG	DONE+1!
PSGDRGN	DONE+1!
PSGEFN	LMNEW+12!, DONE+2!
PSGFD	DONE+1!
PSGHSM	DONE+1!
PSGLMT	ENVW+1*, CKNEW+1!
PSGMR	DONE+1!
PSGMRN	DONE+1!
PSGNEDFD	DONE+1!
PSGNEFD	DONE+1!
PSGNESD	DONE+1!
PSGODDD	ENVW+5, CKNEW+1!
PSGODDD(	ENVW+5
>> PSGOE	ENVW+5*
PSGOEA	ENVW+3*, ENVW+6, ENVW+7, ENVW+8, CKNEW+1!
>> PSGOEAV	START+1, LMNEW+6
>> PSGOEDMR	LMNEW+6*
PSGOEEF	DONE+2!
PSGOEF	LMNEW+12!
>> PSGOEPR	LMNEW+6, LMNEW+7, LMNEW+8*
PSGOES	DONE+1!
PSGON	CKNEW+1!
PSGONC	ENVW+1*, CKNEW+1!
PSGONR	ENVW+1*, CKNEW+1!
PSGONV	ENVW+1*, CKNEW+1!
PSGOPR	DONE+1!
PSGORD	ENVW+5, DONE+1!, CKNEW+1!, GODO+3
PSGOROE1	DONE+1!
PSGP	LMNEW~, LMNEW+6
PSGPR	DONE+1!
PSGPRF	ENVW+1*!
PSGPRN	DONE+1!
>> PSGPTS	LMNEW+6*
PSGS0XT	DONE+1!
PSGS0Y	DONE+1!
PSGSCH	DONE+1!
PSGSD	DONE+1!
PSGSI	DONE+1!
PSGSM	DONE+1!
PSGST	DONE+1!
PSGSTN	DONE+1!
PSGUD	DONE+1!
PSGX	DONE+1!
PSIVAC	DONE+1!, GODO+1*
PSJCOM	CKNEW+1!
PSJDLW	ENVW+4!, ENVW+5, ENVW+6, DONE+1!, GODO1+1*
PSJLM	DONE+1!
PSJNARC	START+1*, DONE+1!
>> PSJNEWOE	LMNEW+5*
PSJO	ENVW+6~*
PSJO1	ENVW+6~*
>> PSJOE	ENVW+5, LMNEW+12
PSJOE1	ENVW+5*, CKNEW+1!
PSJOE2	ENVW+5*, CKNEW+1!
>> PSJOEPF	LMNEW+6*
>> PSJOL	START+1
>> PSJON	START+1, ENVW+1
PSJORD	ENVW+5, ENVW+6, ENVW+7, GODO+1, GODO+2, GODO+3, ASKTYP+2, OLDCOM~, OLDCOM+1, OLDCOM+2
>> PSJORQF	LMNEW+6*, LMNEW+12
>> PSJPCAF	LMNEW+12, CKNEW+3, AM+2
>> PSJPDD	CKNEW+2, ASKTYP+3
PSJPR	START+1!, GODO1+1
>> PSJPRF	ENVW+1, CKNEW+1, GODO+3
PSJPROT	LMNEW~, LMNEW+12
>> PSJPRP	GODO+1, GODO+2, GODO1+1
>> PSJPTS	LMNEW+6
>> PSJPTSP	LMNEW+8
>> PSJSYSP0	LMNEW+6
>> PSJSYSU	LMNEW+6
PSJUDPRF	LMNEW+5~
U	LMNEW+6, GODO+2
>> X	START+1, ENVW+3
>> Y	GODO+2, ASKTYP+3*

Customize PDF page

Package: Inpatient Medications

Routine: PSJOE0

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: