BPCDBS1 ; IHS/OIT/MJL - DIABETIC CARE SUMMARY SUPPLEMENT ;
Source file <BPCDBS1.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Patient | 1 | ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT | 
| Kernel | 1 | $$FMTE^XLFDT | 
| Patient Care Component Reports | 1 | $$START1^APCLDF | 
| VA Fileman | 1 | ^DIR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TOBACCO | ;EP | |
| EOJ | ; | |
| S1 | ; | |
| BREAST(P,APCHSED) | ; | |
| DFE(P,APCHSED) | ; | |
| SETARRAY | ;set up array containing dm care summary | |
| HTN(P) | ; | |
| GETHWB(P) | ||
| LASTHT | ; | |
| BMI | ; | |
| RECTAL(P,APCHSED) | ; | |
| LASTWT | ; | |
| PAP(P,APCHSED) | ; | |
| MAMMOG(P) | ; | |
| S(Y,F,C,T) | ;set up array | |
| HEADER | ; | |
| DOO(P) | ;get first dm dx from case management | |
| W | ;write out array | |
| EYE(P,APCHSED) | ; | |
| EP | ;EP - called from component | |
| HEAD1 | ; | |
| BP(P) | ;last 3 BPs | |
| EP2(APCHSDFN) | ;EP - PASS DFN get back array of patient care summary | |
| M12 | ; | |
| TOBACCO3 | ;lookup in health status | |
| TOBACCO2 | ;check pov file for TOBACCO USE DOC | |
| TOBACCO1 | ;check problem file for tobacco use | |
| TOBACCO0 | ;check for tobacco documented in health factors | |
| DENTAL(P,APCHSED) | ; | 
| Name | Field # of Occurrence | 
|---|---|
| $$START1^APCLDF | HTN+3, BP+3, DOO+3, LASTHT+4, LASTWT+1, TOBACCO0+1, TOBACCO1+1, TOBACCO2+1, DFE+1, EYE+1 , DENTAL+1, RECTAL+2, PAP+2, BREAST+2 | 
| $$AGE^AUPNPAT | SETARRAY+4, RECTAL+1 | 
| $$DOB^AUPNPAT | M12+13 | 
| $$HRN^AUPNPAT | M12+13 | 
| $$SEX^AUPNPAT | SETARRAY+4, PAP+1, BREAST+1, MAMMOG+1 | 
| ^DIR | EP+2, HEADER+1 | 
| $$FMTE^XLFDT | SETARRAY+3, SETARRAY+10, SETARRAY+12, SETARRAY+14, DOO+4, LASTHT+4, LASTWT+1, DFE+3, DFE+4, EYE+3 , EYE+4, DENTAL+4, DENTAL+5, RECTAL+4, RECTAL+5, PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+11 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("TEST" | SETARRAY+2 | 
| ^ATXAX - [#9002226] | TOBACCO3+3 | 
| ^ATXAX("B" | TOBACCO3+1 | 
| ^AUPNHF("AA" | TOBACCO3+3 | 
| ^AUPNPROB - [#9000011] | DOO+3, TOBACCO1+2, TOBACCO1+3 | 
| ^AUPNVMSR("AC" | LASTHT+2 | 
| ^AUPNVPOV - [#9000010.07] | TOBACCO2+2, TOBACCO2+3 | 
| ^AUPNVRAD - [#9000010.22] | MAMMOG+7, MAMMOG+9 | 
| ^AUPNVRAD("AC" | MAMMOG+5, MAMMOG+6 | 
| ^AUPNVSIT("AC" | LASTHT+1 | 
| ^AUTNPOV - [#9999999.27] | TOBACCO1+2, TOBACCO1+3, TOBACCO2+2, TOBACCO2+3 | 
| ^AUTTHF - [#9999999.64] | TOBACCO3+5 | 
| ^DPT - [#2] | M12+13 | 
| ^ICD9 - [#80] | TOBACCO1+2 | 
| ^RAMIS(71 - [#71] | MAMMOG+8 | 
| ^TMP("APCHS" | W+3, W+5, EP2+2!, EP2+3*, S1+1*, S1+2* | 
| Name | Line Occurrences | 
|---|---|
| $$BP | SETARRAY+9 | 
| $$BREAST | M12+10 | 
| $$DENTAL | M12+6 | 
| $$DFE | M12+4 | 
| $$DOO | SETARRAY+4 | 
| $$EYE | M12+5 | 
| $$HTN | SETARRAY+8 | 
| $$MAMMOG | M12+11 | 
| $$PAP | M12+9 | 
| $$RECTAL | M12+7 | 
| EOJ | W+8 | 
| EP2 | EP+4 | 
| GETHWB | SETARRAY+5 | 
| HEADER | W+4 | 
| S | SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+11, SETARRAY+13, SETARRAY+15, M12+3, M12+4 , M12+5, M12+6, M12+7, M12+8, M12+9, M12+10, M12+11, M12+13, M12+14 | 
| S1 | S+4, S+6, S+9 | 
| SETARRAY | EP2+4 | 
| TOBACCO | SETARRAY+7 | 
| TOBACCO0 | TOBACCO+4 | 
| TOBACCO1 | TOBACCO+6 | 
| TOBACCO2 | TOBACCO+8 | 
| TOBACCO3 | TOBACCO+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EOJ+2!, S+7*, S+8*, S1+1*, S1+2, LASTHT+4*, LASTWT+1*, BMI+2*, BMI+3*, BMI+4 , TOBACCO3+1*, TOBACCO3+2, TOBACCO3+3, DFE+1*, EYE+1*, DENTAL+1*, RECTAL+2*, PAP+2*, BREAST+2* | 
| APCH | TOBACCO0+1!, TOBACCO1+1!, TOBACCO2+1! | 
| APCH(1 | TOBACCO0+1, TOBACCO0+2, TOBACCO0+3, TOBACCO1+1, TOBACCO1+2, TOBACCO1+3, TOBACCO2+1, TOBACCO2+2, TOBACCO2+3 | 
| APCHQUIT | W+2!, W+3, W+4, W+7, EOJ+1!, HEADER+1* | 
| APCHSBEG | EOJ+1!, M12+2*, M12+4, M12+5, M12+6, M12+7, M12+9, M12+10 | 
| APCHSDFN | EOJ+1!, EP2~, SETARRAY+4, SETARRAY+5, SETARRAY+8, SETARRAY+9, M12+4, M12+5, M12+6, M12+7 , M12+9, M12+10, M12+11, M12+13, TOBACCO0+1, TOBACCO3+3, TOBACCO1+1, TOBACCO2+1 | 
| APCHSED | EOJ+1!, DFE~, DFE+3, EYE~, EYE+3, DENTAL~, DENTAL+4, RECTAL~, RECTAL+4, PAP~ , PAP+4, BREAST~, BREAST+4 | 
| >> APCHSPAT | EP+1, EP+4 | 
| >> APCHSQIT | EP+3*, W+7* | 
| APCHSTOB | EOJ+1! | 
| APCHSUPI | EOJ+1! | 
| APCHTOB | EOJ+1!, SETARRAY+8, TOBACCO+1!, TOBACCO+3, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO+10*, TOBACCO0+1*, TOBACCO0+2* , TOBACCO0+3*, TOBACCO0+4*, TOBACCO3+6*, TOBACCO3+7*, TOBACCO3+8*, TOBACCO3+9*, TOBACCO1+1*, TOBACCO1+2*, TOBACCO1+3*, TOBACCO2+1* , TOBACCO2+2*, TOBACCO2+3* | 
| APCHTOB( | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 | 
| APCHTOB("" | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 | 
| APCHTOBN | EOJ+1!, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1* | 
| APCHX | W+3*, W+5, EOJ+1!, HTN+1~, HTN+2*, HTN+3*, HTN+4*, HTN+5, BP+1!, BP+2* , BP+4, BP+5, DOO+1~, DOO+2*, DOO+3*, DOO+4*, DOO+5, GETHWB+1!, TOBACCO0+1*, TOBACCO1+1* , TOBACCO2+1*, DFE+3*, EYE+3*, DENTAL+4*, RECTAL+4*, PAP+4*, BREAST+4* | 
| APCHX("BMI" | SETARRAY+5, GETHWB+2*, BMI+4* | 
| APCHX("HT" | SETARRAY+5, GETHWB+2*, LASTHT+4*, LASTHT+5*, BMI+1, BMI+3 | 
| APCHX("HTD" | SETARRAY+5, GETHWB+2*, LASTHT+4* | 
| APCHX("WT" | SETARRAY+6, GETHWB+2*, LASTWT+1*, BMI+1, BMI+3 | 
| APCHX("WTD" | SETARRAY+6, GETHWB+2*, LASTWT+1* | 
| APCHX(1 | SETARRAY+10, HTN+3, BP+4*, DOO+3 | 
| APCHX(2 | SETARRAY+12 | 
| APCHX(3 | SETARRAY+14 | 
| APCHY | EOJ+1!, LASTHT+3~, LASTWT+1!, DFE+1~, DFE+2, EYE+1~, EYE+2, DENTAL+1~, DENTAL+3, RECTAL+2~ , RECTAL+3, PAP+2~, PAP+3, BREAST+2~, BREAST+3 | 
| APCHY(1 | LASTHT+4, LASTWT+1, DFE+3, DFE+4, EYE+3, EYE+4, DENTAL+4, DENTAL+5, RECTAL+4, RECTAL+5 , PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+6*, MAMMOG+9*, MAMMOG+10, MAMMOG+11 | 
| B | EOJ+2!, SETARRAY+9* | 
| >> BPCPROC | MAMMOG+8*, MAMMOG+9 | 
| >> BPCRIEN | MAMMOG+6*, MAMMOG+7, MAMMOG+9 | 
| >> BPCRP | MAMMOG+7*, MAMMOG+8 | 
| C | EOJ+2!, S~, S+6 | 
| DIR | HEADER+1! | 
| DIR(0 | EP+2*, HEADER+1* | 
| >> DIRUT | EP+3 | 
| DT | SETARRAY+3, M12+2 | 
| >> DTOUT | HEADER+1 | 
| DUZ(2 | M12+13 | 
| E | EOJ+2!, HTN+3*, BP+3*, DOO+3*, LASTHT+4*, LASTWT+1*, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1*, DFE+1* , EYE+1*, DENTAL+1*, DENTAL+2, RECTAL+2*, PAP+2*, BREAST+2* | 
| F | EOJ+2!, S~, S+1*, S+4* | 
| H | EOJ+2!, BMI+3* | 
| IO | HEADER+1 | 
| IO(0 | HEADER+1 | 
| IOF | W+1, HEAD1+1 | 
| IOSL | W+4 | 
| IOST | EP+2, HEADER+1 | 
| L | EOJ+2!, S+6* | 
| N | EOJ+2! | 
| P | EOJ+2!, HTN~, HTN+3, BP~, BP+3, DOO~, DOO+3, GETHWB~, LASTHT+1, LASTHT+2 , LASTHT+4, LASTWT+1, DFE~, DFE+1, EYE~, EYE+1, DENTAL~, DENTAL+1, RECTAL~, RECTAL+1 , RECTAL+2, PAP~, PAP+1, PAP+2, BREAST~, BREAST+1, BREAST+2, MAMMOG~, MAMMOG+1, MAMMOG+5 , MAMMOG+6 | 
| T | EOJ+2!, S~, S+2*, S+6*, S+7, S+8 | 
| U | SETARRAY+10, SETARRAY+12, SETARRAY+14, M12+13, S1+1, DOO+3, LASTHT+4, LASTWT+1, TOBACCO0+2, TOBACCO0+3 , TOBACCO3+5, TOBACCO1+2, TOBACCO1+3, TOBACCO2+2, TOBACCO2+3, DFE+3, DFE+4, EYE+3, EYE+4, DENTAL+4 , DENTAL+5, RECTAL+4, RECTAL+5, PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+7, MAMMOG+8, MAMMOG+9 , MAMMOG+11 | 
| W | EOJ+2!, BMI+3* | 
| X | EOJ+2!, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+8*, SETARRAY+10*, SETARRAY+11, SETARRAY+12* , SETARRAY+13, SETARRAY+14*, SETARRAY+15, M12+3*, M12+4*, M12+5*, M12+6*, M12+7*, M12+8*, M12+9* , M12+10*, M12+11*, M12+13*, M12+14*, S+4*, S+5*, S+7*, S+8*, S1+2, HTN+1~ , HTN+3*, BP+3*, DOO+1~, DOO+3*, LASTHT+4~, LASTWT+1~, TOBACCO3+3* | 
| Y | EOJ+2!, HEADER+1, S~, S+5, S+6, S+8, TOBACCO3+3*, TOBACCO3+4, TOBACCO3+5*, TOBACCO3+6 , TOBACCO3+7, TOBACCO3+8 |