APCHPWH4 ; IHS/CMI/LAB - PCC HEALTH SUMMARY - MAIN DRIVER PART 2 ;
Source file <APCHPWH4.m>
| Package | Total | Call Graph | 
|---|---|---|
| Patient Care Component | 4 | S^APCHPWH1 $$DMDX^APCHPWH2 SUBHEAD^APCHPWHU ($$CPTREFT,$$REFUSAL)^APCHSMU | 
| Patient Care Component Reports | 3 | $$LASTFLU^APCLAPI4 ($$LASTCPTT,$$LASTITEM)^APCLAPIU $$START1^APCLDF | 
| Kernel | 2 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR | 
| DRG Grouper | 1 | $$CPT^ICPTCOD | 
| IHS Patient | 1 | ($$AGE,$$DOB)^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Taxonomy | 1 | $$ICD^ATXAPI | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| HGBA1C(P,BDATE,EDATE,APCHRR) | ;EP - get result of HGBA1c in past year.  If no result pass null | |
| DGC | ;EP - diabetes and glycemic control | |
| EO | ;EP - EO measures | |
| DLDL | ;EP - LDL | |
| PNEUOX(P,BDATE,EDATE,APCHR) | ;EP | |
| LDL(P,BDATE,EDATE,NORES) | ;EP | |
| FLU | ;EP - FLU | |
| LOINC(A,B) | ;EP | |
| OXSAT(V) | ;was there ox sat at the visit | |
| DBP | ;EP | |
| O2 | ;EP - OXYGEN ASSESSMENT | 
| Name | Field # of Occurrence | 
|---|---|
| S^APCHPWH1 | EO+6, EO+7, EO+8, EO+9, EO+10, DGC+3, DGC+5, DGC+6, DGC+10, DGC+11 , DGC+14, DGC+15, DGC+16, DGC+17, DGC+18, DLDL+3, DLDL+5, DLDL+6, DLDL+10, DLDL+11 , DLDL+13, DLDL+14, DLDL+15, DBP+3, DBP+5, DBP+6, DBP+10, DBP+11, DBP+13, DBP+14 , DBP+15, DBP+16, FLU+2, FLU+4, FLU+5, FLU+9, FLU+10, FLU+12, FLU+13, O2+3 , O2+4, O2+8, O2+9, O2+10, O2+14, O2+15, O2+16 | 
| $$DMDX^APCHPWH2 | DGC+4, DLDL+4, DBP+4 | 
| SUBHEAD^APCHPWHU | EO+5 | 
| $$CPTREFT^APCHSMU | OXSAT+52 | 
| $$REFUSAL^APCHSMU | OXSAT+44, OXSAT+49 | 
| $$LASTFLU^APCLAPI4 | FLU+7 | 
| $$LASTCPTT^APCLAPIU | HGBA1C+7 | 
| $$LASTITEM^APCLAPIU | DBP+8 | 
| $$START1^APCLDF | PNEUOX+4 | 
| $$ICD^ATXAPI | OXSAT+13, OXSAT+27 | 
| $$AGE^AUPNPAT | DGC+2, DLDL+2, DBP+1, FLU+3, O2+2, O2+7 | 
| $$DOB^AUPNPAT | HGBA1C+3 | 
| $$CPT^ICPTCOD | OXSAT+18, OXSAT+28 | 
| $$VAL^XBDIQ1 | HGBA1C+17, HGBA1C+21, OXSAT+6, OXSAT+14, OXSAT+15, OXSAT+36, OXSAT+40 | 
| $$FMADD^XLFDT | DGC+8, DLDL+8, DBP+8, FLU+7, O2+5 | 
| $$FMDIFF^XLFDT | PNEUOX+26 | 
| $$FMTE^XLFDT | HGBA1C+35, HGBA1C+36, HGBA1C+37, HGBA1C+38, HGBA1C+40, DLDL+13, DBP+13, FLU+12, O2+13, PNEUOX+4 , PNEUOX+18, OXSAT+6, OXSAT+18, OXSAT+28, OXSAT+36, OXSAT+40, OXSAT+45, OXSAT+50, OXSAT+53, OXSAT+54 | 
| $$UP^XLFSTR | HGBA1C+16, LDL+15 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^APCHPWHE - [#9001025.05] | EO+16, EO+17 | 
| ^APCHPWHT - [#9001026] | EO+3, EO+13, EO+14 | 
| ^ATXAX - [#9002226] | LOINC+3, LOINC+5 | 
| ^ATXAX("B" | HGBA1C+9, LDL+6, OXSAT+9, OXSAT+22, OXSAT+32, OXSAT+52 | 
| ^ATXLAB - [#9002228] | HGBA1C+17, LDL+16, OXSAT+36, OXSAT+48 | 
| ^ATXLAB("B" | HGBA1C+10, LDL+7, OXSAT+33, OXSAT+47 | 
| ^AUPNVCPT - [#9000010.18] | OXSAT+11, OXSAT+12 | 
| ^AUPNVCPT("AD" | OXSAT+10 | 
| ^AUPNVLAB - [#9000010.09] | HGBA1C+14, HGBA1C+15, HGBA1C+16, HGBA1C+17, HGBA1C+19, HGBA1C+21, LDL+11, LDL+12, LDL+13, LDL+16 , LDL+18, LDL+20, LDL+21, OXSAT+35, OXSAT+36, OXSAT+38 | 
| ^AUPNVLAB("AD" | OXSAT+34 | 
| ^AUPNVLAB("AE" | HGBA1C+11, HGBA1C+12, HGBA1C+13, LDL+8, LDL+9, LDL+10 | 
| ^AUPNVMSR - [#9000010.01] | OXSAT+6 | 
| ^AUPNVMSR("AD" | OXSAT+6 | 
| ^AUPNVSIT - [#9000010] | PNEUOX+9, PNEUOX+10, PNEUOX+11, PNEUOX+14, OXSAT+4 | 
| ^AUPNVTC - [#9000010.33] | OXSAT+24, OXSAT+25 | 
| ^AUPNVTC("AD" | OXSAT+23 | 
| ^AUTTMSR("B" | OXSAT+44 | 
| ^ICPT - [#81] | OXSAT+16, OXSAT+17 | 
| ^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 | 
| Name | Line Occurrences | 
|---|---|
| $$HGBA1C | DGC+8 | 
| $$LDL | DLDL+8 | 
| $$LOINC | HGBA1C+20, LDL+19, OXSAT+39 | 
| $$OXSAT | PNEUOX+19 | 
| PNEUOX | O2+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | HGBA1C+5~, LDL+1~, LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5 | 
| A | LOINC~, LOINC+2, LOINC+4, PNEUOX+1~, PNEUOX+7*, PNEUOX+8, PNEUOX+9, PNEUOX+10, PNEUOX+11, PNEUOX+14* | 
| APCHC | HGBA1C+5~, HGBA1C+6*, HGBA1C+7*, HGBA1C+17*, HGBA1C+21*, HGBA1C+25*, HGBA1C+26*, HGBA1C+27, LDL+1~, LDL+2! , LDL+3*, LDL+16*, LDL+21*, PNEUOX+1~, PNEUOX+16*, PNEUOX+18*, PNEUOX+20, PNEUOX+21, PNEUOX+27 | 
| APCHD | PNEUOX+1~, PNEUOX+16*, PNEUOX+17, PNEUOX+18, PNEUOX+21, PNEUOX+24, PNEUOX+25, PNEUOX+26, OXSAT+2~, OXSAT+4* , OXSAT+6, OXSAT+18, OXSAT+28, OXSAT+36, OXSAT+40, OXSAT+44, OXSAT+45, OXSAT+49, OXSAT+50, OXSAT+52 , OXSAT+53, OXSAT+54 | 
| APCHG | HGBA1C+5~, LDL+1~, LDL+2!, PNEUOX+1~, PNEUOX+2!, PNEUOX+12, OXSAT+2~, OXSAT+3*, OXSAT+6*, OXSAT+7 , OXSAT+10, OXSAT+18*, OXSAT+20, OXSAT+23, OXSAT+28*, OXSAT+30, OXSAT+34, OXSAT+36*, OXSAT+40*, OXSAT+41 , OXSAT+48, OXSAT+50*, OXSAT+51 | 
| APCHG( | PNEUOX+7, PNEUOX+8, PNEUOX+9!, PNEUOX+10!, PNEUOX+11!, PNEUOX+14 | 
| APCHG(1 | PNEUOX+5 | 
| APCHLT | HGBA1C+5~, HGBA1C+10*, HGBA1C+17, LDL+1~, LDL+7*, LDL+16, OXSAT+2~, OXSAT+33*, OXSAT+36 | 
| >> APCHPWHT | EO+3, EO+13, EO+14 | 
| APCHR | PNEUOX~, PNEUOX+2!, PNEUOX+3* | 
| APCHR( | PNEUOX+18*, PNEUOX+20*, PNEUOX+21* | 
| APCHR("DENOM" | PNEUOX+5*, PNEUOX+12*, PNEUOX+27* | 
| APCHR(0 | PNEUOX+3*, PNEUOX+22* | 
| APCHRR | HGBA1C~, HGBA1C+2*, HGBA1C+7, HGBA1C+15, HGBA1C+16, HGBA1C+32 | 
| >> APCHSDFN | DGC+2, DGC+4, DGC+8, DLDL+2, DLDL+4, DLDL+8, DBP+1, DBP+4, DBP+8, FLU+3 , FLU+7, O2+2, O2+5, O2+7 | 
| >> APCHSORD | EO+3, EO+13, EO+14 | 
| APCHSTCE | EO+4~, EO+17*, EO+18, EO+19 | 
| APCHSTM | EO+4~, EO+14*, EO+15, EO+16, EO+17 | 
| APCHSTO | EO+4~, EO+13*, EO+14 | 
| APCHT | HGBA1C+5~, HGBA1C+23, LDL+1~, LDL+2! | 
| APCHT( | HGBA1C+7*, HGBA1C+17*, HGBA1C+21*, HGBA1C+25, HGBA1C+26, HGBA1C+27!, HGBA1C+29, HGBA1C+30, HGBA1C+31, HGBA1C+35 , HGBA1C+36, HGBA1C+37, HGBA1C+38, LDL+16*, LDL+21*, LDL+24, LDL+25, LDL+26, LDL+27 | 
| APCHV | PNEUOX+1~, PNEUOX+17*, PNEUOX+18, PNEUOX+19, PNEUOX+24, PNEUOX+25 | 
| APCHX | DGC+1~, DGC+8*, DGC+9!, DGC+13, DGC+14, DGC+16, DLDL+1~, DLDL+8*, DLDL+9!, DLDL+13 , DBP+2~, DBP+8*, DBP+9!, DBP+13, FLU+1~, FLU+7*, FLU+8!, FLU+12, O2+1~, O2+5 , PNEUOX+1~ | 
| APCHX( | O2+12, O2+13, O2+16, PNEUOX+14*, PNEUOX+16, PNEUOX+17, PNEUOX+18, PNEUOX+24!, PNEUOX+25, PNEUOX+26! | 
| APCHX("DENOM" | O2+7 | 
| B | HGBA1C+11*, LDL+1~, LDL+8*, LOINC~, LOINC+3, LOINC+5, PNEUOX+1~ | 
| BDATE | HGBA1C~, HGBA1C+3*, HGBA1C+7, HGBA1C+11, LDL~, LDL+8, PNEUOX~, PNEUOX+4 | 
| C | HGBA1C+5~, HGBA1C+25*, HGBA1C+26, HGBA1C+27, HGBA1C+30*, HGBA1C+31, HGBA1C+35, HGBA1C+36, HGBA1C+37, HGBA1C+38 , LDL+1~, LDL+25*, LDL+26, LDL+27, PNEUOX+1~, OXSAT+2~, OXSAT+12*, OXSAT+13, OXSAT+16, OXSAT+17 , OXSAT+18, OXSAT+25*, OXSAT+26, OXSAT+27, OXSAT+28 | 
| D | HGBA1C+5~, HGBA1C+11*, HGBA1C+12, HGBA1C+13, HGBA1C+17, HGBA1C+21, HGBA1C+25*, HGBA1C+26, HGBA1C+27, HGBA1C+28* , HGBA1C+29*, HGBA1C+30, HGBA1C+31, HGBA1C+35, HGBA1C+36, HGBA1C+37, HGBA1C+38, HGBA1C+40, LDL+1~, LDL+8* , LDL+9, LDL+10, LDL+16, LDL+21, LDL+24*, LDL+25, LDL+26, LDL+27, PNEUOX+1~, PNEUOX+14* , PNEUOX+25*, PNEUOX+26, OXSAT+2~ | 
| DT | DGC+2, DGC+8, HGBA1C+4, DLDL+2, DLDL+8, DBP+1, DBP+8, FLU+3, FLU+7, O2+2 , O2+5, O2+7 | 
| E | HGBA1C+5~, HGBA1C+11*, LDL+1~, LDL+8*, PNEUOX+1~, PNEUOX+4*, OXSAT+2~ | 
| EDATE | HGBA1C~, HGBA1C+4*, HGBA1C+7, HGBA1C+11, LDL~, LDL+8, PNEUOX~, PNEUOX+4 | 
| F | PNEUOX+1~ | 
| G | HGBA1C+5~, HGBA1C+7*, HGBA1C+25*, HGBA1C+28*, HGBA1C+33, HGBA1C+34*, HGBA1C+35*, HGBA1C+36*, HGBA1C+37*, HGBA1C+38* , LDL+1~, LDL+24*, LDL+25, LDL+27*, LDL+29, PNEUOX+1~, PNEUOX+19*, PNEUOX+20, PNEUOX+22, OXSAT+44* , OXSAT+45, OXSAT+49*, OXSAT+50, OXSAT+52*, OXSAT+53 | 
| J | HGBA1C+5~, HGBA1C+19*, HGBA1C+20, LDL+18*, LDL+19, OXSAT+2~, OXSAT+38*, OXSAT+39 | 
| L | HGBA1C+5~, HGBA1C+12*, HGBA1C+13, LDL+1~, LDL+9*, LDL+10, OXSAT+2~, OXSAT+48*, OXSAT+49 | 
| M | OXSAT+2~, OXSAT+14*, OXSAT+16, OXSAT+17 | 
| M1 | OXSAT+2~, OXSAT+15*, OXSAT+17 | 
| N | OXSAT+2~ | 
| NORES | LDL~, LDL+4*, LDL+12, LDL+14, LDL+15 | 
| P | HGBA1C~, HGBA1C+3, HGBA1C+7, HGBA1C+11, HGBA1C+12, HGBA1C+13, LDL~, LDL+8, LDL+9, LDL+10 , PNEUOX~, PNEUOX+4, OXSAT+44, OXSAT+49, OXSAT+52 | 
| R | LDL+1~, LDL+13*, LDL+14, LDL+20*, LDL+21 | 
| T | HGBA1C+5~, HGBA1C+9*, HGBA1C+18, HGBA1C+20, LDL+1~, LDL+6*, LDL+17, LDL+19, OXSAT+2~, OXSAT+9* , OXSAT+13, OXSAT+22*, OXSAT+27, OXSAT+32*, OXSAT+37, OXSAT+39, OXSAT+47*, OXSAT+48 | 
| U | EO+14, DGC+13, DGC+14, DGC+16, HGBA1C+7, HGBA1C+15, HGBA1C+16, HGBA1C+17, HGBA1C+19, HGBA1C+21 , HGBA1C+26, HGBA1C+27, HGBA1C+31, HGBA1C+35, HGBA1C+36, HGBA1C+37, HGBA1C+38, HGBA1C+40, DLDL+13, LDL+12 , LDL+13, LDL+16, LDL+18, LDL+20, LDL+21, LDL+26, LDL+27, LOINC+2, LOINC+4, DBP+13 , FLU+12, O2+13, O2+16, PNEUOX+8, PNEUOX+10, PNEUOX+11, PNEUOX+14, PNEUOX+18, PNEUOX+20, PNEUOX+21 , PNEUOX+22, OXSAT+4, OXSAT+6, OXSAT+12, OXSAT+16, OXSAT+17, OXSAT+18, OXSAT+25, OXSAT+28, OXSAT+36 , OXSAT+38 | 
| V | PNEUOX+8*, PNEUOX+9, PNEUOX+10, PNEUOX+11, PNEUOX+14*, PNEUOX+24*, PNEUOX+25*, PNEUOX+26*, OXSAT~, OXSAT+4 , OXSAT+6, OXSAT+10, OXSAT+23, OXSAT+34 | 
| X | HGBA1C+5~, HGBA1C+13*, HGBA1C+14, HGBA1C+15, HGBA1C+16, HGBA1C+17, HGBA1C+19, HGBA1C+21, HGBA1C+31*, HGBA1C+32 , HGBA1C+33, HGBA1C+40, LDL+1~, LDL+10*, LDL+11, LDL+12, LDL+13, LDL+15, LDL+16, LDL+18 , LDL+20, LDL+21, LDL+26*, LDL+27, O2+1~, O2+12*, O2+13, O2+16, PNEUOX+4*, OXSAT+2~ , OXSAT+6*, OXSAT+10*, OXSAT+11, OXSAT+12, OXSAT+14, OXSAT+15, OXSAT+23*, OXSAT+24, OXSAT+25, OXSAT+34* , OXSAT+35, OXSAT+36, OXSAT+38, OXSAT+40 | 
| Y | O2+1~, O2+13*, O2+14, OXSAT+2~ |