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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUD0RPL3

Package: IHS Uniform Data System

Routine: BUD0RPL3


Information

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

Source Information

Source file <BUD0RPL3.m>

Call Graph

Call Graph Total: 5

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

Entry Points

Name Comments DBIA/ICR reference
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 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
T5H2 ;
T53H ;
ENASERV1 ;
DUPOE(DFN,T) ;
DENTSERV ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV TW+2
$$LOCENC^APCLV TW+2
$$PRIMPOV^APCLV TW+2
$$PRIMPROV^APCLV TW+1
$$AGE^AUPNPAT T5W+3
$$HRN^AUPNPAT T5W+2
$$RACE^BUD0RPTC T5W+3
^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(BUDCOM,1,12)
  • Line Location: T5W+2
Function Call: WRITE
  • Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUD0RPTC(DFN),U,3)_"-"_$P($$RACE^BUD0RPTC(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: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T5H2+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T5H2+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",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 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
Routine Call
  • DIR
  • Line Location:
    • T53H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TW+1, TW+2
^BUDTTFIV - [#90662.5] T53+3
^BUDTTFIV("B" T53+3
^DIC(4 - [#4] T5H2+7, LOC+1
^DPT - [#2] T5W+2, T5W+3
^VA(200 - [#200] T5H2+3, USR+1
^XTMP("BUD0RPT1" 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
$$CTR T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+8
$$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
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
>> BUD0L T53+3*
>> BUD0L2 T53+3*
>> 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
>> BUDCAD T5W+3
>> BUDCOM 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
>> 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*
>> 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*
>> 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
>> BUDV TW+1, TW+2, MEDSERV+6*, DENTSERV+6*, MENTSERV+6*, SUBSERV+6*, OTHSERV1+3*, ENASERV1+3*
>> BUDY T53+3*
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 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
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
X DUP+1~, DUP+5*, DUP+6, DUP+7, DUPOE+1~, DUPOE+6*, DUPOE+7, T5H2+8*, CTR~, CTR+1
Y DUP+1~, DUP+6*, DUP+7, DUP+9*, DUP+10, DUPOE+1~, DUPOE+5*, DUPOE+6, DUPOE+7, T53H+2
, CTR~, CTR+1
>> ZTQUEUED T53H+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All