APCLSIL2 ; IHS/CMI/LAB - H1N1 SURVEILLANCE EXPORT ; 28 Oct 2014 4:58 PM
Source file <APCLSIL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Reports | 5 | ($$LASTCPTT,$$LASTITEM,ALLV)^APCLAPIU $$START1^APCLDF $$PN^APCLSIL1 ($$ICD,$$ICDDX)^APCLSILU ($$CLINIC,$$PRIMPOV,$$PRIMPROV,$$VD)^APCLV |
| VA Fileman | 3 | FILE^DICN UPDATE^DIE $$GET1^DIQ |
| IHS Patient | 2 | ($$AGE,$$COMMRES,$$DOB,$$HRN)^AUPNPAT $$UIDV^AUPNVSIT |
| Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT ($$STRIP,$$UP)^XLFSTR |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component Surveillance | 3 | APCSSIL1 APCSSIL2 APCSSLAB |
| Patient Care Component Reports | 2 | APCLSIL1 APCLSILI |
| Patient Care Component | 1 | APCHPWH9 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| E | ;
|
|
| ERR | ;EP
|
|
| JDATE(D) | ;EP
|
|
| R(V) | ;EP
|
|
| WT(P,BDATE,EDATE) | ;EP
|
|
| SETV | ;EP
|
|
| CHSDT | ;
|
|
| UID(APCLA) | ;Given DFN return unique patient record id.
|
|
| HTWTSD(P,BDATE,EDATE) | ;EP - get last ht / wt on same day
|
|
| BMI(P,EDATE) | ;EP - get last calulable bmi as of EDATE and date of wt
|
|
| PNEU(P,EDATE) | ;EP
|
|
| REF(V) | ;EP
|
|
| DSCHTYPE(V) | ;EP
|
|
| ASTDM(P,EDATE) | ;EP
|
|
| OB(P,BMI,A) | ;EP obese
|
|
| HT(P,BDATE,EDATE) | ;EP
|
|
| DSCHDATE(V) | ;EP
|
|
| SETREC | ;EP - called from
|
|
| CHSDD | ;
|
|
| DATE(D) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$LASTCPTT^APCLAPIU | PNEU+22 |
| $$LASTITEM^APCLAPIU | SETREC+67, SETREC+70, PNEU+19 |
| ALLV^APCLAPIU | ASTDM+17 |
| $$START1^APCLDF | HTWTSD+4, HTWTSD+8, HT+3, WT+3 |
| $$PN^APCLSIL1 | SETREC+31 |
| $$ICD^APCLSILU | WT+9, ASTDM+13, ASTDM+14, ASTDM+27, ASTDM+28 |
| $$ICDDX^APCLSILU | WT+8 |
| $$CLINIC^APCLV | SETREC+40 |
| $$PRIMPOV^APCLV | ASTDM+25 |
| $$PRIMPROV^APCLV | SETREC+76 |
| $$VD^APCLV | SETREC+17, SETREC+28, SETREC+33, SETREC+67, SETREC+70, PNEU+14 |
| $$AGE^AUPNPAT | SETREC+34, BMI+23 |
| $$COMMRES^AUPNPAT | SETREC+6 |
| $$DOB^AUPNPAT | PNEU+4, PNEU+19, PNEU+22 |
| $$HRN^AUPNPAT | SETREC+3 |
| $$UIDV^AUPNVSIT | SETREC+18 |
| FILE^DICN | SETREC+81 |
| UPDATE^DIE | SETREC+88 |
| $$GET1^DIQ | UID+4 |
| $$VAL^XBDIQ1 | SETREC+14, PNEU+20, PNEU+23, CHSDT+2 |
| $$VALI^XBDIQ1 | PNEU+13, DSCHTYPE+8 |
| $$FMADD^XLFDT | BMI+26, BMI+42, BMI+59, REF+5 |
| $$FMTE^XLFDT | BMI+27, BMI+31, BMI+36, BMI+43, BMI+47, BMI+52, BMI+60, JDATE+3 |
| $$STRIP^XLFSTR | SETREC+46, SETREC+47, SETREC+48, SETREC+49, SETREC+51, SETREC+52, SETREC+73, SETREC+74 |
| $$UP^XLFSTR | JDATE+4 |
| FileNo | Call Tags |
|---|---|
| ^APCLILIL - [#9001003.4] | Classic Fileman Calls |
| ^AUTTLOC - [#9999999.06] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCLBMI - [#9001003.9] | OB+8, OB+9 |
| ^APCLBMI("H" | OB+5, OB+6 |
| ^APCLDATA($J | SETREC+78* |
| ^APCLILIL("B" | SETREC+80 |
| ^ATXAX - [#9002226] | PNEU+12 |
| ^ATXAX("B" | PNEU+5, PNEU+6, WT+9, ASTDM+4, ASTDM+5 |
| ^AUPNPAT - [#9000001] | BMI+21, UID+2 |
| ^AUPNPROB - [#9000011] | ASTDM+8, ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12 |
| ^AUPNPROB("AC" | ASTDM+7 |
| ^AUPNVCHS - [#9000010.03] | CHSDD+2 |
| ^AUPNVCHS("AD" | CHSDT+1, CHSDD+1 |
| ^AUPNVIMM - [#9000010.11] | PNEU+8, PNEU+14 |
| ^AUPNVIMM("AC" | PNEU+7 |
| ^AUPNVINP - [#9000010.02] | DSCHDATE+6 |
| ^AUPNVINP("AD" | DSCHTYPE+6, DSCHDATE+5 |
| ^AUPNVMSR - [#9000010.01] | SETREC+13, SETREC+15 |
| ^AUPNVMSR("AD" | SETREC+12 |
| ^AUPNVPOV - [#9000010.07] | WT+8 |
| ^AUPNVPOV("AD" | WT+6, WT+7 |
| ^AUPNVSIT - [#9000010] | SETREC+18, SETREC+19, SETREC+20, ASTDM+23, ASTDM+24, REF+4, REF+5, REF+6, DSCHTYPE+2, DSCHTYPE+3 , DSCHTYPE+5, DSCHDATE+2, DSCHDATE+3 |
| ^AUTTIMM - [#9999999.14] | PNEU+10 |
| ^AUTTLOC - [#9999999.06] | SETREC+7 |
| ^AUTTSITE(1 | UID+4 |
| ^BMCREF - [#90001] | REF+8, REF+12 |
| ^BMCREF("D" | REF+7 |
| ^DD(9000010.02 | DSCHTYPE+10, DSCHTYPE+11 |
| ^DG(405.1 - [#405.1] | DSCHTYPE+11 |
| ^DIC(42.2 - [#42.2] | DSCHTYPE+10 |
| ^DPT - [#2] | SETREC+4, SETREC+5, OB+3, BMI+22 |
| Name | Line Occurrences |
|---|---|
| $$ASTDM | SETREC+28 |
| $$BMI | SETREC+33 |
| $$DSCHDATE | SETREC+22, REF+5 |
| $$DSCHTYPE | SETREC+21 |
| $$HT | BMI+34, BMI+50 |
| $$HTWTSD | BMI+61 |
| $$OB | SETREC+34 |
| $$PNEU | SETREC+37 |
| $$R | SETREC+35 |
| $$REF | SETREC+23 |
| $$UID | SETREC+2 |
| $$WT | BMI+29, BMI+45 |
| CHSDD | DSCHDATE+5 |
| CHSDT | DSCHTYPE+5 |
| E | PNEU+18, PNEU+21, PNEU+24 |
| ERR | BMI+31, BMI+36, BMI+47, BMI+52, BMI+62, BMI+63 |
| SETV | BMI+40, BMI+56, BMI+71 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETREC+37*, SETREC+38, SETREC+39, PNEU+23*, BMI+16~, HTWTSD+2~, HTWTSD+4*, HTWTSD+8*, HT+2~, HT+3* , WT+2~, ASTDM+2~, DSCHTYPE+4~, DSCHTYPE+6* |
| %DT | BMI+16~ |
| A | OB~, OB+5, OB+6, JDATE+2~, JDATE+3*, JDATE+4 |
| AGE | BMI+16~, BMI+23*, BMI+25, BMI+41, BMI+58 |
| APCL | ASTDM+2~, ASTDM+18 |
| APCL( | ASTDM+21, ASTDM+22, ASTDM+27, ASTDM+28 |
| APCLA | UID~, UID+1, UID+2, UID+4 |
| >> APCLADVE | SETREC+53, SETREC+56 |
| APCLARRY | HT+2~ |
| APCLARRY(1 | HT+4, HT+7 |
| APCLAS | ASTDM+2~, ASTDM+3*, ASTDM+13*, ASTDM+15, ASTDM+18, ASTDM+21, ASTDM+27*, ASTDM+30 |
| APCLASC | ASTDM+2~, ASTDM+3*, ASTDM+27* |
| >> APCLASDM | SETREC+28*, SETREC+29, SETREC+30 |
| >> APCLAVM | SETREC+46, SETREC+47 |
| >> APCLBMI | SETREC+33*, SETREC+34, SETREC+35, SETREC+36, SETREC+66, SETREC+69 |
| >> APCLC | SETREC+10* |
| >> APCLCHT | HTWTSD+12*, HTWTSD+13*, HTWTSD+14 |
| >> APCLDATE | SETREC+8, SETREC+62, SETREC+63, SETREC+75 |
| APCLDM | ASTDM+2~, ASTDM+3*, ASTDM+14*, ASTDM+15, ASTDM+18, ASTDM+21, ASTDM+28*, ASTDM+30 |
| APCLDMC | ASTDM+2~, ASTDM+3*, ASTDM+28* |
| APCLERRR | SETREC+82~ |
| APCLFDA | SETREC+82~ |
| APCLFDA( | SETREC+84*, SETREC+85*, SETREC+86*, SETREC+87* |
| >> APCLH1N1 | SETREC+23, SETREC+41 |
| APCLHTS | HTWTSD+2~ |
| APCLHTS( | HTWTSD+5!, HTWTSD+6, HTWTSD+13 |
| APCLHTS1 | HTWTSD+2~, HTWTSD+6! |
| APCLHTS1( | HTWTSD+6*, HTWTSD+12, HTWTSD+13 |
| >> APCLHVAC | SETREC+26, SETREC+48, SETREC+49, SETREC+63 |
| APCLICD | WT+2~, WT+8*, WT+9 |
| APCLIENS | SETREC+82~, SETREC+83* |
| >> APCLILI | SETREC+10, SETREC+23 |
| >> APCLIVAC | SETREC+27, SETREC+51, SETREC+52, SETREC+62 |
| APCLJ | ASTDM+20~ |
| APCLJ( | ASTDM+27* |
| APCLK | ASTDM+20~ |
| APCLK( | ASTDM+28* |
| APCLL | WT+2~, WT+3! |
| APCLL( | WT+4, WT+5, WT+6, WT+10 |
| APCLLAST | PNEU+2~, PNEU+3*, PNEU+19, PNEU+22, PNEU+25, E+1* |
| APCLLD | WT+2~, WT+7*, WT+8 |
| APCLLN | WT+2~, WT+4*, WT+5, WT+6, WT+10 |
| >> APCLLOC | SETREC+3, SETREC+7 |
| APCLLW | WT+2~, WT+3*, WT+4, WT+6*, WT+7, WT+10*, WT+12 |
| APCLLX | WT+2~, WT+3* |
| APCLLZ | WT+2~, WT+5*, WT+6, WT+7 |
| >> APCLNVAC | SETREC+72, SETREC+73, SETREC+74, SETREC+75 |
| >> APCLOVAC | SETREC+54 |
| >> APCLPCVA | SETREC+59 |
| >> APCLPCVE | SETREC+58 |
| >> APCLPCVF | SETREC+57 |
| >> APCLPCVI | SETREC+61 |
| >> APCLPCVS | SETREC+60 |
| >> APCLPN | SETREC+31*, SETREC+32, SETREC+33, SETREC+34 |
| >> APCLPVAC | SETREC+55 |
| >> APCLREAS | SETREC+87 |
| >> APCLREC | SETREC+2*, SETREC+3*, SETREC+4*, SETREC+5*, SETREC+6*, SETREC+7*, SETREC+8*, SETREC+10*, SETREC+17*, SETREC+18* , SETREC+19*, SETREC+20*, SETREC+21*, SETREC+22*, SETREC+24*, SETREC+25*, SETREC+26*, SETREC+27*, SETREC+29*, SETREC+30* , SETREC+32*, SETREC+34*, SETREC+35*, SETREC+36*, SETREC+38*, SETREC+39*, SETREC+40*, SETREC+41*, SETREC+42*, SETREC+43* , SETREC+44*, SETREC+45*, SETREC+46*, SETREC+47*, SETREC+48*, SETREC+49*, SETREC+50*, SETREC+51*, SETREC+52*, SETREC+53* , SETREC+54*, SETREC+55*, SETREC+56*, SETREC+57*, SETREC+58*, SETREC+59*, SETREC+60*, SETREC+61*, SETREC+62*, SETREC+63* , SETREC+66*, SETREC+67*, SETREC+69*, SETREC+70*, SETREC+71*, SETREC+72*, SETREC+73*, SETREC+74*, SETREC+75*, SETREC+76* , SETREC+78 |
| >> APCLREF | SETREC+23*, SETREC+24, SETREC+25 |
| >> APCLSRD | SETREC+42, SETREC+43, SETREC+44, SETREC+45 |
| >> APCLSTAT | SETREC+71, SETREC+86 |
| >> APCLTEMP | SETREC+11*, SETREC+16*, SETREC+17 |
| >> APCLV | SETREC+12, SETREC+17, SETREC+18, SETREC+19, SETREC+20, SETREC+21, SETREC+22, SETREC+23, SETREC+28, SETREC+31 , SETREC+33, SETREC+40, SETREC+67, SETREC+70, SETREC+76, SETREC+80, SETREC+81, SETREC+84, SETREC+85, SETREC+86 , SETREC+87 |
| >> APCLVTOT | SETREC+77*, SETREC+78 |
| APCLWTS | HTWTSD+2~ |
| APCLWTS( | HTWTSD+9!, HTWTSD+11, HTWTSD+13 |
| APCLWTS1 | HTWTSD+2~, HTWTSD+11! |
| APCLWTS1( | HTWTSD+11*, HTWTSD+12, HTWTSD+13 |
| >> APCLZHSD | SETREC+84, SETREC+85 |
| B | BMI+16~, REF+2~, REF+4*, REF+5, REF+10 |
| BDATE | PNEU+2~, PNEU+4*, PNEU+15, BMI+16~, BMI+26*, BMI+29, BMI+34, BMI+42*, BMI+45, BMI+50 , BMI+59*, BMI+61, HTWTSD~, HTWTSD+4, HTWTSD+8, HT~, HT+3, WT~, WT+3 |
| BMI | OB~, OB+2, OB+8, OB+9, BMI+16~, BMI+39*, BMI+55*, BMI+70*, SETV+1 |
| C | SETREC+1*, ERR+2~, ERR+3*, ERR+4*, ERR+5, REF+2~, REF+3*, REF+13*, REF+15 |
| CD | BMI+16~ |
| CVX | PNEU+2~, PNEU+10*, PNEU+11, PNEU+12, PNEU+17 |
| D | PNEU+13*, PNEU+14*, PNEU+15, PNEU+16, PNEU+17, BMI+16~, REF+8*, REF+9, REF+10, REF+11 , REF+13, DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4 |
| D0 | SETREC+81! |
| DD | SETREC+81! |
| >> DFN | SETREC+2, SETREC+3, SETREC+4, SETREC+5, SETREC+6, SETREC+28, SETREC+31, SETREC+33, SETREC+34, SETREC+37 , SETREC+67, SETREC+70 |
| DIADD | SETREC+81*! |
| DIC | SETREC+81*! |
| DIC(0 | SETREC+81* |
| DINUM | SETREC+81*! |
| DLAYGO | SETREC+81*! |
| DO | SETREC+81! |
| DT | SETREC+37, BMI+19 |
| DUZ(2 | SETREC+3 |
| E | HTWTSD+4*, HTWTSD+8*, HT+2~, HT+3*, WT+2~, WT+3*, ASTDM+2~, REF+2~, REF+5*, REF+11 |
| EDATE | PNEU~, PNEU+16, PNEU+19, PNEU+22, BMI~, BMI+19*, BMI+23, BMI+26, BMI+27*, BMI+29 , BMI+31, BMI+34, BMI+36, BMI+42, BMI+43*, BMI+45, BMI+47, BMI+50, BMI+52, BMI+59 , BMI+60*, BMI+61, BMI+62, BMI+63, HTWTSD~, HTWTSD+4, HTWTSD+8, HT~, HT+3, WT~ , WT+3, ASTDM~, ASTDM+11, ASTDM+17 |
| ERR | BMI+16~, BMI+31*, BMI+36*, BMI+47*, BMI+52*, BMI+62*, BMI+63*, ERR+4 |
| ERRC | BMI+16~, BMI+17*, ERR+1*, ERR+4 |
| F | PNEU+2~ |
| G | ASTDM+2~, ASTDM+6* |
| H | BMI+16~, BMI+35*, BMI+36, BMI+39*, BMI+51*, BMI+52, BMI+55*, BMI+65*, BMI+70*, HT+2~ , HT+4*, HT+5, HT+6, HT+7*, HT+8 |
| HD | BMI+16~, BMI+37*, BMI+53*, BMI+68*, SETV+3 |
| HV | BMI+16~, BMI+38*, BMI+54*, BMI+69*, SETV+4 |
| I | PNEU+2~, PNEU+8*, PNEU+9, PNEU+10 |
| OH | BMI+16~, BMI+35*, BMI+51*, BMI+65*, SETV+2 |
| OW | BMI+16~, BMI+30*, BMI+46*, BMI+64*, SETV+5 |
| P | PNEU~, PNEU+1, PNEU+4, PNEU+7, PNEU+19, PNEU+22, OB~, OB+3, BMI~, BMI+20 , BMI+21, BMI+22, BMI+23, BMI+29, BMI+34, BMI+45, BMI+50, BMI+61, HTWTSD~, HTWTSD+1 , HTWTSD+4, HTWTSD+8, HT~, HT+1, HT+3, WT~, WT+1, WT+3, ASTDM~, ASTDM+7 , ASTDM+17, REF+2~, REF+6*, REF+7 |
| Q | ASTDM+2~, ASTDM+12*, ASTDM+13, ASTDM+14, ASTDM+25*, ASTDM+26, ASTDM+27, ASTDM+28 |
| R | OB+1~, OB+5*, OB+6*, OB+7, OB+8, OB+9 |
| S | OB+1~, OB+3*, OB+4, OB+5, OB+6 |
| T | PNEU+2~, PNEU+5*, PNEU+12, ASTDM+2~, ASTDM+4*, ASTDM+13, ASTDM+27 |
| T1 | PNEU+2~, PNEU+6*, PNEU+12 |
| TD | ASTDM+2~, ASTDM+5*, ASTDM+14, ASTDM+28 |
| U | SETREC+4, SETREC+5, SETREC+7, SETREC+10, SETREC+13, SETREC+15, SETREC+18, SETREC+19, SETREC+20, SETREC+24 , SETREC+25, SETREC+26, SETREC+27, SETREC+29, SETREC+30, SETREC+34, SETREC+35, SETREC+36, SETREC+38, SETREC+39 , SETREC+41, SETREC+42, SETREC+43, SETREC+44, SETREC+45, SETREC+46, SETREC+47, SETREC+48, SETREC+49, SETREC+51 , SETREC+52, SETREC+53, SETREC+55, SETREC+56, SETREC+66, SETREC+67, SETREC+69, SETREC+70, SETREC+72, SETREC+73 , SETREC+74, PNEU+8, PNEU+10, PNEU+14, PNEU+17, PNEU+19, PNEU+20, PNEU+22, PNEU+23, PNEU+25 , E+1, OB+3, OB+8, OB+9, BMI+30, BMI+32, BMI+33, BMI+35, BMI+37, BMI+38 , BMI+46, BMI+48, BMI+49, BMI+51, BMI+53, BMI+54, BMI+66, BMI+67, BMI+68, BMI+69 , HTWTSD+5, HTWTSD+6, HTWTSD+9, HTWTSD+11, HTWTSD+13, HT+4, HT+7, WT+5, WT+6, WT+8 , WT+10, ERR+3, ERR+5, SETV+1, SETV+2, SETV+3, SETV+4, SETV+5, SETV+6, SETV+7 , ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12, ASTDM+15, ASTDM+18, ASTDM+22, ASTDM+24, ASTDM+27, ASTDM+28 , ASTDM+30, REF+4, REF+5, REF+6, REF+8, REF+12, REF+13, UID+4 |
| V | SETREC+15*, SETREC+16, PNEU+2~, PNEU+3*, PNEU+17*, PNEU+19*, PNEU+20*, PNEU+22*, PNEU+23*, E+1 , R~, R+1, R+2, R+3*, R+4, BMI+16~, BMI+29*, BMI+30, BMI+32, BMI+33 , BMI+34*, BMI+35, BMI+37, BMI+38, BMI+45*, BMI+46, BMI+48, BMI+49, BMI+50*, BMI+51 , BMI+53, BMI+54, ASTDM+2~, ASTDM+22*, ASTDM+23, ASTDM+24, ASTDM+25, REF~, REF+4, REF+5 , REF+6, DSCHTYPE~, DSCHTYPE+1, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6, CHSDT+1, DSCHDATE~, DSCHDATE+1 , DSCHDATE+2, DSCHDATE+3, DSCHDATE+5, CHSDD+1 |
| VALUE | BMI+16~, BMI+18*, BMI+24*, BMI+25, BMI+41, BMI+58, ERR+3, ERR+5*, SETV+1*, SETV+2* , SETV+3*, SETV+4*, SETV+5*, SETV+6*, SETV+7* |
| W | BMI+16~, BMI+30*, BMI+31, BMI+39*, BMI+46*, BMI+47, BMI+55*, BMI+64*, BMI+70* |
| WD | BMI+16~, BMI+32*, BMI+48*, BMI+66*, SETV+6 |
| WV | BMI+16~, BMI+33*, BMI+49*, BMI+67*, SETV+7 |
| X | SETREC+10*, SETREC+12*, SETREC+13, SETREC+14, SETREC+15, SETREC+67*, SETREC+70*, SETREC+81*, PNEU+2~, PNEU+7* , PNEU+8, PNEU+13, PNEU+14, BMI+61*, BMI+62, BMI+63, BMI+64, BMI+65, BMI+66, BMI+67 , BMI+68, BMI+69, HTWTSD+2~, HTWTSD+6*, HTWTSD+11*, HTWTSD+12*, HTWTSD+13, WT+2~, ASTDM+2~, ASTDM+7* , ASTDM+8, ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12, ASTDM+21*, ASTDM+22, ASTDM+27, ASTDM+28, REF+2~ , REF+7*, REF+8, REF+12 |
| Y | SETREC+10*, PNEU+2~, HTWTSD+2~, HTWTSD+5*, HTWTSD+9*, ASTDM+2~, REF+2~, DSCHTYPE+4~, DSCHTYPE+8*, DSCHTYPE+9 , DSCHTYPE+10, DSCHTYPE+11, CHSDT+2*, CHSDT+3, DSCHDATE+4~, DSCHDATE+6*, DSCHDATE+7, DSCHDATE+8, CHSDD+2*, CHSDD+3 , CHSDD+4 |
| Z | SETREC+10*, REF+2~, DSCHTYPE+4~, DSCHTYPE+6*, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1*, CHSDT+2, DSCHDATE+4~, DSCHDATE+5* , DSCHDATE+6, CHSDD+1*, CHSDD+2 |