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

Package: IHS GPRA Information System

Routine: BGP9DU


Information

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

Source Information

Source file <BGP9DU.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
DRG Grouper 2 $$CODEN^ICDCODE  $$CPT^ICPTCOD  
Patient Care Component Reports 2 $$START1^APCLDF  $$CLINIC^APCLV  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Taxonomy 1 $$ICD^ATXCHK  

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
IHS GPRA Information System 51 BGP9C11  BGP9C12  BGP9C13  BGP9C3X  BGP9CON1  BGP9CP2  BGP9CP4  BGP9CU1  
BGP9CU2  BGP9CU3  BGP9CU4  BGP9D2  BGP9D21  BGP9D211  BGP9D21A  BGP9D22  
BGP9D24  BGP9D25  BGP9D3  BGP9D31  BGP9D33  BGP9D35  BGP9D4  BGP9D42  
BGP9D5  BGP9D53  BGP9D61  BGP9D7  BGP9D71  BGP9D711  BGP9D72  BGP9D721  
BGP9D73  BGP9D731  BGP9D732  BGP9D75  BGP9D8  BGP9D82  BGP9D83  BGP9D84  
BGP9D85  BGP9D861  BGP9D864  BGP9D87  BGP9D9  BGP9DHE1  BGP9DHE2  BGP9DPA4  
BGP9EL2  BGP9EL4  BGP9EO1  

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 ;;
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
$$ICD^ATXCHK PLTAX+5, CPT+16, RAD+15, TRAN+14
$$DOB^AUPNPAT LASTITEM+1
$$CODEN^ICDCODE PLCODE+5
$$CPT^ICPTCOD CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1 CPTI+17, CPTI+18
$$FMADD^XLFDT WH+5, CPT+6, RAD+5, TRAN+5
$$FMTE^XLFDT WH+21, CPT+24, RAD+23, TRAN+22

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

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+11, WH+20, WH+21
^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+12, 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+11*, WH+12, WH+13, WH+14, WH+15, WH+20*, WH+21*, CPT+8~, RAD+7~
, CPTI+10~, TRAN+7~
DT LASTITEM+2
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+13, 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+18, WH+19, WH+20, WH+21, 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+15*, WH+17, WH+18, WH+19, WH+20, WH+21, 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+15*
G(0 WH+14
I WH+8*, WH+14*, PLCODE+7~*, PLCODE+8, PLTAX+5~*, PLTAX+6, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17
, CPTI+18
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+11, WH+20, WH+21, 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+15, 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, 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