Routine: DGMSTR1

DGMSTR1 ;ALB/GRR - GENERATE AND PRINT SUMMARY REPORT ; Jan 6, 1999

 ;;5.3;Registration;**195**; Aug 13, 1993

 ;DGMST("M") - Total Males

 ;DGMST("F") - Total Females

 ;DGMST("T") - Total Males and Females

 ;DGMST("M","Y") - Total Males seen for MST

 ;DGMST("M","N") - Total Males seen not related to MST

 ;DGMST("M","U") - Total Males seen with MST status of 'Unknown'

 ;DGMST("M","D") - Total Males seen with MST status of 'Declined to answer'

 ;DGMST("F",     - Same totals as above four except for Females

 ;DGMST("%M",    - Same breakdown as above except totals are percentages of Males

 ;DGMST("%F",    - Same breakdown as above except totals are percentages of Females

 ;DGMST("%",     - Same breakdown as above except totals are total percentages

 ;DGMST("Y") - Total number seen for MST

 ;DGMST("N") - Total seen not related to MST

 ;DGMST("U") - Total seen with MST status of 'Unknown'

 ;DGMST("D") - Total seen with MST status of 'Declined to answer'

 ;DGSDAT - Start Date of selected range

 ;DGEDAT - End Date of selected range

 ;DGPSDT - Start Date formatted for print

 ;DGPEDT - End Date formatted for print

 ;DGMSTST - Patient's MST Status

EN ;ENTRY POINT FOR ROUTINE

 N DGMST,DGSDAT,DGPSDT,DGEDAT,DGPEDT,ZTSAVE,X,Y,DGSTAT,DTOUT,DUOUT

 K DGMST

 D DT^DICRW

 F DGSTAT="Y","N","D","U" S DGMST("M",DGSTAT)=0,DGMST("F",DGSTAT)=0 ;INITIALIZE CUMULATORS BY SEX AND MST STATUS

 S DGMST("M")=0,DGMST("F")=0 ;INITIALIZE SEX COUNTERS

 ;GET DATE RANGE

SDAT S DIR(0)="D^:"_DT_":EX",DIR("A")="Start Date"

 D ^DIR K DIR

 Q:$D(DTOUT)!($D(DUOUT))

 S DGSDAT=+Y,Y=+Y D DD^%DT S DGPSDT=Y

TDAT S DIR(0)="D^"_DGSDAT_":"_DT_":EX",DIR("A")="End Date"

 D ^DIR K DIR

 Q:$D(DTOUT)!($D(DUOUT))

 S DGEDAT=+Y_.9999,Y=+Y D DD^%DT S DGPEDT=Y

 F X="DGMST(","DGSDAT","DGPSDT","DGEDAT","DGPEDT" S ZTSAVE(X)=""

 W !!,"This may take long to print, queue the report to free-up your terminal!",!

 D EN^XUTMDEVQ("RPT^DGMSTR1","MST Summary Report",.ZTSAVE)

 D HOME^%ZIS

RPT ;LOOP THROUGH PATIENT FILE TO CALCULATE UNKNOWN STATUSES

 N DFN,DGMSTST,DGMIFN,SEX

 S DFN=0 F  S DFN=$O(^DPT(DFN)) Q:DFN'>0  D

 .Q:$$EXCLUDE(DFN)

 .S SEX=$P($G(^DPT(DFN,0)),"^",2) Q:SEX'="M"&(SEX'="F")

 .I '$D(^DGMS(29.11,"C",DFN)) S DGMST(SEX,"U")=DGMST(SEX,"U")+1,DGMST(SEX)=DGMST(SEX)+1

 ;LOOP THROUGH MST HISTORY FILE TO TABULATE STATUS COUNTS

 S DFN=0 F  S DFN=$O(^DGMS(29.11,"C",DFN)) Q:DFN'>0  D

 .S Y=$$GETSTAT^DGMSTAPI(DFN,DGEDAT)

 .Q:+Y=0

 .Q:$P(Y,"^",3)<DGSDAT

 .S DGMSTST=$P(Y,"^",2) Q:DGMSTST=""

 .S DGMIFN=$P(Y,"^")

 .S SEX=$P($G(^DPT(DFN,0)),"^",2)

 .Q:SEX'="M"&(SEX'="F")

 .S DGMST(SEX,DGMSTST)=DGMST(SEX,DGMSTST)+1

 .S DGMST(SEX)=DGMST(SEX)+1

 ;COMPUTE REMAINING TOTALS

 S DGMST("T")=DGMST("M")+DGMST("F") ;ADD TOTAL MALES AND TOTAL FEMALES FOR GRAND TOTAL COUNT

 F S="Y","N","D","U" D

 .S DGMST(S)=DGMST("M",S)+DGMST("F",S) ;ADD TOTAL MALE AND FEMALE FOR EACH MST STATUS FOR TOTAL COUNT FOR EACH STATUS

 .S DGMST("%M",S)=0 I DGMST(S)>0 S DGMST("%M",S)=DGMST("M",S)/DGMST(S)*100 ;CALCULATE PERCENT MALE FOR EACH STATUS

 .S DGMST("%F",S)=0 I DGMST(S)>0 S DGMST("%F",S)=DGMST("F",S)/DGMST(S)*100 ;CALCULATE PERCENT FEMALE FOR EACH STATUS

 .S DGMST("%",S)=0 I DGMST(S)>0 S DGMST("%",S)=DGMST(S)/DGMST("T")*100 ;CALCULATE TOTAL PERCENT FOR EACH STATUS

 ;PRINT REPORT

 I $E(IOST,1,2)="C-" W @IOF

 W !,?20,"MST Summary Report"

 W !,?20,"Date Range: ",DGPSDT," - ",DGPEDT

 S Y=DT D DD^%DT S DGPCDT=Y

 W !,?20,"Date report Printed: ",DGPCDT,!!

 W !,"Total Male with a MST Status",?78-$L(DGMST("M")),DGMST("M")

 W !,"Total Female with a MST Status",?78-$L(DGMST("F")),DGMST("F")

 W !,"Total Patients with a MST Status",?78-$L(DGMST("T")),DGMST("T")

 W !!,"MST STATUS",?47,"Y",?57,"N",?67,"D",?77,"U"

 W !!,"Total Male"

 W ?48-$L(DGMST("M","Y")),DGMST("M","Y")

 W ?58-$L(DGMST("M","N")),DGMST("M","N")

 W ?68-$L(DGMST("M","D")),DGMST("M","D")

 W ?78-$L(DGMST("M","U")),DGMST("M","U")

 W !,"Total Female"

 W ?48-$L(DGMST("F","Y")),DGMST("F","Y")

 W ?58-$L(DGMST("F","N")),DGMST("F","N")

 W ?68-$L(DGMST("F","D")),DGMST("F","D")

 W ?78-$L(DGMST("F","U")),DGMST("F","U")

 W !!,"Total Patients with MST Status"

 W ?48-$L(DGMST("Y")),DGMST("Y")

 W ?58-$L(DGMST("N")),DGMST("N")

 W ?68-$L(DGMST("D")),DGMST("D")

 W ?78-$L(DGMST("U")),DGMST("U")

 W !!,"Percent of Male"

 W ?48-$L($J(DGMST("%M","Y"),3,1)),$J(DGMST("%M","Y"),3,1)

 W ?58-$L($J(DGMST("%M","N"),3,1)),$J(DGMST("%M","N"),3,1)

 W ?68-$L($J(DGMST("%M","D"),3,1)),$J(DGMST("%M","D"),3,1)

 W ?78-$L($J(DGMST("%M","U"),3,1)),$J(DGMST("%M","U"),3,1)

 W !,"Percent of Female"

 W ?48-$L($J(DGMST("%F","Y"),3,1)),$J(DGMST("%F","Y"),3,1)

 W ?58-$L($J(DGMST("%F","N"),3,1)),$J(DGMST("%F","N"),3,1)

 W ?68-$L($J(DGMST("%F","D"),3,1)),$J(DGMST("%F","D"),3,1)

 W ?78-$L($J(DGMST("%F","U"),3,1)),$J(DGMST("%F","U"),3,1)

 W !!,"Percent of all patients"

 W ?48-$L($J(DGMST("%","Y"),3,1)),$J(DGMST("%","Y"),3,1)

 W ?58-$L($J(DGMST("%","N"),3,1)),$J(DGMST("%","N"),3,1)

 W ?68-$L($J(DGMST("%","D"),3,1)),$J(DGMST("%","D"),3,1)

 W ?78-$L($J(DGMST("%","U"),3,1)),$J(DGMST("%","U"),3,1)

 I $E(IOST,1,2)="C-" W ! S DIR(0)="E" D ^DIR K DIR Q:$D(DTOUT)!($D(DUOUT))  W @IOF

 I $E(IOST,1,2)'="C-" W @IOF

 W !!

 W !,"----- LEGEND -----"

 W !,"Y means Yes, Reports MST"

 W !,"N means No, Does not Report MST"

 W !,"D means Declined to Answer"

 W !,"U means Unknown"

W !

 K X,Y,S,DGPCDT,DGSTAT

EXCLUDE(DFN) ;DETERMINE IF PATIENT SHOULD BE EXCLUDED FROM MST TRACKING

 I $G(^DPT(DFN,"VET"))="Y",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001)) Q 0

Q 1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMSTR1   5585     printed  Feb 19, 2025@00:10:31                                                                                                                                                                                                     Page 2

DGMSTR1   ;ALB/GRR - GENERATE AND PRINT SUMMARY REPORT ; Jan 6, 1999

 +1       ;;5.3;Registration;**195**; Aug 13, 1993

 +2       ;DGMST("M") - Total Males

 +3       ;DGMST("F") - Total Females

 +4       ;DGMST("T") - Total Males and Females

 +5       ;DGMST("M","Y") - Total Males seen for MST

 +6       ;DGMST("M","N") - Total Males seen not related to MST

 +7       ;DGMST("M","U") - Total Males seen with MST status of 'Unknown'

 +8       ;DGMST("M","D") - Total Males seen with MST status of 'Declined to answer'

 +9       ;DGMST("F",     - Same totals as above four except for Females

 +10      ;DGMST("%M",    - Same breakdown as above except totals are percentages of Males

 +11      ;DGMST("%F",    - Same breakdown as above except totals are percentages of Females

 +12      ;DGMST("%",     - Same breakdown as above except totals are total percentages

 +13      ;DGMST("Y") - Total number seen for MST

 +14      ;DGMST("N") - Total seen not related to MST

 +15      ;DGMST("U") - Total seen with MST status of 'Unknown'

 +16      ;DGMST("D") - Total seen with MST status of 'Declined to answer'

 +17      ;DGSDAT - Start Date of selected range

 +18      ;DGEDAT - End Date of selected range

 +19      ;DGPSDT - Start Date formatted for print

 +20      ;DGPEDT - End Date formatted for print

 +21      ;DGMSTST - Patient's MST Status

 +22      ;

EN        ;ENTRY POINT FOR ROUTINE

 +1        NEW DGMST,DGSDAT,DGPSDT,DGEDAT,DGPEDT,ZTSAVE,X,Y,DGSTAT,DTOUT,DUOUT

 +2        KILL DGMST

 +3        DO DT^DICRW

 +4       ;INITIALIZE CUMULATORS BY SEX AND MST STATUS

           FOR DGSTAT="Y","N","D","U"

               SET DGMST("M",DGSTAT)=0

               SET DGMST("F",DGSTAT)=0

 +5       ;INITIALIZE SEX COUNTERS

           SET DGMST("M")=0

           SET DGMST("F")=0

 +6       ;GET DATE RANGE

SDAT       SET DIR(0)="D^:"_DT_":EX"

           SET DIR("A")="Start Date"

 +1        DO ^DIR

           KILL DIR

 +2        if $DATA(DTOUT)!($DATA(DUOUT))

               QUIT

 +3        SET DGSDAT=+Y

           SET Y=+Y

           DO DD^%DT

           SET DGPSDT=Y

TDAT       SET DIR(0)="D^"_DGSDAT_":"_DT_":EX"

           SET DIR("A")="End Date"

 +1        DO ^DIR

           KILL DIR

 +2        if $DATA(DTOUT)!($DATA(DUOUT))

               QUIT

 +3        SET DGEDAT=+Y_.9999

           SET Y=+Y

           DO DD^%DT

           SET DGPEDT=Y

 +4        FOR X="DGMST(","DGSDAT","DGPSDT","DGEDAT","DGPEDT"

               SET ZTSAVE(X)=""

 +5        WRITE !!,"This may take long to print, queue the report to free-up your terminal!",!

 +6        DO EN^XUTMDEVQ("RPT^DGMSTR1","MST Summary Report",.ZTSAVE)

 +7        DO HOME^%ZIS

 +8        QUIT

RPT       ;LOOP THROUGH PATIENT FILE TO CALCULATE UNKNOWN STATUSES

 +1        NEW DFN,DGMSTST,DGMIFN,SEX

 +2        SET DFN=0

FOR

               SET DFN=$ORDER(^DPT(DFN))

               if DFN'>0

                   QUIT

               Begin DoDot:1

 +3                if $$EXCLUDE(DFN)

                       QUIT

 +4                SET SEX=$PIECE($GET(^DPT(DFN,0)),"^",2)

                   if SEX'="M"&(SEX'="F")

                       QUIT

 +5                IF '$DATA(^DGMS(29.11,"C",DFN))

                       SET DGMST(SEX,"U")=DGMST(SEX,"U")+1

                       SET DGMST(SEX)=DGMST(SEX)+1

               End DoDot:1

 +6       ;

 +7       ;LOOP THROUGH MST HISTORY FILE TO TABULATE STATUS COUNTS

 +8       ;

 +9        SET DFN=0

FOR

               SET DFN=$ORDER(^DGMS(29.11,"C",DFN))

               if DFN'>0

                   QUIT

               Begin DoDot:1

 +10               SET Y=$$GETSTAT^DGMSTAPI(DFN,DGEDAT)

 +11               if +Y=0

                       QUIT

 +12               if $PIECE(Y,"^",3)<DGSDAT

                       QUIT

 +13               SET DGMSTST=$PIECE(Y,"^",2)

                   if DGMSTST=""

                       QUIT

 +14               SET DGMIFN=$PIECE(Y,"^")

 +15               SET SEX=$PIECE($GET(^DPT(DFN,0)),"^",2)

 +16               if SEX'="M"&(SEX'="F")

                       QUIT

 +17               SET DGMST(SEX,DGMSTST)=DGMST(SEX,DGMSTST)+1

 +18               SET DGMST(SEX)=DGMST(SEX)+1

               End DoDot:1

 +19      ;COMPUTE REMAINING TOTALS

 +20      ;ADD TOTAL MALES AND TOTAL FEMALES FOR GRAND TOTAL COUNT

           SET DGMST("T")=DGMST("M")+DGMST("F")

 +21       FOR S="Y","N","D","U"

               Begin DoDot:1

 +22      ;ADD TOTAL MALE AND FEMALE FOR EACH MST STATUS FOR TOTAL COUNT FOR EACH STATUS

                   SET DGMST(S)=DGMST("M",S)+DGMST("F",S)

 +23      ;CALCULATE PERCENT MALE FOR EACH STATUS

                   SET DGMST("%M",S)=0

                   IF DGMST(S)>0

                       SET DGMST("%M",S)=DGMST("M",S)/DGMST(S)*100

 +24      ;CALCULATE PERCENT FEMALE FOR EACH STATUS

                   SET DGMST("%F",S)=0

                   IF DGMST(S)>0

                       SET DGMST("%F",S)=DGMST("F",S)/DGMST(S)*100

 +25      ;CALCULATE TOTAL PERCENT FOR EACH STATUS

                   SET DGMST("%",S)=0

                   IF DGMST(S)>0

                       SET DGMST("%",S)=DGMST(S)/DGMST("T")*100

               End DoDot:1

 +26      ;PRINT REPORT

 +27      ;

 +28       IF $EXTRACT(IOST,1,2)="C-"

               WRITE @IOF

 +29       WRITE !,?20,"MST Summary Report"

 +30       WRITE !,?20,"Date Range: ",DGPSDT," - ",DGPEDT

 +31       SET Y=DT

           DO DD^%DT

           SET DGPCDT=Y

 +32       WRITE !,?20,"Date report Printed: ",DGPCDT,!!

 +33       WRITE !,"Total Male with a MST Status",?78-$LENGTH(DGMST("M")),DGMST("M")

 +34       WRITE !,"Total Female with a MST Status",?78-$LENGTH(DGMST("F")),DGMST("F")

 +35       WRITE !,"Total Patients with a MST Status",?78-$LENGTH(DGMST("T")),DGMST("T")

 +36       WRITE !!,"MST STATUS",?47,"Y",?57,"N",?67,"D",?77,"U"

 +37       WRITE !!,"Total Male"

 +38       WRITE ?48-$LENGTH(DGMST("M","Y")),DGMST("M","Y")

 +39       WRITE ?58-$LENGTH(DGMST("M","N")),DGMST("M","N")

 +40       WRITE ?68-$LENGTH(DGMST("M","D")),DGMST("M","D")

 +41       WRITE ?78-$LENGTH(DGMST("M","U")),DGMST("M","U")

 +42       WRITE !,"Total Female"

 +43       WRITE ?48-$LENGTH(DGMST("F","Y")),DGMST("F","Y")

 +44       WRITE ?58-$LENGTH(DGMST("F","N")),DGMST("F","N")

 +45       WRITE ?68-$LENGTH(DGMST("F","D")),DGMST("F","D")

 +46       WRITE ?78-$LENGTH(DGMST("F","U")),DGMST("F","U")

 +47       WRITE !!,"Total Patients with MST Status"

 +48       WRITE ?48-$LENGTH(DGMST("Y")),DGMST("Y")

 +49       WRITE ?58-$LENGTH(DGMST("N")),DGMST("N")

 +50       WRITE ?68-$LENGTH(DGMST("D")),DGMST("D")

 +51       WRITE ?78-$LENGTH(DGMST("U")),DGMST("U")

 +52       WRITE !!,"Percent of Male"

 +53       WRITE ?48-$LENGTH($JUSTIFY(DGMST("%M","Y"),3,1)),$JUSTIFY(DGMST("%M","Y"),3,1)

 +54       WRITE ?58-$LENGTH($JUSTIFY(DGMST("%M","N"),3,1)),$JUSTIFY(DGMST("%M","N"),3,1)

 +55       WRITE ?68-$LENGTH($JUSTIFY(DGMST("%M","D"),3,1)),$JUSTIFY(DGMST("%M","D"),3,1)

 +56       WRITE ?78-$LENGTH($JUSTIFY(DGMST("%M","U"),3,1)),$JUSTIFY(DGMST("%M","U"),3,1)

 +57       WRITE !,"Percent of Female"

 +58       WRITE ?48-$LENGTH($JUSTIFY(DGMST("%F","Y"),3,1)),$JUSTIFY(DGMST("%F","Y"),3,1)

 +59       WRITE ?58-$LENGTH($JUSTIFY(DGMST("%F","N"),3,1)),$JUSTIFY(DGMST("%F","N"),3,1)

 +60       WRITE ?68-$LENGTH($JUSTIFY(DGMST("%F","D"),3,1)),$JUSTIFY(DGMST("%F","D"),3,1)

 +61       WRITE ?78-$LENGTH($JUSTIFY(DGMST("%F","U"),3,1)),$JUSTIFY(DGMST("%F","U"),3,1)

 +62       WRITE !!,"Percent of all patients"

 +63       WRITE ?48-$LENGTH($JUSTIFY(DGMST("%","Y"),3,1)),$JUSTIFY(DGMST("%","Y"),3,1)

 +64       WRITE ?58-$LENGTH($JUSTIFY(DGMST("%","N"),3,1)),$JUSTIFY(DGMST("%","N"),3,1)

 +65       WRITE ?68-$LENGTH($JUSTIFY(DGMST("%","D"),3,1)),$JUSTIFY(DGMST("%","D"),3,1)

 +66       WRITE ?78-$LENGTH($JUSTIFY(DGMST("%","U"),3,1)),$JUSTIFY(DGMST("%","U"),3,1)

 +67       IF $EXTRACT(IOST,1,2)="C-"

               WRITE !

               SET DIR(0)="E"

               DO ^DIR

               KILL DIR

               if $DATA(DTOUT)!($DATA(DUOUT))

                   QUIT

               WRITE @IOF

 +68       IF $EXTRACT(IOST,1,2)'="C-"

               WRITE @IOF

 +69       WRITE !!

 +70       WRITE !,"----- LEGEND -----"

 +71       WRITE !,"Y means Yes, Reports MST"

 +72       WRITE !,"N means No, Does not Report MST"

 +73       WRITE !,"D means Declined to Answer"

 +74       WRITE !,"U means Unknown"

 +75       WRITE !

 +76       KILL X,Y,S,DGPCDT,DGSTAT

 +77       QUIT

 +78      ;

EXCLUDE(DFN) ;DETERMINE IF PATIENT SHOULD BE EXCLUDED FROM MST TRACKING

 +1       ;

 +2        IF $GET(^DPT(DFN,"VET"))="Y"

               IF '+$GET(^(.35))>0!(+$GET(^(.35))>0&(+$GET(^(.35))'<2921001))

                   QUIT 0

 +3        QUIT 1

DGMSTR1.m