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: BGP5DU

Package: IHS GPRA Information System

Routine: BGP5DU


Information

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

Source Information

Source file <BGP5DU.m>

Call Graph

Call Graph Total: 9

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 ($$CODEN,$$ICD)^BGP5UTL2  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 68

Package Total Caller Graph
IHS GPRA Information System 68 BGP5AUEX  BGP5AUUL  BGP5C11  BGP5C13  BGP5CON1  BGP5CU1  BGP5D2  BGP5D21  
BGP5D211  BGP5D22  BGP5D24  BGP5D25  BGP5D27  BGP5D3  BGP5D31  BGP5D33  
BGP5D35  BGP5D37  BGP5D3B  BGP5D4  BGP5D42  BGP5D5  BGP5D52  BGP5D53  
BGP5D61  BGP5D62  BGP5D63  BGP5D64  BGP5D7  BGP5D71  BGP5D711  BGP5D72  
BGP5D721  BGP5D724  BGP5D73  BGP5D731  BGP5D732  BGP5D74  BGP5D75  BGP5D811  
BGP5D812  BGP5D82  BGP5D83  BGP5D84  BGP5D861  BGP5D864  BGP5D87  BGP5D88  
BGP5D9  BGP5DAP  BGP5DCL  BGP5DEL  BGP5DGPU  BGP5DL  BGP5DNDB  BGP5DNG  
BGP5DNGP  BGP5DNGS  BGP5DON  BGP5DPA  BGP5DPA4  BGP5DPE  BGP5DPP  BGP5DSI  
BGP5DSTM  BGP5EL2  BGP5EL4  BGP5NPL  

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
PLTAX(P,A) ;EP - is DX on problem list 1 or 0
SIGCPTS ;;
PAUSE ;EP - pause
WH(P,BDATE,EDATE,T,F) ;EP
COLOCPTS ;;
RAD(P,BDATE,EDATE,T,F) ;EP - return ien of CPT entry if patient had this CPT
TRANI(P,BDATE,EDATE,CPTI) ;EP
SITE
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD) ;EP - did patient have this cpt (ien) in date range
PLCODE(P,A) ;EP
CPT(P,BDATE,EDATE,T,F,SCEX) ;EP - return ien of CPT entry if patient had this CPT
XIT ;
TEXT ;
V ; GET VERSION
PRINT
BECPTS ;;
BANNER ;EP
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
$$DOB^AUPNPAT LASTITEM+1
$$CODEN^BGP5UTL2 PLCODE+5
$$ICD^BGP5UTL2 PLTAX+5, CPT+16, RAD+15, TRAN+14
^DIR PAUSE+2
$$CPT^ICPTCOD CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1 WH+11, 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("B" PLTAX+3
^AUPNPROB - [#9000011] PLCODE+7, PLTAX+5
^AUPNPROB("AC" PLCODE+7, PLTAX+5
^AUPNVCPT - [#9000010.18] CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, CPTI+14
^AUPNVCPT("AA" 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

Label References

Name Line Occurrences
PRINT V+2
XIT SITE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LASTITEM+5~*
A PLCODE~, PLCODE+2, PLCODE+5, PLTAX~, PLTAX+2, PLTAX+3
BD 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!
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
D WH+7~, WH+12*, WH+13, WH+14, WH+15, WH+16, WH+21*, WH+22*, 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 LASTITEM+5~*
ED 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, 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*, PLCODE+7~*, PLCODE+8, PLTAX+5~*, PLTAX+6, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17
, CPTI+18, CPTI+24
IOF PRINT
J CPTI+10~, CPTI+20*, CPTI+22*
K CPTI+10~, CPTI+20*, CPTI+22*
M CPTI+10~, CPTI+17*, CPTI+20
M1 CPTI+10~, CPTI+18*, CPTI+22
O WH+7~
P WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, 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, PLCODE+3~, PLCODE+5*, PLCODE+6, PLCODE+7, PLTAX+3~*, PLTAX+4, PLTAX+5
, 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, PLCODE+7, PLTAX+5, 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, 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~, PLCODE+7~*, PLTAX+5~*, 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~, PLCODE+7~*, PLTAX+5~*, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~, LASTITEM+5~
Z 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