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

Package: IHS Uniform Data System

Routine: BUDHRPL3


Information

BUDHRPL3 ; IHS/CMI/LAB - UDS print lists ;

Source Information

Source file <BUDHRPL3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Uniform Data System 4 $$VER^BUDHBAN  $$RACE^BUDHRPTC  HEADER^BUDHRPTP  STEMP^BUDHRPTS  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$CLINIC,$$LOCENC,$$PRIMPOV,$$PRIMPROV)^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDHRPTP  

Entry Points

Name Comments DBIA/ICR reference
T3ASH ;
MEDSERV ;
DUP(DFN,T) ;
MENTSERV ;
TW ;
ENASERV ;
T53 ;EP
OTHSERV ;
T5W ;
SUBSERV ;
USR() ;EP - Return name of current user from ^VA(200.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
OTHSERV1 ;
C(X,Y) ;
CTR(X,Y) ;EP - Center X in a field Y wide.
T5H2 ;
T53H ;
ENASERV1 ;
DUPOE(DFN,T) ;
T3A ;EP
DENTSERV ;

External References

Name Field # of Occurrence
COMMA^%DTC C+4
$$CLINIC^APCLV TW+2
$$LOCENC^APCLV TW+2
$$PRIMPOV^APCLV TW+2
$$PRIMPROV^APCLV TW+1
$$AGE^AUPNPAT T5W+3
$$HRN^AUPNPAT T5W+2
$$VER^BUDHBAN T5H2+4
$$RACE^BUDHRPTC T5W+3
HEADER^BUDHRPTP T3A+3, T3A+7, T3A+16, T3A+19, T3A+22
STEMP^BUDHRPTS T3A+1
^DIR T53H+2
$$FMTE^XLFDT TW+1, T5H2+3, T5H2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: T53+11
Function Call: WRITE
  • Prompt: !!,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCCOM,1,12)
  • Line Location: T5W+2
Function Call: WRITE
  • Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCCAD),?60,$E($P($$RACE^BUDHRPTC(DFN),U,3)_"-"_$P($$RACE^BUDHRPTC(DFN),U,4),1,19)
  • Line Location: T5W+3
Function Call: WRITE
  • Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?18,$E($$PRIMPROV^APCLV(BUDV,"E"),1,17),?36,$$PRIMPROV^APCLV(BUDV,"T"),?42,$$PRIMPROV^APCLV(BUDV,"D")
  • Line Location: TW+1
Function Call: WRITE
  • Prompt: ?48,$$PRIMPOV^APCLV(BUDV,"C"),?56,$P(^AUPNVSIT(BUDV,0),U,7),?59,$E($$CLINIC^APCLV(BUDV,"E"),1,9),?70,$E($$LOCENC^APCLV(BUDV,"E"),1,9)
  • Line Location: TW+2
Function Call: WRITE
  • Prompt: !!,"Line 15 Total Medical Care"
  • Line Location: MEDSERV+2
Function Call: WRITE
  • Prompt: !!,"Line 19 Total Dental Services"
  • Line Location: DENTSERV+2
Function Call: WRITE
  • Prompt: !!,"Line 20 Mental Health"
  • Line Location: MENTSERV+2
Function Call: WRITE
  • Prompt: !!,"Line 21 Substance Abuse Services"
  • Line Location: SUBSERV+2
Function Call: WRITE
  • Prompt: !!,"Line 22 Other Professional Services"
  • Line Location: OTHSERV+2
Function Call: WRITE
  • Prompt: !!,"Line 29 Total Enabling Services"
  • Line Location: ENASERV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: T53H+2
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  • Line Location: T5H2+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,!
  • Line Location: T5H2+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: T5H2+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, Patients w/Multiple Visits on Same",80)
  • Line Location: T5H2+5
Function Call: WRITE
  • Prompt: !,$$CTR("Day in Same Service Categories",80)
  • Line Location: T5H2+6
Function Call: WRITE
  • Prompt: !,$$CTR($P(^DIC(4,BUDSITE,0),U),80)
  • Line Location: T5H2+7
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: T5H2+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H2+9
Function Call: WRITE
  • Prompt: !,"List of all patients with multiple visits on the same day for the same",!,"BPHC service category.",!,"Age on the patient list is calculated as of June 30.",!
  • Line Location: T5H2+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*"
  • Line Location: T5H2+14
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?18,"PROV TYPE",?36,"INI",?40,"PROV CD",?48,"PRI DX",?55,"SRV",?59,"CLINIC",?70,"LOCATION"
  • Line Location: T5H2+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H2+16
Function Call: WRITE
  • Prompt: " "
  • Line Location: T3A+11
Function Call: WRITE
  • Prompt: !,$P(^BUDHTTA(BUDD,0),U,2),?5,$P(^BUDHTTA(BUDD,0),U,3)
  • Line Location: T3A+20
Function Call: WRITE
  • Prompt: !
  • Line Location: T3A+25
Function Call: WRITE
  • Prompt: $P(BUDY,U,2),?5,$P(BUDY,U,3)
  • Line Location: T3A+26
Function Call: WRITE
  • Prompt: ?35,$$C($P(BUDTOT("M"),U,BUDX)),?50,$$C($P(BUDTOT("F"),U,BUDX)),?68,$$C($P(BUDTOT("ALL"),U,BUDX))
  • Line Location: T3A+27
Function Call: WRITE
  • Prompt: !
  • Line Location: T3A+28
Function Call: WRITE
  • Prompt: !,$$CTR($G(^BUDHTTA(1,11)),80),!
  • Line Location: T3ASH+1
Function Call: WRITE
  • Prompt: !,$P(^BUDHTTA(X,0),U,2),?5,$P(^BUDHTTA(X,0),U,3),?33,$P(^BUDHTTA(X,0),U,4),?50,$P(^BUDHTTA(X,0),U,5),?68,$P(^BUDHTTA(X,0),U,6)
  • Line Location: T3ASH+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3ASH+3
Routine Call
  • DIR
  • Line Location:
    • T53H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TW+1, TW+2
^BUDHTFIV - [#90669.905] T53+3
^BUDHTFIV("B" T53+3
^BUDHTTA - [#90669.903] T3A+8, T3A+20, T3A+23, T3ASH+2
^BUDHTTA("AC" T3A+5, T3A+6, T3A+21
^BUDHTTA("B" T3A+18, T3ASH+2
^BUDHTTA(1 T3ASH+1
^DIC(4 - [#4] T5H2+7, LOC+1
^DPT - [#2] T5W+2, T5W+3
^VA(200 - [#200] T5H2+3, USR+1
^XTMP("BUDHRPT1" T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6
, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3
, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6
, DUPOE+7

Label References

Name Line Occurrences
$$C T3A+14, T3A+17, T3A+27
$$CTR T5H2+2, T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+8, T3ASH+1
$$DUP T5W+1, MEDSERV+1, DENTSERV+1, MENTSERV+1, SUBSERV+1
$$DUPOE T5W+1, OTHSERV+1, ENASERV+1
DENTSERV T5W+6
ENASERV T5W+14
ENASERV1 ENASERV+4
MEDSERV T5W+4
MENTSERV T5W+8
OTHSERV T5W+12
OTHSERV1 OTHSERV+4
SUBSERV T5W+10
T3ASH T3A+3, T3A+7, T3A+16, T3A+19, T3A+22
T53H T53+2, MEDSERV+3, MEDSERV+7, DENTSERV+3, DENTSERV+7, MENTSERV+3, MENTSERV+7, SUBSERV+3, SUBSERV+7, OTHSERV+3
, OTHSERV1+4, ENASERV+3, ENASERV1+4
T5H2 T53H+1
T5W T53+7
TW MEDSERV+8, DENTSERV+8, MENTSERV+8, SUBSERV+8, OTHSERV1+5, ENASERV1+5

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+17
>> BUD019("F" T3A+17
>> BUD019("M" T3A+17
>> BUDAGE T53+5*, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6, MENTSERV+4
, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4
, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6, DUPOE+7
>> BUDBD T5H2+8
>> BUDCCAD T5W+3
>> BUDCCOM T53+4*, T53+5, T53+6, T53+7, T5W+2, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5
, DENTSERV+6, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2
, OTHSERV1+3, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5
, DUPOE+6, DUPOE+7
>> BUDD MEDSERV+4*, MEDSERV+5, MEDSERV+6, DENTSERV+4*, DENTSERV+5, DENTSERV+6, MENTSERV+4*, MENTSERV+5, MENTSERV+6, SUBSERV+4*
, SUBSERV+5, SUBSERV+6, OTHSERV1+1*, OTHSERV1+2, OTHSERV1+3, ENASERV1+1*, ENASERV1+2, ENASERV1+3, T3A+6*, T3A+8
, T3A+18*, T3A+20, T3A+21*, T3A+23
>> BUDDIS OTHSERV+4*, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4*, ENASERV1+1, ENASERV1+2, ENASERV1+3
>> BUDED T5H2+8
>> BUDGPG T53H+1, T5H2+1*, T5H2+3
>> BUDH T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6
, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3
, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6
, DUPOE+7
>> BUDJ T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6
, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3
, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6
, DUPOE+7
>> BUDP T53+1*, T5H2+10, T5H2+18*
>> BUDPG T3A+2*
>> BUDPIEC MEDSERV+6*, DENTSERV+6*, MENTSERV+6*, SUBSERV+6*, OTHSERV1+3*, ENASERV1+3*
>> BUDQUIT T53+4, T53+5, T53+6, T53+7, T5W+5, T5W+7, T5W+9, T5W+11, T5W+13, T5W+15
, MEDSERV+3, MEDSERV+4, MEDSERV+6, MEDSERV+7, DENTSERV+3, DENTSERV+4, DENTSERV+6, DENTSERV+7, MENTSERV+3, MENTSERV+4
, MENTSERV+6, MENTSERV+7, SUBSERV+3, SUBSERV+4, SUBSERV+6, SUBSERV+7, OTHSERV+3, OTHSERV+4, OTHSERV1+1, OTHSERV1+3
, OTHSERV1+4, ENASERV+3, ENASERV+4, ENASERV1+1, ENASERV1+3, ENASERV1+4, T53H+2*, T3A+3, T3A+5, T3A+7
, T3A+16, T3A+19, T3A+22
>> BUDSCTC T5H2+3
>> BUDSEX T53+6*, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6, MENTSERV+4, MENTSERV+5
, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4, ENASERV1+1
, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6, DUPOE+7
>> BUDSITE T5W+2, T5H2+7
>> BUDSTMP T3A+1
>> BUDTOT("ALL" T3A+14, T3A+27
>> BUDTOT("F" T3A+14, T3A+27
>> BUDTOT("M" T3A+14, T3A+27
>> BUDTSCTC T5H2+3
>> BUDV TW+1, TW+2, MEDSERV+6*, DENTSERV+6*, MENTSERV+6*, SUBSERV+6*, OTHSERV1+3*, ENASERV1+3*
>> BUDX T3A+9*, T3A+11, T3A+14, T3A+15, T3A+24*, T3A+27
>> BUDX2L T53+3*
>> BUDX2L2 T53+3*
>> BUDY T53+3*, T3A+8*, T3A+9, T3A+12, T3A+23*, T3A+24, T3A+26
>> BUDZ T3A+5*, T3A+6
DFN T53+7*, T5W+1, T5W+2, T5W+3, MEDSERV+1, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+1, DENTSERV+4
, DENTSERV+5, DENTSERV+6, MENTSERV+1, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+1, SUBSERV+4, SUBSERV+5, SUBSERV+6
, OTHSERV+1, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+1, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3
, DUP~, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE~, DUPOE+5, DUPOE+6, DUPOE+7
DIR T53H+2!
DIR(0 T53H+2*
DT T5H2+3
>> DTOUT T53H+2
DUZ T5H2+3, USR+1
DUZ(2 T5W+2, LOC+1
G DUP+1~, DUP+2*, DUP+4, DUP+7*, DUP+10*, DUP+12, DUPOE+1~, DUPOE+2*, DUPOE+7*, DUPOE+9
IO T53H+2
IO(0 T53H+2
IOF T5H2+1
IOM T5H2+2, CTR+1
IOSL MEDSERV+3, MEDSERV+7, DENTSERV+3, DENTSERV+7, MENTSERV+3, MENTSERV+7, SUBSERV+3, SUBSERV+7, OTHSERV+3, OTHSERV1+4
, ENASERV+3, ENASERV1+4, T3A+7, T3A+16, T3A+19, T3A+22
IOST T53H+2
T DUP~, DUP+3*, DUP+4, DUP+9, DUP+10, DUPOE~, DUPOE+3*, DUPOE+4, DUPOE+5, DUPOE+6
, DUPOE+7
U T53+3, T5W+2, T5W+3, TW+1, TW+2, MEDSERV+5, MEDSERV+6, DENTSERV+5, DENTSERV+6, MENTSERV+5
, MENTSERV+6, SUBSERV+5, SUBSERV+6, OTHSERV1+2, OTHSERV1+3, ENASERV1+2, ENASERV1+3, DUP+7, DUP+10, DUPOE+7
, T5H2+3, T5H2+7, USR+1, LOC+1, T3A+9, T3A+12, T3A+14, T3A+20, T3A+24, T3A+26
, T3A+27, T3ASH+2
X DUP+1~, DUP+5*, DUP+6, DUP+7, DUPOE+1~, DUPOE+6*, DUPOE+7, T5H2+8*, CTR~, CTR+1
, T3ASH+2*, C~, C+1, C+5
>> X2 C+3*
>> X3 C+3*
Y DUP+1~, DUP+6*, DUP+7, DUP+9*, DUP+10, DUPOE+1~, DUPOE+5*, DUPOE+6, DUPOE+7, T53H+2
, CTR~, CTR+1, T3ASH+2*, C~, C+1, C+2
>> ZTQUEUED T53H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All