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

Package: IHS Uniform Data System

Routine: BUDHDU


Information

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

Source Information

Source file <BUDHDU.m>

Call Graph

Call Graph Total: 12

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  
Taxonomy 2 $$ICD^ATXAPI  $$ICD^ATXCHK  
IHS Patient 1 $$DOB^AUPNPAT  
IHS Uniform Data System 1 GENI^BUDHRP6B  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
IHS Uniform Data System 31 BUDHRP61  BUDHRP6A  BUDHRP6B  BUDHRP6C  BUDHRP6D  BUDHRP6F  BUDHRP6G  BUDHRP6H  
BUDHRP6I  BUDHRP6J  BUDHRP6K  BUDHRP6L  BUDHRP6M  BUDHRP6N  BUDHRP6O  BUDHRP6P  
BUDHRP6R  BUDHRP6S  BUDHRP6T  BUDHRP6U  BUDHRP6V  BUDHRP6X  BUDHRP6Y  BUDHRP7  
BUDHRP7A  BUDHRP7B  BUDHRP7C  BUDHRPTC  BUDHRPTE  BUDHUTL2  BUDHUTL3  

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 ;
IPLSNOND(P,T,E,Z) ;EP - any problem list entry with a SNOMED in T
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
PLTAXND(P,A,E,Z)
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^ATXAPI PLTAXND+18
$$ICD^ATXCHK PLTAX+5, CPT+16, RAD+15, TRAN+14
$$DOB^AUPNPAT PLCL+5, LASTITEM+1
GENI^BUDHRP6B 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, PLTAXND+21
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 2018",80)
  • Line Location: IN6B+4
Function Call: WRITE
  • Prompt: !!,$P(^BUDHLST2(BUDLST2I,0),U,1)_" (Table 6B)",!
  • Line Location: IN6B+5
Function Call: WRITE
  • Prompt: !,^BUDHLST2(BUDLST2I,11,X,0)
  • Line Location: IN6B+8
Function Call: WRITE
  • Prompt: !
  • Line Location: IN6B+9
Function Call: WRITE
  • Prompt: !,^BUDHLST2(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, PLTAXND+7
^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, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, IPLSNOND+10
, IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, IPLSNOND+17
^AUPNPROB("AC" PLCODE+9, PLTAX+5, PLCL+8, PLTAXND+11
^AUPNPROB("APCT" IPLSNOND+8, IPLSNOND+9
^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
^BUDHLST2 - [#90669.906] IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDHLST2("C" IN6B+1, HT6B+2
^BUDHTSSC - [#90669.908] IPLSNOND+13
^BUDHTSSC("AD" PLCL+18
^BUDHTSSC("AS" PLCL+19
^BUDHTSSC("B" PLCL+6, IPLSNOND+7
^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, PLTAXND~
, PLTAXND+4, PLTAXND+7
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~, PLTAXND+9~
, PLTAXND+19*, PLTAXND+20*, PLTAXND+21, IPLSNOND+16*, IPLSNOND+17*, IPLSNOND+18
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~*, PLTAXND~, PLTAXND+5*, PLTAXND+16, PLTAXND+17, IPLSNOND~, IPLSNOND+4*, IPLSNOND+14, IPLSNOND+15
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, IPLSNOND+2~
, IPLSNOND+3*, IPLSNOND+8, IPLSNOND+9, IPLSNOND+18*, IPLSNOND+19
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, PLTAXND+9~, PLTAXND+10*, PLTAXND+11, PLTAXND+21*
, PLTAXND+23
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, PLTAXND~, PLTAXND+3, PLTAXND+11, IPLSNOND~, IPLSNOND+8, IPLSNOND+9
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, PLTAXND+7~*, PLTAXND+8, PLTAXND+18, IPLSNOND~, IPLSNOND+6*, IPLSNOND+7*, IPLSNOND+13
>> 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, PLTAXND+13, PLTAXND+14
, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15
, IPLSNOND+16, IPLSNOND+17, IPLSNOND+18
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, PLTAXND+9~, PLTAXND+10*, PLTAXND+11*, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16
, PLTAXND+17, PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+2~, IPLSNOND+3*, IPLSNOND+8*, IPLSNOND+9, IPLSNOND+13, IPLSNOND+18
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~, PLTAXND+9~, PLTAXND+10*, PLTAXND+15*, PLTAXND+18, IPLSNOND+2~, IPLSNOND+9*
, IPLSNOND+10, IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, IPLSNOND+17
Z CPTI+10~, PLTAXND~, PLTAXND+6*, PLTAXND+14, IPLSNOND~, IPLSNOND+5*, IPLSNOND+12

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