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

ECDSSSNR.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. START ;
  1. N NAME,UNIT,CNT,DSS0
  1. S CNT=1
  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
  1. .S DSS0=$G(^ECD(UNIT,0))
  1. .I $P(DSS0,U,6) Q ;Unit is inactive
  1. .I $P(DSS0,U,14)'="N" Q ;Only report units with send to pce set to send no records ("N")
  1. .S CNT=CNT+1
  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
  1. 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
  1. ;
  1. PRINT ; Display results
  1. N RDATE,LINE,NUM,PAGE
  1. U IO
  1. S RDATE=$$FMTE^XLFDT($E($$NOW^XLFDT,1,12),"5P")
  1. D HDR
  1. I '$D(^TMP($J,"ECRPT")) W !,"No active DSS units are set to Send No Records." Q ;Nothing to report
  1. S NUM=1
  1. F S NUM=$O(^TMP($J,"ECRPT",NUM)) Q:'+NUM D
  1. .S LINE=^TMP($J,"ECRPT",NUM)
  1. .W !,$P(LINE,U,2)_" ("_$P(LINE,U)_")",?50,$P(LINE,U,3)_"/"_$P(LINE,U,4)_"/"_$P(LINE,U,5)
  1. .I $Y>(IOSL-4) D HDR
  1. Q
  1. ;
  1. HDR ;Display header for report
  1. W @IOF
  1. S PAGE=$G(PAGE)+1
  1. W "DSS UNITS SET TO SEND NO RECORDS TO PCE",?41,"Run date:",RDATE,?72,"Page:",PAGE
  1. W !!,"DSS UNIT NAME (IEN)",?50,"STOP CODE/CREDIT STOP/CHAR4",!,$$REPEAT^XLFSTR("-",80),!
  1. Q