BUDCRP6G ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
;
;
S(V) ;
S BUDDECNT=BUDDECNT+1
S ^TMP($J,"BUDDEL",BUDDECNT)=$G(V)
Q
;----------
AWS2 ;EP
W:$D(IOF) @IOF
W !,$$CTR($$LOC,80)
W !,$$CTR("UDS 2015",80)
W !!,"All Patients 18 and older w/o BMI or does not have a follow-up plan (Table 6B)",!
D GENI^BUDCRP6F
D PAUSE^BUDCRP6F
W !!,"This report provides a list of all patients 18 years and older who do"
W !,"not have documente BMI percentile on the last visit during the report"
W !,"period or on any visit within the last 6 months of the last visit during"
W !,"the report period, or who are not overweight or underweight, or does not"
W !,"have a follow-up plan documented, had a medical visit during the report"
W !,"period, and were ever seen after their 18th birthday."
W !
Q
AWS2L ;EP
S BUDP=0,BUDQUIT=0,BUDTOT=0
D AWS2H Q:BUDQUIT
I '$D(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2")) W:BUDROT="P" !!,"No patients to report." D:BUDROT="D" S() D:BUDROT="D" S("No patients to report.") Q
D AWS2L1
I BUDROT="P",$Y>(IOSL-3) D AWS2H Q:BUDQUIT
I BUDROT="P" W !!,"TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: ",BUDTOT,!
I BUDROT="D" D S(),S("TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: "_BUDTOT)
Q
AWS2L1 ;
I BUDROT="P",$Y>(IOSL-7) D AWS2H Q:BUDQUIT
S BUDAGE="" F S BUDAGE=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE)) Q:BUDAGE=""!(BUDQUIT) D
.S BUDNAME="" F S BUDNAME=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT) D
..S BUDCOM="" F S BUDCOM=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT) D
...S DFN=0 F S DFN=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT) D
....I BUDROT="P",$Y>(IOSL-3) D AWS2H Q:BUDQUIT
....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,!
....S BUDTOT=BUDTOT+1
....S BUDALL=^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM,DFN)
....I BUDROT="P" W ?5,$S($P(BUDALL,U,1)]"":$J($P(BUDALL,U,1),6,2),1:""),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3)
....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_BUDAGE D
.....S X=X_U_$J($P(BUDALL,U,1),6,2)_U_$P(BUDALL,U,2)_U_$P(BUDALL,U,3) D S(X)
Q
AWS2HD ;
D S(),S(),S()
D S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
D S($P(^VA(200,DUZ,0),U,2)_" "_$$FMTE^XLFDT(DT))
D S("*** RPMS Uniform Data System (UDS) ***")
D S("Patient List for Table 6B, Section F")
D S("Without Adult Weight Screening and Follow-up")
D S($P(^DIC(4,BUDSITE,0),U))
S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
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)
D S()
D S("This report provides a list of all patients 18 years and older who do not")
D S("have documented BMI percentile on the last visit during the report")
D S("period or on any visit within the last 6 months of the last visit during")
D S("the report period, or who are not overweight or underweight, or does not")
D S("have a follow-up plan documented, had a medical visit during the report")
D S("period, and were ever seen after their 18th birthday.")
D S("Age is calulated as of December 31.")
D S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^BMI PERCENTILE^WEIGHT STATUS^FOLLOW-UP PLAN")
Q
AWS2H ;
I BUDROT="D" D AWS2HD Q
G:'BUDGPG AWS2H1
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
AWS2H1 ;
W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
W !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
W !,$$CTR("Patient List for Table 6B, Section F",80)
W !,$$CTR("Without Adult Weight Screen and Follow-up",80),!
W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
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),!
W $TR($J("",80)," ","-")
I BUDP=0 D
.W !,"This report provides a list of all patients 18 years and older who do not"
.W !,"have documented BMI percentile on the last visit during the report"
.W !,"period or on any visit within the last 6 months of the last visit during"
.W !,"the report period, or who are not overweight or underweight, or does not"
.W !,"have a follow-up plan documented, had a medical visit during the report"
.W !,"period, and were ever seen after their 18th birthday."
.W !,"Age is calulated as of December 31."
W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
W !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN"
W !,$TR($J("",80)," ","-"),!
S BUDP=1
Q
;
CTR(X,Y) ;EP - Center X in a field Y wide.
Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
;----------
USR() ;EP - Return name of current user from ^VA(200.
Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
AWS1 ;EP
W:$D(IOF) @IOF
W !,$$CTR($$LOC,80)
W !,$$CTR("UDS 2015",80)
W !!,"All Patients 18 and older w/BMI who were over/underweight w/followup"
W !,"plan (Table 6B)",!
D GENI
D PAUSE
W !!,"This report provides a list of all patients 18 and older who have a"
W !,"documented BMI percentile on the last visit during the report period"
W !,"or on any visit within the last 6 months of the last visit during the"
W !,"report period, and are overweight or underweight, and patient had a"
W !,"follow-up plan documented, had a medical visit during the report period,"
W !,"and were ever seen after their 18th birthday."
W !
Q
AWS1L ;EP
S BUDP=0,BUDQUIT=0,BUDTOT=0
D AWS1H Q:BUDQUIT
I '$D(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1")) W:BUDROT="P" !!,"No patients to report." D:BUDROT="D" S() D:BUDROT="D" S("No patients to report.") Q
D AWS1L1
I BUDROT="P",$Y>(IOSL-3) D AWS1H Q:BUDQUIT
I BUDROT="P" W !!,"TOTAL PATIENTS WITH ADULT WEIGHT SCREEN AND FOLLOW-UP PLAN:",BUDTOT,!
I BUDROT="D" D S(),S("TOTAL PATIENTS WITH ADULT WEIGHT SCREEN AND FOLLOW-UP PLAN: "_BUDTOT)
Q
AWS1L1 ;
I BUDROT="P",$Y>(IOSL-7) D AWS1H Q:BUDQUIT
S BUDAGE="" F S BUDAGE=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE)) Q:BUDAGE=""!(BUDQUIT) D
.S BUDNAME="" F S BUDNAME=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME)) Q:BUDNAME=""!(BUDQUIT) D
..S BUDCOM="" F S BUDCOM=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM)) Q:BUDCOM=""!(BUDQUIT) D
...S DFN=0 F S DFN=$O(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM,DFN)) Q:DFN'=+DFN!(BUDQUIT) D
....I BUDROT="P",$Y>(IOSL-3) D AWS1H Q:BUDQUIT
....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,!
....S BUDTOT=BUDTOT+1
....S BUDALL=^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM,DFN)
....I BUDROT="P" W ?5,$J($P(BUDALL,U,1),6,2),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3)
....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_BUDAGE D
.....S X=X_U_$J($P(BUDALL,U,1),6,2)_U_$P(BUDALL,U,2)_U_$P(BUDALL,U,3) D S(X)
Q
AWS1HD ;
D S(),S(),S()
D S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
D S($P(^VA(200,DUZ,0),U,2)_" "_$$FMTE^XLFDT(DT))
D S("*** RPMS Uniform Data System (UDS) ***")
D S("Patient List for Table 6B, Section F")
D S("Adult Weight Screening and Follow-up")
D S($P(^DIC(4,BUDSITE,0),U))
S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) D S(X)
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)
D S()
D S("This report provides a list of all patients 18 and older who have")
D S("documented BMI percentile on the last visit during the report period")
D S("or on any visit within the last 6 months of the last visit during the")
D S("report period, and are overweight or underweight, and the patient")
D S("had a follow-up plan documented, had a medical visit during the report")
D S("period, and were ever seen after their 18th birthday.")
D S("Age is calculated as of December 31.")
D S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^BMI PERCENTILE^WEIGHT STATUS^FOLLOW-UP PLAN")
Q
AWS1H ;
I BUDROT="D" D AWS1HD Q
G:'BUDGPG AWS1H1
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
AWS1H1 ;
W:$D(IOF) @IOF S BUDGPG=BUDGPG+1
W !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
W !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
W !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
W !,$$CTR("Patient List for Table 6B, Section F",80)
W !,$$CTR("Adult Weight Screening and Follow-up",80),!
W $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
S X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED) W $$CTR(X,80),!
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),!
W $TR($J("",80)," ","-")
I BUDP=0 D
.W !,"This report provides a list of all patients 18 and older who have"
.W !,"documented BMI percentile on the last visit during the report period"
.W !,"or on any visit within the last 6 months of the last visit during the"
.W !,"report period, and are overweight or underweight, and the patient"
.W !,"had a follow-up plan documented, had a medical visit during the report"
.W !,"period, and were ever seen after their 18th birthday."
.W !,"Age is calculated as of December 31."
W !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
W !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN"
W !,$TR($J("",80)," ","-"),!
S BUDP=1
Q
;
;----------
PAUSE ;EP
K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
Q
GENI ;EP - general introductions
W !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
W !,"patient population. It is recommended that you run these reports at night and"
W !,"print to an electronic file, not directly to a printer.",!
K DIR S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR K DIR
W !!,"This Patient List option documents the individual patients and visits"
W !,"that are counted and summarized on each Table report (main menu"
W !,"option REP). The summary Table report is included at the beginning of each"
W !,"List report."
W !,"UDS searches your database to find all visits and related patients"
W !,"during the time period selected. Based on the UDS definition, to be counted"
W !,"as a patient, the patient must have had at least one visit meeting the "
W !,"following criteria:"
W !?4,"- must be to a location specified in your visit location setup"
W !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
W !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
W !?6,"or In-Hospital (I) visit"
W !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
W !?4,"- must have a primary provider and a coded purpose of visit"
W !?4,"- the patient must NOT have a gender of 'Unknown'"
W !
Q
BUDCRP6G ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
+1 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
+2 ;
+3 ;
S(V) ;
+1 SET BUDDECNT=BUDDECNT+1
+2 SET ^TMP($JOB,"BUDDEL",BUDDECNT)=$GET(V)
+3 QUIT
+4 ;----------
AWS2 ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 WRITE !,$$CTR($$LOC,80)
+3 WRITE !,$$CTR("UDS 2015",80)
+4 WRITE !!,"All Patients 18 and older w/o BMI or does not have a follow-up plan (Table 6B)",!
+5 DO GENI^BUDCRP6F
+6 DO PAUSE^BUDCRP6F
+7 WRITE !!,"This report provides a list of all patients 18 years and older who do"
+8 WRITE !,"not have documente BMI percentile on the last visit during the report"
+9 WRITE !,"period or on any visit within the last 6 months of the last visit during"
+10 WRITE !,"the report period, or who are not overweight or underweight, or does not"
+11 WRITE !,"have a follow-up plan documented, had a medical visit during the report"
+12 WRITE !,"period, and were ever seen after their 18th birthday."
+13 WRITE !
+14 QUIT
AWS2L ;EP
+1 SET BUDP=0
SET BUDQUIT=0
SET BUDTOT=0
+2 DO AWS2H
IF BUDQUIT
QUIT
+3 IF '$DATA(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2"))
IF BUDROT="P"
WRITE !!,"No patients to report."
IF BUDROT="D"
DO S()
IF BUDROT="D"
DO S("No patients to report.")
QUIT
+4 DO AWS2L1
+5 IF BUDROT="P"
IF $Y>(IOSL-3)
DO AWS2H
IF BUDQUIT
QUIT
+6 IF BUDROT="P"
WRITE !!,"TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: ",BUDTOT,!
+7 IF BUDROT="D"
DO S()
DO S("TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: "_BUDTOT)
+8 QUIT
AWS2L1 ;
+1 IF BUDROT="P"
IF $Y>(IOSL-7)
DO AWS2H
IF BUDQUIT
QUIT
+2 SET BUDAGE=""
FOR
SET BUDAGE=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE))
IF BUDAGE=""!(BUDQUIT)
QUIT
Begin DoDot:1
+3 SET BUDNAME=""
FOR
SET BUDNAME=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME))
IF BUDNAME=""!(BUDQUIT)
QUIT
Begin DoDot:2
+4 SET BUDCOM=""
FOR
SET BUDCOM=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM))
IF BUDCOM=""!(BUDQUIT)
QUIT
Begin DoDot:3
+5 SET DFN=0
FOR
SET DFN=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM,DFN))
IF DFN'=+DFN!(BUDQUIT)
QUIT
Begin DoDot:4
+6 IF BUDROT="P"
IF $Y>(IOSL-3)
DO AWS2H
IF BUDQUIT
QUIT
+7 IF BUDROT="P"
WRITE !,$EXTRACT($PIECE(^DPT(DFN,0),U,1),1,25),?29,$SELECT($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$EXTRACT(BUDCOM,1,25),?70,$PIECE(^DPT(DFN,0),U,2),?75,B
UDAGE,!
+8 SET BUDTOT=BUDTOT+1
+9 SET BUDALL=^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS2",BUDAGE,BUDNAME,BUDCOM,DFN)
+10 IF BUDROT="P"
WRITE ?5,$SELECT($PIECE(BUDALL,U,1)]"":$JUSTIFY($PIECE(BUDALL,U,1),6,2),1:""),?25,$PIECE(BUDALL,U,2),?51,$PIECE(BUDALL,U,3)
+11 IF BUDROT="D"
SET X=$PIECE(^DPT(DFN,0),U,1)_U_$SELECT($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_BUDCOM_U_$PIECE(^DPT(DFN,0),U,2)_U_BUDAGE
Begin DoDot:5
+12 SET X=X_U_$JUSTIFY($PIECE(BUDALL,U,1),6,2)_U_$PIECE(BUDALL,U,2)_U_$PIECE(BUDALL,U,3)
DO S(X)
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+13 QUIT
AWS2HD ;
+1 DO S()
DO S()
DO S()
+2 DO S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
+3 DO S($PIECE(^VA(200,DUZ,0),U,2)_" "_$$FMTE^XLFDT(DT))
+4 DO S("*** RPMS Uniform Data System (UDS) ***")
+5 DO S("Patient List for Table 6B, Section F")
+6 DO S("Without Adult Weight Screening and Follow-up")
+7 DO S($PIECE(^DIC(4,BUDSITE,0),U))
+8 SET X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED)
DO S(X)
+9 SET X="Population: "_$SELECT($GET(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$GET(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$GET(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"")
DO S(X)
+10 DO S()
+11 DO S("This report provides a list of all patients 18 years and older who do not")
+12 DO S("have documented BMI percentile on the last visit during the report")
+13 DO S("period or on any visit within the last 6 months of the last visit during")
+14 DO S("the report period, or who are not overweight or underweight, or does not")
+15 DO S("have a follow-up plan documented, had a medical visit during the report")
+16 DO S("period, and were ever seen after their 18th birthday.")
+17 DO S("Age is calulated as of December 31.")
+18 DO S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^BMI PERCENTILE^WEIGHT STATUS^FOLLOW-UP PLAN")
+19 QUIT
AWS2H ;
+1 IF BUDROT="D"
DO AWS2HD
QUIT
+2 IF 'BUDGPG
GOTO AWS2H1
+3 KILL DIR
IF $EXTRACT(IOST)="C"
IF IO=IO(0)
IF '$DATA(ZTQUEUED)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET BUDQUIT=1
QUIT
AWS2H1 ;
+1 IF $DATA(IOF)
WRITE @IOF
SET BUDGPG=BUDGPG+1
+2 WRITE !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
+3 WRITE !?3,$PIECE(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
+4 WRITE !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
+5 WRITE !,$$CTR("Patient List for Table 6B, Section F",80)
+6 WRITE !,$$CTR("Without Adult Weight Screen and Follow-up",80),!
+7 WRITE $$CTR($PIECE(^DIC(4,BUDSITE,0),U),80),!
+8 SET X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED)
WRITE $$CTR(X,80),!
+9 SET X="Population: "_$SELECT($GET(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$GET(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$GET(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"")
WRITE $$CTR(X,80),!
+10 WRITE $TRANSLATE($JUSTIFY("",80)," ","-")
+11 IF BUDP=0
Begin DoDot:1
+12 WRITE !,"This report provides a list of all patients 18 years and older who do not"
+13 WRITE !,"have documented BMI percentile on the last visit during the report"
+14 WRITE !,"period or on any visit within the last 6 months of the last visit during"
+15 WRITE !,"the report period, or who are not overweight or underweight, or does not"
+16 WRITE !,"have a follow-up plan documented, had a medical visit during the report"
+17 WRITE !,"period, and were ever seen after their 18th birthday."
+18 WRITE !,"Age is calulated as of December 31."
End DoDot:1
+19 WRITE !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
+20 WRITE !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN"
+21 WRITE !,$TRANSLATE($JUSTIFY("",80)," ","-"),!
+22 SET BUDP=1
+23 QUIT
+24 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
+1 QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X
+2 ;----------
USR() ;EP - Return name of current user from ^VA(200.
+1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
+2 ;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
+1 QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
AWS1 ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 WRITE !,$$CTR($$LOC,80)
+3 WRITE !,$$CTR("UDS 2015",80)
+4 WRITE !!,"All Patients 18 and older w/BMI who were over/underweight w/followup"
+5 WRITE !,"plan (Table 6B)",!
+6 DO GENI
+7 DO PAUSE
+8 WRITE !!,"This report provides a list of all patients 18 and older who have a"
+9 WRITE !,"documented BMI percentile on the last visit during the report period"
+10 WRITE !,"or on any visit within the last 6 months of the last visit during the"
+11 WRITE !,"report period, and are overweight or underweight, and patient had a"
+12 WRITE !,"follow-up plan documented, had a medical visit during the report period,"
+13 WRITE !,"and were ever seen after their 18th birthday."
+14 WRITE !
+15 QUIT
AWS1L ;EP
+1 SET BUDP=0
SET BUDQUIT=0
SET BUDTOT=0
+2 DO AWS1H
IF BUDQUIT
QUIT
+3 IF '$DATA(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1"))
IF BUDROT="P"
WRITE !!,"No patients to report."
IF BUDROT="D"
DO S()
IF BUDROT="D"
DO S("No patients to report.")
QUIT
+4 DO AWS1L1
+5 IF BUDROT="P"
IF $Y>(IOSL-3)
DO AWS1H
IF BUDQUIT
QUIT
+6 IF BUDROT="P"
WRITE !!,"TOTAL PATIENTS WITH ADULT WEIGHT SCREEN AND FOLLOW-UP PLAN:",BUDTOT,!
+7 IF BUDROT="D"
DO S()
DO S("TOTAL PATIENTS WITH ADULT WEIGHT SCREEN AND FOLLOW-UP PLAN: "_BUDTOT)
+8 QUIT
AWS1L1 ;
+1 IF BUDROT="P"
IF $Y>(IOSL-7)
DO AWS1H
IF BUDQUIT
QUIT
+2 SET BUDAGE=""
FOR
SET BUDAGE=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE))
IF BUDAGE=""!(BUDQUIT)
QUIT
Begin DoDot:1
+3 SET BUDNAME=""
FOR
SET BUDNAME=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME))
IF BUDNAME=""!(BUDQUIT)
QUIT
Begin DoDot:2
+4 SET BUDCOM=""
FOR
SET BUDCOM=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM))
IF BUDCOM=""!(BUDQUIT)
QUIT
Begin DoDot:3
+5 SET DFN=0
FOR
SET DFN=$ORDER(^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM,DFN))
IF DFN'=+DFN!(BUDQUIT)
QUIT
Begin DoDot:4
+6 IF BUDROT="P"
IF $Y>(IOSL-3)
DO AWS1H
IF BUDQUIT
QUIT
+7 IF BUDROT="P"
WRITE !,$EXTRACT($PIECE(^DPT(DFN,0),U,1),1,25),?29,$SELECT($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$EXTRACT(BUDCOM,1,25),?70,$PIECE(^DPT(DFN,0),U,2),?75,B
UDAGE,!
+8 SET BUDTOT=BUDTOT+1
+9 SET BUDALL=^XTMP("BUDCRP6B",BUDJ,BUDH,"AWS1",BUDAGE,BUDNAME,BUDCOM,DFN)
+10 IF BUDROT="P"
WRITE ?5,$JUSTIFY($PIECE(BUDALL,U,1),6,2),?25,$PIECE(BUDALL,U,2),?51,$PIECE(BUDALL,U,3)
+11 IF BUDROT="D"
SET X=$PIECE(^DPT(DFN,0),U,1)_U_$SELECT($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2))_U_BUDCOM_U_$PIECE(^DPT(DFN,0),U,2)_U_BUDAGE
Begin DoDot:5
+12 SET X=X_U_$JUSTIFY($PIECE(BUDALL,U,1),6,2)_U_$PIECE(BUDALL,U,2)_U_$PIECE(BUDALL,U,3)
DO S(X)
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+13 QUIT
AWS1HD ;
+1 DO S()
DO S()
DO S()
+2 DO S("***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****")
+3 DO S($PIECE(^VA(200,DUZ,0),U,2)_" "_$$FMTE^XLFDT(DT))
+4 DO S("*** RPMS Uniform Data System (UDS) ***")
+5 DO S("Patient List for Table 6B, Section F")
+6 DO S("Adult Weight Screening and Follow-up")
+7 DO S($PIECE(^DIC(4,BUDSITE,0),U))
+8 SET X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED)
DO S(X)
+9 SET X="Population: "_$SELECT($GET(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$GET(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$GET(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"")
DO S(X)
+10 DO S()
+11 DO S("This report provides a list of all patients 18 and older who have")
+12 DO S("documented BMI percentile on the last visit during the report period")
+13 DO S("or on any visit within the last 6 months of the last visit during the")
+14 DO S("report period, and are overweight or underweight, and the patient")
+15 DO S("had a follow-up plan documented, had a medical visit during the report")
+16 DO S("period, and were ever seen after their 18th birthday.")
+17 DO S("Age is calculated as of December 31.")
+18 DO S("PATIENT NAME^HRN^COMMUNITY^SEX^AGE^BMI PERCENTILE^WEIGHT STATUS^FOLLOW-UP PLAN")
+19 QUIT
AWS1H ;
+1 IF BUDROT="D"
DO AWS1HD
QUIT
+2 IF 'BUDGPG
GOTO AWS1H1
+3 KILL DIR
IF $EXTRACT(IOST)="C"
IF IO=IO(0)
IF '$DATA(ZTQUEUED)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET BUDQUIT=1
QUIT
AWS1H1 ;
+1 IF $DATA(IOF)
WRITE @IOF
SET BUDGPG=BUDGPG+1
+2 WRITE !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
+3 WRITE !?3,$PIECE(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
+4 WRITE !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
+5 WRITE !,$$CTR("Patient List for Table 6B, Section F",80)
+6 WRITE !,$$CTR("Adult Weight Screening and Follow-up",80),!
+7 WRITE $$CTR($PIECE(^DIC(4,BUDSITE,0),U),80),!
+8 SET X="Reporting Period: "_$$FMTE^XLFDT(BUDBD)_" to "_$$FMTE^XLFDT(BUDED)
WRITE $$CTR(X,80),!
+9 SET X="Population: "_$SELECT($GET(BUDCEN)=1:"Indian/Alaskan Native (Classification 01)",$GET(BUDCEN)=2:"Not Indian Alaskan/Native (Not Classification 01)",$GET(BUDCEN)=3:"All (both Indian/Alaskan Natives and Non 01)",1:"")
WRITE $$CTR(X,80),!
+10 WRITE $TRANSLATE($JUSTIFY("",80)," ","-")
+11 IF BUDP=0
Begin DoDot:1
+12 WRITE !,"This report provides a list of all patients 18 and older who have"
+13 WRITE !,"documented BMI percentile on the last visit during the report period"
+14 WRITE !,"or on any visit within the last 6 months of the last visit during the"
+15 WRITE !,"report period, and are overweight or underweight, and the patient"
+16 WRITE !,"had a follow-up plan documented, had a medical visit during the report"
+17 WRITE !,"period, and were ever seen after their 18th birthday."
+18 WRITE !,"Age is calculated as of December 31."
End DoDot:1
+19 WRITE !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
+20 WRITE !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN"
+21 WRITE !,$TRANSLATE($JUSTIFY("",80)," ","-"),!
+22 SET BUDP=1
+23 QUIT
+24 ;
+25 ;----------
PAUSE ;EP
+1 KILL DIR
SET DIR(0)="E"
SET DIR("A")="PRESS ENTER"
KILL DA
DO ^DIR
KILL DIR
+2 QUIT
GENI ;EP - general introductions
+1 WRITE !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
+2 WRITE !,"patient population. It is recommended that you run these reports at night and"
+3 WRITE !,"print to an electronic file, not directly to a printer.",!
+4 KILL DIR
SET DIR(0)="E"
SET DIR("A")="Press Enter to Continue"
DO ^DIR
KILL DIR
+5 WRITE !!,"This Patient List option documents the individual patients and visits"
+6 WRITE !,"that are counted and summarized on each Table report (main menu"
+7 WRITE !,"option REP). The summary Table report is included at the beginning of each"
+8 WRITE !,"List report."
+9 WRITE !,"UDS searches your database to find all visits and related patients"
+10 WRITE !,"during the time period selected. Based on the UDS definition, to be counted"
+11 WRITE !,"as a patient, the patient must have had at least one visit meeting the "
+12 WRITE !,"following criteria:"
+13 WRITE !?4,"- must be to a location specified in your visit location setup"
+14 WRITE !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
+15 WRITE !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
+16 WRITE !?6,"or In-Hospital (I) visit"
+17 WRITE !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
+18 WRITE !?4,"- must have a primary provider and a coded purpose of visit"
+19 WRITE !?4,"- the patient must NOT have a gender of 'Unknown'"
+20 WRITE !
+21 QUIT
