Routine: PSJOE0

Information

PSJOE0 ;BIR/CML3-INPATIENT PROFILE AND ORDER ENTRY ;Mar 06, 2020@10:39

Package	Total	Call Graph
Inpatient Medications	11	(,$$ACTPRO)^PSGOE1 ENASR^PSGON EN2^PSGVW ENIN^PSIVOPT ENIN^PSIVORE PIV^PSIVUTL KILL^PSJBCMA5 ^PSJO ENL^PSJO3 $$COMPLEX^PSJOE (CM,EN)^PSJOE1
List Manager	1	(CLEAR,PAUSE)^VALM1
Registration	1	DEM^VADPT
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 15

Package	Total	Caller Graph
Inpatient Medications	14	PSGVBWP PSJ LM NEW CM ORDER PSJ LM NEW ORDER PSJ LM NEW ORDER FROM PROFILE PSJBCMA6 PSJCLOR PSJCLOR1 PSJCLOR2 PSJCLOR3 PSJCLOR4 PSJCLOR5 PSJIBAG PSJOE PSJPR
Kernel	1	^ORD(101

Entry Points

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

External References

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

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: ! Line Location: CKNEW+5
Function Call: WRITE	Prompt: !!,"(NOTE: You cannot enter Unit Dose orders for this patient.)" Line Location: CKNEW+6
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: !!?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: CKNEW+5 CONT+1 GODO1+1 ASKTYP+3 ASKTYP+4

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
@(	GODO+1
ASKTYP	GODO+2
CKNEW	LMNEW+4
CM	LMNEW+11
CMK	LMNEW+12, CM+2
CONT	CKNEW+2, CKNEW+6
DONE	START+1, ENVW+2, ENVW+4
GODO	ENVW+5, ENVW+7
GODO1	GODO+1, GODO+2

Naked Globals

Name	Field # of Occurrence
^(5.1	LMNEW+5

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	CKNEW+5~, CONT+1!, GODO1+1!, ASKTYP+4!
DIR("?"	ASKTYP+4*
DIR("A"	CKNEW+5, CONT+1, ASKTYP+4*
DIR(0	CKNEW+5, CONT+1, GODO1+1, ASKTYP+3, ASKTYP+4*
>> DIRUT	CKNEW+8, GODO+2
>> DTOUT	GODO1+1
>> DUOUT	GODO1+1
DURFLG	OLDCOM+2~*
IOF	GODO1+1
OD	CKNEW+1!
P	DONE+2!
P("APPT"	LMNEW+10!, CMK+1!
P("APPTO"	CMK+1!
P("CLIN"	LMNEW+10!, CMK+1!
P("CLINO"	CMK+1!
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+4, CKNEW+1!
PSGODDD(	ENVW+4
>> PSGOE	ENVW+4*
PSGOEA	ENVW+2*, ENVW+5, ENVW+6, ENVW+7, CKNEW+1!
>> PSGOEAV	START+1, LMNEW+5
>> PSGOEDMR	LMNEW+5*
PSGOEEF	DONE+2!
PSGOEF	LMNEW+12!
>> PSGOEPR	LMNEW+5, 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+4, DONE+1!, CKNEW+1!, GODO+3
PSGOROE1	DONE+1!
PSGP	LMNEW~, LMNEW+5
PSGPR	DONE+1!
PSGPRF	ENVW+1*!
PSGPRN	DONE+1!
>> PSGPTS	LMNEW+5*
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*
PSJCLAPP	CMK+1!
PSJCM01	LMNEW+4~, LMNEW+11, LMNEW+12, LMNEW+13!, CM+2, CKNEW+3, CKNEW+7*
PSJCMF	LMNEW+4~*, CMK+1!
PSJCMO	LMNEW+11, LMNEW+12, LMNEW+13!, CKNEW+3
PSJCOM	CKNEW+1!
PSJDEC	LMNEW+4~, CKNEW+2, CKNEW+8
PSJDLW	ENVW+3!, ENVW+4, ENVW+5, DONE+1!, GODO1+1*
PSJLM	DONE+1!
PSJNARC	START+1*, DONE+1!
>> PSJNEWOE	LMNEW+4*
PSJO	ENVW+5~*
PSJO1	ENVW+5~*
>> PSJOE	ENVW+4, LMNEW+11
PSJOE1	ENVW+4*, CKNEW+1!
PSJOE2	ENVW+4*, CKNEW+1!
>> PSJOEPF	LMNEW+5*
>> PSJOL	START+1
>> PSJON	START+1, ENVW+1
PSJORD	ENVW+4, ENVW+5, ENVW+6, GODO+1, GODO+2, GODO+3, ASKTYP+2, OLDCOM~, OLDCOM+1, OLDCOM+2
>> PSJORQF	LMNEW+5*, LMNEW+11
>> PSJPCAF	LMNEW+9*, LMNEW+11, LMNEW+12, CKNEW+4, AM+2
>> PSJPDD	ASKTYP+3
PSJPR	START+1!, GODO1+1
>> PSJPRF	ENVW+1, CKNEW+1, GODO+3
PSJPROT	LMNEW~, LMNEW+11, LMNEW+12
>> PSJPRP	GODO+1, GODO+2, GODO1+1
>> PSJPTS	LMNEW+5
>> PSJPTSP	LMNEW+8
>> PSJSYSP	LMNEW+11
>> PSJSYSP0	LMNEW+5
>> PSJSYSU	LMNEW+5
PSJUDPRF	LMNEW+4~
U	LMNEW+5, GODO+2
>> VADM(6	CKNEW+2
>> VALMBCK	CMK+2*
X	START+1, ENVW+2, CKNEW+5~
Y	CKNEW+5~, CKNEW+6, CKNEW+7, CKNEW+8, GODO+2, ASKTYP+3*

Customize PDF page

Package: Inpatient Medications