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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BUDDDU

Package: IHS Uniform Data System

Routine: BUDDDU


Information

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

Source Information

Source file <BUDDDU.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
DRG Grouper 2 $$CODEN^ICDEX  $$CPT^ICPTCOD  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBVK  
Patient Care Component Reports 2 $$START1^APCLDF  ($$CLINIC,$$VD)^APCLV  
IHS Patient 1 $$DOB^AUPNPAT  
IHS Uniform Data System 1 GENI^BUDDRP6B  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 29

Package Total Caller Graph
IHS Uniform Data System 29 BUDDRP61  BUDDRP6A  BUDDRP6B  BUDDRP6C  BUDDRP6D  BUDDRP6F  BUDDRP6G  BUDDRP6H  
BUDDRP6I  BUDDRP6J  BUDDRP6K  BUDDRP6L  BUDDRP6M  BUDDRP6N  BUDDRP6O  BUDDRP6P  
BUDDRP6R  BUDDRP6S  BUDDRP6T  BUDDRP6U  BUDDRP6V  BUDDRP6X  BUDDRP6Y  BUDDRP7  
BUDDRP7A  BUDDRP7B  BUDDRP7C  BUDDRPTC  BUDDRPTE  

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
S(V) ;
EOJ ;
PLCL(P,A,ED,S,BD) ;EP - is DX on problem list 1 or 0
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD) ;EP - did patient have this cpt (ien) in date range
PRINT
IN6B(T) ;EP
BANNER ;EP
SIGCPTS ;;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
DEMO(P,T) ;EP - exclude demo patients
CPT(P,BDATE,EDATE,T,F,SCEX) ;EP - return ien of CPT entry if patient had this CPT
LASTITEM(P,BD,ED,BUDT,BUDV) ;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
DATE(D) ;EP
PAUSE ;
WH(P,BDATE,EDATE,T,F) ;EP
HT6B(T) ;EP
COLOCPTS ;;
SITE
TRANI(P,BDATE,EDATE,CPTI) ;EP
XIT ;
V ; GET VERSION
PLCODE(P,A,ED,S) ;EP
BECPTS ;;
RAD(P,BDATE,EDATE,T,F) ;EP - return ien of CPT entry if patient had this CPT

External References

Name Field # of Occurrence
$$START1^APCLDF LASTITEM+5
$$CLINIC^APCLV CPTI+16
$$VD^APCLV PLCODE+15, PLCODE+18, PLCL+12, PLCL+15
$$ICD^ATXCHK PLTAX+5, CPT+16, RAD+15, TRAN+14
$$DOB^AUPNPAT PLCL+5, LASTITEM+1
GENI^BUDDRP6B IN6B+6
^DIR PAUSE+1
$$CODEN^ICDEX PLCODE+7
$$CPT^ICPTCOD CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1 PLCODE+21, PLTAX+5, PLCL+18, PLCL+19, CPTI+17, CPTI+18
EN^XBVK EOJ+1
$$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: !,$$CTR($$LOC,80)
  • Line Location: IN6B+3
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2016",80)
  • Line Location: IN6B+4
Function Call: WRITE
  • Prompt: !!,$P(^BUDDLST2(BUDLST2I,0),U,1)_" (Table 6B)",!
  • Line Location: IN6B+5
Function Call: WRITE
  • Prompt: !,^BUDDLST2(BUDLST2I,11,X,0)
  • Line Location: IN6B+8
Function Call: WRITE
  • Prompt: !
  • Line Location: IN6B+9
Function Call: WRITE
  • Prompt: !,^BUDDLST2(L,12,X,0)
  • Line Location: HT6B+4
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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" PLTAX+3
^AUPNPROB - [#9000011] PLCODE+9, PLCODE+10, PLCODE+11, PLCODE+12, PLCODE+14, PLCODE+15, PLCODE+17, PLCODE+18, PLCODE+20, PLCODE+21
, PLTAX+5, PLCL+8, PLCL+9, PLCL+10, PLCL+11, PLCL+12, PLCL+14, PLCL+15, PLCL+17, PLCL+18
, PLCL+19
^AUPNPROB("AC" PLCODE+9, PLTAX+5, PLCL+8
^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
^BUDDLST2 - [#90668.6] IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDDLST2("C" IN6B+1, HT6B+2
^BUDDTSSC("AD" PLCL+18
^BUDDTSSC("AS" PLCL+19
^BUDDTSSC("B" PLCL+6
^BWPCD - [#9002086.1] WH+9, WH+10, WH+11, WH+20, WH+21
^BWPCD("C" WH+8
^DIBT( DEMO+14, DEMO+20
^DIBT("B" DEMO+12, DEMO+18
^DIC(4 - [#4] LOC+1, SITE
^DPT - [#2] DEMO+7, DEMO+8, DEMO+9, DEMO+10, DEMO+16
^ICPT - [#81] CPTI+8, TRANI+5
^RAMIS(71 - [#71] RAD+14, RAD+24, RAD+25
^TMP($J S+2*

Label References

Name Line Occurrences
$$CTR IN6B+3, IN6B+4
$$LOC IN6B+3
PAUSE IN6B+7
PRINT V+2
S HT6B+6, HT6B+7, HT6B+8
XIT SITE

Naked Globals

Name Field # of Occurrence
^(0 LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DEMO+11~, DEMO+12*, DEMO+13, DEMO+14, DEMO+17~, DEMO+18*, DEMO+19, DEMO+20, LASTITEM+5~*
A PLCODE~, PLCODE+2, PLCODE+7, PLCODE+9~, PLCODE+14*, PLCODE+15, PLCODE+17*, PLCODE+18, PLTAX~, PLTAX+2
, PLTAX+3, PLCL~, PLCL+2, PLCL+6, PLCL+8~, PLCL+11*, PLCL+12, PLCL+14*, PLCL+15
BD PLCL~, PLCL+5*, PLCL+13, PLCL+16, PLCL+17, 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!
>> BUDDECNT S+1*, S+2
BUDJ V+3*, PRINT+1*, XIT+1!
BUDLINE V+2*, V+3*, PRINT+1, XIT+1!
>> BUDLST2I IN6B+1*, IN6B+5, IN6B+8
BUDR LASTITEM+5~
BUDR(1 LASTITEM+6, LASTITEM+7
>> BUDROT HT6B+3, HT6B+5
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 DATE~, DATE+1, DATE+2, WH+7~, WH+11*, WH+12, WH+13, WH+14, WH+15, WH+20*
, WH+21*, PLCODE+9~, PLCODE+14*, PLCODE+15*, PLCODE+16, PLCODE+17*, PLCODE+18*, PLCODE+19, PLCL+8~, PLCL+11*
, PLCL+12*, PLCL+13, PLCL+14*, PLCL+15*, PLCL+16, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~
DA PAUSE+1!
>> DFN DEMO+8, DEMO+9, DEMO+10
DIR PAUSE+1!
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*
DT PLCODE+3, PLCL+4, LASTITEM+2
DUZ(2 LOC+1, SITE
E LASTITEM+5~*
ED PLCODE~, PLCODE+3*, PLCODE+16, PLCODE+19, PLCODE+20, PLCL~, PLCL+4*, PLCL+13, PLCL+16, PLCL+17
, 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, PLCODE+9~, PLCODE+14*
, PLCODE+16*, PLCODE+17, PLCODE+19*, PLCODE+20, PLCL+8~, PLCL+11*, PLCL+13*, PLCL+14, PLCL+16*, PLCL+17
, 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+9~*, PLCODE+21*, PLCODE+22, PLTAX+5~*, PLTAX+6, PLCL+8~*, PLCL+18*, PLCL+19*
, PLCL+20, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17, CPTI+18
IOF IN6B+2, PRINT
IOM CTR+1
J CPTI+10~, CPTI+20*, CPTI+22*
K CPTI+10~, CPTI+20*, CPTI+22*
L HT6B+1~, HT6B+2*, HT6B+4, HT6B+7
M CPTI+10~, CPTI+17*, CPTI+20
M1 CPTI+10~, CPTI+18*, CPTI+22
N PLCL+6~, PLCL+19*
O WH+7~
P DEMO~, DEMO+1, DEMO+7, DEMO+14, DEMO+16, DEMO+20, WH~, WH+1, WH+8, PLCODE~
, PLCODE+1, PLCODE+9, PLTAX~, PLTAX+1, PLTAX+5, PLCL~, PLCL+1, PLCL+5, PLCL+8, 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 DEMO+4~, DEMO+5*, DEMO+6, DEMO+7*, DEMO+8*, DEMO+9*, DEMO+10*, DEMO+13*, DEMO+14*, DEMO+15
, DEMO+16*, DEMO+19*, DEMO+20*, DEMO+21*, LASTITEM+5!
S PLCODE~, PLCODE+4*, PLCODE+11, PLCL~, PLCL+3*, PLCL+10
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 IN6B~, IN6B+1, HT6B~, HT6B+2, DEMO~, DEMO+2*, DEMO+3, DEMO+6, DEMO+15, WH~
, WH+2, WH+10, PLCODE+5~, PLCODE+7*, PLCODE+8, PLCODE+13, PLTAX+3~*, PLTAX+4, PLTAX+5, PLCL+6~*
, PLCL+7, PLCL+18, PLCL+19, CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~
, TRAN+2, TRAN+14
>> TRANI TRANI+2
U LOC+1, IN6B+5, DEMO+7, DEMO+8, DEMO+9, DEMO+10, DEMO+16, WH+10, WH+11, WH+20
, WH+21, PLCODE+10, PLCODE+11, PLCODE+12, PLCODE+15, PLCODE+18, PLCODE+20, PLCODE+21, PLTAX+5, PLCL+9
, PLCL+10, PLCL+12, PLCL+15, PLCL+17, PLCL+18, PLCL+19, 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 S~, S+2, 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 CTR~, CTR+1, IN6B+8*, HT6B+4*, HT6B+7*, WH+7~, PLCODE+9~*, PLCODE+10, PLCODE+11, PLCODE+12
, PLCODE+14, PLCODE+15, PLCODE+17, PLCODE+18, PLCODE+20, PLCODE+21, PLTAX+5~*, PLCL+8~*, PLCL+9, PLCL+10
, PLCL+11, PLCL+12, PLCL+14, PLCL+15, PLCL+17, PLCL+18, PLCL+19, 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 CTR~, CTR+1, WH+7~, PLCODE+9~*, PLCODE+12*, PLCODE+13, PLTAX+5~*, PLCL+8~*, PLCL+18*, 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 |  Naked Globals |  Local Variables |  Marked Items |  All