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

Package: IHS Uniform Data System

Routine: BUD2RP6K


Information

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

Source Information

Source file <BUD2RP6K.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
IHS Uniform Data System 1 EN1^BUD2RP6B  
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 BUD2RP6I  

Entry Points

Name Comments DBIA/ICR reference
IVD2L1 ;
IVD1L ;EP
IVD2 ;EP
PAUSE ;
IVD1H ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
IVD1 ;EP
EOJ ;
IVD2H ;
GENI ;EP - general introductions
IVD1H1 ;
IVD2H1 ;
USR() ;EP - Return name of current user from ^VA(200.
CTR(X,Y) ;EP - Center X in a field Y wide.
IVD2L ;EP
IVD1L1 ;
IVDLIST1 ;EP
IVDLIST2 ;EP

External References

Name Field # of Occurrence
$$HRN^AUPNPAT IVD1L1+7, IVD2L1+7
EN1^BUD2RP6B IVDLIST1+4, IVDLIST2+4
^DIR PAUSE+1, GENI+4, IVD1H+2, IVD2H+2
EN^XBVK EOJ+1
$$FMTE^XLFDT IVD1H1+3, IVD1H1+7, IVD2H1+3, IVD2H1+7

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: !
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IVD1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2012",80)
  • Line Location: IVD1+3
Function Call: WRITE
  • Prompt: !!,"All IVD patients 18+ w/Aspirin or Antithrombotic Therapy (Table 6B)",!
  • Line Location: IVD1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of patients 18 years of age and older who, "
  • Line Location: IVD1+7
Function Call: WRITE
  • Prompt: !,"in the current or prior report year, were diagnosed with Ischemic Vascular"
  • Line Location: IVD1+8
Function Call: WRITE
  • Prompt: !,"Disease (IVD) including acute myocardial infarction (AMI), or discharged"
  • Line Location: IVD1+9
Function Call: WRITE
  • Prompt: !,"alive after cardiovascular surgery (coronary artery bypass graft (CABG)"
  • Line Location: IVD1+10
Function Call: WRITE
  • Prompt: !,"or percutaneous transluminal coronary angioplasty (PTCA)) and were "
  • Line Location: IVD1+11
Function Call: WRITE
  • Prompt: !,"prescribed or dispensed aspirin or another anti-thrombotic medication"
  • Line Location: IVD1+12
Function Call: WRITE
  • Prompt: !,"or have documented evidence of use by patient of aspirin or another "
  • Line Location: IVD1+13
Function Call: WRITE
  • Prompt: !,"anti-thrombotic medication during the report period, and had a medical"
  • Line Location: IVD1+14
Function Call: WRITE
  • Prompt: !,"visit during the report period."
  • Line Location: IVD1+15
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: IVD1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IVD1+17
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: IVD1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL IVD PATIENTS WITH ASPIRIN OR ANTITHROMBOTIC THERAPY: ",BUDTOT,!
  • Line Location: IVD1L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IVD1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IVD1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IVD1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IVD1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section J, ",80),!,$$CTR("Ischemic Vascular Disease: Aspirin or Antithrombotic Therapy",80),!
  • Line Location: IVD1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IVD1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IVD1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IVD1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IVD1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IVD1H1+21
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication"
  • Line Location: IVD1H1+22
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IVD1H1+23
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IVD2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2012",80)
  • Line Location: IVD2+3
Function Call: WRITE
  • Prompt: !!,"All IVD patients 18+ w/o Aspirin or Antithrombotic Therapy (Table 6B)",!
  • Line Location: IVD2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of patients 18 years of age and older who, "
  • Line Location: IVD2+7
Function Call: WRITE
  • Prompt: !,"in the current or prior report year, were diagnosed with Ischemic Vascular"
  • Line Location: IVD2+8
Function Call: WRITE
  • Prompt: !,"Disease (IVD) including acute myocardial infarction (AMI), or discharged"
  • Line Location: IVD2+9
Function Call: WRITE
  • Prompt: !,"alive after cardiovascular surgery (coronary artery bypass graft (CABG)"
  • Line Location: IVD2+10
Function Call: WRITE
  • Prompt: !,"or percutaneous transluminal coronary angioplasty (PTCA)) and were not"
  • Line Location: IVD2+11
Function Call: WRITE
  • Prompt: !,"prescribed or dispensed aspirin or another anti-thrombotic medication"
  • Line Location: IVD2+12
Function Call: WRITE
  • Prompt: !,"or have documented evidence of use by patient of aspirin or another "
  • Line Location: IVD2+13
Function Call: WRITE
  • Prompt: !,"anti-thrombotic medication during the report period, and had a medical"
  • Line Location: IVD2+14
Function Call: WRITE
  • Prompt: !,"visit during the report period."
  • Line Location: IVD2+15
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: IVD2+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IVD2+17
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: IVD2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL IVD PATIENTS WITHOUT ASPIRIN OR ANTITHROMBOTIC THERAPY: ",BUDTOT,!
  • Line Location: IVD2L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IVD2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IVD2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IVD2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IVD2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section J, ",80),!,$$CTR("Ischemic Vascular Disease: Aspirin or Antithrombotic Therapy",80),!
  • Line Location: IVD2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IVD2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IVD2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IVD2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IVD2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IVD2H1+21
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication"
  • Line Location: IVD2H1+22
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IVD2H1+23
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • IVD1H+2
    • IVD2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, IVD1H1+6, IVD2H1+6
^DPT - [#2] IVD1L1+7, IVD2L1+7
^VA(200 - [#200] USR+1, IVD1H1+3, IVD2H1+3
^XTMP("BUD2RP6B" IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4
, IVD2L1+5, IVD2L1+9

Label References

Name Line Occurrences
$$CTR IVD1+2, IVD1+3, IVD1H1+4, IVD1H1+5, IVD1H1+6, IVD1H1+7, IVD1H1+8, IVD2+2, IVD2+3, IVD2H1+4
, IVD2H1+5, IVD2H1+6, IVD2H1+7, IVD2H1+8
$$LOC IVD1+2, IVD2+2
EOJ IVDLIST1+1, IVDLIST2+1
GENI IVD1+5, IVD2+5
IVD1 IVDLIST1+3
IVD1H IVD1L+2, IVD1L+5, IVD1L1+1, IVD1L1+6
IVD1H1 IVD1H+1
IVD1L1 IVD1L+4
IVD2 IVDLIST2+3
IVD2H IVD2L+2, IVD2L+5, IVD2L1+1, IVD2L1+6
IVD2H1 IVD2H+1
IVD2L1 IVD2L+4
PAUSE IVD1+6, IVD2+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 IVD1L1+2*, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+7, IVD1L1+9, IVD2L1+2*, IVD2L1+3, IVD2L1+4, IVD2L1+5
, IVD2L1+7, IVD2L1+9
>> BUDALL IVD1L1+9*, IVD1L1+10, IVD2L1+9*, IVD2L1+10
>> BUDBD IVD1H1+7, IVD2H1+7
>> BUDBEN IVD1H1+8, IVD2H1+8
>> BUDCOM IVD1L1+4*, IVD1L1+5, IVD1L1+7, IVD1L1+9, IVD2L1+4*, IVD2L1+5, IVD2L1+7, IVD2L1+9
>> BUDED IVD1H1+7, IVD2H1+7
>> BUDGPG IVD1H+1, IVD1H1+1*, IVD1H1+3, IVD2H+1, IVD2H1+1*, IVD2H1+3
>> BUDH IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4
, IVD2L1+5, IVD2L1+9
>> BUDIVD1L IVDLIST1+2*
>> BUDIVD2L IVDLIST2+2*
>> BUDJ IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4
, IVD2L1+5, IVD2L1+9
>> BUDNAME IVD1L1+3*, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L1+3*, IVD2L1+4, IVD2L1+5, IVD2L1+9
>> BUDP IVD1L+1*, IVD1H1+10, IVD1H1+24*, IVD2L+1*, IVD2H1+10, IVD2H1+24*
>> BUDQUIT IVD1L+1*, IVD1L+2, IVD1L+5, IVD1L1+1, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+6, IVD1H+2*
, IVD2L+1*, IVD2L+2, IVD2L+5, IVD2L1+1, IVD2L1+2, IVD2L1+3, IVD2L1+4, IVD2L1+5, IVD2L1+6, IVD2H+2*
>> BUDSITE IVD1L1+7, IVD1H1+6, IVD2L1+7, IVD2H1+6
>> BUDTOT IVD1L+1*, IVD1L+6, IVD1L1+8*, IVD2L+1*, IVD2L+6, IVD2L1+8*
DA PAUSE+1!
>> DFN IVD1L1+5*, IVD1L1+7, IVD1L1+9, IVD2L1+5*, IVD2L1+7, IVD2L1+9
DIR PAUSE+1!, GENI+4!, IVD1H+2!, IVD2H+2!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, IVD1H+2*, IVD2H+2*
DT IVD1H1+3, IVD2H1+3
>> DTOUT IVD1H+2, IVD2H+2
DUZ USR+1, IVD1H1+3, IVD2H1+3
DUZ(2 LOC+1, IVD1L1+7, IVD2L1+7
IO IVD1H+2, IVD2H+2
IO(0 IVD1H+2, IVD2H+2
IOF IVD1+1, IVD1H1+1, IVD2+1, IVD2H1+1
IOM CTR+1
IOSL IVD1L+5, IVD1L1+1, IVD1L1+6, IVD2L+5, IVD2L1+1, IVD2L1+6
IOST IVD1H+2, IVD2H+2
U USR+1, LOC+1, IVD1L1+7, IVD1L1+10, IVD1H1+3, IVD1H1+6, IVD2L1+7, IVD2L1+10, IVD2H1+3, IVD2H1+6
X CTR~, CTR+1, IVD1H1+7*, IVD1H1+8*, IVD2H1+7*, IVD2H1+8*
Y CTR~, CTR+1, IVD1H+2, IVD2H+2
>> ZTQUEUED IVD1H+2, IVD2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All