Routine: PSJUTL1

Package	Total	Call Graph
Inpatient Medications	4	(EN,ENIVUD)^PSJ0050 EN1^PSJHL2 $$WSCHK^PSJO MARKIV^PSJUTL3
VA Fileman	3	(C,NOW)^%DTC ^DIC (,EN)^DIK
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMD
Pharmacy Data Management	1	($$L,UL)^PSSLOCK

Package	Total	Caller Graph
Inpatient Medications	7	PSGAP0 PSGCAP0 PSJAC PSJEXP PSJIPST1 PSJUTL3 PSJUTL99
Outpatient Pharmacy	1	PSOHLUP

Entry Points

Name	Comments	DBIA/ICR reference
IVCHK	;Match AD/SOL against Xtmp
NFWS(DFN,ON,PSJPWD)
MATCH	;If AD/SOL from XTMP matches to AD/SOL within the order, set new OI array
SEND	;Send mail message
CNIV1(DFN)
INSTLDT()	;Return the date PSJ558 was first installed
CONVERT(DFN,TYPE)	; ; Convert existing UD orders to new format. Only run once/patient, and ; only converts orders with a stop date<(5.0 Install date-365) ; DFN = Patient IEN ; TYPE = Background or Interactive mode	ICR #2411 Status: Active Usage: Private
PENDING	;Converting Pending IV order with Ad/Sol
CNV2(IEN507)
UPD(ON)	;Loop thru the new OI array
CNV(PSJM)
CHKDD	; Determine if dispense drug is NF or WS
FIND	;
CNIV(DFN)

External References

Name	Field # of Occurrence
C^%DTC	CONVERT+17, CNIV+10
NOW^%DTC	CONVERT+16, CNIV+8, SEND+2
^DIC	INSTLDT+4
^DIK	CONVERT+47
EN^DIK	CONVERT+14
EN^PSJ0050	UPD+12
ENIVUD^PSJ0050	CNIV+14
EN1^PSJHL2	CONVERT+25, CONVERT+32, CONVERT+43, UPD+11
$$WSCHK^PSJO	CHKDD+3
MARKIV^PSJUTL3	CNIV+6, CNIV+11, CNIV+13
$$L^PSSLOCK	CNIV1+2
UL^PSSLOCK	CNIV1+4, CNIV1+8
$$FMTE^XLFDT	SEND+3, SEND+4
^XMD	SEND+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Converting old orders for ",$P($G(^DPT(DFN,0)),U)," to new format." Line Location: CONVERT+15
Function Call: WRITE	Prompt: !,DFN Line Location: FIND+3
Routine Call	DIC Line Location: INSTLDT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.1 - [#53.1]	Classic Fileman Calls
^PS(55 - [#55]	Classic Fileman Calls
^XPD(9.7 - [#9.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	CNV2+2, UPD+6
^PS(52.6 - [#52.6]	CONVERT+38
^PS(52.7 - [#52.7]	CONVERT+38
^PS(53.1 - [#53.1]	CONVERT+13, CONVERT+19, CONVERT+20, CONVERT+23, CONVERT+24, CONVERT+25, CONVERT+27, CONVERT+47, CNIV1+7, UPD+10* , PENDING+2, PENDING+3, PENDING+6, PENDING+12, PENDING+13, PENDING+15
^PS(55 - [#55]	CONVERT+9, CONVERT+13, CONVERT+14, CONVERT+29, CONVERT+30, CONVERT+32, CONVERT+34, CONVERT+36, CONVERT+37, CONVERT+38* , CONVERT+39, CONVERT+42, CONVERT+45, CONVERT+48, FIND+1, FIND+2, FIND+3, CNIV+4, CNIV+13, CNIV1+3* , CNIV1+5, CNIV1+6, IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7, IVCHK+8, UPD+9*, PENDING+14
^PS(59.7 - [#59.7]	CONVERT+16
^PSDRUG - [#50]	CONVERT+20, CONVERT+21, CONVERT+30, CONVERT+31, CHKDD+2
^PSDRUG("AP"	CONVERT+21, CONVERT+31
^VA(200 - [#200]	CONVERT+40
^XPD(9.7 - [#9.7]	INSTLDT+2
^XTMP("PSJ NEW PERSON"	CONVERT+41*
^XTMP("PSSCONA"	CNIV1+4, MATCH+2, MATCH+3, PENDING+7
^XTMP("PSSCONS"	CNIV1+4, MATCH+4, MATCH+5, PENDING+8

Label References

Name	Line Occurrences
$$CNV	CONVERT+27, CONVERT+34, CONVERT+45
$$CNV2	CONVERT+23
CHKDD	NFWS+10
CNIV1	CNIV+11, CNIV+13
IVCHK	CNIV1+6
MATCH	IVCHK+9, PENDING+16
PENDING	CNIV1+7
SEND	CNIV+15
UPD	IVCHK+9, PENDING+9, PENDING+16

Naked Globals

Name	Field # of Occurrence
^(	NFWS+10, PENDING+7, PENDING+8
^(0	CONVERT+27, CONVERT+34, IVCHK+6, IVCHK+8, PENDING+13, PENDING+15
^(2	CONVERT+45*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CONVERT+16, CNIV+8, SEND+2
ADS	CONVERT+10~, CONVERT+37*, CONVERT+38
ADS1	CONVERT+10~
DA	CONVERT+14~, CONVERT+47
DDRG	CONVERT+10~, CONVERT+20, CONVERT+21, CONVERT+30, CONVERT+31
DFN	CONVERT~, CONVERT+9, CONVERT+13, CONVERT+14, CONVERT+19, CONVERT+25, CONVERT+29, CONVERT+30, CONVERT+32, CONVERT+34 , CONVERT+36, CONVERT+37, CONVERT+38, CONVERT+39, CONVERT+41, CONVERT+42, CONVERT+43, CONVERT+45, CONVERT+47, CONVERT+48 , NFWS~, NFWS+9, FIND+1, FIND+2, FIND+3, CNIV~, CNIV+3, CNIV+4, CNIV+6, CNIV+11 , CNIV+12~, CNIV+13, CNIV1~, CNIV1+2, CNIV1+3, CNIV1+4, CNIV1+5, CNIV1+6, CNIV1+7, CNIV1+8 , IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7, IVCHK+8, UPD+9, UPD+11, UPD+12
DIC	INSTLDT+1~, INSTLDT+4*
DIC(0	INSTLDT+4*
DIFROM	SEND+1~
DIK	CONVERT+14~!, CONVERT+47!
DIK(1	CONVERT+14*
DT	CNIV+9, UPD+7
DUZ	SEND+7
IEN507	CNV2~, CNV2+2
IOST	CONVERT+6
LINE	SEND+1~
LINE(1	SEND+3*
LINE(2	SEND+4*
ND	CONVERT+10~, CONVERT+20, CONVERT+21, CONVERT+24, CONVERT+30, CONVERT+31, CONVERT+32, CONVERT+37, CONVERT+38, NFWS+6~ , NFWS+10, CHKDD+2, CHKDD+3
ON	CONVERT+10~, CONVERT+19, CONVERT+20, CONVERT+23, CONVERT+24, CONVERT+25, CONVERT+27, CONVERT+29, CONVERT+30, CONVERT+32 , CONVERT+34, CONVERT+36, CONVERT+37, CONVERT+38, CONVERT+39, CONVERT+41, CONVERT+42, CONVERT+43, CONVERT+45, CONVERT+47 , NFWS~, NFWS+7, NFWS+9, CNIV+2~, CNIV1+6, CNIV1+7, IVCHK+2, IVCHK+5, IVCHK+6, IVCHK+7 , IVCHK+8, IVCHK+9, UPD~, UPD+9, UPD+10, UPD+11, UPD+12, PENDING+2, PENDING+3, PENDING+6 , PENDING+9, PENDING+12, PENDING+13, PENDING+14, PENDING+15, PENDING+16
ON1	CONVERT+10~, CONVERT+37*
PSGDT	CONVERT+10~, CONVERT+17, CONVERT+29, CONVERT+36, CNIV+2~, CNIV+10, CNIV1+5
>> PSJ	NFWS+9, NFWS+11, NFWS+12, CHKDD+2, CHKDD+3
>> PSJ200	CONVERT+39*, CONVERT+40, CONVERT+41
PSJAD	IVCHK+1~, IVCHK+5, IVCHK+6, PENDING+1~, PENDING+12, PENDING+13
PSJAD(	IVCHK+6, MATCH+3, PENDING+13
PSJCNR	IVCHK+1~
PSJCNT	UPD+1~, UPD+2, UPD+3
>> PSJDD	NFWS+10*
PSJM	CNV~, CNV+1, CNV+2, CNV+3, CNV+4, CNV+5
PSJOI	CONVERT+10~, CONVERT+20, CONVERT+21, CONVERT+23, CONVERT+24, CONVERT+25, CONVERT+30, CONVERT+31, CONVERT+32, CONVERT+37* , CONVERT+38, IVCHK+1~, IVCHK+2, MATCH+2, MATCH+3, MATCH+4, MATCH+5, UPD+5, UPD+12, PENDING+1~ , PENDING+3*, PENDING+7, PENDING+8
PSJPWD	NFWS~, CHKDD+3
>> PSJREF	NFWS+9*, NFWS+10, NFWS+11
PSJSOL	IVCHK+1~, IVCHK+7, IVCHK+8, PENDING+1~, PENDING+14, PENDING+15
PSJSOL(	IVCHK+8, MATCH+5, PENDING+15
PSJX	CNIV+2~, CNIV+3, CNIV+4*, CNIV+5, CNIV+6
PSJXAD	IVCHK+1~, MATCH+2*, MATCH+3
PSJXNOI	IVCHK+1~, MATCH+1!, UPD+4*, UPD+5, UPD+6, UPD+9, UPD+10, UPD+12, PENDING+1~
PSJXNOI(	MATCH+3, MATCH+5, UPD+2, PENDING+7, PENDING+8
PSJXNOI(0	UPD+4
PSJXSOL	IVCHK+1~, MATCH+4*, MATCH+5
PSJXX	CONVERT+27!, CONVERT+34!, CONVERT+45!*
START	CNIV+2~, CNIV+8*, SEND+3
STAT	CONVERT+10~, CONVERT+19*, CONVERT+23
STOP	SEND+1~, SEND+2*, SEND+4
STPDT	CONVERT+10~, CONVERT+29, CONVERT+36, CNIV+2~, CNIV1+5*, CNIV1+6
STS	CONVERT+10~, CONVERT+19*
TYPE	CONVERT~, CONVERT+6*, CONVERT+24, CONVERT+32, CONVERT+38
U	CONVERT+9, CONVERT+16, CONVERT+24, CONVERT+25, CONVERT+32, CONVERT+38, CONVERT+39, CONVERT+42, CONVERT+48, NFWS+11 , CHKDD+2, CHKDD+3, FIND+3, CNIV+4, CNIV1+3, UPD+6, UPD+9, UPD+10, PENDING+2, INSTLDT+5
X	CONVERT+10~, CONVERT+14~, CONVERT+17, CONVERT+40, CONVERT+41, CONVERT+42, CNIV+10, UPD+2, UPD+6, UPD+7 , PENDING+2, PENDING+7, PENDING+8, INSTLDT+1~, INSTLDT+2*, INSTLDT+3
X1	CONVERT+10~, CONVERT+16, CNIV+9
X2	CONVERT+10~, CONVERT+16, CNIV+9
XMDUZ	SEND+1~, SEND+6*
XMSUB	SEND+1~, SEND+5*
XMTEXT	SEND+1~, SEND+5*
XMY	SEND+1~
XMY(	SEND+7*
XX	CONVERT+10~, CONVERT+30, CONVERT+37, CONVERT+38, CONVERT+40*, CONVERT+41
Y	CONVERT+14~, INSTLDT+1~
Y(0	INSTLDT+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJUTL1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: