Routine: PSJH1

Package	Total	Call Graph
Inpatient Medications	3	($$ENDTC,$$ENPDN)^PSGMI GTOT^PSIVUTL $$ONE^PSJBCMA
Kernel	2	(T0,T1)^%ZOSV $$DT^XLFDT
VA FileMan	1	(C,NOW)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
ECHK	;
SET	;
IVSET	; Set IV data in ^TMP("PSJ",$J,.
IVSET1	;
ENU	; update status field to reflect expired orders, if necessary
ENUNM	;
EN	; enter here
NVSET	; Set up orders from 53.1.
KILL	;

External References

Name	Field # of Occurrence
C^%DTC	EN+7
NOW^%DTC	EN+2, EN+7
T0^%ZOSV	EN+1
T1^%ZOSV	EN+13
$$ENDTC^PSGMI	EN+7
$$ENPDN^PSGMI	IVSET+8
GTOT^PSIVUTL	IVSET+7
$$ONE^PSJBCMA	IVSET1+1
$$DT^XLFDT	EN+2

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(50.7 - [#50.7]	SET+1
^PS(53.1 - [#53.1]	IVSET+4!, IVSET+5, IVSET+8, EN+10, EN+12, NVSET+1, NVSET+2!, NVSET+3, NVSET+4
^PS(55 - [#55]	ECHK+1, ECHK+3, IVSET+3, IVSET+8, ENUNM+1, EN+3, EN+4, EN+8
^TMP("PSJ"	SET+2, IVSET1+2, EN+2!

Label References

Name	Line Occurrences
@(	IVSET+7, EN+12
ECHK	EN+8
IVSET	EN+6
IVSET1	IVSET+6, IVSET+7
NVSET	EN+10
SET	ECHK+3, NVSET+4

Naked Globals

Name	Field # of Occurrence
^(	NVSET+3
^(0	SET+1, ENUNM+1*
^(2	ECHK+1, NVSET+3
^(4	ECHK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+2, EN+7
>> C	ECHK+1, ECHK+5, SET+2, NVSET+3*
>> DFN	IVSET+3, IVSET+8, IVSET1+1, EN+3, EN+4
>> DN	SET+1*, SET+2
DRG	ECHK+1, SET+1, IVSET+1~, NVSET+3
DRG(	IVSET+7
DRG(0	IVSET+7
DRGT	IVSET+1~, IVSET+7*
DT	EN+2*
>> HDT	EN+7*
JJ	KILL+1!
N	KILL+1!
ND	ECHK+3, ECHK+4, IVSET+1~, IVSET+4, IVSET+5, NVSET+1~*
>> ND4	ECHK+3*, ECHK+4
>> NF	SET+1*, SET+2
>> O	ECHK+1, ECHK+2, ECHK+3, SET+2, EN+8, EN+10, EN+12, NVSET+1, NVSET+2, NVSET+3 , NVSET+4*
>> ON	IVSET+3, IVSET+4, IVSET+5, IVSET+7, IVSET+8, IVSET1+1, IVSET1+2, EN+6, EN+12
ON55	IVSET+1~, IVSET+3*
ORTX	IVSET+1~, IVSET+6, IVSET+7, IVSET+8*, IVSET1+2, KILL+1!
OSAVE	NVSET+1~, NVSET+4*
P	IVSET+1~, KILL+1!
P(	IVSET+3*
P("OT"	IVSET+7
P(17	IVSET+5*, IVSET1+2
P(2	IVSET+5*, IVSET1+1, IVSET1+2
P(3	IVSET+5*, IVSET1+1
P(4	IVSET+5*, IVSET+6, IVSET+7
P(9	IVSET+5*, IVSET1+1
PORD	NVSET+1~, NVSET+4*
>> PSGDT	ECHK+3, ENUNM+1, EN+2, EN+7
>> PSGODT	ECHK+3, ECHK+4, EN+7*
>> PSGONNV	EN+9
>> PSGP	ECHK+1, ECHK+3, IVSET+4, ENUNM+1, EN+8, EN+10, EN+12, NVSET+2
>> PSJHDATE	IVSET+3, EN+2*, EN+8
>> PSJIVOF	EN+7*
>> PSJOCNT	SET+2, IVSET1+2, EN+3*, EN+7
>> PSJOL	ECHK+5, EN+1, EN+13
>> PSJORD	EN+3*, EN+4, EN+6
>> PSJOS	ECHK+1, SET+1, SET+2, IVSET+6, IVSET1+2, EN+2*
>> PSJPAD	ENUNM+1
>> PSJSYSP0	EN+2
>> PSJSYSU	EN+2
>> Q	ENUNM+1*
>> QQ	ENUNM+1*
>> SD	ECHK+3, ECHK+4, IVSET+4, EN+8, EN+10, EN+12*, NVSET+2, NVSET+3
>> ST	ECHK+3, ECHK+4, SET+2, EN+8, NVSET+3
>> START	ECHK+1, SET+1, NVSET+3
STAT	IVSET+1~, IVSET1+2*, KILL+1!
>> SUB	SET+1*, SET+2
TYP	IVSET+1~, IVSET1+1*, IVSET1+2, KILL+1!
U	IVSET+3, IVSET+5, IVSET+7, EN+5, EN+12, NVSET+3, NVSET+4
>> UDU	ECHK+4, EN+2*
UPD	ENUNM+1*, ENUNM+2!
X	IVSET+1~, IVSET+3, EN+4, EN+5, EN+7
>> X1	EN+7*
>> X2	EN+7*
>> XRT0	EN+13
>> XRTL	EN+1
>> XRTN	EN+13*
Y	IVSET+1~, IVSET+3, IVSET+5, IVSET+7, EN+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJH1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: