Routine: PSJO1

Package	Total	Call Graph
Inpatient Medications	6	$$ENDTC^PSGMI EXPIR^PSIVOE GTOT^PSIVUTL $$ONE^PSJBCMA EN1^PSJHL2 DRGDISP^PSJLMUT1
Kernel	2	(T0,T1)^%ZOSV $$DT^XLFDT
VA Fileman	1	(C,NOW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	2	PSIVACT PSJLMHED

Entry Points

Name	Comments	DBIA/ICR reference
COMCHK(PSJCOM,PSJPTYP)	;Check complex orders for order type
NVSET	; Set up orders from 53.1.
SET	;
EN(PSJPTYP)	; enter here ; PSJPTYP=1:UD ONLY, 2:IV ONLY, 3:BOTH
IVSET1	;
ECHK	;
ENUNM	;
KILL	;
ENU	; update status field to reflect expired orders, if necessary
IVSET	;Set IV data in ^TMP("PSJ",$J,.

External References

Name	Field # of Occurrence
C^%DTC	EN+12
NOW^%DTC	EN+5, EN+12
T0^%ZOSV	EN+4
T1^%ZOSV	EN+20
$$ENDTC^PSGMI	EN+12
EXPIR^PSIVOE	EN+9
GTOT^PSIVUTL	IVSET+7
$$ONE^PSJBCMA	IVSET1+2
EN1^PSJHL2	ENUNM+3
DRGDISP^PSJLMUT1	SET+2, IVSET+9
$$DT^XLFDT	EN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"...a few moments, I have some updating to do..." Line Location: ENU+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	IVSET+4!, IVSET+5, IVSET1+4, EN+17, EN+19, NVSET+1, NVSET+2!, NVSET+4!, NVSET+6!, NVSET+7! , NVSET+8, NVSET+9, COMCHK+5, COMCHK+8, COMCHK+9!, COMCHK+10, COMCHK+11
^PS(55 - [#55]	ECHK+1, ECHK+3, IVSET+2, ENUNM+1, EN+6, EN+7, EN+9*, EN+10, EN+14
^TMP("PSJ"	SET+6, IVSET1+7, EN+5!

Label References

Name	Line Occurrences
$$COMCHK	SET+1, IVSET+6
@(	IVSET+7, EN+19
ECHK	EN+14
ENUNM	EN+13
IVSET	EN+11
NVSET	EN+17
SET	ECHK+2, ECHK+3, NVSET+11

Naked Globals

Name	Field # of Occurrence
^(	EN+10
^(0	IVSET1+4, ENUNM+1, ENUNM+3*, NVSET+9
^(2	NVSET+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+5, EN+12
>> C	ECHK+1, ECHK+5, SET+6, NVSET+9*
>> DFN	IVSET+2, EN+6, EN+7, EN+9, EN+10
>> DN	SET+3*, SET+6
DRG	IVSET+1~, IVSET+8
DRG("AD"	IVSET+8
DRG("SOL"	IVSET+8
DRGT	IVSET+1~, IVSET+8*
DRUGNAME	SET+2~
DRUGNAME(1	SET+3
DT	EN+5, EN+12
>> HDT	EN+12*
JJ	KILL+1!
N	KILL+1!
NAME	IVSET+1~, IVSET+9
NAME(1	IVSET+9
ND	ECHK+3, ECHK+4, IVSET+1~, IVSET+4, IVSET+5, NVSET+1~*, NVSET+3, NVSET+5
ND2	NVSET+7~*
>> ND4	ECHK+3*, ECHK+4
>> NF	SET+6
>> O	ECHK+1, ECHK+3, EN+14, EN+17, EN+19*, NVSET+1, NVSET+2, NVSET+4, NVSET+6, NVSET+7 , NVSET+8, NVSET+9
>> OK	COMCHK+1, COMCHK+2, COMCHK+3, COMCHK+4, COMCHK+5, COMCHK+6, COMCHK+8, COMCHK+10, COMCHK+11*, COMCHK+12
ON	ECHK+1, SET+1, SET+2, SET+4, SET+5, SET+6, IVSET+2, IVSET+3, IVSET+4, IVSET+5 , IVSET+6, IVSET+7, IVSET+9, IVSET1+2, IVSET1+4, IVSET1+5, IVSET1+6, IVSET1+7, EN+9, EN+11! , EN+17, EN+19*
ON55	IVSET+1~, IVSET+2*
>> ORIFN	ENUNM+3*
ORTX	IVSET+1~, IVSET+8, IVSET+9, IVSET+11*, IVSET1+7, KILL+1!
P	IVSET+1~, KILL+1!
P(	IVSET+2*
P("PRNTON"	SET+1, SET+4, SET+5, IVSET+5, IVSET+6, IVSET1+5, IVSET1+6, NVSET+8
P(17	IVSET+5*, IVSET1+3, IVSET1+4
P(2	IVSET+3, IVSET+5*, IVSET1+2, IVSET1+7
P(3	IVSET+3, IVSET+5*, IVSET1+2
P(4	IVSET+5*, IVSET+7
P(9	IVSET+5*, IVSET1+2
PRNTON	SET+1, SET+4, SET+5, IVSET1+5, IVSET1+6, EN+17~, EN+19~
>> PSGDT	ECHK+2, ENUNM+1, EN+5, EN+9, EN+12
>> PSGODT	ECHK+3, ECHK+4, EN+12*
>> PSGONNV	EN+15
>> PSGP	ECHK+1, ECHK+3, SET+2, IVSET+4, IVSET+9, IVSET1+2, ENUNM+1, ENUNM+3, EN+14, EN+17 , EN+19, NVSET+2, NVSET+3, NVSET+4, NVSET+6
PSJCOM	COMCHK~, COMCHK+2, COMCHK+3, COMCHK+5, COMCHK+8, COMCHK+9
>> PSJIVOF	EN+12*
>> PSJOCNT	SET+6, IVSET1+7, EN+6*, EN+12
PSJOK	SET+1~, IVSET+6~
>> PSJOL	ECHK+5, EN+3*, EN+4, EN+11, EN+20
PSJON	COMCHK+7~, COMCHK+8, COMCHK+9, COMCHK+10, COMCHK+11
>> PSJORD	EN+6*, EN+7, EN+9, EN+10, EN+11
>> PSJOS	ECHK+1, SET+3, SET+6, IVSET1+7, EN+5*
>> PSJPAD	ENUNM+1, EN+14
PSJPRI	IVSET1+3, EN+10*, EN+11!
PSJPTYP	SET+1, IVSET+6, EN~, EN+6, EN+14, EN+17, EN+19, COMCHK~, COMCHK+4, COMCHK+6 , COMCHK+10, COMCHK+11
>> PSJSYSP0	EN+5
>> PSJSYSU	EN+5, EN+10
PSJX	EN+2~, EN+7*, EN+8, EN+9
PSJY	EN+2~, EN+8, EN+9, EN+11
>> Q	ENUNM+1*
>> QQ	ENUNM+1*, ENUNM+3
>> SD	ECHK+3, ECHK+4, IVSET+4, EN+14, EN+17, EN+19*, NVSET+2, NVSET+4, NVSET+6, NVSET+9
>> ST	ECHK+3, ECHK+4, SET+6, EN+14, NVSET+8
>> START	ECHK+1, ECHK+2, SET+3, NVSET+8
STAT	IVSET+1~, IVSET1+3, IVSET1+4, IVSET1+7, KILL+1!
>> STOP	ECHK+1*, ECHK+2
>> SUB	SET+3*, SET+6
TYP	IVSET+1~, IVSET1+2*, IVSET1+7, KILL+1!
U	ECHK+1, IVSET+2, IVSET+5, IVSET+8, IVSET1+4, EN+8, EN+9, EN+10, EN+17, EN+19 , NVSET+3, NVSET+5, NVSET+7, NVSET+8, NVSET+9
>> UDU	ECHK+4, EN+5*
UPD	ENUNM+1*, ENUNM+4!
X	IVSET+1~, IVSET+2, EN+12, EN+17, EN+19*
>> X1	EN+12*
>> X2	EN+12*
>> XRT0	EN+20
>> XRTL	EN+4
>> XRTN	EN+20*
Y	IVSET+1~, IVSET+2, IVSET+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJO1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: