Routine: ECXBCM

Package	Total	Call Graph
DSS Extracts	9	(FILE,SENDMSG)^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 ($$LJ,$$RJ,$$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

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.
SETTMP(STR)	;181 - Set TMP for Mail Message

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

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls, 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+21
^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+9, START+10, START+11, START+12, CCODE+11, CCODE+12, CCODE+13
^TMP("PSJ"	GET+38!
^TMP($J	START+6!, START+13, SETTMP+4, SETTMP+5, SETTMP+6, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+13, SETTMP+14* , SETTMP+15, SETTMP+19, SETTMP+20, SETTMP+21*
^XTMP("ECXBCM"	FIRST+10, FIRST+11, CLEAN+2!, CLEAN+3

Name	Line Occurrences
$$CHKIV	GET+25
$$CHKUD	GET+24
$$FIRST	CCODE+31
$$MULTI	CCODE+31
CCODE	GET+45
CLEAN	START+14
CMPT	CCODE+32
GET	START+12
PAT	GET+32
SETTMP	GET+27
SETUP	BEG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTDT	GET+3, GET+34, GET+35, GET+36, GET+37, GET+39, GET+41, CMPT+30
ADATE	FIRST+1~, FIRST+5*, FIRST+6, FIRST+7, FIRST+8
ALIEN	FIRST+1~, FIRST+4*
>> CCDGVN	CCODE+9, CCODE+15, CCODE+20, CCODE+23, CCODE+26, CCODE+29*
>> CCDORD	CCODE+9, CCODE+15
>> CCIEN	CCODE+9, CCODE+15, CCODE+18, CCODE+22, CCODE+25, CCODE+28*
>> CCTYPE	CCODE+9, CCODE+27
>> CCUNIT	CCODE+9, CCODE+16, CCODE+30*, MULTI+3
CLIN	SETTMP+1~, SETTMP+3, SETTMP+4, SETTMP+7, SETTMP+8, SETTMP+10, SETTMP+12, SETTMP+13, SETTMP+16*, SETTMP+17 , SETTMP+19, SETTMP+21
COMP	MULTI+1~, MULTI+4*, MULTI+5, MULTI+6
DA	GET+21, GET+22!, SETTMP+1~, SETTMP+7, SETTMP+17, SETTMP+18
>> DATA	CCODE+13*, CCODE+15, CCODE+16, CCODE+29, CCODE+30
DATE	CLEAN+1~, CLEAN+2*
DIC	GET+21, GET+22!, CMPT+25~, CMPT+27, SETTMP+1~, SETTMP+7, SETTMP+17, SETTMP+18*
DIC(0	CMPT+27*
DIQ	GET+21, GET+22!, SETTMP+1~, SETTMP+7, SETTMP+17, SETTMP+18
DIQ(0	GET+21, SETTMP+18
DONE	FIRST+1~, FIRST+2, FIRST+4, FIRST+6
DR	GET+21, GET+22!, SETTMP+1~, SETTMP+7, SETTMP+17, SETTMP+18
>> DRG	GET+3, CMPT+3, CMPT+4, CCODE+18, CCODE+22, CCODE+25
>> DRUG	CMPT+1, CMPT+4, CMPT+5, CMPT+6, CMPT+12, CMPT+13, CMPT+15
DT	START+7, GET+5
>> ECCLAS	PAT+46*
ECD	START+4, CHKIV+7~, CHKIV+8, CHKIV+16, CHKIV+17, CHKIV+19
ECED	START+4*, START+10, START+12, GET~, GET+24, GET+25, CHKIV~, CHKIV+13, CHKIV+17, CHKUD~ , CHKUD+13
>> ECFILE	BEG+2, SETUP+2
>> ECGRP	SETUP+2
>> ECHEAD	CMPT+30, SETUP+1*, SETUP+2
>> ECINV	CMPT+1, CMPT+6, CMPT+8, CMPT+11
>> ECNODE	START+3
>> ECPACK	SETUP+2
>> ECPIECE	START+3, SETUP+2
>> ECPRO	GET+3, GET+33, GET+39, GET+41
>> ECPRONPI	GET+42*
>> ECPROPC	GET+39*
>> ECPTNPI	PAT+46*
>> ECPTPR	PAT+46*
>> ECPTTM	PAT+46*
>> ECRTN	SETUP+2
ECSD	START+3, START+7*, START+9, START+12, START+14, GET~, GET+24, GET+25, CHKIV~, CHKIV+12 , CHKIV+16, CHKUD~, CHKUD+12
>> ECSD1	START+4
>> ECVACL	CMPT+1, CMPT+12
>> ECVER	SETUP+2
>> ECVNDC	CMPT+1, CMPT+5, CMPT+16
>> ECXA	GET+13, GET+15, GET+24, GET+25, CMPT+29, CMPT+30, CMPT+31*
>> ECXADM	GET+13, GET+15, CMPT+30
>> ECXADT	GET+3, GET+36
>> ECXAMED	GET+3, GET+43
>> ECXAOL	PAT+22*
ECXASIH	GET+1~, GET+15*, CMPT+31
>> ECXAST	PAT+21*
>> ECXASTA	GET+3, GET+29, GET+30
>> ECXATM	GET+3, GET+37
>> ECXCAT	PAT+2*
ECXCLST	GET+1~, GET+3, PAT+28
>> ECXCNHU	PAT+32*
>> ECXCNTRY	PAT+16*
>> ECXCNTY	PAT+13*
ECXDATE	PAT~, PAT+4, PAT+45
ECXDEA	GET+1~, CMPT+1, CMPT+6
ECXDFN	START+12*, GET+14, GET+24, GET+25, GET+32, GET+33, PAT~, PAT+4, PAT+32, PAT+34 , PAT+35, PAT+36, PAT+40, PAT+45, CHKIV~, CHKIV+19, CHKUD~, CHKUD+16, FIRST+4, FIRST+10 , FIRST+11
ECXDIC	GET+21!, GET+22!, SETTMP+1~
ECXDIC(4	GET+22
ECXDIC(44	SETTMP+8, SETTMP+19
ECXDICA	SETTMP+1~
ECXDICA(	SETTMP+19
>> ECXDIV	CMPT+23, CMPT+24, CMPT+28*
>> ECXDOB	PAT+9*
>> ECXDOM	GET+16*
>> ECXDRGC	CCODE+14, CCODE+20
ECXECL	GET+1~, GET+3*
>> ECXELIG	PAT+10*
>> ECXENC	CMPT+30*, CMPT+32
>> ECXENRL	PAT+25*
>> ECXERI	PAT+39*
ECXERR	GET+32, PAT~, PAT+5
ECXESC	GET+1~, GET+3*
>> ECXEST	PAT+27*
>> ECXETH	PAT+38*
>> ECXFAC	GET+3, GET+18, GET+20, GET+21, GET+22, CMPT+24
>> ECXFDK	CMPT+2, CMPT+16
>> ECXHNCI	PAT+35*
ECXINVSC	SETTMP+1~, SETTMP+15*, SETTMP+19, SETTMP+20
>> ECXIR	CMPT+1, CMPT+22
>> ECXIVAC	CCODE+14, CCODE+23
>> ECXIVID	CMPT+1, CMPT+21
>> ECXIVSC	CCODE+14, CCODE+26
ECXLDT	START+2~, START+3*
>> ECXLOGIC	CMPT+7, CMPT+10, CMPT+14, PAT+8
>> ECXMN	GET+13, GET+15
>> ECXMPI	PAT+8*
>> ECXMST	PAT+24*
>> ECXMTST	PAT+26*
ECXNMPI	GET+2~, PAT+8*
>> ECXNOD	START+12*
ECXNOSC	SETTMP+1~, SETTMP+6*, SETTMP+8, SETTMP+9
>> ECXOBS	CMPT+29*, CMPT+30
>> ECXOEF	PAT+2, PAT+41
>> ECXOEFDT	PAT+2, PAT+42
>> ECXORN	GET+3, GET+11, GET+24, GET+25, GET+33, CCODE+31, CHKIV+15, CHKUD+15, FIRST+3, FIRST+4 , FIRST+5, FIRST+7, FIRST+8, FIRST+10, FIRST+11
>> ECXORT	GET+3, GET+38
>> ECXOS	CMPT+1, CMPT+20
>> ECXOSC	GET+3, GET+24, GET+25, GET+26, GET+27, GET+28
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+41
ECXPAT("ECXOEFDT"	PAT+42
ECXPAT("ELIG"	PAT+10
ECXPAT("ENROL	L LOC" , PAT+25
ECXPAT("ERI"	PAT+39
ECXPAT("ETHNIC"	PAT+38
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+38
ECXPAT("SEX"	PAT+11
ECXPAT("SIGI"	PAT+31
ECXPAT("SSN"	PAT+7
ECXPAT("STATE"	PAT+12
ECXPAT("VET"	PAT+15
ECXPAT("ZIP"	PAT+14
>> ECXPATCAT	PAT+40*
>> ECXPHI	PAT+23*
>> ECXPLOC	PAT+19*
>> ECXPNM	PAT+6*
>> ECXPOS	PAT+17*
>> ECXPPDU	CMPT+2, CMPT+15
>> ECXPRIOR	PAT+2*
>> ECXPST	PAT+18*
>> ECXRC1	PAT+38*
>> ECXRST	PAT+20*
>> ECXSBGRP	PAT+2*
>> ECXSCADT	CMPT+1, CMPT+18
>> ECXSCATM	CMPT+1, CMPT+19
>> ECXSEX	PAT+11*
>> ECXSHADI	PAT+36, PAT+37
ECXSIGI	GET+2~, PAT+31*
>> ECXSSN	CMPT+30, PAT+7*
>> ECXSTAT	PAT+2*
>> ECXSTATE	PAT+12*
>> ECXSVCI	PAT+29*
>> ECXSVCL	PAT+30*
>> ECXTS	GET+13, GET+15, CMPT+29, CMPT+30
ECXUSRTN	GET+40~, GET+41, GET+42
ECXVAP	START+2~, CMPT+1, CMPT+13, CMPT+16
>> ECXVET	PAT+15*
>> ECXW	GET+13, GET+16
>> ECXYM	GET+5*, GET+36, CMPT+18
>> 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+21, CCODE+24, CCODE+27, CCODE+28
>> IDAT	START+9, START+10, START+11, GET+14, GET+32, GET+35, 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+9, START+10, START+11
>> PLACEHLD	GET+3*
RERUN	START+2~, START+3*, START+14
RIEN	START+10, START+11, START+12, GET+11, GET+29, GET+34, GET+43, GET+45, CMPT+17, CMPT+20 , CMPT+21, CMPT+22, CMPT+23, CMPT+26, CCODE~, CCODE+11, CCODE+12, CCODE+13, FIRST+10, FIRST+11
>> SCADT	CMPT+1, CMPT+17, CMPT+18, CMPT+19
SCODE	SETTMP+1~, SETTMP+12, SETTMP+16, SETTMP+18, SETTMP+19
START	CLEAN~, CLEAN+2
STDATE	CHKIV+7~, CHKIV+8, CHKIV+12, CHKUD+7~, CHKUD+8, CHKUD+12
STR	SETTMP~, SETTMP+2, SETTMP+3, SETTMP+11, SETTMP+12, SETTMP+16
TERM	MULTI+1~, MULTI+4*, MULTI+5, MULTI+6
U	START+3, START+12, GET+15, GET+16, GET+21, GET+26, GET+38, GET+39, GET+42, CMPT+5 , CMPT+6, CMPT+12, CMPT+13, CMPT+15, PAT+46, CCODE+15, CCODE+16, CCODE+29, CCODE+30, SETTMP+2 , SETTMP+3, SETTMP+11, SETTMP+12, SETTMP+16
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+20, CCODE+22, CCODE+23, CCODE+25, CCODE+26
VDATE	FIRST+1~, FIRST+2, FIRST+7, FIRST+8*, FIRST+9, FIRST+10, FIRST+11
>> W	GET+16*, GET+18
X	GET+14, GET+15, GET+16, CMPT+25~, CMPT+26, CMPT+27, PAT+1~, PAT+45*, PAT+46
Y	CMPT+25~, CMPT+28

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: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items