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

BUDCRP6S.m

Go to the documentation of this file. 
  1. BUDCRP6S ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ; 
  1.  ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1.  ;
  1.  ;
  1. S(V) ;
  1.  S BUDDECNT=BUDDECNT+1
  1.  S ^TMP($J,"BUDDEL",BUDDECNT)=$G(V)
  1.  Q
  1.  ;----------
  1. APTLIST1 ;EP
  1.  D EOJ
  1.  S BUDAPT1L=1
  1.  D APT1
  1.  G EN1^BUDCRP6B
  1. APTLIST2 ;EP
  1.  D EOJ
  1.  S BUDAPT2L=1
  1.  D APT2
  1.  G EN1^BUDCRP6B
  1. PAUSE ;
  1.  K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
  1.  Q
  1. GENI ;EP - general introductions
  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 !?4,"- the patient must NOT have a gender of 'Unknown'"
  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 - Return location name from file 4 based on DUZ(2).
  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. APT1 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2015",80)
  1.  W !!,"All Asthma patients 5-40 years of age w/prescription (Table 6B)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 5-40 years of age with a "
  1.  W !,"diagnosis of persistent asthma (either mild, moderate, or severe) who "
  1.  W !,"were prescribed either the preferred long term control medication or an"
  1.  W !,"acceptable alternative pharmacological therapy during the report period, "
  1.  W !,"had at least two medical visits ever, and had a medical visit during the "
  1.  W !,"report period.  Age is calculated as of December 31."
  1.  W !
  1.  Q
  1. APT1L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D APT1H Q:BUDQUIT
  1.  I '$D(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT1")) W:BUDROT="P" !!,"No patients to report." D:BUDROT="D" S() D:BUDROT="D" S("No patients to report.") Q
  1.  D APT1L1
  1.  I BUDROT="P",$Y>(IOSL-3) D APT1H Q:BUDQUIT
  1.  I BUDROT="P" W !!,"TOTAL ASTHMA PATIENTS WITH PREFERRED LONG-TERM CONTROL MEDICATION"
  1.  I BUDROT="P" W !,"OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: ",BUDTOT,!
  1.  I BUDROT="D" D S(),S("TOTAL ASTHMA PATIENTS WITH PREFERRED LONG-TERM CONTROL MEDICATION OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: "_BUDTOT)
  1.  Q
  1. APT1L1 ;
  1.  I BUDROT="P",$Y>(IOSL-7) D APT1H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT1",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT1",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT1",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT1",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I BUDROT="P",$Y>(IOSL-3) D APT1H Q:BUDQUIT
  1.  ....I BUDROT="P" 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("BUDCRP6B",BUDJ,BUDH,"APT1",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....I BUDROT="P" W ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2)
  1.  ....I BUDROT="D" S X=$P(^DPT(DFN,0),U,1)_U_$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_BUDCOM_U_$P(^DPT(DFN,0),U,2)_U_$$AGE^AUPNPAT(DFN,BUDCAD) D
  1.  .....S X=X_U_$P(BUDALL,U,1)_U_$P(BUDALL,U,2) D S(X)
  1.  Q
  1. APT1HD ;
  1.  D S(),S(),S()
  1.  D S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
  1.  D S($P(^VA(200,DUZ,0),U,2)_"    "_$$FMTE^XLFDT(DT))
  1.  D S("***  RPMS Uniform Data System (UDS)  ***")
  1.  D S("Patient List for Table 6B, Section H, Asthma Pharmacological Therapy")
  1.  D S($P(^DIC(4,BUDSITE,0),U))
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
  1.  S X="Population:  "_$S($G(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") D S(X)
  1.  D S()
  1.  D S("This report provides a list of all patients 5-40 years of age with an ")
  1.  D S("active diagnosis of persistent asthma (either mild, moderate, or severe)")
  1.  D S("who were prescribed either the preferred long term control medication or")
  1.  D S("an acceptable alternative pharmacological therapy during the report period,")
  1.  D S("had at least two medical visits ever, and had a medical visit during the")
  1.  D S("report period. ")
  1.  D S("Age is calculated as of December 31.")
  1.  D S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^ASTHMA DX^PRESCRIPTION TYPE")
  1.  Q
  1. APT1H ;
  1.  I BUDROT="D" D APT1HD Q
  1.  G:'BUDGPG APT1H1
  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. APT1H1 ;
  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 H, Asthma Pharmacological Therapy",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(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDCEN)=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 5-40 years of age with an "
  1.  .W !,"active diagnosis of persistent asthma (either mild, moderate, or severe)"
  1.  .W !,"who were prescribed either the preferred long term control medication or"
  1.  .W !,"an acceptable alternative pharmacological therapy during the report period,"
  1.  .W !,"had at least two medical visits ever, and had a medical visit during the"
  1.  .W !,"report period. "
  1.  .W !,"Age is calculated as of December 31. "
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"ASTHMA DX",?30,"PRESCRIPTION TYPE"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;
  1.  ;----------
  1. APT2 ;EP
  1.  W:$D(IOF) @IOF
  1.  W !,$$CTR($$LOC,80)
  1.  W !,$$CTR("UDS 2015",80)
  1.  W !!,"All Asthma patients 5-40 years of age w/o prescription (Table 6B)",!
  1.  D GENI
  1.  D PAUSE
  1.  W !!,"This report provides a list of all patients 5-40 years of age with a"
  1.  W !,"diagnosis of persistent asthma (either mild, moderate, or severe) who were"
  1.  W !,"not prescribed either a preferred long term control medication or an "
  1.  W !,"acceptable alternative pharmacological therapy or patients 5-40 years "
  1.  W !,"of age without a diagnosis of persistent asthma who were prescribed either"
  1.  W !,"the preferred long term control medication or an acceptable alternative "
  1.  W !,"pharmacological therapy during the report period, had at least two medical"
  1.  W !,"visits ever, and had a medical visit during the report period. Age is "
  1.  W !,"calculated as of December 31."
  1.  W !
  1.  Q
  1. APT2L ;EP
  1.  S BUDP=0,BUDQUIT=0,BUDTOT=0
  1.  D APT2H Q:BUDQUIT
  1.  I '$D(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT2")) W:BUDROT="P" !!,"No patients to report." D:BUDROT="D" S() D:BUDROT="D" S("No patients to report.") Q
  1.  D APT2L1
  1.  I BUDROT="P",$Y>(IOSL-3) D APT2H Q:BUDQUIT
  1.  I BUDROT="P" W !!,"TOTAL ASTHMA PATIENTS WITHOUT PREFERRED LONG-TERM CONTROL MEDICATION"
  1.  I BUDROT="P" W !,"OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: ",BUDTOT,!
  1.  I BUDROT="D" D S(),S("TOTAL ASTHMA PATIENTS WITHOUT PREFERRED LONG-TERM CONTROL MEDICATION OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: "_BUDTOT)
  1.  Q
  1. APT2L1 ;
  1.  I BUDROT="P",$Y>(IOSL-7) D APT2H Q:BUDQUIT
  1.  S BUDAGE="" F  S BUDAGE=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT2",BUDAGE)) Q:BUDAGE=""!(BUDQUIT)  D
  1.  .S BUDNAME="" F  S BUDNAME=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT2",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT)  D
  1.  ..S BUDCOM="" F  S BUDCOM=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT2",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT)  D
  1.  ...S DFN=0 F  S DFN=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"APT2",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT)  D
  1.  ....I BUDROT="P",$Y>(IOSL-3) D APT2H Q:BUDQUIT
  1.  ....I BUDROT="P" 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("BUDCRP6B",BUDJ,BUDH,"APT2",BUDAGE,BUDNAME,BUDCOM,DFN)
  1.  ....I BUDROT="P" W ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2)
  1.  ....I BUDROT="D" S X=$P(^DPT(DFN,0),U,1)_U_$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_BUDCOM_U_$P(^DPT(DFN,0),U,2)_U_$$AGE^AUPNPAT(DFN,BUDCAD) D
  1.  .....S X=X_U_$P(BUDALL,U,1)_U_$P(BUDALL,U,2) D S(X)
  1.  Q
  1. APT2HD ;
  1.  D S(),S(),S()
  1.  D S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
  1.  D S($P(^VA(200,DUZ,0),U,2)_"    "_$$FMTE^XLFDT(DT))
  1.  D S("***  RPMS Uniform Data System (UDS)  ***")
  1.  D S("Patient List for Table 6B, Section H, Asthma Pharmacological Therapy")
  1.  D S($P(^DIC(4,BUDSITE,0),U))
  1.  S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
  1.  S X="Population:  "_$S($G(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"") D S(X)
  1.  D S()
  1.  D S("This report provides a list of all patients 5-40 years of age with a")
  1.  D S("diagnosis of persistent asthma (either mild, moderate, or severe) who were")
  1.  D S("not prescribed either a preferred long term control medication or an ")
  1.  D S("acceptable alternative pharmacological therapy or patients 5-40 years ")
  1.  D S("of age without a diagnosis of persistent asthma who were prescribed either")
  1.  D S("the preferred long term control medication or an acceptable alternative ")
  1.  D S("pharmacological therapy during the report period, had at least two medical")
  1.  D S("visits ever, and had a medical visit during the report period. Age is ")
  1.  D S("calculated as of December 31.")
  1.  D S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^ASTHMA DX^PRESCRIPTION TYPE")
  1.  Q
  1. APT2H ;
  1.  I BUDROT="D" D APT2HD Q
  1.  G:'BUDGPG APT2H1
  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. APT2H1 ;
  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 H, Asthma Pharmacological Therapy",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(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$G(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$G(BUDCEN)=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 5-40 years of age with a"
  1.  .W !,"diagnosis of persistent asthma (either mild, moderate, or severe) who were"
  1.  .W !,"not prescribed either a preferred long term control medication or an "
  1.  .W !,"acceptable alternative pharmacological therapy or patients 5-40 years "
  1.  .W !,"of age without a diagnosis of persistent asthma who were prescribed either"
  1.  .W !,"the preferred long term control medication or an acceptable alternative "
  1.  .W !,"pharmacological therapy during the report period, had at least two medical"
  1.  .W !,"visits ever, and had a medical visit during the report period. Age is "
  1.  .W !,"calculated as of December 31."
  1.  W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  1.  W !?5,"ASTHMA DX",?30,"PRESCRIPTION TYPE"
  1.  W !,$TR($J("",80)," ","-"),!
  1.  S BUDP=1
  1.  Q
  1.  ;