APCHPST1 ; IHS/CMI/LAB - Patient Health Summary - Post Visit ;
Source file <APCHPST1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$FMDIFF,$$FMTE)^XLFDT $$LOW^XLFSTR |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$PRIMPROV^APCLV |
| IHS Patient | 1 | ($$AGE,$$HRN,$$SEX)^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Immunization Tracking | 1 | IMMFORC^BIRPC |
| Patient Care Component | 1 | EP^APCHPST2 |
| Taxonomy | 1 | $$ICD^ATXAPI |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLABSX | ;get lab tests ordered today
|
|
| CKD | ;Does patient have chronic kidney disease (CKD)?
|
|
| IMMUN | ;
|
|
| APCHLHD | ;
|
|
| LOINC(A,B) | ;
|
|
| TYPEREF(N) | ;
|
|
| S1 | ;
|
|
| GETLABS | ;get todays labs from V Lab File
|
|
| MISC | ;
|
|
| S(Y,F,C,T) | ;set up array
|
|
| MEDS | ;
|
|
| CKDP | ;
|
|
| LAB(P,T,LT) | ;EP
|
|
| REF(P,T,D) | ;return refusal string after date D for test is tax T
|
|
| SETARRAY | ;set up array containing dm care summary
|
|
| LABTESTS | ;
|
|
| DMDX(P) | ;
|
|
| DMX | ;
|
|
| EP(APCHSDFN) | ;PEP - PASS DFN get back array of patient care summary
|
|
| DATE(D) | ;EP - convert to slashed date
|
|
| REF1(P,F,I,D,T) | ; ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | LABTESTS+7, LABTESTS+11, LABTESTS+18 |
| EP^APCHPST2 | MEDS+1 |
| $$START1^APCLDF | DMDX+8 |
| $$PRIMPROV^APCLV | SETARRAY+5 |
| $$ICD^ATXAPI | DMDX+4 |
| $$AGE^AUPNPAT | LABTESTS+16 |
| $$HRN^AUPNPAT | SETARRAY+4 |
| $$SEX^AUPNPAT | SETARRAY+9, CKD+4, CKD+5 |
| IMMFORC^BIRPC | IMMUN+3 |
| $$VAL^XBDIQ1 | SETARRAY+6, SETARRAY+7 |
| $$FMDIFF^XLFDT | LABTESTS+7, LABTESTS+11, LABTESTS+18 |
| $$FMTE^XLFDT | SETARRAY+3, SETARRAY+8, LAB+14 |
| $$LOW^XLFSTR | SETARRAY+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | SETARRAY+2 |
| ^APCCCTRL - [#9001000] | SETARRAY+4 |
| ^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
| ^ATXAX("B" | DMDX+2 |
| ^ATXLAB - [#9002228] | LAB+5, REF+4 |
| ^ATXLAB("B" | LABTESTS+5, LABTESTS+10, LABTESTS+16, CKD+3, CKD+7, CKD+10, CKD+13 |
| ^AUPNPREF - [#9000022] | TYPEREF+1 |
| ^AUPNPREF("AA" | REF1+6, REF1+8 |
| ^AUPNPROB - [#9000011] | DMDX+4 |
| ^AUPNPROB("AC" | DMDX+4 |
| ^AUPNVLAB - [#9000010.09] | LAB+5, LAB+7, LAB+14, GETLABS+6, GETLABS+8 |
| ^AUPNVLAB("AE" | LAB+2, LAB+3, LAB+4, GETLABS+2, GETLABS+3, GETLABS+5 |
| ^AUPNVSIT - [#9000010] | LAB+14 |
| ^AUPNVSIT("AC" | SETARRAY+5 |
| ^AUTTLOC - [#9999999.06] | SETARRAY+7 |
| ^DIC(4 - [#4] | SETARRAY+4 |
| ^DPT - [#2] | SETARRAY+4, SETARRAY+9, GETLABSX+2 |
| ^LAB(60 - [#60] | GETLABSX+7, GETLABS+4 |
| ^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 |
| ^LRO(69 - [#69] | GETLABSX+4, GETLABSX+5, GETLABSX+6 |
| ^TMP("APCHPHS" | EP+2!, EP+3*, S1+1*, S1+2* |
| Name | Line Occurrences |
|---|---|
| $$DATE | REF1+10, REF1+12 |
| $$DMDX | CKDP+6, LABTESTS+5, LABTESTS+16 |
| $$LAB | LABTESTS+5, LABTESTS+11, LABTESTS+16, CKD+3, CKD+7, CKD+10, CKD+13 |
| $$LOINC | LAB+8 |
| $$REF | LAB+13, LAB+14 |
| $$REF1 | REF+5 |
| $$TYPEREF | REF1+10, REF1+12 |
| APCHLHD | LABTESTS+6, LABTESTS+9, LABTESTS+13, LABTESTS+17, LABTESTS+18, LABTESTS+21 |
| CKD | CKDP+2 |
| DMX | DMDX+8 |
| GETLABS | LABTESTS+20 |
| S | SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, CKDP+8 , CKDP+10, CKDP+11, CKDP+12, CKDP+13, LABTESTS+6, LABTESTS+8, LABTESTS+9, LABTESTS+12, LABTESTS+13, LABTESTS+17 , LABTESTS+18, LABTESTS+22, LABTESTS+25, LABTESTS+27, IMMUN+1, IMMUN+4, IMMUN+9, IMMUN+11, IMMUN+13, MISC+1 , MISC+2, MISC+3, MISC+4, MISC+5, MISC+6, MISC+7, MISC+8, MISC+9, MISC+10, MISC+11 , MISC+12, MISC+13, MISC+14, MISC+15, MISC+16, MISC+17, APCHLHD+1, APCHLHD+2 |
| S1 | S+5, S+7, S+10 |
| SETARRAY | EP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | S+3~, S+8*, S+9*, S1+1*, S1+2, LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5 , REF+6*, TYPEREF+1~*, TYPEREF+2, TYPEREF+3, TYPEREF+4 |
| A | LOINC~, LOINC+2, LOINC+4 |
| >> APCDVSIT | SETARRAY+5 |
| >> APCHCKCH | LABTESTS+12*, LABTESTS+16 |
| >> APCHCKD | CKDP+7, CKD+1*, CKD+4*, CKD+5*, CKD+7, CKD+8*, CKD+10, CKD+11*, CKD+13, CKD+14* |
| >> APCHCTR | LABTESTS+26*, LABTESTS+27, GETLABS+6*, GETLABS+7, GETLABS+8 |
| >> APCHDBP | CKDP+4, CKDP+5, CKDP+6, CKDP+7 |
| >> APCHHBP | CKDP+3*, CKDP+5*, CKDP+6*, CKDP+7*, CKDP+8, CKDP+9 |
| >> APCHI | IMMUN+10 |
| >> APCHI( | IMMUN+7*, IMMUN+12, IMMUN+13 |
| >> APCHICTR | IMMUN+10*, IMMUN+12*, IMMUN+13 |
| >> APCHIMDU | IMMUN+13* |
| >> APCHIMM | IMMUN+3, IMMUN+4, IMMUN+5, IMMUN+9 |
| >> APCHIMMN | IMMUN+5*, IMMUN+7 |
| >> APCHIMMT | IMMUN+5*, IMMUN+6*, IMMUN+7 |
| >> APCHLA1D | LABTESTS+5*, LABTESTS+6, LABTESTS+7* |
| >> APCHLA1V | LABTESTS+5* |
| >> APCHLACD | CKD+10* |
| >> APCHLACV | CKD+10*, CKD+11 |
| >> APCHLCHD | LABTESTS+11*, LABTESTS+16*, LABTESTS+17, LABTESTS+18* |
| >> APCHLCHV | LABTESTS+11*, LABTESTS+16* |
| >> APCHLCRD | CKD+3* |
| >> APCHLCRV | CKD+3*, CKD+4, CKD+5 |
| >> APCHLEGD | CKD+13* |
| >> APCHLEGV | CKD+13*, CKD+14 |
| >> APCHLHD | LABTESTS+4*, LABTESTS+6*, LABTESTS+8, LABTESTS+9*, LABTESTS+12, LABTESTS+13*, LABTESTS+17*, LABTESTS+18*, LABTESTS+21* |
| >> APCHLR | GETLABSX+2*, GETLABSX+3, GETLABSX+4 |
| >> APCHLRO | GETLABSX+3*, GETLABSX+4*, GETLABSX+5, GETLABSX+6 |
| >> APCHLUPD | CKD+7* |
| >> APCHLUPV | CKD+7*, CKD+8 |
| >> APCHPROV | SETARRAY+5*, SETARRAY+6 |
| APCHREF | REF+4~, REF+6 |
| APCHREF( | REF+6 |
| APCHREF(9999999 | REF+5* |
| >> APCHSBP | CKDP+4, CKDP+5, CKDP+6, CKDP+7 |
| APCHSDFN | EP~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+9, CKDP+6, LABTESTS+5, LABTESTS+11, LABTESTS+16 , IMMUN+3, CKD+3, CKD+4, CKD+5, CKD+7, CKD+10, CKD+13, GETLABSX+2, GETLABS+2, GETLABS+3 , GETLABS+5 |
| >> APCHSIVD | GETLABS+1*, GETLABS+2, GETLABS+3, GETLABS+5 |
| >> APCHSLAB | LABTESTS+23*, LABTESTS+24*, LABTESTS+25, LABTESTS+26, LABTESTS+27 |
| APCHT | REF+4~*, REF+5 |
| >> APCHTCTR | GETLABSX+6* |
| >> APCHTEST | GETLABSX+7*, GETLABSX+8, GETLABS+4*, GETLABS+8 |
| >> APCHTST | LABTESTS+21, LABTESTS+22 |
| >> APCHTST( | LABTESTS+24, LABTESTS+26, LABTESTS+27, GETLABSX+8*, GETLABS+4*, GETLABS+8* |
| >> APCHTSTP | GETLABSX+3*, GETLABSX+5*, GETLABSX+6, GETLABSX+7, GETLABS+2*, GETLABS+3*, GETLABS+4, GETLABS+5 |
| >> APCHVLAB | GETLABS+2*, GETLABS+5*, GETLABS+6, GETLABS+8 |
| APCHX | DMDX+6~, DMDX+7*, DMDX+8*, DMDX+9*, DMX+1 |
| APCHX("BP" | CKDP+3 |
| APCHX(3 | DMDX+8 |
| B | LOINC~, LOINC+3, LOINC+5 |
| C | S~, S+7 |
| D | LAB+2~*, LAB+3, LAB+4, DATE~, DATE+1, DATE+2, REF~, REF+3*, REF+5, REF1~ , REF1+4*, REF1+10 |
| DT | SETARRAY+3, SETARRAY+8, LABTESTS+7, LABTESTS+11, LABTESTS+18, GETLABSX+4, GETLABSX+5, GETLABSX+6, GETLABS+1 |
| DUZ(2 | SETARRAY+4, SETARRAY+7 |
| >> E | DMDX+8* |
| F | S~, S+1*, S+5*, REF1~, REF1+2, REF1+6, REF1+8 |
| G | LAB+2~*, LAB+3, LAB+4, LAB+5*, LAB+9*, LAB+13, LAB+14 |
| I | DMDX+4~*, DMDX+5, REF1~, REF1+3, REF1+6, REF1+8 |
| J | LAB+2~, LAB+7*, LAB+8 |
| >> L | S+7* |
| LT | LAB~, LAB+1*, LAB+6, LAB+8 |
| N | REF1+6~, REF1+8*, REF1+10, REF1+12, TYPEREF~, TYPEREF+1 |
| P | DMDX~, DMDX+4, DMDX+8, LAB~, LAB+2, LAB+3, LAB+4, LAB+13, LAB+14, REF~ , REF+1, REF+5, REF1~, REF1+1, REF1+6, REF1+8 |
| >> R | LAB+13* |
| T | LABTESTS+5*, LABTESTS+10*, LABTESTS+11, LABTESTS+16*, CKD+3*, CKD+7*, CKD+10*, CKD+13*, S~, S+2* , S+7*, S+8, S+9, DMDX+2~*, DMDX+3, DMDX+4, LAB~, LAB+5, LAB+13, LAB+14 , REF~, REF+2, REF+4, REF1~, REF1+5*, REF1+10, REF1+11 |
| U | SETARRAY+4, SETARRAY+7, SETARRAY+9, LABTESTS+27, IMMUN+5, IMMUN+13, S1+1, DMDX+4, LAB+5, LAB+7 , LAB+14, LOINC+2, LOINC+4, REF+5, TYPEREF+1, GETLABSX+7, GETLABS+4, GETLABS+8 |
| V | LAB+2~, REF+4~, REF+5*, REF+6* |
| X | SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*, SETARRAY+10*, SETARRAY+11*, SETARRAY+12* , CKDP+8*, CKDP+10*, CKDP+11*, CKDP+12*, CKDP+13*, LABTESTS+6*, LABTESTS+7*, LABTESTS+8*, LABTESTS+9*, LABTESTS+11* , LABTESTS+12*, LABTESTS+13*, LABTESTS+17*, LABTESTS+18*, LABTESTS+22*, LABTESTS+25*, LABTESTS+27*, IMMUN+1*, IMMUN+4*, IMMUN+9* , IMMUN+11*, IMMUN+13*, MISC+1*, MISC+2*, MISC+3*, MISC+4*, MISC+5*, MISC+6*, MISC+7*, MISC+8* , MISC+9*, MISC+10*, MISC+11*, MISC+12*, MISC+13*, MISC+14*, MISC+15*, MISC+16*, MISC+17*, S+3~ , S+5*, S+6*, S+8*, S+9*, S1+2, DMDX+4~*, DMDX+8*, LAB+2~, LAB+3*, LAB+4 , LAB+5, REF1+6~*, REF1+7, REF1+8, REF1+9, APCHLHD+1*, APCHLHD+2* |
| >> X1 | LABTESTS+7*, LABTESTS+11*, LABTESTS+18* |
| >> X2 | LABTESTS+7*, LABTESTS+11*, LABTESTS+18* |
| Y | SETARRAY+7*, LABTESTS+7, LABTESTS+11, LABTESTS+18, S~, S+6, S+7, S+9, DMDX+4~*, LAB+4* , LAB+5, LAB+7, LAB+9, REF1+9~*, REF1+10, REF1+11, REF1+12 |