ECDSSSNR.m

ECDSSSNR ;ALB/DAN - DSS units set to send no records report ;10/15/15  15:56

 ;;2.0;EVENT CAPTURE;**131**;8 May 96;Build 13

 ;

START ;

 N NAME,UNIT,CNT,DSS0

 S CNT=1

 S NAME="" F  S NAME=$O(^ECD("B",NAME)) Q:NAME=""  S UNIT=0 F  S UNIT=$O(^ECD("B",NAME,UNIT)) Q:'+UNIT  D

 .S DSS0=$G(^ECD(UNIT,0))

 .I $P(DSS0,U,6) Q  ;Unit is inactive

 .I $P(DSS0,U,14)'="N" Q  ;Only report units with send to pce set to send no records ("N")

 .S CNT=CNT+1

 .S ^TMP($J,"ECRPT",CNT)=UNIT_U_NAME_U_$$GET1^DIQ(40.7,$P(DSS0,U,10)_",",1)_U_$$GET1^DIQ(40.7,$P(DSS0,U,13)_",",1)_U_$$GET1^DIQ(728.441,$P(DSS0,U,15),.01) ;Store DSS unit data

 I $G(ECPTYP)="E" S ^TMP($J,"ECRPT",1)="DSS UNIT IEN^DSS UNIT NAME^STOP CODE^CREDIT STOP^CHAR4" Q  ;If exporting, create header line

 ;

PRINT ; Display results

 N RDATE,LINE,NUM,PAGE

 U IO

 S RDATE=$$FMTE^XLFDT($E($$NOW^XLFDT,1,12),"5P")

 D HDR

 I '$D(^TMP($J,"ECRPT")) W !,"No active DSS units are set to Send No Records." Q  ;Nothing to report

 S NUM=1

 F  S NUM=$O(^TMP($J,"ECRPT",NUM)) Q:'+NUM  D

 .S LINE=^TMP($J,"ECRPT",NUM)

 .W !,$P(LINE,U,2)_" ("_$P(LINE,U)_")",?50,$P(LINE,U,3)_"/"_$P(LINE,U,4)_"/"_$P(LINE,U,5)

 .I $Y>(IOSL-4) D HDR

 Q

 ;

HDR ;Display header for report

 W @IOF

 S PAGE=$G(PAGE)+1

 W "DSS UNITS SET TO SEND NO RECORDS TO PCE",?41,"Run date:",RDATE,?72,"Page:",PAGE

 W !!,"DSS UNIT NAME (IEN)",?50,"STOP CODE/CREDIT STOP/CHAR4",!,$$REPEAT^XLFSTR("-",80),!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECDSSSNR   1434     printed  Apr 09, 2024@21:03:22                                                                                                                                                                                                    Page 2

ECDSSSNR  ;ALB/DAN - DSS units set to send no records report ;10/15/15  15:56

 +1       ;;2.0;EVENT CAPTURE;**131**;8 May 96;Build 13

 +2       ;

START     ;

 +1        NEW NAME,UNIT,CNT,DSS0

 +2        SET CNT=1

 +3        SET NAME=""

           FOR 

               SET NAME=$ORDER(^ECD("B",NAME))

               if NAME=""

                   QUIT 

               SET UNIT=0

               FOR 

                   SET UNIT=$ORDER(^ECD("B",NAME,UNIT))

                   if '+UNIT

                       QUIT 

                   Begin DoDot:1

 +4                    SET DSS0=$GET(^ECD(UNIT,0))

 +5       ;Unit is inactive

                       IF $PIECE(DSS0,U,6)

                           QUIT 

 +6       ;Only report units with send to pce set to send no records ("N")

                       IF $PIECE(DSS0,U,14)'="N"

                           QUIT 

 +7                    SET CNT=CNT+1

 +8       ;Store DSS unit data

                       SET ^TMP($JOB,"ECRPT",CNT)=UNIT_U_NAME_U_$$GET1^DIQ(40.7,$PIECE(DSS0,U,10)_",",1)_U_$$GET1^DIQ(40.7,$PIECE(DSS0,U,13)_",",1)_U_$$GET1^DIQ(728.441,$PIECE(DSS0,U,15),.01)

                   End DoDot:1

 +9       ;If exporting, create header line

           IF $GET(ECPTYP)="E"

               SET ^TMP($JOB,"ECRPT",1)="DSS UNIT IEN^DSS UNIT NAME^STOP CODE^CREDIT STOP^CHAR4"

               QUIT 

 +10      ;

PRINT     ; Display results

 +1        NEW RDATE,LINE,NUM,PAGE

 +2        USE IO

 +3        SET RDATE=$$FMTE^XLFDT($EXTRACT($$NOW^XLFDT,1,12),"5P")

 +4        DO HDR

 +5       ;Nothing to report

           IF '$DATA(^TMP($JOB,"ECRPT"))

               WRITE !,"No active DSS units are set to Send No Records."

               QUIT 

 +6        SET NUM=1

 +7        FOR 

               SET NUM=$ORDER(^TMP($JOB,"ECRPT",NUM))

               if '+NUM

                   QUIT 

               Begin DoDot:1

 +8                SET LINE=^TMP($JOB,"ECRPT",NUM)

 +9                WRITE !,$PIECE(LINE,U,2)_" ("_$PIECE(LINE,U)_")",?50,$PIECE(LINE,U,3)_"/"_$PIECE(LINE,U,4)_"/"_$PIECE(LINE,U,5)

 +10               IF $Y>(IOSL-4)

                       DO HDR

               End DoDot:1

 +11       QUIT 

 +12      ;

HDR       ;Display header for report

 +1        WRITE @IOF

 +2        SET PAGE=$GET(PAGE)+1

 +3        WRITE "DSS UNITS SET TO SEND NO RECORDS TO PCE",?41,"Run date:",RDATE,?72,"Page:",PAGE

 +4        WRITE !!,"DSS UNIT NAME (IEN)",?50,"STOP CODE/CREDIT STOP/CHAR4",!,$$REPEAT^XLFSTR("-",80),!

 +5        QUIT