©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGPDU ; IHS/CMI/LAB - gpra utility calls ;
Source file <BGPDU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PLTAX(P,A) | ;EP - is DX on problem list 1 or 0
|
|
| CPTI(P,BDATE,EDATE,CPTI) | ;EP - did patient have this cpt (ien) in date range
|
|
| WH(P,BDATE,EDATE,T,F) | ;EP
|
|
| COLOCPTS | ;;
|
|
| SIGCPTS | ;;
|
|
| TEXT | ;
|
|
| SITE | ||
| BECPTS | ;;
|
|
| PLCODE(P,A) | ;EP
|
|
| CPT(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
| RAD(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
| XIT | ;
|
|
| V | ; GET VERSION
|
|
| BANNER | ;EP
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX("B" | PLTAX+3 |
| ^AUPNPROB - [#9000011] | PLCODE+7, PLTAX+5 |
| ^AUPNPROB("AC" | PLCODE+7, PLTAX+5 |
| ^AUPNVCPT - [#9000010.18] | CPT+14, CPT+21, CPT+22, CPT+23, CPT+24 |
| ^AUPNVCPT("AA" | CPTI+6, CPTI+9 |
| ^AUPNVCPT("AD" | CPT+12, CPT+13 |
| ^AUPNVRAD - [#9000010.22] | RAD+14, RAD+22, RAD+23, RAD+24 |
| ^AUPNVRAD("AD" | RAD+12, RAD+13 |
| ^AUPNVSIT - [#9000010] | CPT+11, CPT+21, CPT+22, CPT+23, CPT+24, RAD+11, RAD+22, RAD+23, RAD+24 |
| ^AUPNVSIT("AA" | CPT+9, CPT+10, RAD+9, RAD+10 |
| ^BWPCD - [#9002086.1] | WH+9, WH+10, WH+11, WH+19, WH+20 |
| ^BWPCD("C" | WH+8 |
| ^DIC(4 - [#4] | SITE |
| ^ICPT - [#81] | CPTI+5 |
| ^RAMIS(71 - [#71] | RAD+14, RAD+24 |
| Name | Line Occurrences |
|---|---|
| V+2 | |
| XIT | SITE |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PLCODE~, PLCODE+2, PLCODE+5, PLTAX~, PLTAX+2, PLTAX+3 |
| BD | CPT+7~, CPT+8*, CPT+9, RAD+7~, RAD+8*, RAD+9, CPTI+7~, CPTI+8*, CPTI+9 |
| BDATE | WH~, WH+5*, WH+12, CPT~, CPT+5*, CPT+8, RAD~, RAD+5*, RAD+8, CPTI~ , CPTI+3, CPTI+8 |
| >> BGP("SITE" | SITE*, XIT+1! |
| >> BGP("VERSION" | V+1*, PRINT+2, XIT+1! |
| BGPJ | V+3*, PRINT+1*, XIT+1! |
| BGPLINE | V+2*, V+3*, PRINT+1, XIT+1! |
| BGPTEXT | V+2*, XIT+1! |
| BGPX | V+3*, PRINT+1*!, XIT+1! |
| C | RAD+7~, RAD+14*, RAD+15 |
| CPTI | CPTI~, CPTI+2, CPTI+5, CPTI+9 |
| D | WH+7~, WH+11*, WH+12, WH+13, WH+19*, WH+20*, CPT+7~, RAD+7~, CPTI+7~ |
| DUZ(2 | SITE |
| ED | CPT+7~, CPT+8*, CPT+9*, CPT+10, RAD+7~, RAD+8*, RAD+9*, RAD+10, CPTI+7~, CPTI+8* , CPTI+9* |
| EDATE | WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8, RAD~, RAD+4 , RAD+5, RAD+8, CPTI~, CPTI+4, CPTI+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+23, CPT+24, RAD~, RAD+3*, RAD+20, RAD+21, RAD+22, RAD+23 , RAD+24 |
| 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+23 , CPT+24, RAD+7~, RAD+8*, RAD+9, RAD+10, RAD+13, RAD+15*, RAD+19, RAD+20, RAD+21 , RAD+22, RAD+23, RAD+24, CPTI+7~, CPTI+8*, CPTI+9*, CPTI+10 |
| I | PLCODE+7~*, PLCODE+8, PLTAX+5~*, PLTAX+6 |
| IOF | |
| P | WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, CPT~ , CPT+1, CPT+9, CPT+10, RAD~, RAD+1, RAD+9, RAD+10, CPTI~, CPTI+1, CPTI+6 , CPTI+9 |
| T | WH~, WH+2, WH+10, PLCODE+3~, PLCODE+5*, PLCODE+6, PLCODE+7, PLTAX+3~*, PLTAX+4, PLTAX+5 , CPT~, CPT+2, CPT+14, RAD~, RAD+2, RAD+15 |
| U | WH+10, WH+11, WH+19, WH+20, PLCODE+7, PLTAX+5, CPT+14, CPT+21, CPT+22, CPT+23 , CPT+24, RAD+14, RAD+22, RAD+23, RAD+24 |
| 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+23*, CPT+24*, RAD+7~, RAD+10*, RAD+11, RAD+12, RAD+13 , RAD+22*, RAD+23*, RAD+24*, CPTI+7~ |
| X | WH+7~, PLCODE+7~*, PLTAX+5~*, CPT+7~, CPT+13*, CPT+14, RAD+7~, RAD+13*, RAD+14, RAD+15 , CPTI+7~ |
| Y | WH+7~, PLCODE+7~*, PLTAX+5~*, CPT+7~, RAD+7~, CPTI+7~ |
| Name | Field # of Occurrence |
|---|---|
| $T(@BGPTEXT+BGPJ | V+3, PRINT+1 |