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

Package: IHS Uniform Data System

Routine: BUD9DU


Information

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

Source Information

Source file <BUD9DU.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: 8

Package Total Caller Graph
IHS Uniform Data System 8 BUD9RP6B  BUD9RP6C  BUD9RP6D  BUD9RP6X  BUD9RP6Y  BUD9RP7A  BUD9RP7B  BUD9RP7C  

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 ;
LASTITEM(P,BD,ED,BUDT,BUDV) ;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
V ; GET VERSION
PRINT
BECPTS ;;
BANNER ;EP

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 PLTAX+5, 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(BUDX)\2,BUDX
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?80-(8+$L(BUD("VERSION")))/2,"Version ",BUD("VERSION")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?80-$L(BUD("SITE"))\2,BUD("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
>> BUD("SITE" SITE*, XIT+1!
>> BUD("VERSION" V+1*, PRINT+2, XIT+1!
BUDJ V+3*, PRINT+1*, XIT+1!
BUDLINE V+2*, V+3*, PRINT+1, XIT+1!
BUDR LASTITEM+5~
BUDR(1 LASTITEM+6, LASTITEM+7
BUDT LASTITEM~, LASTITEM+3, LASTITEM+5
BUDTEXT V+2*, XIT+1!
BUDV LASTITEM~, LASTITEM+4, LASTITEM+5
BUDX 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(@BUDTEXT+BUDJ 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