Routine: PSJBCMA

Information

PSJBCMA ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) ;16 Mar 99 / 10:13 AM

Source Information

Source file <PSJBCMA.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Inpatient Medications	3	$$OTPRN^PSJBCMA3 $$SNDTSTA^PSJHL4A $$OIDF^PSJLMUT1
VA Fileman	2	(C,NOW)^%DTC $$GET1^DIQ

Caller Graph

Caller Graph Total: 38

Package	Total	Caller Graph
Inpatient Medications	24	PSGAPIV PSGCAPIV PSGDL PSGMIV PSGMMIV PSGMMIVC PSGPL0 PSGS0 PSIVCAL PSIVLBL1 PSIVUDL PSIVUTL PSIVUTL1 PSIVWL PSJADT0 PSJBCMA1 PSJBCMA4 PSJCOM1 PSJH1 PSJLMPRI PSJLMUT1 PSJMIV PSJO1 PSJORMA2
Barcode Medication Administration	14	PSBCSUTL PSBML PSBMLEN PSBMLTS PSBO PSBODL PSBOIV PSBOMH PSBOMM PSBOMT PSBOWA PSBVDLIV PSBVDLTB PSBVDLU3

Entry Points

Name	Comments	DBIA/ICR reference
TMP	;Setup ^TMP that have common fields between IV and U/D
IVVAR	;Set variables for IV and pending orders
SIOPI	; Use provider comments if order is pending and there is no SI
ONE(DFN,ORD,SCH,START,STOP)	;Is order a one-time ; Input: DFN - patient's IEN ; ORD - order number ; SCH - schedule text (required) ; START - order start date (optional) ; STOP - order stop date (optional)
ENSET(X)	; expands SPECIAL INSTRUCTIONS field contained in X into Y
UDVAR	;Set ^TMP for Unit dose & Pending orders
CLINIC(CL)	;
UDPEND	;
CLINICS(CL)	;
EN(DFN,BDT,OTDATE)		ICR #2828 Status: Active Usage: Private
ORDER	;Loop thru orders.

Name	Field # of Occurrence
C^%DTC	ORDER+19
NOW^%DTC	ORDER+1, ORDER+19, UDVAR+4
$$GET1^DIQ	TMP+4
$$OTPRN^PSJBCMA3	ONE+12
$$SNDTSTA^PSJHL4A	TMP+13
$$OIDF^PSJLMUT1	TMP+3

FileNo	Call Tags
^PS(50.7 - [#50.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51 - [#51]	ENSET+2
^PS(51.1 - [#51.1]	ONE+15
^PS(51.2 - [#51.2]	TMP+6
^PS(52.6 - [#52.6]	IVVAR+30, IVVAR+41
^PS(52.7 - [#52.7]	IVVAR+34, IVVAR+44
^PS(53.1 - [#53.1]	ORDER+14, ORDER+16, IVVAR+2, SIOPI+2, SIOPI+3
^PS(53.46 - [#53.46]	CLINICS+2, CLINICS+4, CLINICS+5
^PS(55 - [#55]	ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+23, ORDER+24, ORDER+27, ORDER+28, ORDER+29, IVVAR+4 , IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+39, IVVAR+40, IVVAR+41, IVVAR+44, UDPEND+11, ONE+10 , ONE+11, ONE+13
^PSDRUG - [#50]	UDVAR+8
^TMP("PSJ"	EN+3, UDVAR+8, UDVAR+9, IVVAR+31, IVVAR+32, IVVAR+35, IVVAR+36, IVVAR+41, IVVAR+42, IVVAR+44* , IVVAR+45, TMP+7, TMP+8, TMP+9, TMP+10, TMP+11, TMP+12, TMP+14

Label References

Name	Line Occurrences
$$CLINIC	CLINICS+1
$$CLINICS	UDVAR+1, IVVAR+2, IVVAR+3, IVVAR+4, UDPEND+1, UDPEND+2
$$ENSET	UDPEND+22
$$ONE	ORDER+30, IVVAR+24, UDPEND+25
@(	ORDER+16
IVVAR	ORDER+11, ORDER+31
ORDER	EN+2
SIOPI	UDPEND+23
TMP	UDVAR+2, IVVAR+27
UDPEND	UDVAR+1, IVVAR+2
UDVAR	ORDER+7, ORDER+25

Name	Field # of Occurrence
^(	IVVAR+14, IVVAR+41, IVVAR+44, UDPEND+11, SIOPI+3, ONE+15
^("DSS"	IVVAR+4
^(0	EN+3*, IVVAR+41, IVVAR+44, ENSET+2
^(3	IVVAR+22
^(6	UDPEND+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, ORDER+1, ORDER+19, UDVAR+6
A	IVVAR+13~, IVVAR+14, IVVAR+15, UDPEND+10~, UDPEND+11, UDPEND+12, UDPEND+13, TMP+1~, TMP+6, TMP+9 , TMP+13, TMP+14, CLINICS+3~, CLINICS+4*, CLINICS+5
B	IVVAR+13~, IVVAR+14, IVVAR+16, IVVAR+17, UDPEND+10~, UDPEND+11
BDT	EN~, ORDER+1, ORDER+2, ORDER+5, ORDER+9, ORDER+21
C	IVVAR+13~, IVVAR+14, UDPEND+10~, UDPEND+11
CL	CLINIC~, CLINIC+1, CLINICS~, CLINICS+1, CLINICS+2, CLINICS+4
>> CLINIC	UDVAR+1, IVVAR+2, IVVAR+3, IVVAR+4, UDPEND+1, UDPEND+2*
CNT	EN+1~, UDVAR+4, UDVAR+7, UDVAR+8, UDVAR+9, IVVAR+28, IVVAR+31, IVVAR+32, IVVAR+35, IVVAR+36
DFN	EN~, EN+2, ORDER+6, ORDER+7, ORDER+10, ORDER+11, ORDER+14, ORDER+23, ORDER+24, ORDER+27 , ORDER+28, ORDER+29, ORDER+30, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+22, IVVAR+24, IVVAR+39 , IVVAR+40, IVVAR+41, IVVAR+44, UDPEND+11, UDPEND+25, TMP+7, ONE~, ONE+9, ONE+10, ONE+11 , ONE+13
DN	EN+1~, IVVAR+30, IVVAR+31, IVVAR+34, IVVAR+35
F	EN+1~, ORDER+5, ORDER+9, ORDER+13, ORDER+22, ORDER+26*, UDVAR+5, UDVAR+6, IVVAR+29, IVVAR+30 , IVVAR+33, IVVAR+34, UDPEND+1, UDPEND+2, UDPEND+7, UDPEND+14, UDPEND+16, UDPEND+19, UDPEND+22
FON	EN+1~, ORDER+7, ORDER+11, ORDER+15, ORDER+25, ORDER+31*, UDVAR+8, IVVAR+2, IVVAR+3, UDPEND+6 , UDPEND+25, TMP+7, SIOPI+2
>> I	IVVAR+41, IVVAR+42, IVVAR+44, IVVAR+45
ND	IVVAR+1~, IVVAR+30, IVVAR+31, IVVAR+34, IVVAR+35
ON	EN+1~, ORDER+7, ORDER+11, ORDER+14, ORDER+15, ORDER+16, ORDER+24, ORDER+25, ORDER+28*, ORDER+29 , ORDER+30, ORDER+31, UDVAR+5, UDVAR+6, IVVAR+2, IVVAR+4, IVVAR+10, IVVAR+14, IVVAR+19, IVVAR+20 , IVVAR+21, IVVAR+22, IVVAR+24, IVVAR+29, IVVAR+30, IVVAR+33, IVVAR+34, IVVAR+40, UDPEND+1, UDPEND+2 , UDPEND+7, UDPEND+11, UDPEND+14, UDPEND+16, UDPEND+19, UDPEND+22, TMP+7, SIOPI+2, SIOPI+3
ONEFRQ	ONE+6~
ORD	ONE~, ONE+9, ONE+10, ONE+11, ONE+13
OTDATE	EN~, ORDER+19, ORDER+20, ORDER+21, ORDER+22, ORDER+26
PSJ	UDVAR+10!, IVVAR+37!
PSJ("ADM"	IVVAR+7, UDPEND+18, TMP+8
PSJ("AUTO"	IVVAR+7, UDPEND+20, TMP+8
PSJ("CHEMO"	IVVAR+9*, TMP+7
PSJ("COM"	IVVAR+11, IVVAR+17, UDPEND+8, UDPEND+14, TMP+14
PSJ("CPRS"	IVVAR+9, UDPEND+5, TMP+7
PSJ("DO"	IVVAR+11, UDPEND+8, TMP+10
PSJ("FLG"	IVVAR+11, IVVAR+12, UDPEND+8, UDPEND+9, TMP+14
PSJ("FOLLOW"	IVVAR+21, UDPEND+5, TMP+7, ONE+7*
PSJ("HSM"	UDPEND+3*, TMP+10
PSJ("INFRATE"	IVVAR+2, IVVAR+6, TMP+10
PSJ("INSYR"	IVVAR+8*, TMP+7
PSJ("IVTYPE"	IVVAR+8*, TMP+7
PSJ("MR"	IVVAR+11, UDPEND+3, TMP+6
PSJ("MRABB"	TMP+6*, TMP+8
PSJ("MRNM"	TMP+6*, TMP+9
PSJ("NGIVEN"	UDPEND+6*, TMP+8
PSJ("OI"	IVVAR+18, UDPEND+15, TMP+3, TMP+4, TMP+11
PSJ("OIDF"	TMP+4, TMP+5, TMP+11
PSJ("OINAME"	TMP+3*, TMP+5, TMP+11
PSJ("PREV"	IVVAR+20, UDPEND+5, TMP+7, ONE+7*
PSJ("PRI"	IVVAR+11, UDPEND+8, TMP+13
PSJ("RFO"	IVVAR+21, UDPEND+5, TMP+7
PSJ("SCHD"	IVVAR+6, IVVAR+23, UDPEND+17, UDPEND+25, TMP+8, TMP+13
PSJ("SIOPI"	IVVAR+22, UDPEND+22, TMP+12, SIOPI+2, SIOPI+4, SIOPI+5, SIOPI+6
PSJ("SM"	UDPEND+3*, TMP+10
PSJ("SRC"	IVVAR+11, IVVAR+14, IVVAR+16, UDPEND+8, UDPEND+11, UDPEND+13, TMP+14
PSJ("ST"	UDPEND+4*, UDPEND+24, UDPEND+25, TMP+8
PSJ("STARTDT"	IVVAR+5, IVVAR+24, UDPEND+17, TMP+8
PSJ("STATUS"	IVVAR+7, UDPEND+4, TMP+8
PSJ("STC"	IVVAR+24, IVVAR+25, IVVAR+26, UDPEND+24, UDPEND+25*, TMP+8
PSJ("STOPDT"	IVVAR+5, IVVAR+24, UDPEND+18, TMP+8
>> PSJBCID	IVVAR+40*, IVVAR+41, IVVAR+42, IVVAR+44, IVVAR+45
PSJDD	UDVAR+6*, UDVAR+8, UDVAR+10!
PSJINX	EN+4!, ORDER+3, UDVAR+8, UDVAR+9, IVVAR+31, IVVAR+32, IVVAR+35, IVVAR+36, IVVAR+41, IVVAR+42 , IVVAR+44, IVVAR+45, TMP+2, TMP+7, TMP+8, TMP+9, TMP+10, TMP+11, TMP+12, TMP+14
PSJON	ORDER+32!
PSJON(	ORDER+7, ORDER+11, ORDER+25, ORDER+31
PST	EN+1~, ORDER+14*
S1	IVVAR+13~, IVVAR+14, UDPEND+10~, UDPEND+11
SCH	ONE~, ONE+9, ONE+10, ONE+11, ONE+12, ONE+14, ONE+15
SCHD	IVVAR+23~*, IVVAR+24, IVVAR+25, IVVAR+26
START	ONE~, ONE+16
STOP	ONE~, ONE+16
T	ONE+6~
TYP	ONE+6~
U	ORDER+16, ORDER+29, UDVAR+8, IVVAR+2, IVVAR+5, IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+11 , IVVAR+14, IVVAR+20, IVVAR+21, IVVAR+31, IVVAR+35, UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6, UDPEND+8 , UDPEND+11, UDPEND+17, UDPEND+18, UDPEND+20, TMP+6, TMP+7, TMP+8, TMP+9, TMP+10, TMP+11 , TMP+14
WBDT	EN+1~, ORDER+5, ORDER+6, ORDER+7, ORDER+9, ORDER+10, ORDER+11, ORDER+22, ORDER+23, ORDER+24 , ORDER+26, ORDER+27, ORDER+28
X	EN+1~, ORDER+16, ORDER+19, ORDER+29, ORDER+30, UDVAR+5, UDVAR+6, IVVAR+1~, IVVAR+4, IVVAR+5 , IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+10, IVVAR+11, IVVAR+18, IVVAR+19, IVVAR+20, IVVAR+21 , IVVAR+29, IVVAR+30, IVVAR+33, IVVAR+34, IVVAR+41, IVVAR+44, UDPEND+1, UDPEND+3, UDPEND+4, UDPEND+5 , UDPEND+6, UDPEND+7, UDPEND+8, UDPEND+15, UDPEND+16, UDPEND+17, UDPEND+18, UDPEND+19, UDPEND+20, SIOPI+1~ , SIOPI+3, ENSET~, ENSET+2, ONE+6~, ONE+15
X1	EN+1~, ORDER+19, IVVAR+38, IVVAR+39, IVVAR+40, IVVAR+41, IVVAR+44, ENSET+1~, ENSET+2
X2	EN+1~, ORDER+19, IVVAR+40, IVVAR+41, IVVAR+43, IVVAR+44, ENSET+1~, ENSET+2
>> XX	IVVAR+40*
Y	EN+1~, IVVAR+1~, SIOPI+1~, SIOPI+4, SIOPI+5, SIOPI+6, ENSET+1~, ENSET+2, ENSET+3, ENSET+4
Z	SIOPI+1~, SIOPI+3*, SIOPI+5, SIOPI+6

Customize PDF page

Package: Inpatient Medications

Routine: PSJBCMA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 38

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: