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

BCHEXRE1.m

Go to the documentation of this file.
  1. BCHEXRE1 ; IHS/CMI/LAB - CONT. OF REDO CHR EXPORT ;
  1. ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
  1. ;IHS/CMI/LAB - added $J to ^TMP
  1. ;
  1. INIT ;EP
  1. D CHKOLD^BCHEXDI2
  1. Q:BCH("QFLG")
  1. S DIC="^BCHXLOG(",DIC(0)="AEQ",DIC("S")="I $D(^(21)),$P(^(0),U,9)=DUZ(2)" D ^DIC K DIC
  1. I Y<0 S BCH("QFLG")=99 Q
  1. S BCH("RUN LOG")=+Y
  1. ;
  1. S X=^BCHXLOG(BCH("RUN LOG"),0),BCH("RUN BEGIN")=$P(X,U),BCH("RUN END")=$P(X,U,2),BCH("COUNT")=$P(X,U,6),BCH("ORIG TX DATE")=$P($P(X,U,3),"."),BCH("BATCH")=$P(X,U,17)
  1. S Y=BCH("RUN BEGIN") X ^DD("DD") S BCH("PRINT BEGIN")=Y
  1. S Y=BCH("RUN END") X ^DD("DD") S BCH("PRINT END")=Y
  1. S BCH("RECS")=$P(^BCHXLOG(BCH("RUN LOG"),21,0),U,4)
  1. W !!,"Log entry ",BCH("RUN LOG")," was for date range ",BCH("PRINT BEGIN")," through ",BCH("PRINT END"),!,"and generated ",BCH("COUNT")," transactions from ",BCH("RECS")," records."
  1. ;
  1. W !!!,$C(7),$C(7),"This routine will generate CHR transactions.",!
  1. RDD ;
  1. S DIR(0)="Y",DIR("A")="Do you want to regenerate the transactions for this run",DIR("B")="N" K DA D ^DIR K DIR
  1. I $D(DIRUT) S BCH("QFLG")=99 Q
  1. I 'Y S BCH("QFLG")=99 Q
  1. Q
  1. DELETES ;EP
  1. S BCHRTYPE="D"
  1. S BCHR="" F S BCHR=$O(^BCHEXDEL("AD",BCH("ORIG TX DATE"),BCHR)) Q:BCHR="" D DELETES2 Q:BCH("QFLG")
  1. Q
  1. DELETES2 ;
  1. S BCHTX=""
  1. S BCHV("TX GENERATED")=0,^TMP("BCHREDO",$J,"DELETES",BCH("MAIN TX DATE"),BCHR)=BCH("MAIN TX DATE")
  1. X BCHCNT
  1. S X=$P(^BCHEXDEL(BCHR,0),U),X=$$LBLK^BCHEXD2(X,6) D TX^BCHEXD2
  1. S X=$P(^BCHEXDEL(BCHR,0),U,2) S X=$$LBLK^BCHEXD2(X,7) D TX^BCHEXD2
  1. S X=$P(^BCHEXDEL(BCHR,0),U,3) S X=$$LBLK^BCHEXD2(X,7) D TX^BCHEXD2
  1. S X=$P(^BCHEXDEL(BCHR,0),U,4) S X=$$LZERO^BCHEXD2(X,3) D TX^BCHEXD2
  1. S $E(BCHTX,68)=BCHRTYPE
  1. D CNTBUILD^BCHEXRE
  1. Q