APCHPWH9 ; IHS/CMI/LAB - PCC HEALTH SUMMARY - MAIN DRIVER PART 2 ;
Source file <APCHPWH9.m>
| Package | Total | Call Graph | 
|---|---|---|
| Patient Care Component | 6 | S^APCHPWH1 ($$DMDX,$$LASTBP)^APCHPWH2 (SUBHEAD,WRITET)^APCHPWHU $$MRGOAL^APCHSACG GETMEDS^APCHSMU1 $$ACTWARF^APCHSTP1 | 
| Patient Care Component Reports | 6 | $$LASTVAE^APCLAPI1 $$LASTDENT^APCLAPI2 ($$LASTLAB,ALLLAB)^APCLAPIU $$START1^APCLDF $$BMI^APCLSIL2 $$AGE^APCLSILU | 
| VA Fileman | 2 | $$GET1^DIQ ^DIWP | 
| DRG Grouper | 1 | $$ICDDX^ICDEX | 
| IHS Patient | 1 | ($$AGE,$$DOB)^AUPNPAT | 
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 | 
| Kernel | 1 | ($$FMADD,$$FMTE,$$NOW)^XLFDT | 
| Package | Total | Caller Graph | 
|---|---|---|
| Patient Care Component | 2 | APCHPWH2 APCHPWH8 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FAMHX | ;EP | |
| RECENTBP | ;EP | |
| ANTICOAG | ;EP | |
| PRV(CLINIC) | ;EP; -- returns default provider for clinic ; Y returns as ien^provider name | |
| APPTS | ;EP | |
| PROBLIST | ;EP | |
| DENTAL | ; | |
| APPTS1 | ; | |
| LASTGLUC(P,BD,ED,FORM) | ;PEP - date of last GLUCOSE SCREENING ; Return the last recorded GLUCOSE SCREENING: ; - V Lab: DM AUDIT GLUCOSE TESTS TAX, APCH SCREENING GLUCOSE LOINC | |
| GETPROB | ; | |
| DMPV(P) | ;EP - how many dm povs? | |
| ONEVIS | ||
| ADOLBP | ;EP - BP component | |
| FAMHX1 | ||
| GETFHX | ; | |
| DIABSCRN | ;EP | |
| PEDSCRN | ;EP | |
| OW(P,BMI,A) | ;EP obese or overweight, really just overweight | 
| Name | Field # of Occurrence | 
|---|---|
| S^APCHPWH1 | ADOLBP+4, ADOLBP+5, ADOLBP+10, ADOLBP+11, ADOLBP+13, ADOLBP+14, RECENTBP+4, RECENTBP+5, RECENTBP+8, RECENTBP+9 , RECENTBP+14, DIABSCRN+9, DIABSCRN+10, DIABSCRN+17, DIABSCRN+22, PROBLIST+7, PROBLIST+8, PROBLIST+9, PROBLIST+10, PROBLIST+20 , PROBLIST+21, PROBLIST+29, FAMHX+7, FAMHX+8, FAMHX+9, FAMHX+10, FAMHX+11, FAMHX1+1, FAMHX1+2, FAMHX1+3 , FAMHX1+4, FAMHX1+5, APPTS+16, APPTS+17, APPTS+19, APPTS+20, APPTS1+7, APPTS1+11, APPTS1+14, PEDSCRN+5 , PEDSCRN+6, PEDSCRN+13, PEDSCRN+14, PEDSCRN+16, DENTAL+6, DENTAL+7, DENTAL+9, ANTICOAG+4, ANTICOAG+5, ANTICOAG+6 , ANTICOAG+9, ANTICOAG+10, ANTICOAG+14, ANTICOAG+22, ANTICOAG+23, ANTICOAG+27, ANTICOAG+34, ANTICOAG+35, ANTICOAG+38, ANTICOAG+39 , ONEVIS+13, ONEVIS+14 | 
| $$DMDX^APCHPWH2 | DIABSCRN+4 | 
| $$LASTBP^APCHPWH2 | ADOLBP+6 | 
| SUBHEAD^APCHPWHU | ADOLBP+1, RECENTBP+2, DIABSCRN+8, PROBLIST+5, FAMHX+5, APPTS+11, PEDSCRN+4, ANTICOAG+3 | 
| WRITET^APCHPWHU | DIABSCRN+14, DIABSCRN+16, DIABSCRN+19, DIABSCRN+21 | 
| $$MRGOAL^APCHSACG | ANTICOAG+7 | 
| GETMEDS^APCHSMU1 | ANTICOAG+29 | 
| $$ACTWARF^APCHSTP1 | ANTICOAG+2 | 
| $$LASTVAE^APCLAPI1 | PEDSCRN+11 | 
| $$LASTDENT^APCLAPI2 | DENTAL+4 | 
| $$LASTLAB^APCLAPIU | LASTGLUC+8 | 
| ALLLAB^APCLAPIU | ANTICOAG+17 | 
| $$START1^APCLDF | RECENTBP+7, DMPV+2 | 
| $$BMI^APCLSIL2 | DIABSCRN+5 | 
| $$AGE^APCLSILU | PEDSCRN+8 | 
| $$AGE^AUPNPAT | ADOLBP+3, RECENTBP+1, DIABSCRN+2, APPTS+14, PEDSCRN+2 | 
| $$DOB^AUPNPAT | RECENTBP+7, LASTGLUC+4 | 
| $$GET1^DIQ | PRV+6 | 
| ^DIWP | PROBLIST+19, PROBLIST+28, FAMHX1, ANTICOAG+37 | 
| $$ICDDX^ICDEX | PROBLIST+15, FAMHX+16 | 
| $$VAL^XBDIQ1 | PROBLIST+18, PROBLIST+19, GETPROB+6, GETPROB+7, FAMHX+21, FAMHX+24, FAMHX+25, APPTS+17, APPTS+20, ANTICOAG+37 | 
| $$VALI^XBDIQ1 | PROBLIST+14, FAMHX+15, FAMHX+22 | 
| $$FMADD^XLFDT | DIABSCRN+11, PEDSCRN+11, ANTICOAG+2, ANTICOAG+17, ANTICOAG+29 | 
| $$FMTE^XLFDT | ADOLBP+13, ADOLBP+14, RECENTBP+12, DIABSCRN+17, DIABSCRN+22, APPTS1+10, PEDSCRN+16, DENTAL+9, ANTICOAG+14, ANTICOAG+27 , ANTICOAG+35, ONEVIS+11 | 
| $$NOW^XLFDT | ANTICOAG+45 | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^APCCCTRL - [#9001000] | APPTS1+9 | 
| ^APCLBMI - [#9001003.9] | OW+9, OW+10 | 
| ^APCLBMI("H" | OW+6, OW+7 | 
| ^ATXAX("B" | LASTGLUC+8, ANTICOAG+17 | 
| ^ATXLAB("B" | LASTGLUC+8, ANTICOAG+17 | 
| ^AUPNFH - [#9000014] | FAMHX+21, GETFHX+3 | 
| ^AUPNFH("AC" | GETFHX+2 | 
| ^AUPNPROB - [#9000011] | PROBLIST+23, PROBLIST+24, PROBLIST+25, GETPROB+3, GETPROB+4, GETPROB+5 | 
| ^AUPNPROB("AC" | GETPROB+2 | 
| ^BSDSC - [#9009017.2] | APPTS+8 | 
| ^DIC(4 - [#4] | APPTS1+9 | 
| ^DIC(40.7 - [#40.7] | ONEVIS+7 | 
| ^DPT - [#2] | OW+3, APPTS+3, APPTS+4, APPTS1+1, ANTICOAG+45, ONEVIS | 
| ^SC - [#44] | APPTS1+5, APPTS1+8, PRV+4, PRV+5, ONEVIS+5 | 
| ^UTILITY($J | PROBLIST+19!, PROBLIST+20, PROBLIST+21, PROBLIST+22!, PROBLIST+28!, PROBLIST+29, PROBLIST+30!, FAMHX1!, FAMHX1+1, FAMHX1+2 , ANTICOAG+37!, ANTICOAG+38, ANTICOAG+39, ANTICOAG+40! | 
| Name | Line Occurrences | 
|---|---|
| $$DMPV | DENTAL+2 | 
| $$LASTGLUC | DIABSCRN+11 | 
| $$OW | DIABSCRN+7 | 
| $$PRV | APPTS1+13 | 
| APPTS1 | APPTS+21 | 
| DENTAL | PEDSCRN+9 | 
| FAMHX1 | FAMHX+23 | 
| GETFHX | FAMHX+3 | 
| GETPROB | PROBLIST+3 | 
| ONEVIS | ANTICOAG+45 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | OW~, OW+6, OW+7 | 
| APCHAGE | ADOLBP+2~, ADOLBP+3*, ADOLBP+10, ADOLBP+13, RECENTBP+1*, RECENTBP+4, RECENTBP+8, DIABSCRN+1~, DIABSCRN+2*, DIABSCRN+3 , DIABSCRN+7, DIABSCRN+12, APPTS+1~, APPTS+14*, APPTS+15, APPTS+18, PEDSCRN+1~, PEDSCRN+2*, PEDSCRN+3, DENTAL+3 | 
| APCHAM | PEDSCRN+1~ | 
| APCHAPPT | APPTS+1~, APPTS+10 | 
| APCHAPPT( | APPTS+9*, APPTS+21 | 
| APCHBMI | DIABSCRN+1~, DIABSCRN+5*, DIABSCRN+6, DIABSCRN+7 | 
| APCHBP | ADOLBP+2~, ADOLBP+6*, ADOLBP+7, ADOLBP+8, ADOLBP+9, ADOLBP+12, ADOLBP+13, ADOLBP+14 | 
| APCHC | PROBLIST+1~, PROBLIST+23*, PROBLIST+27*, PROBLIST+29, FAMHX+1~ | 
| APCHCKD | ADOLBP+2~ | 
| APCHCLN | APPTS+1~ | 
| APCHD | PROBLIST+1~, PROBLIST+18*, PROBLIST+20, FAMHX+1~, FAMHX+21*, FAMHX1+1, ANTICOAG+1~, ANTICOAG+19!, ANTICOAG+21 | 
| APCHD( | ANTICOAG+25, ANTICOAG+26, ANTICOAG+27 | 
| APCHD(9999999 | ANTICOAG+20* | 
| APCHDM | ADOLBP+2~ | 
| APCHDMPV | PEDSCRN+1~, DENTAL+2*, DENTAL+3 | 
| APCHDT | ADOLBP+2~, ADOLBP+8* | 
| APCHF | LASTGLUC+7~ | 
| APCHGLUC | DIABSCRN+1~, DIABSCRN+11*, DIABSCRN+13, DIABSCRN+15, DIABSCRN+17, DIABSCRN+18, DIABSCRN+20, DIABSCRN+22 | 
| APCHGOAL | ANTICOAG+1~, ANTICOAG+7*, ANTICOAG+8, ANTICOAG+11, ANTICOAG+12, ANTICOAG+14 | 
| APCHHT | RECENTBP+3~ | 
| APCHI | PROBLIST+1~, PROBLIST+17*, PROBLIST+20, FAMHX+1~, FAMHX+18*, FAMHX+19, FAMHX+20 | 
| APCHLDE | PEDSCRN+1~, DENTAL+4*, DENTAL+5, DENTAL+8, DENTAL+9 | 
| APCHLVAE | PEDSCRN+1~, PEDSCRN+11*, PEDSCRN+12, PEDSCRN+15, PEDSCRN+16 | 
| APCHMEDD | ANTICOAG+42! | 
| APCHMEDD( | ANTICOAG+32, ANTICOAG+33 | 
| APCHMEDD(0 | ANTICOAG+32 | 
| APCHMEDD(9999999 | ANTICOAG+31* | 
| APCHMEDS | ANTICOAG+28!, ANTICOAG+29, ANTICOAG+42! | 
| APCHMEDS( | ANTICOAG+31 | 
| APCHN | PROBLIST+1~, PROBLIST+13*, PROBLIST+14, PROBLIST+18, PROBLIST+19, PROBLIST+23, PROBLIST+24, PROBLIST+25, FAMHX+1~, FAMHX+14* , FAMHX+15, FAMHX+21, FAMHX+22 | 
| APCHPROB | PROBLIST+1~, PROBLIST+2!, PROBLIST+4, FAMHX+1~, FAMHX+2! | 
| APCHPROB( | PROBLIST+13, GETPROB+8*, FAMHX+14, GETFHX+4* | 
| APCHR | FAMHX+1~, FAMHX+22*, FAMHX+23, FAMHX+24, FAMHX+25 | 
| >> APCHRD | FAMHX+23*, FAMHX+24*, FAMHX1+1 | 
| APCHS | PROBLIST+1~, PROBLIST+24*, PROBLIST+25, FAMHX+1~, FAMHX+23*, FAMHX+25*, FAMHX1+1 | 
| APCHSAM | APPTS+1~, APPTS1+2*, APPTS1+3*, APPTS1+4, PEDSCRN+8*, PEDSCRN+9, ONEVIS+10*, ONEVIS+12*, ONEVIS+14 | 
| >> APCHSCN | APPTS1+5*, APPTS1+10 | 
| >> APCHSCP | APPTS1+5*, APPTS1+8, APPTS1+13 | 
| APCHSD1 | ANTICOAG+43~, ANTICOAG+44*, ANTICOAG+45, ONEVIS+9* | 
| APCHSDAT | APPTS+1~, APPTS+3*, ANTICOAG+43~, ANTICOAG+45*, ONEVIS+11*, ONEVIS+14 | 
| >> APCHSDFN | ADOLBP+3, ADOLBP+6, RECENTBP+1, RECENTBP+7, DIABSCRN+2, DIABSCRN+4, DIABSCRN+5, DIABSCRN+7, DIABSCRN+11, GETPROB+2 , GETFHX+2, APPTS+3, APPTS+4, APPTS+14, APPTS1+1, PEDSCRN+2, PEDSCRN+8, PEDSCRN+11, DENTAL+2, DENTAL+4 , ANTICOAG+2, ANTICOAG+7, ANTICOAG+17, ANTICOAG+45, ONEVIS | 
| APCHSN | APPTS+1~, APPTS+4*, APPTS+5, APPTS+6, APPTS+7, APPTS1+1*, APPTS1+5, ANTICOAG+43~, ONEVIS*, ONEVIS+1 , ONEVIS+2, ONEVIS+3 | 
| APCHST | ADOLBP+2~, ADOLBP+7* | 
| APCHSVDT | APPTS+1~, APPTS+3*, APPTS+4, APPTS+9, APPTS+21*, APPTS1+1, APPTS1+3, APPTS1+10, ANTICOAG+43~, ANTICOAG+45* , ONEVIS, ONEVIS+11, ONEVIS+12 | 
| APCHSVT | APPTS+1~, APPTS1+3*, APPTS1+4*, APPTS1+10, ONEVIS+12*, ONEVIS+14 | 
| APCHT | PROBLIST+1~, PROBLIST+16*, FAMHX+1~, FAMHX+17*, FAMHX1 | 
| APCHV | ANTICOAG+1~, ANTICOAG+15!, ANTICOAG+16*, ANTICOAG+17 | 
| APCHV( | ANTICOAG+20 | 
| APCHVAL | LASTGLUC+7~, LASTGLUC+8*, LASTGLUC+9, LASTGLUC+10 | 
| APCHWT | RECENTBP+3~, RECENTBP+6!, RECENTBP+8 | 
| APCHWT( | RECENTBP+10, RECENTBP+12, RECENTBP+13 | 
| APCHX | LASTGLUC+7~, PROBLIST+1~, FAMHX+1~, APPTS+1~, DMPV+1~ | 
| APCHX(2 | DMPV+3 | 
| APCHY | LASTGLUC+7~, PROBLIST+1~, PROBLIST+14*, PROBLIST+15*, PROBLIST+16, PROBLIST+17, FAMHX+1~, FAMHX+15*, FAMHX+16*, FAMHX+17 , FAMHX+18 | 
| APCHZ | PROBLIST+1~, PROBLIST+23*, PROBLIST+24, PROBLIST+25, FAMHX+1~ | 
| BD | LASTGLUC~, LASTGLUC+4*, LASTGLUC+8 | 
| BMI | OW~, OW+2, OW+9, OW+10 | 
| >> C | ANTICOAG+25*, ANTICOAG+26, ANTICOAG+27*, ONEVIS+3*, ONEVIS+4, ONEVIS+5*, ONEVIS+6, ONEVIS+7*, ONEVIS+8 | 
| CLINIC | PRV~, PRV+4, PRV+5 | 
| >> DFN | ANTICOAG+29 | 
| DIWF | PROBLIST+19*, PROBLIST+22! | 
| DIWL | PROBLIST+19*, PROBLIST+22!, PROBLIST+28*, FAMHX1*, ANTICOAG+37* | 
| DIWR | PROBLIST+19*, PROBLIST+22!, PROBLIST+28*, FAMHX1*, ANTICOAG+37* | 
| DT | ADOLBP+3, RECENTBP+1, RECENTBP+7, DIABSCRN+2, DIABSCRN+5, DIABSCRN+11, LASTGLUC+5, APPTS+3, APPTS+14, PEDSCRN+2 , PEDSCRN+8, PEDSCRN+11, ANTICOAG+2, ANTICOAG+17, ANTICOAG+29 | 
| DUZ(2 | APPTS+17, APPTS+20 | 
| E | RECENTBP+3~, RECENTBP+7*, RECENTBP+9*, RECENTBP+11*, RECENTBP+12*, RECENTBP+13*, RECENTBP+14, LASTGLUC+7~, DMPV+1~, DMPV+2* | 
| ED | LASTGLUC~, LASTGLUC+5*, LASTGLUC+8 | 
| F | PROBLIST+21*, PROBLIST+29*, FAMHX1+2*, APPTS+1~, APPTS1+8*, APPTS1+9*, APPTS1+10, ANTICOAG+39* | 
| FORM | LASTGLUC~, LASTGLUC+6*, LASTGLUC+9 | 
| G | LASTGLUC+7~, ANTICOAG+1~, ANTICOAG+12*, ANTICOAG+13*, ANTICOAG+14, ANTICOAG+20*, ANTICOAG+25*, ANTICOAG+26, ANTICOAG+27, ANTICOAG+32* , ANTICOAG+33*, ANTICOAG+35, ANTICOAG+37 | 
| >> H | ANTICOAG+32*, ANTICOAG+33 | 
| >> N | APPTS+7*, APPTS+8 | 
| P | OW~, OW+3, LASTGLUC~, LASTGLUC+3, LASTGLUC+4, LASTGLUC+8, APPTS1+13*, APPTS1+14, DMPV~, DMPV+2 | 
| R | OW+1~, OW+6*, OW+7*, OW+8, OW+9, OW+10, LASTGLUC+7~ | 
| S | OW+1~, OW+3*, OW+4, OW+5, OW+6, OW+7, PROBLIST+1~, FAMHX+1~ | 
| T | LASTGLUC+7~ | 
| U | ADOLBP+7, ADOLBP+8, ADOLBP+13, ADOLBP+14, RECENTBP+12, RECENTBP+13, DIABSCRN+5, DIABSCRN+17, DIABSCRN+22, OW+3 , OW+9, OW+10, LASTGLUC+9, PROBLIST+16, PROBLIST+17, PROBLIST+25, GETPROB+4, GETPROB+5, FAMHX+17, FAMHX+18 , FAMHX+21, APPTS+5, APPTS+6, APPTS+7, APPTS+8, APPTS1+5, APPTS1+8, APPTS1+9, APPTS1+14, PRV+5 , PRV+6, PEDSCRN+16, DENTAL+9, ANTICOAG+12, ANTICOAG+14, ANTICOAG+20, ANTICOAG+27, ANTICOAG+31, ANTICOAG+35, ANTICOAG+37 , ONEVIS+1, ONEVIS+2, ONEVIS+3, ONEVIS+5, ONEVIS+7 | 
| V | LASTGLUC+7~ | 
| X | RECENTBP+3~, RECENTBP+7*, RECENTBP+10*, RECENTBP+12, RECENTBP+13, LASTGLUC+7~, PROBLIST+1~, PROBLIST+19*, PROBLIST+20*, PROBLIST+21* , PROBLIST+25*, PROBLIST+26, PROBLIST+29*, GETPROB+1~, GETPROB+2*, GETPROB+3, GETPROB+4, GETPROB+5, GETPROB+6, GETPROB+7 , GETPROB+8, FAMHX+1~, FAMHX1*, FAMHX1+1*, FAMHX1+2*, GETFHX+1~, GETFHX+2*, GETFHX+3, GETFHX+4, APPTS+1~ , APPTS1+10*, APPTS1+11, PRV+2~, PRV+4*, PRV+5, DMPV+1~, DMPV+2*, ANTICOAG+26*, ANTICOAG+27, ANTICOAG+31* , ANTICOAG+37*, ANTICOAG+38*, ANTICOAG+39* | 
| Y | LASTGLUC+7~, GETPROB+1~, GETFHX+1~, APPTS+1~, PRV+2~, PRV+3*, PRV+5*, PRV+6*, PRV+8, ONEVIS+11* |