- 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 ---[H[J[2J[HECDSSSNR 1434 printed Feb 18, 2025@23:23:37 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