Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ECXBCM

Package: DSS Extracts

Routine: ECXBCM


Information

ECXBCM ;ALB/JAP-Bar Code Medical Administration Extract ;6/29/18 16:00

Source Information

Source file <ECXBCM.m>

Call Graph

Call Graph

Call Graph Total: 16

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 2 $$GET1^DIQ  EN^DIQ1  
Inpatient Medications 1 START^PSJDSS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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.

External References

Name Field # of Occurrence
$$GET1^DIQ GET+10, GET+25, GET+30, GET+39, CMPT+13, CMPT+16, CMPT+17, CMPT+18, CMPT+19, CCODE+17
, CCODE+20, CCODE+23, FIRST+5, FIRST+7, FIRST+8
EN^DIQ1 GET+21
FILE^ECXBCM1 CMPT+23
$$GETDIV^ECXDEPT GET+17
$$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+21
$$HNCI^ECXUTL4 PAT+34
$$OBSPAT^ECXUTL4 CMPT+20
$$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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$CHKIV GET+24
$$CHKUD GET+23
$$FIRST CCODE+29
$$MULTI CCODE+29
CCODE GET+41
CLEAN START+12
CMPT CCODE+30
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+21
ADATE FIRST+1~, FIRST+5*, FIRST+6, FIRST+7, FIRST+8
ALIEN FIRST+1~, FIRST+4*
>> CCDGVN CCODE+9*, CCODE+15*, CCODE+18, CCODE+21, CCODE+24, CCODE+27*
>> CCDORD CCODE+9*, CCODE+15*
>> CCIEN CCODE+9*, CCODE+15*, CCODE+17, CCODE+20, CCODE+23, CCODE+26*
>> CCTYPE CCODE+9*, CCODE+25*
>> CCUNIT CCODE+9*, CCODE+15*, CCODE+18, CCODE+28*, MULTI+3
COMP MULTI+1~, MULTI+4*, MULTI+5, MULTI+6
DA GET+20*, GET+21!
>> DATA CCODE+13*, CCODE+15, CCODE+27, CCODE+28
DATE CLEAN+1~, CLEAN+2*
DIC GET+20*, GET+21!
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+17*, CCODE+20*, CCODE+23*
>> 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+21, 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+20, CMPT+21, CMPT+22*
>> ECXADM GET+12*, GET+14*, CMPT+21
>> ECXADT GET+2*, GET+32*
>> ECXAMED GET+2*, GET+39*
>> ECXAOL PAT+22*
ECXASIH GET+1~, GET+14*, CMPT+22
>> 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
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*
>> ECXDOB PAT+9*
>> ECXDOM GET+15*
>> ECXDRGC CCODE+14*, CCODE+18*
ECXECL GET+1~, GET+2*
>> ECXELIG PAT+10*
>> ECXENC CMPT+21*, CMPT+23
>> 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*
>> ECXHNCI PAT+34*
>> ECXIR CMPT+1*, CMPT+18*
>> ECXIVAC CCODE+14*, CCODE+21*
>> ECXIVID CMPT+1*, CMPT+17*
>> ECXIVSC CCODE+14*, CCODE+24*
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+20*, CMPT+21
>> ECXOEF PAT+2*, PAT+40*
>> ECXOEFDT PAT+2*, PAT+41*
>> ECXORN GET+2*, GET+10*, GET+23, GET+24, GET+29, CCODE+29, 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+21, PAT+7*
>> ECXSTAT PAT+2*
>> ECXSTATE PAT+12*
>> ECXSVCI PAT+29*
>> ECXSVCL PAT+30*
>> ECXTS GET+12*, GET+14*, CMPT+20, CMPT+21
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+16, CCODE+19, CCODE+22, CCODE+25, CCODE+26
>> 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, 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+27, CCODE+28
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+17*, CCODE+18, CCODE+20*, CCODE+21, CCODE+23*, CCODE+24
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, PAT+1~, PAT+44*, PAT+45

Marked Items

Name Field # of Occurrence
$T(@COMP+OFF MULTI+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All