Routine: ECXBCM

Package	Total	Call Graph
DSS Extracts	9	FILE^ECXBCM1 ($$GETDIV,$$RADDIV)^ECXDEPT ^ECXKILL ^ECXTRAC ($$ECXDATE,$$ECXTIME,$$ECXYM,$$ORDPROV,$$PATCAT)^ECXUTL ($$ENROLLM,$$INP,$$PRIMARY,ECXDEF)^ECXUTL2 $$PAT^ECXUTL3 ($$CNHSTAT,$$ENCNUM,$$HNCI,$$OBSPAT,$$SHAD)^ECXUTL4 ($$DOIVPO,$$DOUDO,$$PHAAPI,NPRF)^ECXUTL5
Kernel	4	($$DT,$$FMADD)^XLFDT $$UP^XLFSTR $$GET^XUA4A72 $$NPI^XUSNPI
VA FileMan	3	^DIC $$GET1^DIQ EN^DIQ1
Inpatient Medications	1	START^PSJDSS

Package	Total	Caller Graph
DSS Extracts	2	ECXAPHA2 ECXBCM
Event Capture	1	ECXBCM

Entry Points

Name	Comments	DBIA/ICR reference
BEG	;entry point from option
START	; start package specific extract ;
GET(ECSD,ECED)	;get extract data
CMPT	; during component/sequence processing, retrieve rest of data record then file it.
PAT(ECXDFN,ECXDATE,ECXERR)
CCODE(RIEN)	; get component information ; input - IEN of the BCMA MEDICATION LOG File ; ; output - CCIEN: pointer to a variable pointer field to file #50, #52.6, or #52.7 ; CCDORD: .02 field of file #50, #52.6, or #52.7 ; CCDGVN: .03 FIELD of file #50, #52.6, or #52.7 ; CCUNIT: .04 field of file #50, #52.6, or #52.7 ; CCTYPE: derived field, "D", "A", or "S"
CHKIV(ECXDFN,ECSD,ECED)	; Check file 728.113 for matching IV records ; input - ECXDFN DFN of the patient from the BCMA file ; ECSD: Start Date for the extract ; ECED: End Date for the extract ; return - True if the Order is in file 728.113 ; False if the Order is Not in file 728.113
CHKUD(ECXDFN,ECSD,ECED)	; Check file 728.904 for matching Unit dose records ; input - ECXDFN DFN of the patient from the BCMA file ; ECSD: Start Date for the extract ; ECED: End Date for the extract ; return - True if the Order is in file 728.904 ; False if the Order is Not in file 728.904
FIRST()	;154 Section added to determine if this is the first administration of the medication since pharmacist verification
CLEAN(START,END)	;154 Section added to delete old log entries
MULTI()	;154 Section added to determine if this is a multi-dose container
EQUAL	;154,161, list of terms for equality check
CONTAIN	;154, list of terms for contains check
SETUP	;Set required input for ECXTRAC.

Name	Field # of Occurrence
^DIC	CMPT+23
$$GET1^DIQ	GET+10, GET+25, GET+30, GET+39, CMPT+13, CMPT+16, CMPT+17, CMPT+18, CMPT+19, CMPT+22 , CMPT+24, CCODE+18, CCODE+21, CCODE+24, FIRST+5, FIRST+7, FIRST+8
EN^DIQ1	GET+21
FILE^ECXBCM1	CMPT+28
$$GETDIV^ECXDEPT	GET+17, CMPT+24
$$RADDIV^ECXDEPT	CMPT+19
^ECXKILL	BEG+3
^ECXTRAC	BEG+3
$$ECXDATE^ECXUTL	GET+32, CMPT+14
$$ECXTIME^ECXUTL	GET+33, CMPT+15
$$ECXYM^ECXUTL	GET+4
$$ORDPROV^ECXUTL	GET+29
$$PATCAT^ECXUTL	PAT+39
$$ENROLLM^ECXUTL2	PAT+33
$$INP^ECXUTL2	GET+13
$$PRIMARY^ECXUTL2	PAT+44
ECXDEF^ECXUTL2	SETUP+2
$$PAT^ECXUTL3	PAT+4
$$CNHSTAT^ECXUTL4	PAT+31
$$ENCNUM^ECXUTL4	CMPT+26
$$HNCI^ECXUTL4	PAT+34
$$OBSPAT^ECXUTL4	CMPT+25
$$SHAD^ECXUTL4	PAT+35
$$DOIVPO^ECXUTL5	GET+24
$$DOUDO^ECXUTL5	GET+23
$$PHAAPI^ECXUTL5	CMPT+3
NPRF^ECXUTL5	PAT+47
START^PSJDSS	CHKIV+14, CHKUD+14
$$DT^XLFDT	CLEAN+3
$$FMADD^XLFDT	START+12, CHKIV+12, CHKIV+16, CHKUD+12, CLEAN+3
$$UP^XLFSTR	MULTI+3
$$GET^XUA4A72	GET+35
$$NPI^XUSNPI	GET+37

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls
^SC - [#44]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PS(52.6 - [#52.6]	GET1^DIQ
^PS(52.7 - [#52.7]	GET1^DIQ
^PSB(53.79 - [#53.79]	GET1^DIQ
55.04	GET1^DIQ
55.09	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ECX(728 - [#728]	START+3, GET+20
^ECX(728.113 - [#728.113]	CHKIV+10, CHKIV+17, CHKIV+19
^ECX(728.904 - [#728.904]	CHKUD+10, CHKUD+16
^PS(55 - [#55]	FIRST+4
^PSB(53.79 - [#53.79]	START+8, START+9, START+10, START+11, CCODE+11, CCODE+12, CCODE+13
^TMP("PSJ"	GET+34!
^XTMP("ECXBCM"	FIRST+10, FIRST+11, CLEAN+2!, CLEAN+3

Name	Line Occurrences
$$CHKIV	GET+24
$$CHKUD	GET+23
$$FIRST	CCODE+30
$$MULTI	CCODE+30
CCODE	GET+41
CLEAN	START+12
CMPT	CCODE+31
GET	START+11
PAT	GET+28
SETUP	BEG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTDT	GET+2, GET+30, GET+31, GET+32, GET+33, GET+35, GET+37, CMPT+26
ADATE	FIRST+1~, FIRST+5*, FIRST+6, FIRST+7, FIRST+8
ALIEN	FIRST+1~, FIRST+4*
>> CCDGVN	CCODE+9, CCODE+15, CCODE+19, CCODE+22, CCODE+25, CCODE+28*
>> CCDORD	CCODE+9, CCODE+15
>> CCIEN	CCODE+9, CCODE+15, CCODE+18, CCODE+21, CCODE+24, CCODE+27*
>> CCTYPE	CCODE+9, CCODE+26
>> CCUNIT	CCODE+9, CCODE+16, CCODE+19, CCODE+29*, MULTI+3
COMP	MULTI+1~, MULTI+4*, MULTI+5, MULTI+6
DA	GET+20*, GET+21!
>> DATA	CCODE+13*, CCODE+15, CCODE+16, CCODE+28, CCODE+29
DATE	CLEAN+1~, CLEAN+2*
DIC	GET+20, GET+21!, CMPT+21~, CMPT+23
DIC(0	CMPT+23*
DIQ	GET+20*, GET+21!
DIQ(0	GET+20*
DONE	FIRST+1~, FIRST+2, FIRST+4, FIRST+6
DR	GET+20*, GET+21!
>> DRG	GET+2, CMPT+2, CMPT+3, CCODE+18, CCODE+21, CCODE+24
>> DRUG	CMPT+1, CMPT+3, CMPT+4, CMPT+5, CMPT+11, CMPT+12
DT	START+6, GET+4
>> ECCLAS	PAT+45*
ECD	START+4, CHKIV+7~, CHKIV+8, CHKIV+16, CHKIV+17, CHKIV+19
ECED	START+4*, START+9, START+11, GET~, GET+23, GET+24, CHKIV~, CHKIV+13, CHKIV+17, CHKUD~ , CHKUD+13
>> ECFILE	BEG+2, SETUP+2
>> ECGRP	SETUP+2
>> ECHEAD	CMPT+26, SETUP+1*, SETUP+2
>> ECINV	CMPT+1, CMPT+5, CMPT+7, CMPT+10
>> ECNODE	START+3
>> ECPACK	SETUP+2
>> ECPIECE	START+3, SETUP+2
>> ECPRO	GET+2, GET+29, GET+35, GET+37
>> ECPRONPI	GET+38*
>> ECPROPC	GET+35*
>> ECPTNPI	PAT+45*
>> ECPTPR	PAT+45*
>> ECPTTM	PAT+45*
>> ECRTN	SETUP+2
ECSD	START+3, START+6*, START+8, START+11, START+12, GET~, GET+23, GET+24, CHKIV~, CHKIV+12 , CHKIV+16, CHKUD~, CHKUD+12
>> ECSD1	START+4
>> ECVACL	CMPT+1, CMPT+11
>> ECVER	SETUP+2
>> ECVNDC	CMPT+1, CMPT+4
>> ECXA	GET+12, GET+14, GET+23, GET+24, CMPT+25, CMPT+26, CMPT+27*
>> ECXADM	GET+12, GET+14, CMPT+26
>> ECXADT	GET+2, GET+32
>> ECXAMED	GET+2, GET+39
>> ECXAOL	PAT+22*
ECXASIH	GET+1~, GET+14*, CMPT+27
>> ECXAST	PAT+21*
>> ECXASTA	GET+2, GET+25, GET+26
>> ECXATM	GET+2, GET+33
>> ECXCAT	PAT+2*
ECXCLST	GET+1~, GET+2, PAT+28
>> ECXCNHU	PAT+31*
>> ECXCNTRY	PAT+16*
>> ECXCNTY	PAT+13*
ECXDATE	PAT~, PAT+4, PAT+44
ECXDEA	GET+1~, CMPT+1, CMPT+5
ECXDFN	START+11*, GET+13, GET+23, GET+24, GET+28, GET+29, PAT~, PAT+4, PAT+31, PAT+33 , PAT+34, PAT+35, PAT+39, PAT+44, CHKIV~, CHKIV+19, CHKUD~, CHKUD+16, FIRST+4, FIRST+10 , FIRST+11
ECXDIC	GET+20!, GET+21!
ECXDIC(4	GET+21
>> ECXDIV	CMPT+19, CMPT+20, CMPT+24*
>> ECXDOB	PAT+9*
>> ECXDOM	GET+15*
>> ECXDRGC	CCODE+14, CCODE+19
ECXECL	GET+1~, GET+2*
>> ECXELIG	PAT+10*
>> ECXENC	CMPT+26*, CMPT+28
>> ECXENRL	PAT+25*
>> ECXERI	PAT+38*
ECXERR	GET+28, PAT~, PAT+5
ECXESC	GET+1~, GET+2*
>> ECXEST	PAT+27*
>> ECXETH	PAT+37*
>> ECXFAC	GET+2, GET+17, GET+19, GET+20, GET+21, CMPT+20
>> ECXHNCI	PAT+34*
>> ECXIR	CMPT+1, CMPT+18
>> ECXIVAC	CCODE+14, CCODE+22
>> ECXIVID	CMPT+1, CMPT+17
>> ECXIVSC	CCODE+14, CCODE+25
ECXLDT	START+2~, START+3*
>> ECXLOGIC	CMPT+6, CMPT+9
>> ECXMN	GET+12, GET+14
>> ECXMPI	PAT+8*
>> ECXMST	PAT+24*
>> ECXMTST	PAT+26*
>> ECXNOD	START+11*
>> ECXOBS	CMPT+25*, CMPT+26
>> ECXOEF	PAT+2, PAT+40
>> ECXOEFDT	PAT+2, PAT+41
>> ECXORN	GET+2, GET+10, GET+23, GET+24, GET+29, CCODE+30, CHKIV+15, CHKUD+15, FIRST+3, FIRST+4 , FIRST+5, FIRST+7, FIRST+8, FIRST+10, FIRST+11
>> ECXORT	GET+2, GET+34
>> ECXOS	CMPT+1, CMPT+16
>> ECXOSC	GET+2, GET+23, GET+24*
ECXPAT	PAT+4!, PAT+5!
ECXPAT("AO ST	AT" , PAT+21
ECXPAT("AOL"	PAT+22
ECXPAT("CL ST	AT" , PAT+28
ECXPAT("COMBSVCI"	PAT+29
ECXPAT("COMBSVCL"	PAT+30
ECXPAT("COUNTRY"	PAT+16
ECXPAT("COUNTY"	PAT+13
ECXPAT("DOB"	PAT+9
ECXPAT("EC ST	AT" , PAT+27
ECXPAT("ECXOEF"	PAT+40
ECXPAT("ECXOEFDT"	PAT+41
ECXPAT("ELIG"	PAT+10
ECXPAT("ENROL	L LOC" , PAT+25
ECXPAT("ERI"	PAT+38
ECXPAT("ETHNIC"	PAT+37
ECXPAT("IR ST	AT" , PAT+20
ECXPAT("MEANS"	PAT+26
ECXPAT("MPI"	PAT+8
ECXPAT("MST S	TAT" , PAT+24
ECXPAT("NAME"	PAT+6
ECXPAT("PHI"	PAT+23
ECXPAT("POS"	PAT+17
ECXPAT("POW L	OC" , PAT+19
ECXPAT("POW S	TAT" , PAT+18
ECXPAT("RACE1"	PAT+37
ECXPAT("SEX"	PAT+11
ECXPAT("SSN"	PAT+7
ECXPAT("STATE"	PAT+12
ECXPAT("VET"	PAT+15
ECXPAT("ZIP"	PAT+14
>> ECXPATCAT	PAT+39*
>> ECXPHI	PAT+23*
>> ECXPLOC	PAT+19*
>> ECXPNM	PAT+6*
>> ECXPOS	PAT+17*
>> ECXPRIOR	PAT+2*
>> ECXPST	PAT+18*
>> ECXRC1	PAT+37*
>> ECXRST	PAT+20*
>> ECXSBGRP	PAT+2*
>> ECXSCADT	CMPT+1, CMPT+14
>> ECXSCATM	CMPT+1, CMPT+15
>> ECXSEX	PAT+11*
>> ECXSHADI	PAT+35, PAT+36
>> ECXSSN	CMPT+26, PAT+7*
>> ECXSTAT	PAT+2*
>> ECXSTATE	PAT+12*
>> ECXSVCI	PAT+29*
>> ECXSVCL	PAT+30*
>> ECXTS	GET+12, GET+14, CMPT+25, CMPT+26
ECXUSRTN	GET+36~, GET+37, GET+38
ECXVAP	START+2~, CMPT+1, CMPT+12
>> ECXVET	PAT+15*
>> ECXW	GET+12, GET+15
>> ECXYM	GET+4*, GET+32, CMPT+14
>> ECXZIP	PAT+14*
END	CLEAN~, CLEAN+2
ENDDATE	CHKIV+7~, CHKIV+8, CHKIV+13, CHKUD+7~, CHKUD+8, CHKUD+13
EXTRACT	CHKIV+7~, CHKIV+9, CHKIV+11, CHKUD+7~, CHKUD+9, CHKUD+11
FIRST	FIRST+1~, FIRST+2, FIRST+10, FIRST+12
>> I	CCODE+10*, CCODE+11, CCODE+12, CCODE+13, CCODE+17, CCODE+20, CCODE+23, CCODE+26, CCODE+27
>> IDAT	START+8, START+9, START+10, GET+13, GET+28, GET+31, FIRST+6
IENS	FIRST+1~, FIRST+4*, FIRST+5, FIRST+7, FIRST+8
IVIEN	CHKIV+7~
IVORN	CHKIV+7~, CHKIV+9, CHKIV+15, CHKIV+17, CHKIV+19, CHKIV+20
>> J	CCODE+12*, CCODE+13
MULTI	MULTI+1~, MULTI+2, MULTI+4, MULTI+5, MULTI+6*, MULTI+7
OFF	MULTI+1~, MULTI+4*
>> OK	PAT+4*, PAT+5
ON	FIRST+1~, FIRST+3, FIRST+4, CLEAN+1~, CLEAN+2
ORD	CHKIV+7~, CHKIV+8, CHKIV+17, CHKIV+18, CHKIV+19, CHKIV+20, CHKUD+7~, CHKUD+8, CHKUD+16*, CHKUD+17
PAT	CLEAN+1~, CLEAN+2*
>> PIEN	START+5, START+8, START+9, START+10
>> PLACEHLD	GET+2*
RERUN	START+2~, START+3*, START+12
RIEN	START+9, START+10, START+11, GET+10, GET+25, GET+30, GET+39, GET+41, CMPT+13, CMPT+16 , CMPT+17, CMPT+18, CMPT+19, CMPT+22, CCODE~, CCODE+11, CCODE+12, CCODE+13, FIRST+10, FIRST+11
>> SCADT	CMPT+1, CMPT+13, CMPT+14, CMPT+15
START	CLEAN~, CLEAN+2
STDATE	CHKIV+7~, CHKIV+8, CHKIV+12, CHKUD+7~, CHKUD+8, CHKUD+12
TERM	MULTI+1~, MULTI+4*, MULTI+5, MULTI+6
U	START+3, START+11, GET+14, GET+15, GET+20, GET+34, GET+35, GET+38, CMPT+4, CMPT+5 , CMPT+11, CMPT+12, PAT+45, CCODE+15, CCODE+16, CCODE+28, CCODE+29
UDIEN	CHKUD+7~
UDORN	CHKUD+7~, CHKUD+9, CHKUD+15, CHKUD+16, CHKUD+17
UNIT	MULTI+1~, MULTI+3*, MULTI+5, MULTI+6
>> UNITCOST	CCODE+14, CCODE+18, CCODE+19, CCODE+21, CCODE+22, CCODE+24, CCODE+25
VDATE	FIRST+1~, FIRST+2, FIRST+7, FIRST+8*, FIRST+9, FIRST+10, FIRST+11
>> W	GET+15*, GET+17
X	GET+13, GET+14, GET+15, CMPT+21~, CMPT+22, CMPT+23, PAT+1~, PAT+44*, PAT+45
Y	CMPT+21~, CMPT+24

Customize PDF page

Package: DSS Extracts

Routine: ECXBCM

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items