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

Package: IHS Uniform Data System

Routine: BUDHRPL2


Information

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

Source Information

Source file <BUDHRPL2.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDHRPTL  

Entry Points

Name Comments DBIA/ICR reference
T3HD ;
S(V) ;
T51DH ;
T3H ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
T52 ;EP
T51H ;
T5H2 ;
T52DH ;
T51 ;EP
USR() ;EP - Return name of current user from ^VA(200.
T3A ;EP
T51H1 ;
T52H ;
T3H1 ;
T5W ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV T5W+8, T5W+12, T3A+11, T3A+14
$$LOCENC^APCLV T5W+8, T5W+12, T3A+11, T3A+14
$$PRIMPROV^APCLV T5W+8, T5W+12, T3A+11, T3A+14
$$AGE^AUPNPAT T5W+2, T5W+10, T3A+8, T3A+13
$$HRN^AUPNPAT T5W+1, T5W+10, T3A+8, T3A+13
$$VER^BUDHBAN T52DH+4, T5H2+4, T51H1+4, T51DH+4, T3H1+4, T3HD+4
$$RACE^BUDHRPTC T5W+2, T5W+11
^DIR T52H+3, T51H+3, T3H+3
$$FMTE^XLFDT T5W+8, T5W+12, T52DH+3, T52DH+7, T5H2+3, T5H2+7, T51H1+3, T51H1+7, T51DH+3, T51DH+7
, T3A+11, T3A+14, T3H1+3, T3H1+7, T3HD+3, T3HD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Uncategorized Provider visits to report."
  • Line Location: T52+2
Function Call: WRITE
  • Prompt: !!,"Line ",BUDX2L," ",BUDY
  • Line Location: T52+6
Function Call: WRITE
  • Prompt: !
  • Line Location: T52+15
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+1
Function Call: WRITE
  • Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCCAD),?60,$E($P($$RACE^BUDHRPTC(DFN),U,4),1,15)," (",$P($$RACE^BUDHRPTC(DFN),U,3),")"
  • Line Location: T5W+2
Function Call: WRITE
  • Prompt: !!,"Line ",BUDX2L," ",BUDY
  • Line Location: T5W+7
Function Call: WRITE
  • Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?25,$E($$PRIMPROV^APCLV(BUDV,"E"),1,14),?42,$$PRIMPROV^APCLV(BUDV,"D"),?50,$P(^AUPNVSIT(BUDV,0),U,7),?55,$E($$CLINIC^APCLV(BUDV,"E"),1,14),?70,$E($$LOCENC^APCLV(BUDV,"E"),1,9)
  • Line Location: T5W+8
Function Call: WRITE
  • Prompt: !
  • Line Location: T52H+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****")
  • 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, Uncategorized Provider Visits",80),!
  • Line Location: T5H2+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T5H2+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T5H2+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T5H2+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T5H2+10
Function Call: WRITE
  • Prompt: !,"List of all patients, for uncategorized provider visits. Displays",!,"community, gender, age and visit data, including Provider codes."
  • Line Location: T5H2+11
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*"
  • Line Location: T5H2+15
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?70,"LOCATION"
  • Line Location: T5H2+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H2+17
Function Call: WRITE
  • Prompt: !!,"Line ",BUDX2LL," ",BUDY
  • Line Location: T51+9
Function Call: WRITE
  • Prompt: !!,"Line ",BUDX2LL," ",BUDY
  • Line Location: T51+12
Function Call: WRITE
  • Prompt: !,BUDPROV,?35,^XTMP("BUDHRPT1",BUDJ,BUDH,"T51",BUDX2L,BUDX2L2,BUDPROV)
  • Line Location: T51+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T51+16
Function Call: WRITE
  • Prompt: !
  • Line Location: T51H+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****")
  • Line Location: T51H1+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: T51H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: T51H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Personnel List for Table 5 Column A, By Service Category",80),!
  • Line Location: T51H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T51H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T51H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T51H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T51H1+10
Function Call: WRITE
  • Prompt: !,"List of all Active Provider Personnel sorted by Major Service Category.",!
  • Line Location: T51H1+11
Function Call: WRITE
  • Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE"
  • Line Location: T51H1+12
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T51H1+13
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),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCCAD)
  • Line Location: T3A+8
Function Call: WRITE
  • Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?25,$E($$PRIMPROV^APCLV(BUDV,"E"),1,14),?42,$P(^AUPNVSIT(BUDV,0),U,7),?45,$E($$CLINIC^APCLV(BUDV,"E"),1,14),?62,$E($$LOCENC^APCLV(BUDV,"E"),1,14)
  • Line Location: T3A+11
Function Call: WRITE
  • Prompt: !
  • Line Location: T3A+16
Function Call: WRITE
  • Prompt: !
  • Line Location: T3H+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  • Line Location: T3H1+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: T3H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: T3H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 3A, Patients by Age and Sex Assigned at Birth",80),!
  • Line Location: T3H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T3H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T3H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T3H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T3H1+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",!?46,"ASSIGNED",!?46,"AT BIRTH"
  • Line Location: T3H1+15
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION"
  • Line Location: T3H1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3H1+18
Routine Call
  • DIR
  • Line Location:
    • T52H+3
    • T51H+3
    • T3H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] T5W+4, T5W+8, T5W+12, T3A+11, T3A+14
^BUDHTFIV - [#90669.905] T52+5, T51+6
^BUDHTFIV("B" T52+5, T51+6
^DIC(4 - [#4] T52DH+6, T5H2+6, LOC+1, T51H1+6, T51DH+6, T3H1+6, T3HD+6
^DPT - [#2] T5W+1, T5W+2, T5W+10, T3A+8, T3A+13
^TMP($J S+2*
^VA(200 - [#200] T52DH+3, T5H2+3, USR+1, T51H1+3, T51DH+3, T3H1+3, T3HD+3
^XTMP("BUDHRPT1" T52+2, T52+3, T52+8, T52+9, T52+10, T52+11, T5W+3, T51+3, T51+4, T51+11
, T51+13, T51+14, T3A+3, T3A+4, T3A+5, T3A+6, T3A+9

Label References

Name Line Occurrences
$$CTR T5H2+2, T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+9, T51H1+2, T51H1+4, T51H1+5, T51H1+6
, T51H1+7, T51H1+9, T3H1+2, T3H1+4, T3H1+5, T3H1+6, T3H1+7, T3H1+9
S T52+3, T52+7, T5W+13, T52DH+1, T52DH+2, T52DH+3, T52DH+4, T52DH+5, T52DH+6, T52DH+7
, T52DH+8, T52DH+9, T52DH+10, T52DH+11, T52DH+12, T52DH+13, T52DH+14, T51+10, T51+14, T51DH+1
, T51DH+2, T51DH+3, T51DH+4, T51DH+5, T51DH+6, T51DH+7, T51DH+8, T51DH+9, T51DH+10, T51DH+11
, T3A+15, T3HD+1, T3HD+2, T3HD+3, T3HD+4, T3HD+5, T3HD+6, T3HD+7, T3HD+8, T3HD+9
, T3HD+10, T3HD+11, T3HD+12, T3HD+13
T3H T3A+2, T3A+7, T3A+10
T3H1 T3H+2
T3HD T3H+1
T51DH T51+2, T51H+1
T51H T51+8, T51+12
T51H1 T51H+2
T52DH T52H+1
T52H T52+2, T52+3, T52+4, T5W+7
T5H2 T52H+2
T5W T52+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDAGE T52+9*, T52+10, T52+11, T5W+3, T3A+3*, T3A+4, T3A+5, T3A+6, T3A+9
>> BUDBD T52DH+7, T5H2+7, T51H1+7, T51DH+7, T3H1+7, T3HD+7
>> BUDBEN T52DH+8, T5H2+8, T51H1+8, T51DH+8, T3H1+8, T3HD+8
>> BUDCCAD T5W+2, T5W+10, T3A+8, T3A+13
>> BUDCCOM T52+8*, T52+9, T52+10, T52+11, T5W+1, T5W+3, T5W+10, T3A+5*, T3A+6, T3A+8
, T3A+9, T3A+13
>> BUDDD T5W+5*, T5W+6
>> BUDDECNT S+1*, S+2
>> BUDED T52DH+7, T5H2+7, T51H1+7, T51DH+7, T3H1+7, T3HD+7
>> BUDGPG T52H+2, T5H2+1*, T5H2+3, T51H+2, T51H1+1*, T51H1+3, T3H+2, T3H1+1*, T3H1+3
>> BUDH T52+2, T52+3, T52+8, T52+9, T52+10, T52+11, T5W+3, T51+3, T51+4, T51+11
, T51+13, T51+14, T3A+3, T3A+4, T3A+5, T3A+6, T3A+9
>> BUDJ T52+2, T52+3, T52+8, T52+9, T52+10, T52+11, T5W+3, T51+3, T51+4, T51+11
, T51+13, T51+14, T3A+3, T3A+4, T3A+5, T3A+6, T3A+9
BUDNEWR T51+1*, T51+8!
>> BUDP T52+1*, T5H2+11, T5H2+18*, T3A+1*, T3H1+11, T3H1+17*
>> BUDPROV T51+11*, T51+13, T51+14
>> BUDQUIT T52+8, T52+9, T52+10, T52+11, T5W+3, T5W+5, T5W+6, T5W+7, T52H+3*, T51+3
, T51+4, T51+8, T51+11, T51+12, T51H+3*, T3A+2, T3A+3, T3A+4, T3A+5, T3A+6
, T3A+7, T3A+9, T3A+10, T3H+3*
>> BUDROT T52+2, T52+3, T52+6, T52+7, T52+15, T5W+1, T5W+2, T5W+7, T5W+8, T5W+9
, T52H+1, T51+2, T51+8, T51+9, T51+10, T51+12, T51+13, T51+14, T51+16, T51H+1
, T3A+7, T3A+8, T3A+10, T3A+11, T3A+12, T3A+16, T3H+1
>> BUDSCTC T5H2+3, T51H1+3, T3H1+3
>> BUDSEX T52+10*, T52+11, T5W+3, T3A+4*, T3A+5, T3A+6, T3A+9
>> BUDSITE T5W+1, T5W+10, T52DH+6, T5H2+6, T51H1+6, T51DH+6, T3A+8, T3A+13, T3H1+6, T3HD+6
>> BUDSUBT T51+7*
>> BUDTSCTC T5H2+3, T51H1+3, T3H1+3
>> BUDV T5W+3*, T5W+4, T5W+6*, T5W+8, T5W+12, T3A+9*, T3A+11, T3A+14
BUDVLST T5W+3!
BUDVLST( T5W+4*, T5W+5, T5W+6
>> BUDX2L T52+1*, T52+2, T52+3, T52+5*, T52+6, T52+7, T52+8, T52+9, T52+10, T52+11
, T5W+3, T5W+7, T51+3*, T51+4, T51+5, T51+11, T51+13, T51+14
>> BUDX2L2 T52+5*, T52+8, T52+9, T52+10, T52+11, T5W+3, T51+4*, T51+5, T51+11, T51+13
, T51+14
>> BUDX2LL T51+5*, T51+6, T51+7, T51+9, T51+10, T51+12
>> BUDY T52+5*, T52+6, T52+7, T5W+7, T51+6*, T51+7, T51+9, T51+10, T51+12
>> DFN T52+11*, T5W+1, T5W+2, T5W+3, T5W+10, T5W+11, T3A+6*, T3A+8, T3A+9, T3A+13
DIR T52H+3!, T51H+3!, T3H+3!
DIR(0 T52H+3*, T51H+3*, T3H+3*
DT T52DH+3, T5H2+3, T51H1+3, T51DH+3, T3H1+3, T3HD+3
>> DTOUT T52H+3, T51H+3, T3H+3
DUZ T52DH+3, T5H2+3, USR+1, T51H1+3, T51DH+3, T3H1+3, T3HD+3
DUZ(2 T5W+1, T5W+10, LOC+1, T3A+8, T3A+13
IO T52H+3, T51H+3, T3H+3
IO(0 T52H+3, T51H+3, T3H+3
IOF T5H2+1, T51H1+1, T3H1+1
IOM CTR+1, T3H1+2
IOSL T5W+7, T51+8, T51+12, T3A+7, T3A+10
IOST T52H+3, T51H+3, T3H+3
U T52+5, T5W+1, T5W+2, T5W+4, T5W+8, T5W+10, T5W+11, T5W+12, T52DH+3, T52DH+6
, T5H2+3, T5H2+6, USR+1, LOC+1, T51+6, T51+14, T51H1+3, T51H1+6, T51DH+3, T51DH+6
, T3A+8, T3A+11, T3A+13, T3A+14, T3H1+3, T3H1+6, T3HD+3, T3HD+6
V S~, S+2
X T5W+10*, T5W+11*, T5W+12*, T5W+13, T52DH+7*, T52DH+8*, T5H2+7*, T5H2+8*, T5H2+9, CTR~
, CTR+1, T51+14*, T51H1+7*, T51H1+8*, T51H1+9, T51DH+7*, T51DH+8*, T3A+13*, T3A+14*, T3A+15
, T3H1+7*, T3H1+8*, T3H1+9, T3HD+7*, T3HD+8*
Y T52H+3, CTR~, CTR+1, T51H+3, T3H+3
>> ZTQUEUED T52H+3, T51H+3, T3H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All