BDMSMU2 ; IHS/CMI/LAB - utilities for hmr ;
Source file <BDMSMU2.m>
| Package | Total | Call Graph | 
|---|---|---|
| Diabetes Registry | 2 | ($$FFD,$$TYPEREF)^BDMSMU ($$CODEN,$$ICD,$$ICDDX,$$ICDOP)^BDMUTL | 
| DRG Grouper | 1 | ($$CODEN,$$CPT)^ICPTCOD | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT | 
| Patient Care Component Reports | 1 | $$LASTTD^APCLAPI4 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CPTI(P,BDATE,EDATE,CPTI) | ;EP - did patient have this cpt (ien) in date range | |
| WH(P,BDATE,EDATE,T,F) | ;EP | |
| RADREF(P,BDATE,EDATE,T) | ;EP - return ien of CPT entry if patient had this CPT | |
| LASTDXI(P,T,BDATE,EDATE) | ;EP | |
| LASTTD(P) | ;EP | |
| CPT(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT | |
| CPTREFT(P,BDATE,EDATE,T) | ;EP - return ien of CPT entry if patient had this CPT | |
| LASTDX(P,T,BDATE,EDATE) | ;EP | |
| LASTCPTI(P,T,BDATE,EDATE) | ;EP | |
| LASTPRCI(P,T,BDATE,EDATE) | ;EP | |
| LASTPRC(P,T,BDATE,EDATE) | ;EP | 
| Name | Field # of Occurrence | 
|---|---|
| $$LASTTD^APCLAPI4 | LASTTD+2 | 
| $$FFD^BDMSMU | CPTREFT+10, RADREF+12 | 
| $$TYPEREF^BDMSMU | CPTREFT+10, RADREF+12 | 
| $$CODEN^BDMUTL | LASTDXI+7, LASTPRCI+7 | 
| $$ICD^BDMUTL | CPT+14, LASTDX+16, LASTPRC+15, CPTREFT+9, RADREF+10 | 
| $$ICDDX^BDMUTL | LASTDX+17, LASTDXI+17 | 
| $$ICDOP^BDMUTL | LASTPRC+16, LASTPRCI+17 | 
| $$CODEN^ICPTCOD | LASTCPTI+7 | 
| $$CPT^ICPTCOD | CPT+26, LASTCPTI+16 | 
| $$VAL^XBDIQ1 | CPTREFT+10, RADREF+12 | 
| $$FMADD^XLFDT | WH+5, CPT+5, CPTREFT+4, RADREF+4 | 
| $$FMTE^XLFDT | WH+20, CPT+22, CPTREFT+10, RADREF+12 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ATXAX("B" | LASTDX+7, LASTPRC+7 | 
| ^AUPNPREF - [#9000022] | CPTREFT+8, RADREF+8, RADREF+11 | 
| ^AUPNPREF("AA" | CPTREFT+7, CPTREFT+8, RADREF+7, RADREF+8 | 
| ^AUPNVCPT - [#9000010.18] | CPT+14, CPT+21, CPT+22, CPT+26, LASTCPTI+13 | 
| ^AUPNVCPT("AA" | CPTI+6, CPTI+9, LASTCPTI+11, LASTCPTI+12 | 
| ^AUPNVCPT("AD" | CPT+12, CPT+13 | 
| ^AUPNVPOV - [#9000010.07] | LASTDX+13, LASTDXI+14 | 
| ^AUPNVPOV("AA" | LASTDX+11, LASTDX+12, LASTDXI+12, LASTDXI+13 | 
| ^AUPNVPRC - [#9000010.08] | LASTPRC+13, LASTPRCI+14 | 
| ^AUPNVPRC("AA" | LASTPRC+11, LASTPRC+12, LASTPRCI+12, LASTPRCI+13 | 
| ^AUPNVSIT - [#9000010] | CPT+11, CPT+21, CPT+22, CPT+26 | 
| ^AUPNVSIT("AA" | CPT+9, CPT+10 | 
| ^BWPCD - [#9002086.1] | WH+9, WH+10, WH+11, WH+19, WH+20 | 
| ^BWPCD("C" | WH+8 | 
| ^DPT - [#2] | LASTDX+5, LASTDXI+5, LASTPRC+5, LASTPRCI+5, LASTCPTI+5 | 
| ^ICD9 - [#80] | LASTDX+15 | 
| ^ICPT - [#81] | CPTI+5 | 
| ^RAMIS(71 - [#71] | RADREF+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| BD | CPT+7~, CPT+8*, CPT+9, CPTI+7~, CPTI+8*, CPTI+9 | 
| BDATE | WH~, WH+5*, WH+12, CPT~, CPT+5*, CPT+8, LASTDX~, LASTDX+5*, LASTDX+10, LASTDXI~ , LASTDXI+5*, LASTDXI+11, LASTPRC~, LASTPRC+5*, LASTPRC+10, LASTPRCI~, LASTPRCI+5*, LASTPRCI+11, CPTI~, CPTI+3 , CPTI+8, LASTCPTI~, LASTCPTI+5*, LASTCPTI+10, CPTREFT~, CPTREFT+4*, CPTREFT+8, RADREF~, RADREF+4*, RADREF+8 | 
| BDMDX1 | LASTDX+3~, LASTDX+4*, LASTDX+11*, LASTDX+12, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+12*, LASTDXI+13, LASTDXI+17 , LASTPRC+3~, LASTPRC+4*, LASTPRC+11*, LASTPRC+12, LASTPRC+16, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+12*, LASTPRCI+13, LASTPRCI+17 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+11*, LASTCPTI+12, LASTCPTI+16 | 
| BDMDX2 | LASTDX+3~, LASTDX+4*, LASTDX+12*, LASTDX+13, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+13*, LASTDXI+14, LASTDXI+17 , LASTPRC+3~, LASTPRC+4*, LASTPRC+12*, LASTPRC+13, LASTPRC+16, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+13*, LASTPRCI+14, LASTPRCI+17 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+12*, LASTCPTI+13, LASTCPTI+16 | 
| BDMDX3 | LASTDX+3~, LASTDX+4*, LASTDX+13*, LASTDX+14, LASTDX+15, LASTDX+16, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+14* , LASTDXI+15, LASTDXI+16, LASTDXI+17, LASTPRC+3~, LASTPRC+4*, LASTPRC+13*, LASTPRC+14, LASTPRC+15, LASTPRC+16, LASTPRCI+3~ , LASTPRCI+4*, LASTPRCI+14*, LASTPRCI+15, LASTPRCI+16, LASTPRCI+17, LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+13*, LASTCPTI+14, LASTCPTI+15 , LASTCPTI+16 | 
| BDMDX4 | LASTDX+3~, LASTDX+4*, LASTDX+9*, LASTDX+11, LASTDX+12, LASTDX+17*, LASTDX+20, LASTDXI+4*, LASTDXI+10*, LASTDXI+12 , LASTDXI+13, LASTDXI+17*, LASTDXI+20, LASTPRC+3~, LASTPRC+4*, LASTPRC+9*, LASTPRC+11, LASTPRC+12, LASTPRC+16*, LASTPRC+19 , LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+10*, LASTPRCI+12, LASTPRCI+13, LASTPRCI+17*, LASTPRCI+20, LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+9* , LASTCPTI+11, LASTCPTI+12, LASTCPTI+16*, LASTCPTI+19 | 
| BDMDX5 | LASTDXI+3~ | 
| BDMDXBD | LASTDX+3~, LASTDX+10*, LASTDX+11, LASTDXI+3~, LASTDXI+11*, LASTDXI+12, LASTPRC+3~, LASTPRC+10*, LASTPRC+11, LASTPRCI+3~ , LASTPRCI+11*, LASTPRCI+12, LASTCPTI+3~, LASTCPTI+10*, LASTCPTI+11 | 
| BDMDXED | LASTDX+3~, LASTDX+10*, LASTDX+11, LASTDXI+3~, LASTDXI+11*, LASTDXI+12, LASTPRC+3~, LASTPRC+10*, LASTPRC+11, LASTPRCI+3~ , LASTPRCI+11*, LASTPRCI+12, LASTCPTI+3~, LASTCPTI+10*, LASTCPTI+11 | 
| BDMSVDT | CPT+24~, CPT+26* | 
| BDMTX5 | LASTDX+3~, LASTDX+4*, LASTDX+7*, LASTDX+8, LASTDX+16, LASTDXI+3~, LASTDXI+4*, LASTDXI+7*, LASTDXI+9, LASTDXI+16 , LASTPRC+3~, LASTPRC+4*, LASTPRC+7*, LASTPRC+8, LASTPRC+15, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+7*, LASTPRCI+9, LASTPRCI+16 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+7*, LASTCPTI+8, LASTCPTI+11, LASTCPTI+12, LASTCPTI+15 | 
| C | RADREF+5~, RADREF+9*, RADREF+10, RADREF+12 | 
| CPTI | CPTI~, CPTI+2, CPTI+5, CPTI+9 | 
| D | WH+7~, WH+11*, WH+12, WH+13, WH+19*, WH+20*, CPT+7~, CPTI+7~, CPTREFT+8*, CPTREFT+10 , RADREF+8*, RADREF+12 | 
| DT | LASTDX+6, LASTDXI+6, LASTPRC+6, LASTPRCI+6, LASTCPTI+6 | 
| ED | CPT+7~, CPT+8*, CPT+9*, CPT+10, CPTI+7~, CPTI+8*, CPTI+9* | 
| EDATE | WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8, LASTDX~, LASTDX+6* , LASTDX+10, LASTDXI~, LASTDXI+6*, LASTDXI+11, LASTPRC~, LASTPRC+6*, LASTPRC+10, LASTPRCI~, LASTPRCI+6*, LASTPRCI+11 , CPTI~, CPTI+4, CPTI+8, LASTCPTI~, LASTCPTI+6*, LASTCPTI+10, CPTREFT~, CPTREFT+3, CPTREFT+4, CPTREFT+8 , RADREF~, RADREF+3, RADREF+4, RADREF+8 | 
| F | WH~, WH+3*, WH+17, WH+18, WH+19, WH+20, CPT~, CPT+3*, CPT+19, CPT+20 , CPT+21, CPT+22, CPT+26 | 
| G | WH+7~, WH+8*, WH+14*, WH+16, WH+17, WH+18, WH+19, WH+20, CPT+7~, CPT+8* , CPT+9, CPT+10, CPT+13, CPT+14*, CPT+18, CPT+19, CPT+20, CPT+21, CPT+22, CPT+26 , CPTI+7~, CPTI+8*, CPTI+9*, CPTI+10, CPTREFT+5~, CPTREFT+6*, CPTREFT+7, CPTREFT+8, CPTREFT+10*, CPTREFT+12 , RADREF+5~, RADREF+6*, RADREF+7, RADREF+8, RADREF+12*, RADREF+14 | 
| I | CPTREFT+5~, CPTREFT+7*, CPTREFT+8, CPTREFT+9, CPTREFT+10, RADREF+5~, RADREF+7*, RADREF+8, RADREF+9 | 
| >> N | RADREF+11* | 
| P | WH~, WH+1, WH+8, CPT~, CPT+1, CPT+9, CPT+10, LASTDX~, LASTDX+1, LASTDX+5 , LASTDX+11, LASTDX+12, LASTDXI~, LASTDXI+1, LASTDXI+5, LASTDXI+12, LASTDXI+13, LASTPRC~, LASTPRC+1, LASTPRC+5 , LASTPRC+11, LASTPRC+12, LASTPRCI~, LASTPRCI+1, LASTPRCI+5, LASTPRCI+12, LASTPRCI+13, CPTI~, CPTI+1, CPTI+6 , CPTI+9, LASTCPTI~, LASTCPTI+1, LASTCPTI+5, LASTCPTI+11, LASTCPTI+12, CPTREFT~, CPTREFT+1, CPTREFT+7, CPTREFT+8 , RADREF~, RADREF+1, RADREF+7, RADREF+8, LASTTD~, LASTTD+1, LASTTD+2 | 
| T | WH~, WH+2, WH+10, CPT~, CPT+2, CPT+14, LASTDX~, LASTDX+7, LASTDXI~, LASTDXI+7 , LASTPRC~, LASTPRC+7, LASTPRCI~, LASTPRCI+7, LASTCPTI~, LASTCPTI+7, CPTREFT~, CPTREFT+2, CPTREFT+9, RADREF~ , RADREF+2, RADREF+10 | 
| U | WH+10, WH+11, WH+19, WH+20, CPT+14, CPT+21, CPT+22, CPT+26, LASTDX+5, LASTDX+13 , LASTDX+17, LASTDXI+5, LASTDXI+14, LASTDXI+17, LASTPRC+5, LASTPRC+13, LASTPRC+16, LASTPRCI+5, LASTPRCI+14, LASTPRCI+17 , LASTCPTI+5, LASTCPTI+13, LASTCPTI+16, CPTREFT+7, CPTREFT+8, RADREF+7, RADREF+8, RADREF+9, RADREF+11 | 
| V | WH+7~, WH+8*, WH+9, WH+10, WH+11, WH+14, CPT+7~, CPT+10*, CPT+11, CPT+12 , CPT+13, CPT+21*, CPT+22*, CPT+26*, CPTI+7~ | 
| X | WH+7~, CPT+7~, CPT+13*, CPT+14, CPTI+7~, CPTREFT+5~, CPTREFT+8*, RADREF+5~, RADREF+8* | 
| Y | WH+7~, CPT+7~, CPTI+7~, CPTREFT+5~, CPTREFT+8*, CPTREFT+10, RADREF+5~, RADREF+8*, RADREF+11, RADREF+12 | 
| Z | CPTREFT+5~, RADREF+5~ |