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 |  Marked Items |  All
Print Page as PDF
Routine: BUD4RPTL

Package: IHS Uniform Data System

Routine: BUD4RPTL


Information

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

Source Information

Source file <BUD4RPTL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Uniform Data System 2 T52^BUD4RPL2  $$RACE^BUD4RPTC  
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 BUD4RPTP  

Entry Points

Name Comments DBIA/ICR reference
28 ;;II. Oral Exams
T6W ;
22 ;;Mammogram
T5H1 ;
43 ;;Other Mental disorders, excl drug or alcohol dependence (incl mental retardation);;20d
34 ;;V. Restorative Services (Endo, Perio, Prostho, Ortho)
USR() ;EP - Return name of current user from ^VA(200.
T6H ;
T51H1 ;
32 ;;III. Restorative Services
24 ;;Selected Immunizations
25 ;;Contraceptive Management
26 ;;Health supervision of infant or child (ages 0 through 11)
27 ;;I. Emergency Services
20 ;;Other Mental disorders, excluding drug or alcohol dependence
21 ;;HIV Test
LOC() ;EP - Return location name from file 4 based on DUZ(2).
23 ;;Pap Smear
CTR(X,Y) ;EP - Center X in a field Y wide.
T52 ;
42 ;;Attention Deficit and disruptive behavior disorders;;20c
3 ;;Tuberculosis
40 ;;Depression and Other Mood Disorders;;20a
41 ;;Anxiety disorders including PTSD;;20b
1 ;;Symptomatic HIV
T51H ;
2 ;;Asymptomatic HIV
5 ;;Asthma
4 ;;Syphilis and other venereal diseases
7 ;;Abnormal breast findings, female
6 ;;Chronic bronchitis and emphysema
9 ;;Diabetes mellitus
8 ;;Abnormal cervical findings
T6 ;
T4 ;
T5 ;
T5W
T5H ;
START ;
17 ;;Lack of expected normal physiological development
T3H1 ;
29 ;;Prophylaxis - adult or child
11 ;;Hypertension
10 ;;Heart disease (selected)
13 ;;Dehydration
12 ;;Contact dermatitis and other eczema
15 ;;Otitis media and eustachian tube disorders
14 ;;Exposure to heat or cold
T3H ;
16 ;;Selected perinatal medical conditions
19 ;;Other substance related disorders (excluding tobacco use disorders)
18 ;;Alcohol related disorders
31 ;;Fluoride treatment
30 ;;Sealants
T3A ;
33 ;;IV. Oral Surgery (extractions only)
T51 ;
T6H1 ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV T3A+11, T5W+6, T6W+5
$$LOCENC^APCLV T3A+11, T5W+6, T6W+5
$$PRIMPROV^APCLV T3A+11, T5W+6
$$AGE^AUPNPAT T3A+8, T5W, T6W+2
$$HRN^AUPNPAT T3A+8, T5W, T6W+2
T52^BUD4RPL2 T52+1
$$RACE^BUD4RPTC T3A+8, T5W, T6W+2
^DIR T3H+2, T51H+2, T5H+2, T6H+2
$$FMTE^XLFDT T3A+11, T3H1+3, T3H1+7, T51H1+3, T51H1+7, T5W+6, T5H1+3, T5H1+7, T6W+5, T6H1+3
, T6H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: T3H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T3H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T3H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T3H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Tables 3A, 3B",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: $TR($J("",80)," ","-")
  • Line Location: T3H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, defined as any patient with one or more visits during the",!,"calendar year, with gender, age, race or ethnicity, and visit information.",!,"Age is calculated as of June 30.",!
  • Line Location: T3H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T3H1+10
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION"
  • Line Location: T3H1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T3H1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T51H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T51H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T51H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",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: $TR($J("",80)," ","-")
  • Line Location: T51H1+8
Function Call: WRITE
  • Prompt: !,"List of all Active Provider Personnel sorted by Major Service Category.",!
  • Line Location: T51H1+9
Function Call: WRITE
  • Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE"
  • Line Location: T51H1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T51H1+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),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUD4RPTC(DFN),U,2)
  • Line Location: T5W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T5H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T5H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T5H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T5H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, By Service Category",80),!
  • Line Location: T5H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T5H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T5H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T5H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, sorted by defined Service Categories. Displays",!,"community, gender, age and visit data, including Provider codes."
  • Line Location: T5H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T5H1+10
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?62,"LOCATION"
  • Line Location: T5H1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H1+12
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),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUD4RPTC(DFN),U,2)
  • Line Location: T6W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: T6H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T6H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T6H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T6H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6, By Diagnosis Category",80),!
  • Line Location: T6H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T6H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T6H1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T6H1+8
Function Call: WRITE
  • Prompt: !,"List of all Users, sorted by primary diagnosis and tests/screening",!,"categories. Displays community, gender, age and visit data, and codes."
  • Line Location: T6H1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN"
  • Line Location: T6H1+10
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"VALUE",?41,"SRV",?45,"CLINIC",?63,"LOCATION"
  • Line Location: T6H1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T6H1+12
Routine Call
  • DIR
  • Line Location:
    • T3H+2
    • T51H+2
    • T5H+2
    • T6H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] T3A+11, T5W+2, T5W+6, T6W+5
^BUDFTFIV - [#90346.5] T51+6, T5+6
^BUDFTFIV("B" T51+6, T5+6
^DIC(4 - [#4] T3H1+6, T51H1+6, T5H1+6, T6H1+6, LOC+1
^DPT - [#2] T3A+8, T5W, T6W+2
^VA(200 - [#200] T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
^XTMP("BUD4RPT1" T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+3, T51+8, T51+9, T5+2
, T5+3, T5+8, T5+9, T5+10, T5+11, T5W+1, T6+5, T6+8, T6+9, T6+10
, T6+11, T6W+3, T6W+5, T6W+8, T6W+9, T6W+11, T6W+12

Label References

Name Line Occurrences
$$CTR T3H1+4, T3H1+5, T3H1+6, T3H1+7, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T5H1+4, T5H1+5
, T5H1+6, T5H1+7, T6H1+4, T6H1+5, T6H1+6, T6H1+7
T3A START+2, START+4
T3H T3A+2, T3A+7, T3A+10
T3H1 T3H+1
T4 START+6
T5 START+8
T51 START+10
T51H T51+1, T51+5
T51H1 T51H+1
T52 START+12
T5H T5+4, T5W+5
T5H1 T5H+1
T5W T5+11
T6 START+14
T6H T6+6, T6W+1, T6W+4
T6H1 T6H+1
T6W T6+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD5L T51+2*, T51+3, T51+4, T51+8, T51+9, T5+2*, T5+3, T5+5, T5+8, T5+9
, T5+10, T5+11, T5W+1
>> BUD5L2 T51+3*, T51+4, T51+8, T51+9, T5+3*, T5+5, T5+8, T5+9, T5+10, T5+11
, T5W+1
>> BUD5LL T51+4*, T51+6, T51+7, T5+5*, T5+6, T5+7
>> BUD6L T6+4*, T6+5, T6+7, T6+8, T6+9, T6+10, T6+11, T6W+3, T6W+5, T6W+7
, T6W+8, T6W+9, T6W+10, T6W+11, T6W+12
>> BUDAGE T3A+3*, T3A+4, T3A+5, T3A+6, T3A+9, T5+9*, T5+10, T5+11, T5W+1, T6+9*
, T6+10, T6+11, T6W+3, T6W+5, T6W+8, T6W+9, T6W+11, T6W+12
>> BUDBD T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDCAD T3A+8, T5W, T6W+2
>> BUDCOM T3A+5*, T3A+6, T3A+8, T3A+9, T5+8*, T5+9, T5+10, T5+11, T5W, T5W+1
, T6+8*, T6+9, T6+10, T6+11, T6W+2, T6W+3, T6W+5, T6W+8, T6W+9, T6W+11
, T6W+12
>> BUDDD T5W+3*, T5W+4
>> BUDED T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDGPG START+1*, T3H+1, T3H1+1*, T3H1+3, T51H+1, T51H1+1*, T51H1+3, T5H+1, T5H1+1*, T5H1+3
, T6H+1, T6H1+1*, T6H1+3
>> BUDH T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+3, T51+8, T51+9, T5+2
, T5+3, T5+8, T5+9, T5+10, T5+11, T5W+1, T6+5, T6+8, T6+9, T6+10
, T6+11, T6W+3, T6W+5, T6W+8, T6W+9, T6W+11, T6W+12
>> BUDJ T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+3, T51+8, T51+9, T5+2
, T5+3, T5+8, T5+9, T5+10, T5+11, T5W+1, T6+5, T6+8, T6+9, T6+10
, T6+11, T6W+3, T6W+5, T6W+8, T6W+9, T6W+11, T6W+12
>> BUDP T3A+1*, T3H1+9, T3H1+12*, T5+1*, T5H1+9, T5H1+13*, T6+1*, T6H1+9, T6H1+13*
>> BUDPROV T51+8*, T51+9
>> BUDQUIT START+1*, START+3, START+5, START+7, START+9, START+11, START+13, START+15, T3A+2, T3A+3
, T3A+4, T3A+5, T3A+6, T3A+7, T3A+9, T3A+10, T3H+2*, T51+1, T51+2, T51+3
, T51+5, T51+8, T51H+2*, T5+2, T5+3, T5+4, T5+8, T5+9, T5+10, T5+11
, T5W+1, T5W+3, T5W+4, T5W+5, T5H+2*, T6+6, T6+8, T6+9, T6+10, T6+11
, T6W+1, T6W+3, T6W+4, T6W+8, T6W+11, T6H+2*
>> BUDSEX T3A+4*, T3A+5, T3A+6, T3A+9, T5+10*, T5+11, T5W+1, T6+10*, T6+11, T6W+3
, T6W+5, T6W+8, T6W+9, T6W+11, T6W+12
>> BUDSITE T3A+8, T3H1+6, T51H1+6, T5W, T5H1+6, T6W+2, T6H1+6
>> BUDT3AL START+2, START+4
>> BUDT3BL START+4
>> BUDT4L START+6
>> BUDT5L START+8
>> BUDT5L1 START+10
>> BUDT5L2 START+12
>> BUDT6L START+14
>> BUDV T3A+9*, T3A+11, T5W+1*, T5W+2, T5W+4*, T5W+6, T6W+3*, T6W+5
BUDVLST T5W+1!
BUDVLST( T5W+2*, T5W+3, T5W+4
>> BUDW T6W+8*, T6W+9, T6W+11*, T6W+12
>> BUDY T51+6*, T51+7, T5+6*, T5+7
>> DFN T3A+6*, T3A+8, T3A+9, T5+11*, T5W, T5W+1, T6+11*, T6W+2, T6W+3, T6W+5
, T6W+8, T6W+9, T6W+11, T6W+12
DIR T3H+2!, T51H+2!, T5H+2!, T6H+2!
DIR(0 T3H+2*, T51H+2*, T5H+2*, T6H+2*
DT T3H1+3, T51H1+3, T5H1+3, T6H1+3
>> DTOUT T3H+2, T51H+2, T5H+2, T6H+2
DUZ T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
DUZ(2 T3A+8, T5W, T6W+2, LOC+1
IO T3H+2, T51H+2, T5H+2, T6H+2
IO(0 T3H+2, T51H+2, T5H+2, T6H+2
IOF T3H1+1, T51H1+1, T5H1+1, T6H1+1
IOM CTR+1
IOSL T3A+7, T3A+10, T51+5, T5W+5, T6W+1, T6W+4
IOST T3H+2, T51H+2, T5H+2, T6H+2
U T3A+8, T3A+11, T3H1+3, T3H1+6, T51+6, T51H1+3, T51H1+6, T5+6, T5W, T5W+2
, T5W+6, T5H1+3, T5H1+6, T6W+2, T6W+5, T6W+9, T6W+12, T6H1+3, T6H1+6, USR+1
, LOC+1
X T3H1+7*, T51H1+7*, T5H1+7*, T6H1+7*, CTR~, CTR+1
Y T3H+2, T51H+2, T5H+2, T6H+2, CTR~, CTR+1
>> ZTQUEUED T3H+2, T51H+2, T5H+2, T6H+2

Marked Items

Name Field # of Occurrence
$T(@BUD6L T6+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All