BHSACG ;IHS/CIA/MGH - Supplement for anti-coag ;14-Jan-2014 15:03;DU
Source file <BHSACG.m>
Package | Total | Call Graph |
---|---|---|
Patient Care Component Reports | 3 | ($$LASTCPTT,$$LASTLAB,ALLLAB,ALLV)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$PRIMPROV,$$VD)^APCLV |
Patient Care Component | 2 | $$D1^APCHSMU GETMEDS^APCHSMU1 |
IHS Patient | 1 | ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
VA Fileman | 1 | ^DIWP |
Name | Comments | DBIA/ICR reference |
---|---|---|
MRSTART(P) | ;PEP - most recent duration and date
|
|
EOJ | ;
|
|
S1 | ;
|
|
EP(DFN) | ;PEP - ANTI-COAG supplement
|
|
SIG | ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
|
|
INR | ;get all INR lab tests
|
|
SETARRAY | ;set up array
|
|
URIN | ;last urinalysis on file and its children
|
|
CTR(X,Y) | ;EP - Center
|
|
INDIC | ;get all dxs
|
|
EDUC(P,BDATE,EDATE,DATA) | ;EP pass back array of all asthma educ topics
|
|
LASTACUR(P,BD,ED) | ;EP
|
|
CLN | ;
|
|
COMBBYDT | ;combine the inrs and meds inverse by date
|
|
EDPRV(I) | ;
|
|
MRGOAL(P) | ;PEP - most recent INR goal and date
|
|
MRCOM(P) | ;PEP - most recent INR goal and date
|
|
S(Y,F,C,T) | ;EP - set up array
|
|
INRGOAL | ;most recent goal from V ANTICOAG
|
|
VITK | ;
|
|
W | ;write out array
|
|
LASTACCB(P,BD,ED) | ;EP
|
|
LASTACFO(P,BD,ED) | ;EP
|
|
CBC | ;
|
|
LAB | ;
|
|
FOBT | ;
|
|
EP2(DFN) | ;EP - PASS DFN get back array of patient care summary
|
|
MRDUR(P) | ;PEP - most recent duration and date
|
|
PTED | ;
|
|
MREND(P) | ;PEP - most recent duration and date
|
Name | Field # of Occurrence |
---|---|
$$D1^APCHSMU | INDIC+12, INRGOAL+3, INRGOAL+4, CLN+6, CLN+21, COMBBYDT+30, URIN+5, URIN+9, URIN+13, CBC+6 , CBC+10, CBC+14, FOBT+6, FOBT+9, VITK+7, PTED+6 |
GETMEDS^APCHSMU1 | INR+8, VITK+4 |
$$LASTCPTT^APCLAPIU | LASTACUR+5, LASTACCB+5, LASTACFO+5 |
$$LASTLAB^APCLAPIU | LASTACUR+4, LASTACCB+4, LASTACFO+4 |
ALLLAB^APCLAPIU | INR+5 |
ALLV^APCLAPIU | CLN+13 |
$$START1^APCLDF | INDIC+3, EDUC+7 |
$$CLINIC^APCLV | CLN+18 |
$$PRIMPROV^APCLV | CLN+21, EDPRV+5 |
$$VD^APCLV | CLN+21, MRGOAL+12, MRCOM+11, MRDUR+10 |
$$AGE^AUPNPAT | SETARRAY+7 |
$$DOB^AUPNPAT | SETARRAY+7, INDIC+3, URIN+2, CBC+3, FOBT+3, LASTACUR+1, LASTACCB+1, LASTACFO+1 |
$$HRN^AUPNPAT | SETARRAY+6 |
$$SEX^AUPNPAT | SETARRAY+7 |
^DIWP | INDIC+11, CLN+7, COMBBYDT+36, VITK+10 |
$$VAL^XBDIQ1 | SETARRAY+8, INDIC+10, CLN+5, COMBBYDT+9, COMBBYDT+18, URIN+9, URIN+12, URIN+13, CBC+10, CBC+13 , CBC+14, FOBT+9, VITK+7, PTED+6, EDPRV+2, EDPRV+3, MRGOAL+11, MRDUR+9, MRSTART+9, MREND+9 |
$$FMADD^XLFDT | INDIC+3, CLN+13, INR+5, INR+8, VITK+4, PTED+4 |
$$FMTE^XLFDT | SETARRAY+5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX("B" | INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4 |
^ATXLAB("B" | INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4 |
^AUPNVACG - [#9000010.51] | MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10 , MRSTART+8, MRSTART+10, MREND+10 |
^AUPNVACG("AA" | MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR+2, MRDUR+5 , MRDUR+6, MRDUR+7, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND+2, MREND+5, MREND+6, MREND+7 |
^AUPNVLAB - [#9000010.09] | URIN+7, URIN+11, CBC+8, CBC+12 |
^AUPNVLAB("ALR0" | URIN+10, CBC+11 |
^AUPNVMED - [#9000010.14] | COMBBYDT+16, VITK+8 |
^AUPNVPED - [#9000010.16] | EDPRV+4, EDUC+12 |
^AUTTEDT - [#9999999.09] | EDUC+14 |
^DPT - [#2] | SETARRAY+6 |
^PS(51 - [#51] | SIG+2 |
^TMP("BHSACG" | S1+1*, S1+2*, W+4, W+5, W+7!, EP2+2!, EP2+3* |
^UTILITY($J | INDIC+11!, INDIC+12, INDIC+13, CLN+7!, CLN+8, CLN+9, CLN+10!, COMBBYDT+36!, COMBBYDT+37, COMBBYDT+38 , VITK+10!, VITK+11, VITK+12 |
Name | Line Occurrences |
---|---|
$$CTR | SETARRAY+4 |
$$EDPRV | PTED+6 |
$$LASTACCB | CBC+3 |
$$LASTACFO | FOBT+3 |
$$LASTACUR | URIN+2 |
$$MRCOM | CLN+2 |
$$MRDUR | INRGOAL+2 |
$$MREND | INRGOAL+4 |
$$MRGOAL | INRGOAL+1 |
$$MRSTART | INRGOAL+3 |
CBC | URIN+3, URIN+4 |
EDUC | PTED+4 |
EOJ | W+9 |
EP2 | EP+3 |
FOBT | CBC+4, CBC+5 |
INR | CLN+15 |
PTED | VITK+5 |
S | SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+2, INDIC+12, INDIC+13, INRGOAL+1, INRGOAL+2 , INRGOAL+3, INRGOAL+4, CLN+4, CLN+8, CLN+9, CLN+14, CLN+15, CLN+21, CLN+22, INR+1 , INR+2, COMBBYDT+37, COMBBYDT+38, COMBBYDT+39, LAB+1, LAB+2, URIN+3, URIN+5, URIN+9, URIN+12 , URIN+13, CBC+1, CBC+4, CBC+6, CBC+10, CBC+13, CBC+14, FOBT+1, FOBT+4, FOBT+6 , FOBT+9, VITK+1, VITK+2, VITK+5, VITK+7, VITK+11, VITK+12, PTED+1, PTED+2, PTED+6 , PTED+7 |
S1 | S+5, S+7, S+10 |
SETARRAY | EP2+4 |
SIG | VITK+8 |
VITK | FOBT+4, FOBT+5 |
Name | Field # of Occurrence |
---|---|
^(9 | SIG+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | S+3~, S+8*, S+9*, S1+1*, S1+2, EOJ+1!, EDUC+4~, EDUC+9*, EDUC+10, EDUC+11 , EDUC+16 |
A | EP+2~, SETARRAY+1~, URIN+7*, URIN+8, URIN+10, CBC+8*, CBC+9, CBC+11, EDUC+4~, EDUC+6* , EDUC+7 |
APCHCOMB | COMBBYDT+1! |
APCHCOMB( | COMBBYDT+21 |
B | EP+2~, EOJ+1!, SETARRAY+1~ |
BD | LASTACUR~, LASTACUR+1*, LASTACUR+4, LASTACCB~, LASTACCB+1*, LASTACCB+4, LASTACFO~, LASTACFO+1*, LASTACFO+4 |
BDATE | EDUC~, EDUC+7 |
BHCOMB | SETARRAY+2~ |
BHCOMB( | COMBBYDT+10*, COMBBYDT+19, COMBBYDT+22*, COMBBYDT+23*, COMBBYDT+26, COMBBYDT+27, COMBBYDT+28 |
BHD | SETARRAY+2~, COMBBYDT+26*, COMBBYDT+27, COMBBYDT+28 |
BHE | EDUC+4~, EDUC+5!, EDUC+8, EDUC+19! |
BHE( | EDUC+9, EDUC+10, EDUC+11, EDUC+16 |
BHEDS | SETARRAY+2~ |
BHEDUC | EP+1~, PTED+3!, PTED+4 |
BHEDUC( | PTED+5, PTED+6 |
BHMEDS | SETARRAY+2~, INR+7!, INR+8, COMBBYDT+25!, URIN+1!, VITK+3!, VITK+4 |
BHMEDS( | COMBBYDT+12, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, VITK+6, VITK+7 |
BHMEDS(0 | VITK+5 |
BHPG | EP+1~, W+3* |
BHQUIT | EP+1~, W+2! |
BHSDX | SETARRAY+2~, INDIC+1! |
BHSDX( | INDIC+4 |
BHSDX("D" | INDIC+8, INDIC+9* |
BHSDX("I" | INDIC+4*, INDIC+5, INDIC+6, INDIC+7 |
BHSIG | EP+1~, VITK+8*, SIG+1, SIG+2 |
BHSP | EP+1~, SIG+1*, SIG+2 |
>> BHSPAT | URIN+2, CBC+3, FOBT+3, LASTACUR+4, LASTACCB+4, LASTACFO+4 |
BHSQUIT | EP+1~, W+4, W+8 |
BHSS | EP+1~, SETARRAY+2~, COMBBYDT+29*, COMBBYDT+30*, COMBBYDT+31*, COMBBYDT+37*, COMBBYDT+39* |
BHSSGY | SETARRAY+2~, VITK+9, SIG+1*, SIG+3* |
BHSX | EP+1~, CLN+1~, CLN+2*, CLN+3, CLN+5, CLN+6 |
BHV | EP+1~, SETARRAY+2~, CLN+11!, CLN+12*, CLN+13, INR+3!, INR+4*, INR+5, COMBBYDT+25!, URIN+1! , URIN+2*, URIN+3, URIN+4, URIN+5, URIN+7, URIN+9, URIN+13, CBC+2!, CBC+3*, CBC+4 , CBC+5, CBC+6, CBC+8, CBC+10, CBC+14, FOBT+2!, FOBT+3*, FOBT+4, FOBT+5, FOBT+6 , FOBT+8, FOBT+9 |
BHV( | CLN+16, CLN+17, COMBBYDT+3, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7 |
BHV(0 | CLN+15 |
BHVV | COMBBYDT+2~, COMBBYDT+28*, COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39 |
BHX | EP+1~, W+4*, W+5, EDUC+4~ |
BHX( | EDUC+17, EDUC+18 |
BHX(9999999 | EDUC+16* |
BHY | SETARRAY+2~, COMBBYDT+27*, COMBBYDT+28, VITK+6*, VITK+7 |
C | S~, S+7, EOJ+1!, SETARRAY+1~, INDIC+7*, INDIC+8, INDIC+9, INDIC+12, CLN+16*, CLN+17 , COMBBYDT+2~, COMBBYDT+3*, COMBBYDT+5*, COMBBYDT+10, COMBBYDT+12*, COMBBYDT+14*, COMBBYDT+23, EDUC+17*, EDUC+18*, LASTACUR+3~ , LASTACUR+5*, LASTACUR+6, LASTACCB+3~, LASTACCB+5*, LASTACCB+6, LASTACFO+3~, LASTACFO+5*, LASTACFO+6 |
D | SETARRAY+1~, INDIC+4*, INDIC+5*, INDIC+6, INDIC+7, INDIC+12, COMBBYDT+2~, COMBBYDT+4*, COMBBYDT+10, COMBBYDT+13* , COMBBYDT+19, COMBBYDT+21, COMBBYDT+22, COMBBYDT+23, MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, MRCOM+3~, MRCOM+5* , MRCOM+6, MRCOM+7, MRDUR+3~, MRDUR+5*, MRDUR+6, MRDUR+7, MRSTART+3~, MRSTART+5*, MRSTART+6, MRSTART+7 , MREND+3~, MREND+5*, MREND+6, MREND+7, EDUC+4~, EDUC+10*, EDUC+16 |
DATA | EDUC~, EDUC+2! |
DATA( | EDUC+18* |
DFN | EP~, EP+3, EP2~, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+3, INRGOAL+1, INRGOAL+2, INRGOAL+3 , INRGOAL+4, CLN+2, CLN+13, INR+5, INR+8, VITK+4, PTED+4, LASTACUR+5, LASTACCB+5, LASTACFO+5 |
DIWL | INDIC+1!, INDIC+11*, CLN+7*, COMBBYDT+36*, VITK+10* |
DIWR | INDIC+1!, INDIC+11*, CLN+7*, COMBBYDT+36*, VITK+10* |
DT | SETARRAY+5, INDIC+3, CLN+13, INR+5, INR+8, URIN+2, CBC+3, FOBT+3, VITK+4, PTED+4 , LASTACUR+2, LASTACUR+5, LASTACCB+2, LASTACCB+5, LASTACFO+2, LASTACFO+5 |
DUZ(2 | SETARRAY+6 |
E | EP+2~, EOJ+1!, SETARRAY+1~, INDIC+3*, EDUC+4~, EDUC+7* |
ED | LASTACUR~, LASTACUR+2*, LASTACUR+4, LASTACCB~, LASTACCB+2*, LASTACCB+4, LASTACFO~, LASTACFO+2*, LASTACFO+4 |
EDATE | EDUC~, EDUC+7 |
F | S~, S+1*, S+5*, EOJ+1!, SETARRAY+1~, INDIC+13*, CLN+9*, COMBBYDT+38*, VITK+12* |
G | SETARRAY+1~, CLN+16*, CLN+20*, CLN+22, COMBBYDT+21*, EDUC+4~ |
>> GMTSQIT | W+8* |
H | EOJ+1! |
I | EP+2~, SETARRAY+1~, INDIC+6*, INDIC+7, INDIC+10, COMBBYDT+2~, COMBBYDT+7*, COMBBYDT+9, EDPRV~, EDPRV+2 , EDPRV+3, EDPRV+4, MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRCOM+3~ , MRCOM+7*, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+3~, MRDUR+7*, MRDUR+8, MRDUR+9, MRDUR+10 , MRSTART+3~, MRSTART+7*, MRSTART+8, MRSTART+9, MRSTART+10, MREND+3~, MREND+7*, MREND+9, MREND+10, EDUC+4~ , EDUC+11*, EDUC+12 |
IOF | W+1 |
IOM | CTR+1 |
L | S+7*, EOJ+1!, URIN+7*, URIN+9, URIN+11, URIN+13, CBC+8*, CBC+10, CBC+12, CBC+14 , FOBT+8*, FOBT+9 |
M | EOJ+1!, COMBBYDT+2~, COMBBYDT+15*, COMBBYDT+16, COMBBYDT+18, VITK+6*, VITK+7, VITK+8 |
N | EOJ+1!, SETARRAY+1~, INDIC+10*, INDIC+11, EDUC+4~, EDUC+12*, EDUC+13, EDUC+14*, EDUC+15, EDUC+17* , EDUC+18 |
O | COMBBYDT+2~, COMBBYDT+8*, COMBBYDT+9*, COMBBYDT+10, COMBBYDT+17*, COMBBYDT+18*, COMBBYDT+22, COMBBYDT+23 |
P | EOJ+1!, CLN+5~*, CLN+6, CLN+8*, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7 , MRCOM~, MRCOM+1, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR~, MRDUR+1, MRDUR+2, MRDUR+5 , MRDUR+6, MRDUR+7, MRSTART~, MRSTART+1, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND~, MREND+1 , MREND+2, MREND+5, MREND+6, MREND+7, EDUC~, EDUC+3, EDUC+7, LASTACUR~, LASTACUR+1, LASTACCB~ , LASTACCB+1, LASTACFO~, LASTACFO+1 |
R | MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+12*, MRGOAL+13, MRCOM+3~, MRCOM+4*, MRCOM+5, MRCOM+6 , MRCOM+11*, MRCOM+12, MRDUR+3~, MRDUR+4*, MRDUR+5, MRDUR+6, MRDUR+10*, MRDUR+11, MRSTART+3~, MRSTART+4* , MRSTART+5, MRSTART+6, MRSTART+10*, MRSTART+11, MREND+3~, MREND+4*, MREND+5, MREND+6, MREND+10*, MREND+11 , LASTACUR+3~, LASTACUR+4*, LASTACUR+6, LASTACUR+7, LASTACCB+3~, LASTACCB+4*, LASTACCB+6, LASTACCB+7, LASTACFO+3~, LASTACFO+4* , LASTACFO+6, LASTACFO+7 |
S | SETARRAY+1~, CLN+18*, CLN+19, MRGOAL+3~, MRGOAL+10*, MRGOAL+11*, MRGOAL+12, MRCOM+3~ |
T | S~, S+2*, S+7*, S+8, S+9, EP+2~, EOJ+1!, SETARRAY+1~ |
T1 | EOJ+1! |
T2 | EOJ+1! |
T3 | EOJ+1! |
U | S1+1, SETARRAY+6, INDIC+4, INDIC+7, INRGOAL+1, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+5, CLN+6 , CLN+17, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+10, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+22, COMBBYDT+23 , COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39, URIN+4, URIN+5, URIN+7, URIN+9, URIN+11 , URIN+13, CBC+5, CBC+6, CBC+8, CBC+10, CBC+12, CBC+14, FOBT+5, FOBT+6, FOBT+8 , FOBT+9, VITK+6, VITK+7, VITK+8, PTED+6, EDPRV+4, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12 , MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10, MRSTART+8, MRSTART+10, MREND+10, EDUC+10 , EDUC+11, EDUC+12, EDUC+14, EDUC+16, EDUC+18, LASTACUR+6, LASTACCB+6, LASTACFO+6 |
V | SETARRAY+1~, CLN+17*, CLN+18, CLN+21, COMBBYDT+2~, COMBBYDT+6*, COMBBYDT+10, COMBBYDT+16*, COMBBYDT+22, COMBBYDT+23 , EDPRV+1~, EDPRV+4*, EDPRV+5 |
W | EOJ+1! |
X | S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, CTR~, CTR+1, EP+2~, EOJ+1! , SETARRAY+1~, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, INDIC+2*, INDIC+3*, INDIC+4*, INDIC+11* , INDIC+12*, INDIC+13*, INRGOAL+1*, INRGOAL+2*, INRGOAL+3*, INRGOAL+4*, CLN+6*, CLN+9*, CLN+14*, CLN+15* , CLN+21*, CLN+22*, INR+1*, INR+2*, COMBBYDT+2~, COMBBYDT+3*, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+12* , COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+34*, COMBBYDT+35, COMBBYDT+37*, COMBBYDT+38*, LAB+1*, LAB+2*, URIN+3* , URIN+5*, URIN+9*, URIN+12*, URIN+13*, CBC+4*, CBC+6*, CBC+10*, CBC+13*, CBC+14*, FOBT+4* , FOBT+6*, FOBT+9*, VITK+1*, VITK+2*, VITK+5*, VITK+7*, VITK+9*, VITK+11*, VITK+12*, PTED+1* , PTED+2*, PTED+6*, SIG+1*, SIG+2*, SIG+3, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, MRCOM+3~, MRCOM+6* , MRCOM+7, MRDUR+3~, MRDUR+6*, MRDUR+7, MRSTART+3~, MRSTART+6*, MRSTART+7, MREND+3~, MREND+6*, MREND+7 , EDUC+4~, EDUC+7*, EDUC+18* |
Y | S~, S+6, S+7, S+9, CTR~, CTR+1, EP+2~, EOJ+1!, SETARRAY+1~, COMBBYDT+21* , COMBBYDT+22, URIN+10*, URIN+11, URIN+12, CBC+11*, CBC+12, CBC+13, PTED+5*, PTED+6, SIG+2* , MRGOAL+3~, MRCOM+3~, MRDUR+3~, MRSTART+3~, MREND+3~ |
Z | EP+2~, SETARRAY+1~, EDPRV+1~, EDPRV+2*, EDPRV+3*, MRGOAL+3~, MRGOAL+9*, MRGOAL+10, MRGOAL+11, MRCOM+3~ , MRCOM+10*, MRCOM+11, MRDUR+3~, MRDUR+9*, MRDUR+10, MRSTART+3~, MRSTART+9*, MRSTART+10, MREND+3~, MREND+9* , MREND+10 |