Routine: PSJCOM

Information

PSJCOM ;BIR/CML - FINISH COMPLEX UNIT DOSE ORDERS ENTERED THROUGH OE/RR ;Jun 17, 2020@15:42:18

Package	Total	Call Graph
Inpatient Medications	9	NEWNVAL^PSGAL5 $$ENDTC^PSGMI ENWALL^PSGNE3 $$DDOK^PSGOE2 FILESI^PSJBCMA5 $$ISCLOZ^PSJCLOZ (DOSECHK,SETVAR)^PSJDOSE $$GETDUR^PSJLIVMD SETOC^PSJNEWOC
VA FileMan	3	NOW^%DTC %XY^%RCR ^DIR
List Manager	1	PAUSE^VALM1
Text Integration Utility	1	MAIN^TIUEDIT

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: 4

Package	Total	Caller Graph
Inpatient Medications	4	PSGOEE PSGOEF1 PSGOEV PSJCOMV

Entry Points

Name	Comments	DBIA/ICR reference
UPD	;
VFY	; change status, move to 55, and change label record
DONE	;
DDCHK	; dispense drug check
CONT()	;
NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD)

External References

Name	Field # of Occurrence
NOW^%DTC	NEWNVAL+13, NEWNVAL+20
%XY^%RCR	UPD+11, UPD+14
^DIR	VFY+14, VFY+43, DONE+3, CONT+4
NEWNVAL^PSGAL5	UPD+21
$$ENDTC^PSGMI	VFY+28, VFY+29
ENWALL^PSGNE3	UPD+17
$$DDOK^PSGOE2	DDCHK+3
FILESI^PSJBCMA5	UPD+21
$$ISCLOZ^PSJCLOZ	VFY+12
DOSECHK^PSJDOSE	VFY+6
SETVAR^PSJDOSE	VFY+7
$$GETDUR^PSJLIVMD	VFY+31
SETOC^PSJNEWOC	VFY+3
MAIN^TIUEDIT	DONE+5
PAUSE^VALM1	VFY+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: UPD+10
Function Call: WRITE	Prompt: "." Line Location: UPD+11
Function Call: WRITE	Prompt: "." Line Location: UPD+14
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1") Line Location: VFY+7
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: VFY+17
Function Call: WRITE	Prompt: "." Line Location: VFY+22
Function Call: WRITE	Prompt: "." Line Location: VFY+24
Function Call: WRITE	Prompt: "." Line Location: VFY+25
Function Call: WRITE	Prompt: !,"ORDER VERIFIED.",! Line Location: VFY+41
Function Call: WRITE	Prompt: ! Line Location: DONE+3
Function Call: WRITE	Prompt: $C(7),!!,"This order must have at least one valid, active dispense drug to be verified." Line Location: DDCHK+5
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Routine Call	DIR Line Location: VFY+14 VFY+43 DONE+3 CONT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	UPD+2, UPD+5, UPD+6, VFY+4
^PS(53.45 - [#53.45]	UPD+21
^PS(55 - [#55]	UPD+16, UPD+17
^TMP("PSJCOM"	UPD+2, UPD+4, UPD+5, UPD+6, UPD+7, UPD+8, UPD+9, UPD+15, UPD+17, UPD+18 , UPD+19, VFY+4, VFY+13, VFY+15, VFY+21, VFY+22, VFY+26, VFY+40, VFY+42, VFY+45* , NEWNVAL+11, NEWNVAL+17*
^TMP("PSJCOM2"	VFY+20, VFY+23, VFY+24, VFY+26, VFY+32, VFY+40, VFY+45, DDCHK+1, NEWNVAL+10, NEWNVAL+18 , NEWNVAL+24*
^TMP("PSODAOC"	VFY+2*

Label References

Name	Line Occurrences
$$CONT	VFY+7
DDCHK	VFY+10
DONE	VFY+10, VFY+13
NEWNVAL	UPD+20, VFY+25, VFY+28, VFY+29
VFY	UPD+22, UPD+23

Naked Globals

Name	Field # of Occurrence
^(	NEWNVAL+11, NEWNVAL+18
^(0	UPD+4, NEWNVAL+11, NEWNVAL+18*
^(2	UPD+4, UPD+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEWNVAL+13, NEWNVAL+15, NEWNVAL+20, NEWNVAL+22
%X	UPD+11, UPD+14, DONE+6!
%Y	UPD+11, UPD+14, DONE+6!
>> ANQDATA	VFY+42
CHK	VFY+10, VFY+13, VFY+14, DONE+1, DONE+2, DONE+6!, DDCHK+1, DDCHK+3*, DDCHK+4
CLOZFLG	VFY+12~*, VFY+13, VFY+42
DA	DONE+6!
DIE	DONE+6!
DIR	VFY+14!, VFY+43!, DONE+3~, CONT+1~, CONT+2!
DIR("A"	VFY+14, DONE+3, CONT+3*
DIR("B"	DONE+3, CONT+3
DIR(0	VFY+14, VFY+43, DONE+3, CONT+3
DIRUT	VFY+14, CONT+1~, CONT+2!
DP	DONE+6!
DR	DONE+6!
>> DRGF	DDCHK+1*, DDCHK+2, DDCHK+3
DUR	VFY+30~, VFY+31*, VFY+32
>> DURON	VFY+30*, VFY+31
DURORD	VFY+30~
DUZ	UPD+21, VFY+39, NEWNVAL+15, NEWNVAL+22
F	DONE+6!
ND	DONE+6!
>> ON	VFY+30
PSGAL	DONE+6!
PSGAL("N"	NEWNVAL+11, NEWNVAL+17, NEWNVAL+18, NEWNVAL+24
PSGALC	NEWNVAL~, NEWNVAL+15, NEWNVAL+22
PSGALFN	VFY+34!
PSGALORD	NEWNVAL~, NEWNVAL+10, NEWNVAL+11, NEWNVAL+17, NEWNVAL+18, NEWNVAL+24
>> PSGAT	UPD+18
>> PSGDO	UPD+18
>> PSGDT	UPD+17, VFY+39, NEWNVAL+13, NEWNVAL+20
PSGDUR	UPD+19!
>> PSGFD	UPD+4
PSGFLD	NEWNVAL~, NEWNVAL+15, NEWNVAL+22
>> PSGHSM	UPD+9
>> PSGIND	UPD+8
>> PSGND	UPD+15*
PSGODA	DONE+6!
>> PSGODDD(1	VFY+35
>> PSGOEAV	UPD+20, UPD+22, UPD+23
>> PSGOEEF(109	VFY+8*
>> PSGOEEWF	UPD+11, UPD+13*, UPD+14
PSGOHSM	UPD+9!
PSGOLD	NEWNVAL~, NEWNVAL+14, NEWNVAL+15, NEWNVAL+21, NEWNVAL+22
>> PSGONF	VFY+35
>> PSGORD	UPD+2, UPD+4, UPD+5, UPD+6, UPD+7, UPD+8, UPD+9, UPD+15, UPD+17, UPD+18 , UPD+19, UPD+20, UPD+21, VFY+2, VFY+3, VFY+4, VFY+12, VFY+13, VFY+15, VFY+18 , VFY+19, VFY+20, VFY+21, VFY+22, VFY+23, VFY+24, VFY+25, VFY+26, VFY+28, VFY+29 , VFY+30, VFY+32, VFY+36, VFY+40, VFY+42, VFY+45, DDCHK+1
>> PSGORDP	VFY+19*
>> PSGP	UPD+16, UPD+17, UPD+21, VFY+31, DONE+5
>> PSGPD	DDCHK+2*, DDCHK+3
>> PSGRDTX	VFY+31
PSGRF	UPD+19!
PSGRFD	VFY+21, VFY+23, VFY+29*, VFY+34!
PSGRMV	UPD+19!
PSGRMVT	UPD+19!
PSGRSD	VFY+21, VFY+23, VFY+27, VFY+28*, VFY+34!
>> PSGS0XT	UPD+18
>> PSGSCH	UPD+3, UPD+7
>> PSGSD	UPD+4
>> PSGSI	UPD+5, UPD+6
>> PSGSM	UPD+9
>> PSGST	UPD+3*, UPD+4
PSGX	VFY+21~, VFY+23~
>> PSJACEPT	VFY+7, VFY+9*
>> PSJCOM	UPD+1, VFY+1
PSJDOSE	VFY+5~, DONE+6!
PSJDOSE("WARN"	VFY+7
PSJDOSE("WARN1"	VFY+7
PSJDSFLG	VFY+5~, VFY+7
>> PSJOWALL	UPD+16*
>> PSJPRI	DONE+2
>> PSJRNF	UPD+23
>> PSJSPEED	VFY+41, VFY+43, DONE+2
>> PSJSYSP	UPD+11, UPD+14
>> PSJSYSU	UPD+20, UPD+22, VFY+25, VFY+36, VFY+37, VFY+39, DONE+2
PSJVAR	DONE+6!
>> PSOSAND	VFY+15*
Q	UPD+11, UPD+14, DONE+6!, NEWNVAL+11, NEWNVAL+15, NEWNVAL+17, NEWNVAL+18, NEWNVAL+22, NEWNVAL+24
QQ	DONE+6!, NEWNVAL+11, NEWNVAL+18
SIARRAY	UPD+21~*
>> TIUDA	DONE+5
U	UPD+5, UPD+6, UPD+15, UPD+17, UPD+18, UPD+19, VFY+21, VFY+23, VFY+31, VFY+37
>> VALMBCK	VFY+44, DONE+6
VND4	VFY+26, VFY+36, VFY+37, VFY+38, VFY+39, VFY+40, DONE+6!
X	UPD+15, UPD+17, VFY+15, VFY+35~*, VFY+36, DONE+6!
Y	DONE+4, CONT+1~, CONT+5

Customize PDF page

Package: Inpatient Medications