ECXBCM ;ALB/JAP-Bar Code Medical Administration Extract ;6/13/19 12:36
Source file <ECXBCM.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
DSS Extracts | 2 | ECXAPHA2 ECXBCM |
Event Capture | 1 | ECXBCM |
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* |
>> | 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 |
Name | Field # of Occurrence |
---|---|
$T(@COMP+OFF | MULTI+4 |