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 |  All
Print Page as PDF
Routine: BUD6RPTP

Package: IHS Uniform Data System

Routine: BUD6RPTP


Information

BUD6RPTP ; IHS/CMI/LAB - UDS REPORT PRINT ;

Source Information

Source file <BUD6RPTP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Uniform Data System 2 T6^BUD6RPP1  ^BUD6RPTL  
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Uniform Data System 3 BUD6RPP1  BUD6RPT1  BUD6RPT2  

Entry Points

Name Comments DBIA/ICR reference
T518
TZ ;
C(X,Y) ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
T3ASH ;
EOJ ;
T4 ;
T5 ;print table 5
T3B ;
USR() ;EP - Return name of current user from ^VA(200.
T3A ;
T6 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
HEADER1 ;
T5SH ;
T3BSH ;
PRINT ;EP
PATLISTS ;
TZSH ;

External References

Name Field # of Occurrence
COMMA^%DTC C+4
T6^BUD6RPP1 T6+1
^BUD6RPTL PATLISTS+1
^DIR HEADER+2
$$FMTE^XLFDT HEADER1+5, HEADER1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " "
  • Line Location: T3A+8
Function Call: WRITE
  • Prompt: !,$$CTR($G(^BUDSTTA(1,11)),80),!
  • Line Location: T3ASH+1
Function Call: WRITE
  • Prompt: !,$P(^BUDSTTA(X,0),U,2),?5,$P(^BUDSTTA(X,0),U,3),?33,$P(^BUDSTTA(X,0),U,4),?50,$P(^BUDSTTA(X,0),U,5),?68,$P(^BUDSTTA(X,0),U,6)
  • Line Location: T3ASH+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: T3ASH+3
Function Call: WRITE
  • Prompt: !!,$$CTR("TABLE 3B -",80)
  • Line Location: T3BSH+1
Function Call: WRITE
  • Prompt: !,$$CTR("USERS BY RACE/ETHNICITY/LANGUAGE",80),!
  • Line Location: T3BSH+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3BSH+3
Function Call: WRITE
  • Prompt: !,"RACE/ETHNICITY/LANGUAGE",?65,"NUMBER (a)"
  • Line Location: T3BSH+4
Function Call: WRITE
  • Prompt: !,"PROPORTION OF USERS"
  • Line Location: T3BSH+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3BSH+6
Function Call: WRITE
  • Prompt: !!,$$CTR("CENTER/GRANTEE PROFILE",80)
  • Line Location: TZSH+1
Function Call: WRITE
  • Prompt: !,$$CTR("COVER SHEET",80),!
  • Line Location: TZSH+2
Function Call: WRITE
  • Prompt: !!,$$CTR("USER/PATIENT BY ZIP CODE",80)
  • Line Location: TZSH+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: TZSH+5
Function Call: WRITE
  • Prompt: !!?5,"ZIP CODE",?40,"USERS/PATIENTS"
  • Line Location: TZSH+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: TZSH+7
Function Call: WRITE
  • Prompt: !?3,"1a.",?8,"Asian",?65,$$C(BUDRACET("1A")),!,BUD80L
  • Line Location: T3B+3
Function Call: WRITE
  • Prompt: !?3,"1b.",?8,"Native Hawaiian",?65,$$C(BUDRACET("1B")),!,BUD80L
  • Line Location: T3B+4
Function Call: WRITE
  • Prompt: !?3,"1c.",?8,"Other Pacific Islander",?65,$$C(BUDRACET("1C")),!,BUD80L
  • Line Location: T3B+5
Function Call: WRITE
  • Prompt: !,"1.",?13,"Asian/Pacific Islander (sum lines 1a+1b+1c)",?65,$$C(BUDRACET("1A")+BUDRACET("1B")+BUDRACET("1C")),!,BUD80L
  • Line Location: T3B+7
Function Call: WRITE
  • Prompt: !,"2.",?8,"Black/African American (not Hispanic or Latino)",?65,$$C(BUDRACET(2)),!,BUD80L
  • Line Location: T3B+9
Function Call: WRITE
  • Prompt: !,"3.",?8,"American Indian/Alaska Native",?65,$$C(BUDRACET(3)),!,BUD80L
  • Line Location: T3B+11
Function Call: WRITE
  • Prompt: !,"4.",?8,"White (not Hispanic or Latino)",?65,$$C(BUDRACET(4)),!,BUD80L
  • Line Location: T3B+13
Function Call: WRITE
  • Prompt: !,"5.",?8,"Hispanic or Latino (all races)",?65,$$C(BUDRACET(5)),!,BUD80L
  • Line Location: T3B+15
Function Call: WRITE
  • Prompt: !,"6.",?8,"Unreported / Refused to Report",?65,$$C(BUDRACET(6)),!,BUD80L
  • Line Location: T3B+17
Function Call: WRITE
  • Prompt: !,"7.",?12,"TOTAL USERS (SUM LINES 1-6)",?65,$$C(Y),!,BUD80L
  • Line Location: T3B+20
Function Call: WRITE
  • Prompt: !,"8.",?8,"Users needing interpretation/Bilingual/Sign Language Services",!,BUD80L
  • Line Location: T3B+22
Function Call: WRITE
  • Prompt: !!?8,"TOTAL",?40,$$C(BUDZTOT)
  • Line Location: TZ+32
Function Call: WRITE
  • Prompt: " "
  • Line Location: T5+6
Function Call: WRITE
  • Prompt: !," 8.",?10,"TOTAL PHYSICIANS",!?8,"(Total Lines 1 through 7)",?60,$$C($P(BUDTAB5(8),U,1)),?71,$$C($P(BUDTAB5(8),U,2),2),!,BUD80L
  • Line Location: T5+11
Function Call: WRITE
  • Prompt: " "
  • Line Location: T5+16
Function Call: WRITE
  • Prompt: !,"15.",?10,"TOTAL MEDICAL CARE SERVICES",!?10,"(TOTAL LINES 8 THROUGH 14)",?60,$$C($P(BUDTAB5(15),U,1)),?71,$$C($P(BUDTAB5(15),U,2)),!,BUD80L
  • Line Location: T5+28
Function Call: WRITE
  • Prompt: !,"19.",?10,"TOTAL DENTAL SERVICES",!?10,"(TOTAL LINES 16 THROUGH 18)",?60,$$C($P(BUDTAB5(19),U,1)),?71,$$C($P(BUDTAB5(19),U,2)),!,BUD80L
  • Line Location: T518+7
Function Call: WRITE
  • Prompt: !?6,$P(^BUDSTFIV(BUDY,0),U,3)
  • Line Location: T518+12
Function Call: WRITE
  • Prompt: !?6,$P(^BUDSTFIV(BUDY,0),U,4)
  • Line Location: T518+13
Function Call: WRITE
  • Prompt: !,"20.",?10,"MENTAL HEALTH SERVICES",!?10,"(TOTAL LINES 20A + 20B +20C)",?60,$$C($P(BUDTAB5(20),U,1)),?71,$$C($P(BUDTAB5(20),U,2)),!,BUD80L
  • Line Location: T518+18
Function Call: WRITE
  • Prompt: !,"29.",?10,"TOTAL ENABLING SERVICES",!?10,"(TOTAL LINES 24 THROUGH 28)",?60,$$C($P(BUDTAB5(29),U,1)),?71,$$C($P(BUDTAB5(29),U,2)),!,BUD80L
  • Line Location: T518+44
Function Call: WRITE
  • Prompt: !,"33.",?10,"TOTAL ADMINISTRATION AND FACILITY",!?10,"(TOTAL LINES 30+31+32)"
  • Line Location: T518+52
Function Call: WRITE
  • Prompt: ?60,$$C($P(BUDTAB5(33),U,1),2),?71,$$C($P(BUDTAB5(33),U,2),2),!,BUD80L
  • Line Location: T518+53
Function Call: WRITE
  • Prompt: !,"34.",?10,"GRAND TOTAL: (TOTAL LINES",!?10,"(15+19+20+21+22+23+29+29A+33)"
  • Line Location: T518+55
Function Call: WRITE
  • Prompt: ?60,$$C(Y),?71,$$C(Y,2),!,BUD80L
  • Line Location: T518+57
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 5 - STAFFING AND UTILIZATION",80)
  • Line Location: T5SH+1
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5SH+3
Function Call: WRITE
  • Prompt: !,?54,"FTEs",?60,"ENCOUNTERS",?71," USERS"
  • Line Location: T5SH+4
Function Call: WRITE
  • Prompt: !,"PERSONNEL BY MAJOR SERVICE CATEGORY",?54,"(a)",?64,"(b)",?73,"(c)"
  • Line Location: T5SH+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5SH+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,"UDS No. ",$P(^BUDSSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED)
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER1+7
Routine Call
  • DIR
  • Line Location:
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BUDSSITE - [#90348.1] HEADER1+5
^BUDSTFIV - [#90348.5] T5+7, T5+17, T5+23, T5+31, T518+2, T518+11, T518+12, T518+13, T518+21, T518+27
, T518+33, T518+39, T518+47
^BUDSTFIV("B" T5+3, T5+13, T5+21, T5+29, T518, T518+9, T518+19, T518+25, T518+31, T518+37
, T518+45
^BUDSTTA - [#90348.3] T3A+5, T3ASH+2
^BUDSTTA("B" T3A+3
^BUDSTTA(1 T3ASH+1
^DIC(4 - [#4] HEADER1+2, LOC+1
^TMP($J EOJ+1!
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("BUD6RPT1" TZ+4*, TZ+6, TZ+7, TZ+14, TZ+17, TZ+18!*, TZ+20, TZ+21, TZ+22, TZ+23
, TZ+24, TZ+25*, TZ+26!, TZ+27, TZ+29

Label References

Name Line Occurrences
$$C T3A+11, T3A+14, T3B+3, T3B+4, T3B+5, T3B+7, T3B+9, T3B+11, T3B+13, T3B+15
, T3B+17, T3B+20, TZ+30, TZ+32, T5+8, T5+9, T5+11, T5+18, T5+19, T5+24
, T5+25, T5+28, T5+32, T5+33, T518+3, T518+4, T518+7, T518+14, T518+15, T518+18
, T518+22, T518+23, T518+28, T518+29, T518+34, T518+35, T518+40, T518+41, T518+44, T518+48
, T518+49, T518+53, T518+57
$$CTR T3ASH+1, T3BSH+1, T3BSH+2, TZSH+1, TZSH+2, TZSH+4, T5SH+1, HEADER1+2
EOJ PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11
HEADER T3A+1, T3A+4, T3A+13, T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16
, T3B+18, T3B+21, TZ+1, TZ+28, T5+1, T5+14, T5+22, T5+27, T5+30, T518+1
, T518+6, T518+8, T518+10, T518+17, T518+20, T518+26, T518+32, T518+38, T518+43, T518+46
, T518+51, T518+54, T518+59
HEADER1 HEADER+1
PATLISTS PRINT+10
T3A PRINT+5
T3ASH T3A+1, T3A+4, T3A+13
T3B PRINT+6
T3BSH T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21
T4 PRINT+7
T5 PRINT+8
T5SH T5+1, T5+14, T5+22, T5+27, T5+30, T518+1, T518+6, T518+8, T518+10, T518+17
, T518+20, T518+26, T518+32, T518+38, T518+43, T518+46, T518+51, T518+54, T518+59
T6 PRINT+9
TZ PRINT+4
TZSH TZ+1, TZ+28

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD019("ALL" T3A+14
>> BUD019("F" T3A+14
>> BUD019("M" T3A+14
>> BUD80L PRINT+3*, T3B+3, T3B+4, T3B+5, T3B+7, T3B+9, T3B+11, T3B+13, T3B+15, T3B+17
, T3B+20, T3B+22, TZ+30, T5+10, T5+11, T5+20, T5+26, T5+28, T5+34, T518+5
, T518+7, T518+16, T518+18, T518+24, T518+30, T518+36, T518+42, T518+44, T518+50, T518+53
, T518+57
>> BUDBD HEADER1+6
>> BUDC T3A+3*, T3A+5
>> BUDCOM TZ+20*, TZ+21, TZ+22, TZ+23, TZ+24, TZ+25, TZ+26
>> BUDED HEADER1+6
>> BUDH TZ+4, TZ+6, TZ+7, TZ+14, TZ+17, TZ+18, TZ+20, TZ+21, TZ+22, TZ+23
, TZ+24, TZ+25, TZ+26, TZ+27, TZ+29
>> BUDJ TZ+4, TZ+6, TZ+7, TZ+14, TZ+17, TZ+18, TZ+20, TZ+21, TZ+22, TZ+23
, TZ+24, TZ+25, TZ+26, TZ+27, TZ+29
>> BUDL T5+3*, T5+6, T5+7, T5+8, T5+9, T5+13*, T5+16, T5+17, T5+18, T5+19
, T5+21*, T5+23, T5+24, T5+25, T5+29*, T5+31, T5+32, T5+33, T518*, T518+2
, T518+3, T518+4, T518+9*, T518+11, T518+14, T518+15, T518+19*, T518+21, T518+22, T518+23
, T518+25*, T518+27, T518+28, T518+29, T518+31*, T518+33, T518+34, T518+35, T518+37*, T518+39
, T518+40, T518+41, T518+45*, T518+47, T518+48, T518+49
>> BUDNAME TZ+22*, TZ+23, TZ+24, TZ+25, TZ+26
>> BUDPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> BUDQUIT PRINT+2*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, T3A+1, T3A+3, T3A+4
, T3A+13, T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21
, TZ+1, TZ+27, TZ+28, TZ+31, T5+1, T5+3, T5+13, T5+14, T5+21, T5+22
, T5+27, T5+29, T5+30, T518, T518+1, T518+6, T518+8, T518+9, T518+10, T518+17
, T518+19, T518+20, T518+25, T518+26, T518+31, T518+32, T518+37, T518+38, T518+43, T518+45
, T518+46, T518+51, T518+54, T518+59, HEADER+2*
>> BUDRACET( T3B+19
>> BUDRACET("1A" T3B+3, T3B+7
>> BUDRACET("1B" T3B+4, T3B+7
>> BUDRACET("1C" T3B+5, T3B+7
>> BUDRACET(2 T3B+9
>> BUDRACET(3 T3B+11
>> BUDRACET(4 T3B+13
>> BUDRACET(5 T3B+15
>> BUDRACET(6 T3B+17
>> BUDSEX TZ+21*, TZ+22, TZ+23, TZ+24, TZ+25, TZ+26
>> BUDSITE HEADER1+2, HEADER1+5
>> BUDT3A PRINT+5
>> BUDT3B PRINT+6
>> BUDT4 PRINT+7
>> BUDT5 PRINT+8
>> BUDT6 PRINT+9
>> BUDTAB5( T5+8, T5+9, T5+18, T5+19, T5+24, T5+25, T5+32, T5+33, T518+3, T518+4
, T518+14, T518+15, T518+22, T518+23, T518+28, T518+29, T518+34, T518+35, T518+40, T518+41
, T518+48, T518+49, T518+56
>> BUDTAB5(15 T5+28
>> BUDTAB5(19 T518+7
>> BUDTAB5(20 T518+18
>> BUDTAB5(29 T518+44
>> BUDTAB5(33 T518+53
>> BUDTAB5(35 T518+58, T518+60
>> BUDTAB5(8 T5+11
>> BUDTOT("ALL" T3A+11
>> BUDTOT("F" T3A+11
>> BUDTOT("M" T3A+11
>> BUDTZ PRINT+4
>> BUDX T3A+6*, T3A+8, T3A+11, T3A+12
>> BUDY T3A+5*, T3A+6, T3A+9, TZ+7*, TZ+8, TZ+17*, TZ+18, TZ+29*, TZ+30, T5+3*
, T5+4, T5+7, T5+13*, T5+17, T5+21*, T5+23, T5+29*, T5+31, T518*, T518+2
, T518+9*, T518+11, T518+12, T518+13, T518+19*, T518+21, T518+25*, T518+27, T518+31*, T518+33
, T518+37*, T518+39, T518+45*, T518+47
>> BUDZ TZ+6*, TZ+7, TZ+14*, TZ+15, TZ+16, TZ+17, TZ+18, TZ+20, TZ+21, TZ+22
, TZ+23, TZ+24, TZ+25, TZ+26, TZ+27*, TZ+29, TZ+30
>> BUDZTOT TZ+3*, TZ+8*, TZ+18, TZ+32
>> DFN TZ+23*, TZ+24, TZ+25, TZ+26
DIR HEADER+2!
DIR(0 HEADER+2*
DT HEADER1+5
>> DTOUT HEADER+2
DUZ HEADER1+2, USR+1
DUZ(2 LOC+1
IO HEADER+2
IO(0 HEADER+2
IOF HEADER1+1
IOM CTR+1
IOSL T3A+4, T3A+13, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21
, TZ+28, T5+14, T5+22, T5+27, T5+30, T518+1, T518+6, T518+10, T518+17, T518+20
, T518+26, T518+32, T518+38, T518+43, T518+46, T518+51, T518+54, T518+59
IOST HEADER+2
U T3A+6, T3A+9, T3A+11, T3ASH+2, T5+7, T5+8, T5+9, T5+11, T5+17, T5+18
, T5+19, T5+23, T5+24, T5+25, T5+28, T5+31, T5+32, T5+33, T518+2, T518+3
, T518+4, T518+7, T518+11, T518+12, T518+13, T518+14, T518+15, T518+18, T518+21, T518+22
, T518+23, T518+27, T518+28, T518+29, T518+33, T518+34, T518+35, T518+39, T518+40, T518+41
, T518+44, T518+47, T518+48, T518+49, T518+53, T518+56, T518+58, T518+60, HEADER1+2, HEADER1+5
, USR+1, LOC+1
X T3ASH+2*, T3B+19*, TZ+18*, TZ+24*, TZ+25, TZ+26, T518+56*, HEADER1+2*, C~, C+1
, C+5, CTR~, CTR+1
>> X2 C+3*
>> X3 C+3*
Y T3B+19*, T3B+20, T518+56*, T518+57, HEADER+2, C~, C+1, C+2, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All