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

Package: IHS Uniform Data System

Routine: BUDARP6J


Information

BUDARP6J ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 30 Dec 2013 8:09 PM 14 Dec 2013 1:24 PM ;

Source Information

Source file <BUDARP6J.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
IHS Uniform Data System 1 EN1^BUDARP6B  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDARP6I  

Entry Points

Name Comments DBIA/ICR reference
CAD2L ;EP
CAD1 ;EP
CAD2LIST ;EP
PAUSE ;
CAD1L ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CAD2 ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
GENI ;EP - general introductions
CAD1H ;
CAD2L1 ;
USR() ;EP - Return name of current user from ^VA(200.
CAD2H ;
CADLIST1 ;EP
EOJ ;
CAD2H1 ;
CAD1H1 ;
CAD1L1 ;
CAD2ALG ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT CAD1L1+7, CAD2ALG+7, CAD2L1+7
EN1^BUDARP6B CADLIST1+4, CAD2LIST+4
^DIR PAUSE+1, GENI+4, CAD1H+2, CAD2H+2
EN^XBVK EOJ+1
$$FMTE^XLFDT CAD1L1+10, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2L1+10, CAD2H1+3, CAD2H1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  • Line Location: GENI+1
Function Call: WRITE
  • Prompt: !,"patient population. It is recommended that you run these reports at night and"
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"print to an electronic file, not directly to a printer.",!
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !!,"This Patient List option documents the individual patients and visits"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"that are counted and summarized on each Table report (main menu"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !,"option REP). The summary Table report is included at the beginning of each"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !,"List report."
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be counted"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !,"as a patient, the patient must have had at least one visit meeting the "
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !,"following criteria:"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+15
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !?4,"- the patient must NOT have a gender of 'Unknown'"
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: CAD1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2013",80)
  • Line Location: CAD1+3
Function Call: WRITE
  • Prompt: !!,"All CAD patients 18+ w/Lipid Therapy (Table 6B)",!
  • Line Location: CAD1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years of age and older"
  • Line Location: CAD1+7
Function Call: WRITE
  • Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including "
  • Line Location: CAD1+8
Function Call: WRITE
  • Prompt: !,"myocardial infarction (MI),or have had cardiac surgery, and whose last LDL"
  • Line Location: CAD1+9
Function Call: WRITE
  • Prompt: !,"was greater than or equal to 130 who were prescribed a lipid-lowering "
  • Line Location: CAD1+10
Function Call: WRITE
  • Prompt: !,"therapy medication or have documented evidence of use by patient of lipid"
  • Line Location: CAD1+11
Function Call: WRITE
  • Prompt: !,"lowering medication during the report period, does not have an allergy or"
  • Line Location: CAD1+12
Function Call: WRITE
  • Prompt: !,"adverse reaction to lipid-lowering therapy medications, had at least two"
  • Line Location: CAD1+13
Function Call: WRITE
  • Prompt: !,"medical visits ever, and had a medical visit during the report period. "
  • Line Location: CAD1+14
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: CAD1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD1+16
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: CAD1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD1L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: CAD1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: CAD1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: CAD1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section I, ",80)
  • Line Location: CAD1H1+5
Function Call: WRITE
  • Prompt: !,$$CTR("Coronary Artery Disease: Lipid Therapy",80),!
  • Line Location: CAD1H1+6
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: CAD1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD1H1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD1H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: CAD1H1+10
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: CAD1H1+22
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication"
  • Line Location: CAD1H1+23
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: CAD1H1+24
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: CAD2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2013",80)
  • Line Location: CAD2+3
Function Call: WRITE
  • Prompt: !!,"All CAD patients 18+ w/o Lipid Therapy (Table 6B)",!
  • Line Location: CAD2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years of age and older"
  • Line Location: CAD2+7
Function Call: WRITE
  • Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including "
  • Line Location: CAD2+8
Function Call: WRITE
  • Prompt: !,"myocardial infarction (MI) or have had cardiac surgery and whose last "
  • Line Location: CAD2+9
Function Call: WRITE
  • Prompt: !,"LDL was greater than or equal to 130 or last recorded LDL is greater than"
  • Line Location: CAD2+10
Function Call: WRITE
  • Prompt: !,"1yr from last visit in the report year who were not prescribed a "
  • Line Location: CAD2+11
Function Call: WRITE
  • Prompt: !,"lipid-lowering therapy medication or has no documented evidence of use by"
  • Line Location: CAD2+12
Function Call: WRITE
  • Prompt: !,"patient of lipid lowering medication during the report period or has an "
  • Line Location: CAD2+13
Function Call: WRITE
  • Prompt: !,"allergy or adverse reaction to lipid-lowering therapy medications, had at"
  • Line Location: CAD2+14
Function Call: WRITE
  • Prompt: !,"least two medical visits ever, and had a medical visit during the report"
  • Line Location: CAD2+15
Function Call: WRITE
  • Prompt: !,"period."
  • Line Location: CAD2+16
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: CAD2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD2+18
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: CAD2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITHOUT LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD2L+6
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: 0",!
  • Line Location: CAD2L+9
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD2L+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: CAD2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: CAD2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: CAD2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section I, ",80)
  • Line Location: CAD2H1+5
Function Call: WRITE
  • Prompt: !,$$CTR("Coronary Artery Disease: Lipid Therapy",80),!
  • Line Location: CAD2H1+6
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: CAD2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD2H1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD2H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: CAD2H1+10
Function Call: WRITE
  • Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including "
  • Line Location: CAD2H1+13
Function Call: WRITE
  • Prompt: !,"myocardial infarction (MI) or have had cardiac surgery and whose last "
  • Line Location: CAD2H1+14
Function Call: WRITE
  • Prompt: !,"LDL was greater than or equal to 130 or last recorded LDL is greater than"
  • Line Location: CAD2H1+15
Function Call: WRITE
  • Prompt: !,"1yr from last visit in the report year who were not prescribed a "
  • Line Location: CAD2H1+16
Function Call: WRITE
  • Prompt: !,"lipid-lowering therapy medication or has no documented evidence of use by"
  • Line Location: CAD2H1+17
Function Call: WRITE
  • Prompt: !,"patient of lipid lowering medication during the report period or has an "
  • Line Location: CAD2H1+18
Function Call: WRITE
  • Prompt: !,"allergy or adverse reaction to lipid-lowering therapy medications, had at"
  • Line Location: CAD2H1+19
Function Call: WRITE
  • Prompt: !,"least two medical visits ever, and had a medical visit during the report"
  • Line Location: CAD2H1+20
Function Call: WRITE
  • Prompt: !,"period."
  • Line Location: CAD2H1+21
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: CAD2H1+22
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: CAD2H1+23
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication",?72,"LDL"
  • Line Location: CAD2H1+24
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: CAD2H1+25
Function Call: WRITE
  • Prompt: "CAD Patients with LDL >=130 w/o Lipid Lowering Medication",!
  • Line Location: CAD2H1+26
Function Call: WRITE
  • Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication"
  • Line Location: CAD2H1+27
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • CAD1H+2
    • CAD2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, CAD1H1+7, CAD2H1+7
^DPT - [#2] CAD1L1+7, CAD2ALG+7, CAD2L1+7
^VA(200 - [#200] USR+1, CAD1H1+3, CAD2H1+3
^XTMP("BUDARP6B" CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3
, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9

Label References

Name Line Occurrences
$$CTR CAD1+2, CAD1+3, CAD1H1+4, CAD1H1+5, CAD1H1+6, CAD1H1+7, CAD1H1+8, CAD1H1+9, CAD2+2, CAD2+3
, CAD2H1+4, CAD2H1+5, CAD2H1+6, CAD2H1+7, CAD2H1+8, CAD2H1+9
$$LOC CAD1+2, CAD2+2
CAD1 CADLIST1+3
CAD1H CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+6
CAD1H1 CAD1H+1
CAD1L1 CAD1L+4
CAD2 CAD2LIST+3
CAD2ALG CAD2L+10
CAD2H CAD2L+2, CAD2L+5, CAD2L+8, CAD2L+11, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
CAD2H1 CAD2H+1
CAD2L1 CAD2L+4
EOJ CADLIST1+1, CAD2LIST+1
GENI CAD1+5, CAD2+5
PAUSE CAD1+6, CAD2+6

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 CAD1L1+2*, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+2*, CAD2ALG+3, CAD2ALG+4, CAD2ALG+5
, CAD2ALG+7, CAD2ALG+9, CAD2L1+2*, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+7, CAD2L1+9
>> BUDALL CAD1L1+9*, CAD1L1+10, CAD2ALG+9*, CAD2ALG+10, CAD2L1+9*, CAD2L1+10
>> BUDBD CAD1H1+8, CAD2H1+8
>> BUDBEN CAD1H1+9, CAD2H1+9
>> BUDCAD1L CADLIST1+2*
>> BUDCAD2L CAD2LIST+2*
>> BUDCOM CAD1L1+4*, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+4*, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2L1+4*, CAD2L1+5
, CAD2L1+7, CAD2L1+9
>> BUDED CAD1H1+8, CAD2H1+8
>> BUDGPG CAD1H+1, CAD1H1+1*, CAD1H1+3, CAD2H+1, CAD2H1+1*, CAD2H1+3
>> BUDH CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3
, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDJ CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3
, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDNAME CAD1L1+3*, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2ALG+3*, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+3*, CAD2L1+4
, CAD2L1+5, CAD2L1+9
>> BUDP CAD1L+1*, CAD1H1+11, CAD1H1+25*, CAD2L+1*, CAD2L+7*, CAD2H1+11, CAD2H1+28*
>> BUDQUIT CAD1L+1*, CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+6, CAD1H+2*
, CAD2L+1*, CAD2L+2, CAD2L+5, CAD2L+7*, CAD2L+8, CAD2L+11, CAD2ALG+1, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4
, CAD2ALG+5, CAD2ALG+6, CAD2L1+1, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+6, CAD2H+2*
>> BUDSITE CAD1L1+7, CAD1H1+7, CAD2ALG+7, CAD2L1+7, CAD2H1+7
>> BUDTOT CAD1L+1*, CAD1L+6, CAD1L1+8*, CAD2L+1*, CAD2L+6, CAD2L+7*, CAD2L+12, CAD2ALG+8*, CAD2L1+8*
>> BUDX2ALG CAD2L+1*, CAD2L+7*, CAD2H1+26, CAD2H1+27
DA PAUSE+1!
>> DFN CAD1L1+5*, CAD1L1+7, CAD1L1+9, CAD2ALG+5*, CAD2ALG+7, CAD2ALG+9, CAD2L1+5*, CAD2L1+7, CAD2L1+9
DIR PAUSE+1!, GENI+4!, CAD1H+2!, CAD2H+2!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, CAD1H+2*, CAD2H+2*
DT CAD1H1+3, CAD2H1+3
>> DTOUT CAD1H+2, CAD2H+2
DUZ USR+1, CAD1H1+3, CAD2H1+3
DUZ(2 LOC+1, CAD1L1+7, CAD2ALG+7, CAD2L1+7
IO CAD1H+2, CAD2H+2
IO(0 CAD1H+2, CAD2H+2
IOF CAD1+1, CAD1H1+1, CAD2+1, CAD2H1+1
IOM CTR+1
IOSL CAD1L+5, CAD1L1+1, CAD1L1+6, CAD2L+5, CAD2L+11, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
IOST CAD1H+2, CAD2H+2
U USR+1, LOC+1, CAD1L1+7, CAD1L1+10, CAD1H1+3, CAD1H1+7, CAD2ALG+7, CAD2ALG+10, CAD2L1+7, CAD2L1+10
, CAD2H1+3, CAD2H1+7
X CTR~, CTR+1, CAD1H1+8*, CAD1H1+9*, CAD2H1+8*, CAD2H1+9*
Y CTR~, CTR+1, CAD1H+2, CAD2H+2
>> ZTQUEUED CAD1H+2, CAD2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All