BGP8DU ; IHS/CMI/LAB - gpra utility calls ;
Source file <BGP8DU.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR |
Patient Care Component Reports | 2 | $$START1^APCLDF $$CLINIC^APCLV |
DRG Grouper | 1 | $$CPT^ICPTCOD |
IHS GPRA Information System | 1 | $$ICD^BGP8UTL2 |
IHS Patient | 1 | $$DOB^AUPNPAT |
IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
Taxonomy | 1 | BLDTAX^ATXAPI |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
TRAN(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT IN A TRAN CODE
|
|
COLOCPTS | ;;
|
|
TEXT | ;
|
|
IPLSNOND(P,T,E,Z) | ;EP - any problem list entry with a SNOMED in T
|
|
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD) | ;EP - did patient have this cpt (ien) in date range
|
|
PLTAXND(P,A,E,Z) | ||
ALLCPT(P,BD,ED,T,A) | ;EP - ALL CPTS IN A DATE RANGE IN TAXONOMY T
|
|
BANNER | ;EP
|
|
SIGCPTS | ;;
|
|
PLTAXID(P,A,B,E,Z) | ||
CPT(P,BDATE,EDATE,T,F,SCEX) | ;EP - return ien of CPT entry if patient had this CPT
|
|
PAUSE | ;EP - pause
|
|
WH(P,BDATE,EDATE,T,F) | ;EP
|
|
CHK | ||
SITE | ||
S | ||
TRANI(P,BDATE,EDATE,CPTI) | ;EP
|
|
XIT | ;
|
|
V | ; GET VERSION
|
|
IPLSNOID(P,T,B,E,Z) | ;EP - any problem list entry with a SNOMED in T
|
|
BECPTS | ;;
|
|
RAD(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
LASTITEM(P,BD,ED,BGPT,BGPV) | ;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
|
Name | Field # of Occurrence |
---|---|
$$START1^APCLDF | LASTITEM+5 |
$$CLINIC^APCLV | CPTI+16 |
BLDTAX^ATXAPI | ALLCPT+11 |
$$DOB^AUPNPAT | LASTITEM+1 |
$$ICD^BGP8UTL2 | PLTAXND+18, CHK+1, CPT+16, RAD+15, TRAN+14 |
^DIR | PAUSE+2 |
$$CPT^ICPTCOD | CPT+25, CPT+26, TRAN+23, TRAN+24 |
$$VAL^XBDIQ1 | WH+11, PLTAXND+21, CHK+2, CPTI+17, CPTI+18 |
$$VALI^XBDIQ1 | CPTI+24, TRANI+16 |
$$FMADD^XLFDT | WH+5, CPT+6, RAD+5, TRAN+5 |
$$FMTE^XLFDT | WH+22, CPT+24, RAD+23, TRAN+22 |
$$UP^XLFSTR | WH+11 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX - [#9002226] | ALLCPT+11 |
^ATXAX("B" | PLTAXND+7, PLTAXID+8 |
^AUPNPROB - [#9000011] | PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, IPLSNOND+8, IPLSNOND+9 , IPLSNOND+10, IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17 , PLTAXID+18, PLTAXID+19, IPLSNOID+9, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14, IPLSNOID+15 |
^AUPNPROB("AC" | PLTAXND+11, PLTAXID+12 |
^AUPNPROB("APCT" | IPLSNOND+6, IPLSNOND+7, IPLSNOID+7, IPLSNOID+8 |
^AUPNVCPT - [#9000010.18] | ALLCPT+18, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, CPTI+14 |
^AUPNVCPT("AA" | ALLCPT+15, ALLCPT+16, CPTI+9, CPTI+12, CPTI+13 |
^AUPNVCPT("AD" | CPT+13, CPT+15 |
^AUPNVRAD - [#9000010.22] | RAD+14, RAD+22, RAD+23, RAD+24, RAD+25 |
^AUPNVRAD("AD" | RAD+12, RAD+13 |
^AUPNVSIT - [#9000010] | CPT+12, CPT+14, CPT+23, CPT+24, CPT+25, CPT+26, RAD+11, RAD+22, RAD+23, RAD+24 , RAD+25, CPTI+15, TRANI+13, TRAN+11, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
^AUPNVSIT("AA" | CPT+10, CPT+11, RAD+9, RAD+10, TRAN+9, TRAN+10 |
^AUPNVTC - [#9000010.33] | TRANI+10, TRANI+12, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
^AUPNVTC("AC" | TRANI+6, TRANI+9 |
^AUPNVTC("AD" | TRAN+12, TRAN+13 |
^BWPCD - [#9002086.1] | WH+9, WH+10, WH+12, WH+21, WH+22 |
^BWPCD("C" | WH+8 |
^DIC(4 - [#4] | SITE |
^ICPT - [#81] | CPTI+8, TRANI+5 |
^RAMIS(71 - [#71] | RAD+14, RAD+24, RAD+25 |
^XTMP("BGPSNOMEDSUBSET" | IPLSNOND+11, IPLSNOID+10 |
Name | Line Occurrences |
---|---|
CHK | PLTAXID+21, PLTAXID+22, PLTAXID+23 |
V+2 | |
S | IPLSNOID+17, IPLSNOID+18, IPLSNOID+19 |
XIT | SITE |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | LASTITEM+5~* |
A | PLTAXND~, PLTAXND+4, PLTAXND+7, PLTAXID~, PLTAXID+4, PLTAXID+8, ALLCPT~, ALLCPT+18 |
B | PLTAXID~, PLTAXID+6*, PLTAXID+21, PLTAXID+22, PLTAXID+23, IPLSNOID~, IPLSNOID+3*, IPLSNOID+17, IPLSNOID+18, IPLSNOID+19 , ALLCPT+9~, ALLCPT+14*, ALLCPT+15 |
BD | ALLCPT~, ALLCPT+14, CPT+8~, CPT+9*, CPT+10, RAD+7~, RAD+8*, RAD+9, CPTI+10~, CPTI+11* , CPTI+12, TRAN+7~, TRAN+8*, TRAN+9, LASTITEM~, LASTITEM+1*, LASTITEM+5 |
BDATE | WH~, WH+5*, WH+13, CPT~, CPT+6*, CPT+9, RAD~, RAD+5*, RAD+8, CPTI~ , CPTI+3, CPTI+11, TRANI~, TRANI+3, TRANI+14, TRAN~, TRAN+5*, TRAN+8 |
>> BGP("SITE" | SITE*, XIT+1! |
>> BGP("VERSION" | V+1*, PRINT+2, XIT+1! |
BGPC | ALLCPT+9~, ALLCPT+12*, ALLCPT+17*, ALLCPT+18 |
BGPJ | V+3*, PRINT+1*, XIT+1! |
BGPLINE | V+2*, V+3*, PRINT+1, XIT+1! |
BGPR | LASTITEM+5~ |
BGPR(1 | LASTITEM+6, LASTITEM+7 |
BGPT | LASTITEM~, LASTITEM+3, LASTITEM+5 |
BGPTEXT | V+2*, XIT+1! |
BGPV | LASTITEM~, LASTITEM+4, LASTITEM+5 |
BGPX | V+3*, PRINT+1*!, XIT+1! |
C | RAD+7~, RAD+14*, RAD+15, TRANI+7~, TRANI+10*, TRANI+11 |
CPTI | CPTI~, CPTI+2, CPTI+8, CPTI+12, CPTI+13, TRANI~, TRANI+5, TRANI+11 |
CPTTAX | ALLCPT+9~ |
CPTTAX( | ALLCPT+13, ALLCPT+18 |
D | WH+7~, WH+12*, WH+13, WH+14, WH+15, WH+16, WH+21*, WH+22*, PLTAXND+9~, PLTAXND+19* , PLTAXND+20*, PLTAXND+21, IPLSNOND+14*, IPLSNOND+15*, IPLSNOND+16, PLTAXID+10~, PLTAXID+19*, PLTAXID+20, PLTAXID+21, IPLSNOID+15* , IPLSNOID+16, IPLSNOID+17, ALLCPT+9~, ALLCPT+15*, ALLCPT+16, ALLCPT+18, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~ |
DFOUT | PAUSE+1! |
DIR | PAUSE+1!, PAUSE+2! |
DIR("A" | PAUSE+2* |
DIR(0 | PAUSE+2* |
DIRUT | PAUSE+1! |
DLOUT | PAUSE+1! |
DT | LASTITEM+2 |
DTOUT | PAUSE+1! |
DUOUT | PAUSE+1! |
DUZ(2 | SITE |
E | PLTAXND~, PLTAXND+5*, PLTAXND+16, PLTAXND+17, IPLSNOND~, IPLSNOND+4*, IPLSNOND+12, IPLSNOND+13, PLTAXID~, PLTAXID+5* , PLTAXID+20, PLTAXID+21, PLTAXID+22, PLTAXID+23, IPLSNOID~, IPLSNOID+4*, IPLSNOID+16, IPLSNOID+17, IPLSNOID+18, IPLSNOID+19 , ALLCPT+9~, ALLCPT+14*, ALLCPT+15, LASTITEM+5~* |
ED | ALLCPT~, ALLCPT+14, CPT+8~, CPT+9*, CPT+10*, CPT+11, RAD+7~, RAD+8*, RAD+9*, RAD+10 , CPTI+10~, CPTI+11*, CPTI+12*, CPTI+13, CPTI+24, TRAN+7~, TRAN+8*, TRAN+9*, TRAN+10, LASTITEM~ , LASTITEM+2*, LASTITEM+5 |
EDATE | WH~, WH+4, WH+5, WH+14, CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4 , RAD+5, RAD+8, CPTI~, CPTI+4, CPTI+11, TRANI~, TRANI+4, TRANI+15, TRAN~, TRAN+4 , TRAN+5, TRAN+8 |
F | WH~, WH+3*, WH+19, WH+20, WH+21, WH+22, CPT~, CPT+3*, CPT+21, CPT+22 , CPT+23, CPT+24, CPT+25, CPT+26, RAD~, RAD+3*, RAD+20, RAD+21, RAD+22, RAD+23 , RAD+24, RAD+25, TRAN~, TRAN+3*, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24 |
G | WH+7~, WH+8*, WH+16*, WH+18, WH+19, WH+20, WH+21, WH+22, IPLSNOND+2~, IPLSNOND+3* , IPLSNOND+6, IPLSNOND+7, IPLSNOND+16*, IPLSNOND+17, IPLSNOID+2~, IPLSNOID+6*, IPLSNOID+7, IPLSNOID+8, S+1*, S+2 , ALLCPT+9~, ALLCPT+15*, CPT+8~, CPT+9*, CPT+10, CPT+11, CPT+15, CPT+16*, CPT+20, CPT+21 , CPT+22, CPT+23, CPT+24, CPT+25, CPT+26, RAD+7~, RAD+8*, RAD+9, RAD+10, RAD+13 , RAD+15*, RAD+19, RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+10~, CPTI+11* , CPTI+12, CPTI+13, CPTI+24*, CPTI+25, TRANI+7~, TRANI+8*, TRANI+16*, TRANI+17, TRAN+7~, TRAN+8* , TRAN+9, TRAN+10, TRAN+13, TRAN+14*, TRAN+18, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23 , TRAN+24 |
G( | WH+16* |
G(0 | WH+15 |
I | WH+8*, WH+15*, PLTAXND+9~, PLTAXND+10*, PLTAXND+11, PLTAXND+21*, PLTAXND+23, PLTAXID+10~, PLTAXID+11*, PLTAXID+12 , CHK+2*, CHK+4, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17, CPTI+18, CPTI+24 |
IOF | |
J | ALLCPT+9~, ALLCPT+13*, ALLCPT+15, ALLCPT+16, ALLCPT+18, CPTI+10~, CPTI+20*, CPTI+22* |
K | CPTI+10~, CPTI+20*, CPTI+22* |
M | PLTAXID+10~, PLTAXID+18*, PLTAXID+23, CHK+2, IPLSNOID+2~, IPLSNOID+14*, IPLSNOID+19, S+1, CPTI+10~, CPTI+17* , CPTI+20 |
M1 | CPTI+10~, CPTI+18*, CPTI+22 |
O | WH+7~, PLTAXID+10~, PLTAXID+17*, PLTAXID+22, CHK+2, IPLSNOID+2~, IPLSNOID+13*, IPLSNOID+18, S+1 |
P | WH~, WH+1, WH+8, PLTAXND~, PLTAXND+3, PLTAXND+11, IPLSNOND~, IPLSNOND+6, IPLSNOND+7, PLTAXID~ , PLTAXID+3, PLTAXID+12, IPLSNOID~, IPLSNOID+7, IPLSNOID+8, ALLCPT~, ALLCPT+15, ALLCPT+16, CPT~, CPT+1 , CPT+10, CPT+11, RAD~, RAD+1, RAD+9, RAD+10, CPTI~, CPTI+1, CPTI+9, CPTI+12 , CPTI+13, TRANI~, TRANI+1, TRANI+6, TRANI+9, TRAN~, TRAN+1, TRAN+9, TRAN+10, LASTITEM~ , LASTITEM+1, LASTITEM+5 |
Q | CPTI+10~, CPTI+19*, CPTI+20*, CPTI+21, CPTI+22*, CPTI+23 |
R | LASTITEM+5! |
SCEX | CPT~, CPT+4*, CPT+14, CPTI~, CPTI+5*, CPTI+15 |
SCLN | CPTI~, CPTI+6*, CPTI+16 |
SMOD | CPTI~, CPTI+7*, CPTI+20, CPTI+22 |
T | WH~, WH+2, WH+10, PLTAXND+7~*, PLTAXND+8, PLTAXND+18, IPLSNOND~, IPLSNOND+11, PLTAXID+8~*, PLTAXID+9 , CHK+1, IPLSNOID~, IPLSNOID+10, ALLCPT~, ALLCPT+7*, ALLCPT+8, ALLCPT+11, CPT~, CPT+2, CPT+16 , RAD~, RAD+2, RAD+15, TRAN~, TRAN+2, TRAN+14 |
>> TRANI | TRANI+2 |
U | WH+10, WH+12, WH+21, WH+22, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19 , PLTAXND+20, PLTAXND+21, IPLSNOND+9, IPLSNOND+10, IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, PLTAXID+14 , PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18, PLTAXID+19, CHK+2, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14 , IPLSNOID+15, S+1, ALLCPT+11, ALLCPT+18, CPT+14, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26 , RAD+14, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+14, CPTI+15, TRANI+10, TRANI+12, TRANI+13 , TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24, LASTITEM+7 |
V | WH+7~, WH+8*, WH+9, WH+10, WH+11, WH+12, WH+16, ALLCPT+9~, CPT+8~, CPT+11* , CPT+12, CPT+13, CPT+14, CPT+15, CPT+23*, CPT+24*, CPT+25*, CPT+26*, RAD+7~, RAD+10* , RAD+11, RAD+12, RAD+13, RAD+22*, RAD+23*, RAD+24*, RAD+25*, CPTI+10~, CPTI+14*, CPTI+15 , CPTI+16, TRANI+7~, TRANI+12*, TRANI+13*, TRANI+14, TRANI+15, TRANI+16, TRAN+7~, TRAN+10*, TRAN+11 , TRAN+12, TRAN+13, TRAN+21*, TRAN+22*, TRAN+23*, TRAN+24* |
X | WH+7~, PLTAXND+9~, PLTAXND+10*, PLTAXND+11*, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17 , PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+2~, IPLSNOND+3*, IPLSNOND+6*, IPLSNOND+7, IPLSNOND+11, IPLSNOND+16, PLTAXID+10~ , PLTAXID+11*, PLTAXID+12*, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18, PLTAXID+19, CHK+2 , IPLSNOID+2~, IPLSNOID+6*, IPLSNOID+7*, IPLSNOID+8, IPLSNOID+10, S+1, ALLCPT+9~, ALLCPT+16*, ALLCPT+18, CPT+8~ , CPT+15*, CPT+16, RAD+7~, RAD+13*, RAD+14, RAD+15, CPTI+10~, TRANI+7~, TRANI+9*, TRANI+10 , TRANI+12, TRANI+16, TRAN+7~, TRAN+13*, TRAN+14 |
Y | WH+7~, PLTAXND+9~, PLTAXND+10*, PLTAXND+15*, PLTAXND+18, IPLSNOND+2~, IPLSNOND+7*, IPLSNOND+8, IPLSNOND+9, IPLSNOND+10 , IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, PLTAXID+10~, PLTAXID+11*, PLTAXID+16*, CHK+1, IPLSNOID+2~, IPLSNOID+8* , IPLSNOID+9, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14, IPLSNOID+15, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~ , LASTITEM+5~ |
Z | PLTAXND~, PLTAXND+6*, PLTAXND+14, IPLSNOND~, IPLSNOND+5*, IPLSNOND+10, PLTAXID~, PLTAXID+7*, PLTAXID+20, IPLSNOID~ , IPLSNOID+5*, IPLSNOID+16, CPTI+10~ |
Name | Field # of Occurrence |
---|---|
$T(@BGPTEXT+BGPJ | V+3, PRINT+1 |