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

Package: IHS Uniform Data System

Routine: BUDCRP6J


Information

BUDCRP6J ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUDCRP6J.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Uniform Data System 3 EN1^BUDCRP6B  GENI^BUDCRP6P  CAD2HD^BUDCRP6R  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
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 BUDCRP6I  

Entry Points

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

External References

Name Field # of Occurrence
$$AGE^AUPNPAT CAD1L1+11, CAD2ALG+11, CAD2L1+11
$$HRN^AUPNPAT CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
EN1^BUDCRP6B CADLIST1+4, CAD2LIST+4
GENI^BUDCRP6P CAD1+5, CAD2+5
CAD2HD^BUDCRP6R CAD2HD+1
^DIR PAUSE+1, CAD1H+3, CAD2H+3
EN^XBVK EOJ+1
$$FMTE^XLFDT CAD1L1+10, CAD1L1+12, CAD1HD+3, CAD1HD+8, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2ALG+12, CAD2L1+10, CAD2L1+12
, CAD2H1+3, CAD2H1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: CAD1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",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: !!,"TOTAL CAD PATIENTS WITH LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD1L+6
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD1L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4))
  • Line Location: CAD1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD1H+3
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 2015",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: !!,"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+11
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD2L+15
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD2ALG+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4))
  • Line Location: CAD2ALG+10
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD2L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4))
  • Line Location: CAD2L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD2H+3
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: !!,"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
    • CAD1H+3
    • CAD2H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, CAD1HD+7, CAD1H1+7, CAD2H1+7
^DPT - [#2] CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
^TMP($J S+2*
^VA(200 - [#200] USR+1, CAD1HD+3, CAD1H1+3, CAD2H1+3
^XTMP("BUDCRP6B" CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+10, 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+2
CAD1HD CAD1H+1
CAD1L1 CAD1L+4
CAD2 CAD2LIST+3
CAD2ALG CAD2L+13
CAD2H CAD2L+2, CAD2L+5, CAD2L+14, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
CAD2H1 CAD2H+2
CAD2HD CAD2H+1
CAD2L1 CAD2L+4
EOJ CADLIST1+1, CAD2LIST+1
PAUSE CAD1+6, CAD2+6
S CAD1L+3, CAD1L+7, CAD1L1+12, CAD1HD+1, CAD1HD+2, CAD1HD+3, CAD1HD+4, CAD1HD+5, CAD1HD+6, CAD1HD+7
, CAD1HD+8, CAD1HD+9, CAD1HD+10, CAD1HD+11, CAD1HD+12, CAD1HD+13, CAD1HD+14, CAD1HD+15, CAD1HD+16, CAD1HD+17
, CAD1HD+18, CAD1HD+19, CAD1HD+20, CAD2L+3, CAD2L+7, CAD2L+12, CAD2L+16, CAD2ALG+12, CAD2L1+12

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