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

Package: IHS Uniform Data System

Routine: BUDEDU


Information

BUDEDU ;IHS/CMI/LAB - uds utility calls;

Source Information

Source file <BUDEDU.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^BUDERP6B  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
IHS Uniform Data System 31 BUDERP61  BUDERP6A  BUDERP6B  BUDERP6C  BUDERP6D  BUDERP6F  BUDERP6G  BUDERP6H  
BUDERP6I  BUDERP6J  BUDERP6K  BUDERP6L  BUDERP6M  BUDERP6N  BUDERP6O  BUDERP6P  
BUDERP6R  BUDERP6S  BUDERP6T  BUDERP6U  BUDERP6V  BUDERP6X  BUDERP6Y  BUDERP7  
BUDERP7A  BUDERP7B  BUDERP7C  BUDERPTC  BUDERPTE  BUDHRP6N  BUDHUTL2  

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^BUDERP6B 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 2017",80)
  • Line Location: IN6B+4
Function Call: WRITE
  • Prompt: !!,$P(^BUDELST2(BUDLST2I,0),U,1)_" (Table 6B)",!
  • Line Location: IN6B+5
Function Call: WRITE
  • Prompt: !,^BUDELST2(BUDLST2I,11,X,0)
  • Line Location: IN6B+8
Function Call: WRITE
  • Prompt: !
  • Line Location: IN6B+9
Function Call: WRITE
  • Prompt: !,^BUDELST2(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
^BUDELST2 - [#90669.6] IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDELST2("C" IN6B+1, HT6B+2
^BUDETSSC("AD" PLCL+18
^BUDETSSC("AS" PLCL+19
^BUDETSSC("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