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

Package: IHS Uniform Data System

Routine: BUDRPTP


Information

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

Source Information

Source file <BUDRPTP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Uniform Data System 2 ^BUDRPTL  T6^BUDRPTP1  
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 BUDRPT1  BUDRPT2  BUDRPTP1  

Entry Points

Name Comments DBIA/ICR reference
T518
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 ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " "
  • Line Location: T3A+8
Function Call: WRITE
  • Prompt: !,$$CTR($G(^BUDTTA(1,11)),80),!
  • Line Location: T3ASH+1
Function Call: WRITE
  • Prompt: !,$P(^BUDTTA(X,0),U,2),?5,$P(^BUDTTA(X,0),U,3),?33,$P(^BUDTTA(X,0),U,4),?50,$P(^BUDTTA(X,0),U,5),?68,$P(^BUDTTA(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: !?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: " "
  • Line Location: T5+5
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+10
Function Call: WRITE
  • Prompt: " "
  • Line Location: T5+15
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+27
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(^BUDTFIVE(BUDY,0),U,3)
  • Line Location: T518+12
Function Call: WRITE
  • Prompt: !?6,$P(^BUDTFIVE(BUDY,0),U,4)
  • Line Location: T518+13
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+36
Function Call: WRITE
  • Prompt: !,"33.",?10,"TOTAL ADMINISTRATION AND FACILITY",!?10,"(TOTAL LINES 30+31+32)"
  • Line Location: T518+44
Function Call: WRITE
  • Prompt: ?60,$$C($P(BUDTAB5(33),U,1),2),?71,$$C($P(BUDTAB5(33),U,2),2),!,BUD80L
  • Line Location: T518+45
Function Call: WRITE
  • Prompt: !,"34.",?10,"GRAND TOTAL: (TOTAL LINES",!?10,"(15+19+20+21+22+23+29+29A+33)"
  • Line Location: T518+47
Function Call: WRITE
  • Prompt: ?60,$$C(Y),?71,$$C(Y,2),!,BUD80L
  • Line Location: T518+49
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: !?3,$P(^VA(200,DUZ,0),U,2),$$CTR($P(^DIC(4,BUDSITE,0),U),80),?70,"Page ",BUDPG
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,"UDS No. ",$P(^BUDUSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER1+6
Routine Call
  • DIR
  • Line Location:
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BUDTFIVE - [#90345.5] T5+6, T5+16, T5+22, T5+30, T518+2, T518+11, T518+12, T518+13, T518+19, T518+25
, T518+31, T518+39
^BUDTFIVE("B" T5+3, T5+12, T5+20, T5+28, T518, T518+9, T518+17, T518+23, T518+29, T518+37
^BUDTTA - [#90345.3] T3A+5, T3ASH+2
^BUDTTA("B" T3A+3
^BUDTTA(1 T3ASH+1
^BUDUSITE - [#90345.1] HEADER1+4
^DIC(4 - [#4] HEADER1+2, LOC+1
^TMP($J EOJ+1!
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("BUDRPT1" EOJ+2!

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, T5+7, T5+8, T5+10, T5+17, T5+18, T5+23, T5+24, T5+27
, T5+31, T5+32, T518+3, T518+4, T518+7, T518+14, T518+15, T518+20, T518+21, T518+26
, T518+27, T518+32, T518+33, T518+36, T518+40, T518+41, T518+45, T518+49
$$CTR T3ASH+1, T3BSH+1, T3BSH+2, T5SH+1, HEADER1+2
EOJ PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10
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, T5+1, T5+13, T5+21, T5+26, T5+29, T518+1, T518+6, T518+8
, T518+10, T518+18, T518+24, T518+30, T518+35, T518+38, T518+43, T518+46, T518+51
HEADER1 HEADER+1
PATLISTS PRINT+9
T3A PRINT+4
T3ASH T3A+1, T3A+4, T3A+13
T3B PRINT+5
T3BSH T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21
T4 PRINT+6
T5 PRINT+7
T5SH T5+1, T5+13, T5+21, T5+26, T5+29, T518+1, T518+6, T518+8, T518+10, T518+18
, T518+24, T518+30, T518+35, T518+38, T518+43, T518+46, T518+51
T6 PRINT+8

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, T5+9, T5+10, T5+19, T5+25, T5+27, T5+33, T518+5, T518+7
, T518+16, T518+22, T518+28, T518+34, T518+36, T518+42, T518+45, T518+49
>> BUDBD HEADER1+5
>> BUDC T3A+3*, T3A+5
>> BUDED HEADER1+5
>> BUDH EOJ+2
>> BUDJ EOJ+2
>> BUDL T5+3*, T5+5, T5+6, T5+7, T5+8, T5+12*, T5+15, T5+16, T5+17, T5+18
, T5+20*, T5+22, T5+23, T5+24, T5+28*, T5+30, T5+31, T5+32, T518*, T518+2
, T518+3, T518+4, T518+9*, T518+11, T518+14, T518+15, T518+17*, T518+19, T518+20, T518+21
, T518+23*, T518+25, T518+26, T518+27, T518+29*, T518+31, T518+32, T518+33, T518+37*, T518+39
, T518+40, T518+41
>> BUDPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> BUDQUIT PRINT+2*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, 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, T5+1
, T5+3, T5+12, T5+13, T5+20, T5+21, T5+26, T5+28, T5+29, T518, T518+1
, T518+6, T518+8, T518+9, T518+10, T518+17, T518+18, T518+23, T518+24, T518+29, T518+30
, T518+35, T518+37, T518+38, T518+43, T518+46, T518+51, 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
>> BUDSITE HEADER1+2, HEADER1+4
>> BUDT3A PRINT+4
>> BUDT3B PRINT+5
>> BUDT4 PRINT+6
>> BUDT5 PRINT+7
>> BUDT6 PRINT+8
>> BUDTAB5( T5+7, T5+8, T5+17, T5+18, T5+23, T5+24, T5+31, T5+32, T518+3, T518+4
, T518+14, T518+15, T518+20, T518+21, T518+26, T518+27, T518+32, T518+33, T518+40, T518+41
, T518+48
>> BUDTAB5(15 T5+27
>> BUDTAB5(19 T518+7
>> BUDTAB5(29 T518+36
>> BUDTAB5(33 T518+45
>> BUDTAB5(35 T518+50, T518+52
>> BUDTAB5(8 T5+10
>> BUDTOT("ALL" T3A+11
>> BUDTOT("F" T3A+11
>> BUDTOT("M" T3A+11
>> BUDX T3A+6*, T3A+8, T3A+11, T3A+12
>> BUDY T3A+5*, T3A+6, T3A+9, T5+3*, T5+6, T5+12*, T5+16, T5+20*, T5+22, T5+28*
, T5+30, T518*, T518+2, T518+9*, T518+11, T518+12, T518+13, T518+17*, T518+19, T518+23*
, T518+25, T518+29*, T518+31, T518+37*, T518+39
DIR HEADER+2!
DIR(0 HEADER+2*
DT HEADER1+4
>> 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
, T5+13, T5+21, T5+26, T5+29, T518+1, T518+6, T518+10, T518+18, T518+24, T518+30
, T518+35, T518+38, T518+43, T518+46, T518+51
IOST HEADER+2
U T3A+6, T3A+9, T3A+11, T3ASH+2, T5+6, T5+7, T5+8, T5+10, T5+16, T5+17
, T5+18, T5+22, T5+23, T5+24, T5+27, T5+30, T5+31, T5+32, T518+2, T518+3
, T518+4, T518+7, T518+11, T518+12, T518+13, T518+14, T518+15, T518+19, T518+20, T518+21
, T518+25, T518+26, T518+27, T518+31, T518+32, T518+33, T518+36, T518+39, T518+40, T518+41
, T518+45, T518+48, T518+50, T518+52, HEADER1+2, HEADER1+4, USR+1, LOC+1
X T3ASH+2*, T3B+19*, T518+48*, C~, C+1, C+5, CTR~, CTR+1
>> X2 C+3*
>> X3 C+3*
Y T3B+19*, T3B+20, T518+48*, T518+49, 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