Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BUD2RP6T

BUD2RP6T.m

Go to the documentation of this file. 
  1. BUD2RP6T ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
  1.  ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1.  ;
  1.  ;
  1. TUALIST1 ;EP
  1.  D EOJ
  1.  S BUDTUA1L=1
  1.  D TUA1
  1.  G EN1^BUD2RP6B
  1. TUALIST2 ;EP
  1.  D EOJ
  1.  S BUDTUA2L=1
  1.  D TUA2
  1.  G EN1^BUD2RP6B
  1. TCILIST1 ;EP
  1.  D EOJ
  1.  S BUDTCI1L=1
  1.  D TCI1
  1.  G EN1^BUD2RP6B
  1. TCILIST2 ;EP
  1.  D EOJ
  1.  S BUDTCI2L=1
  1.  D TCI2
  1.  G EN1^BUD2RP6B
  1. PAUSE ;
  1.  K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
  1.  Q
  1. GENI ;EP
  1.  W !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  1.  W !,"patient population.  It is recommended that you run these reports at night and"
  1.  W !,"print to an electronic file, not directly to a printer.",!
  1.  K DIR S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR K DIR
  1.  W !!,"This Patient List option documents the individual patients and visits"
  1.  W !,"that are counted and summarized on each Table report (main menu"
  1.  W !,"option REP).  The summary Table report is included at the beginning of each"
  1.  W !,"List report."
  1.  W !,"UDS searches your database to find all visits and related patients"
  1.  W !,"during the time period selected. Based on the UDS definition, to be counted"
  1.  W !,"as a patient, the patient must have had at least one visit meeting the "
  1.  W !,"following criteria:"
  1.  W !?4,"- must be to a location specified in your visit location setup"
  1.  W !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  1.  W !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  1.  W !?6,"or In-Hospital (I) visit"
  1.  W !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  1.  W !?4,"- must have a primary provider and a coded purpose of visit"
  1.  W !
  1.  Q
  1.  ;
  1. EOJ ;
  1.  D EN^XBVK("BUD")
  1.  Q
  1. CTR(X,Y) ;EP - Center X in a field Y wide.
  1.  Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
  1.  ;----------
  1. USR() ;EP - Return name of current user from ^VA(200.
  1.  Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
  1.  ;----------
  1. LOC() ;EP 
  1.  Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
  1.  ;----------
  1. TUA1 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2012",80)
  1.  W !!,"All Patients 18 and older w/tobacco use assessment (Table 6B)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 18 years and older who were"
  1.  W !,"queried about any and all forms tobacco use one or more times during the "
  1.  W !,"report period or the prior year, had at least one medical during the report"
  1.  W !,"period, and with at least two medical visits ever, and were ever seen after"
  1.  W !,"their 18th birthday."
  1.  W !
  1.  Q
  1. TUA1L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D TUA1H Q:BUDQUIT
  1.  I '$D(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1")) W !!,"No patients to report.",! Q
  1.  D TUA1L1
  1.  I $Y>(IOSL-3) D TUA1H Q:BUDQUIT
  1.  W !!,"TOTAL PATIENTS WITH TOBACCO USE ASSESSMENT AND COUNSELING: ",BUDTOT,!
  1.  Q
  1. TUA1L1 ;
  1.  I $Y>(IOSL-7) D TUA1H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I $Y>(IOSL-3) D TUA1H Q:BUDQUIT
  1.  ....W !,$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,!
  1.  ....S BUDTOT=BUDTOT+1
  1.  ....S BUDALL=^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA1",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....I BUDALL="" W ?5,"Never" Q
  1.  ....W ?5,$P(BUDALL,U,2),?30,$P(BUDALL,U,1)
  1.  Q
  1. TUA1H ;
  1.  G:'BUDGPG TUA1H1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. TUA1H1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS)  ***",80)
  1.  W !,$$CTR("Patient List for Table 6B, Section G1, Tobacco Use Assessment",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"This report provides a list of all patients 18 years and older who were "
  1.  .W !,"queried about any and all forms tobacco use one or more times during the"
  1.  .W !,"report period or the prior year, had at least one medical visit during the"
  1.  .W !,"report period, and with at least two medical visits ever, and were ever"
  1.  .W !,"seen after their 18th birthday. "
  1.  .W !,"Age is calculated as of December 31."
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"ASSESSMENT DATE",?30,"DX OR SVC CD"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;
  1.  ;----------
  1. TUA2 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2012",80)
  1.  W !!,"All Patients 18 and older w/o tobacco use assessment (Table 6B)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 18 years and older who were"
  1.  W !,"queried not about any and all forms tobacco use one or more times during "
  1.  W !,"the report period or the prior year, had at least one medical during the"
  1.  W !,"report period, and with at least two medical visits ever, and were ever"
  1.  W !,"seen after their 18th birthday."
  1.  W !
  1.  Q
  1. TUA2L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D TUA2H Q:BUDQUIT
  1.  I '$D(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2")) W !!,"No patients to report.",! Q
  1.  D TUA2L1
  1.  I $Y>(IOSL-3) D TUA2H Q:BUDQUIT
  1.  W !!,"TOTAL PATIENTS WITHOUT TOBACCO USE ASSESSMENT AND COUNSELING: ",BUDTOT,!
  1.  Q
  1. TUA2L1 ;
  1.  I $Y>(IOSL-7) D TUA2H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I $Y>(IOSL-3) D TUA2H Q:BUDQUIT
  1.  ....W !,$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,!
  1.  ....S BUDTOT=BUDTOT+1
  1.  ....S BUDALL=^XTMP("BUD2RP6B",BUDJ,BUDH,"TUA2",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....I BUDALL="" W ?5,"Never" Q
  1.  ....W ?5,$E($P(BUDALL,U,2),1,24),?30,$P(BUDALL,U,1)
  1.  Q
  1. TUA2H ;
  1.  G:'BUDGPG TUA2H1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. TUA2H1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS)  ***",80)
  1.  W !,$$CTR("Patient List for Table 6B, Section G1, Tobacco Use Assessment",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"This report provides a list of all patients 18 years and older who were"
  1.  .W !,"not queried about any and all forms tobacco use one or more times during"
  1.  .W !,"the report period or the prior year, had at least one medical visit "
  1.  .W !,"during the report period, and with at least two medical visits ever, and"
  1.  .W !,"were ever seen after their 18th birthday. "
  1.  .W !,"Age is calculated as of December 31st."
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"ASSESSMENT DATE",?30,"DX OR SVC CD"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;
  1.  ;----------
  1. TCI1 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2012",80)
  1.  W !!,"All Patients 18 and older smokers or tobacco users w/Cessation"
  1.  W !,"Intervention (Table 6B)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 18 years or older who are "
  1.  W !,"documented smokers or tobacco users and who received documented advice "
  1.  W !,"to quit smoking or tobacco use during the report, had at least two medical"
  1.  W !,"visits ever, had a medical visit during the report period, and were ever "
  1.  W !,"seen after their 18th birthday."
  1.  W !
  1.  Q
  1. TCI1L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D TCI1H Q:BUDQUIT
  1.  I '$D(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1")) W !!,"No patients to report.",! Q
  1.  D TCI1L1
  1.  I $Y>(IOSL-3) D TCI1H Q:BUDQUIT
  1.  W !!,"TOTAL TOBACCO USER PATIENTS WITH CESSATION INTERVENTION:",BUDTOT,!
  1.  Q
  1. TCI1L1 ;
  1.  I $Y>(IOSL-7) D TCI1H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I $Y>(IOSL-3) D TCI1H Q:BUDQUIT
  1.  ....W !,$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,!
  1.  ....S BUDTOT=BUDTOT+1
  1.  ....S BUDALL=^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI1",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....W ?5,$E($P(BUDALL,U,1),1,24),?40,$P(BUDALL,U,2)
  1.  Q
  1. TCI1H ;
  1.  G:'BUDGPG TCI1H1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. TCI1H1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS)  ***",80)
  1.  W !,$$CTR("Patient List for Table 6B, Section G2, Tobacco Cessation Intervention",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"This report provides a list of all patients 18 years or older who are"
  1.  .W !,"documented smokers or tobacco users and who received documented advice "
  1.  .W !,"to quit smoking or tobacco use during the report period, had at least"
  1.  .W !,"two medical visits ever, had a medical visit during the report period,"
  1.  .W !,"and were ever seen after their 18th birthday."
  1.  .W !,"Age is calculated as of December 31."
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"TOBACCO STATUS",?40,"CESSATION INTERVENTION"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;
  1.  ;----------
  1. TCI2 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2012",80)
  1.  W !!,"All Patients 18 and older smokers or tobacco users w/o cessation ",!
  1.  W !,"Intervention (Table 6B)"
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 18 years or older who are "
  1.  W !,"documented smokers or tobacco users and who have not received documented "
  1.  W !,"advice to quit smoking or tobacco use during the report, had at least two "
  1.  W !,"medical visits ever, had a medical visit during the report period, and "
  1.  W !,"were ever seen after their 18th birthday."
  1.  W !
  1.  Q
  1. TCI2L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D TCI2H Q:BUDQUIT
  1.  I '$D(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2")) W !!,"No patients to report.",! Q
  1.  D TCI2L1
  1.  I $Y>(IOSL-3) D TCI2H Q:BUDQUIT
  1.  W !!,"TOTAL TOBACCO USER PATIENTS WITHOUT CESSATION INTERVENTION: ",BUDTOT,!
  1.  Q
  1. TCI2L1 ;
  1.  I $Y>(IOSL-7) D TCI2H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I $Y>(IOSL-3) D TCI2H Q:BUDQUIT
  1.  ....W !,$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,!
  1.  ....S BUDTOT=BUDTOT+1
  1.  ....S BUDALL=^XTMP("BUD2RP6B",BUDJ,BUDH,"TCI2",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....W ?5,$E($P(BUDALL,U,1),1,24),?40,$P(BUDALL,U,2)
  1.  Q
  1. TCI2H ;
  1.  G:'BUDGPG TCI2H1
  1.  K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BUDQUIT=1 Q
  1. TCI2H1 ;
  1.  W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
  1.  W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  1.  W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  1.  W !,$$CTR("***  RPMS Uniform Data System (UDS)  ***",80)
  1.  W !,$$CTR("Patient List for Table 6B, Section G2, Tobacco Cessation Intervention",80),!
  1.  W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
  1.  S X="Population:  "_$S($G(BUDBEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDBEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDBEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") W $$CTR(X,80),!
  1.  W $TR($J("",80)," ","-")
  1.  I BUDP=0 D
  1.  .W !,"This report provides a list of all patients 18 years or older who are"
  1.  .W !,"documented smokers or tobacco users and who have not received documented"
  1.  .W !,"advice to quit smoking or tobacco use during the report period, had at "
  1.  .W !,"least two medical visits ever, had a medical visit during the report "
  1.  .W !,"period, and were ever seen after their 18th birthday. "
  1.  .W !,"Age is calculated as of December 31."
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"TOBACCO STATUS",?40,"CESSATION INTERVENTION",?51
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;