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* |