Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BGP8DU

Package: IHS GPRA Information System

Routine: BGP8DU


Information

BGP8DU ; IHS/CMI/LAB - gpra utility calls ;

Source Information

Source file <BGP8DU.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 107

Package Total Caller Graph
IHS GPRA Information System 107 BGP8AUEX  BGP8AUUL  BGP8C12  BGP8C13  BGP8C3X  BGP8CON1  BGP8CP2  BGP8CP4  
BGP8CU1  BGP8CU2  BGP8CU3  BGP8CU4  BGP8D2  BGP8D21  BGP8D211  BGP8D212  
BGP8D213  BGP8D214  BGP8D21A  BGP8D22  BGP8D25  BGP8D27  BGP8D3  BGP8D31  
BGP8D33  BGP8D35  BGP8D36  BGP8D37  BGP8D3A  BGP8D3B  BGP8D3C  BGP8D4  
BGP8D52  BGP8D53  BGP8D54  BGP8D55  BGP8D61  BGP8D62  BGP8D63  BGP8D7  
BGP8D71  BGP8D711  BGP8D714  BGP8D72  BGP8D721  BGP8D722  BGP8D724  BGP8D73  
BGP8D731  BGP8D732  BGP8D74  BGP8D75  BGP8D811  BGP8D812  BGP8D82  BGP8D83  
BGP8D84  BGP8D841  BGP8D861  BGP8D864  BGP8D87  BGP8D88  BGP8D9  BGP8DAP  
BGP8DCL  BGP8DEL  BGP8DGPU  BGP8DHE1  BGP8DHE2  BGP8DL  BGP8DNDB  BGP8DNG  
BGP8DNGP  BGP8DNGS  BGP8DON  BGP8DPA  BGP8DPA4  BGP8DPE  BGP8DPP  BGP8DSI  
BGP8DSTM  BGP8EL2  BGP8EO1  BGP8EO11  BGP8NPL  BGP8PC1  BGP8PC10  BGP8PC11  
BGP8PC12  BGP8PC13  BGP8PC14  BGP8PC15  BGP8PC16  BGP8PC2  BGP8PC4  BGP8PC6  
BGP8PC62  BGP8PC64  BGP8PC65  BGP8PC67  BGP8PC68  BGP8PC69  BGP8PC7  BGP8PC8  
BGP8PC9  BGP8PCD  BGP8UTL2  

Entry Points

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
PRINT
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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(BGPX)\2,BGPX
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?80-(8+$L(BGP("VERSION")))/2,"Version ",BGP("VERSION")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?80-$L(BGP("SITE"))\2,BGP("SITE")
  • Line Location: SITE+0
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CHK PLTAXID+21, PLTAXID+22, PLTAXID+23
PRINT V+2
S IPLSNOID+17, IPLSNOID+18, IPLSNOID+19
XIT SITE

Local Variables

Legend:

>> 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 PRINT
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~

Marked Items

Name Field # of Occurrence
$T(@BGPTEXT+BGPJ V+3, PRINT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All