AMHEXRE1.m

AMHEXRE1 ; IHS/CMI/LAB - CONT. OF REDO MHSS EXPORT ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 ;

INIT ;EP

 D CHKOLD^AMHEXDI2

 Q:AMH("QFLG")

 S DIC="^AMHXLOG(",DIC(0)="AEQ",DIC("S")="I $D(^(21)),$P(^(0),U,9)=DUZ(2)" D ^DIC K DIC

 I Y<0 S AMH("QFLG")=99 Q

 S AMH("RUN LOG")=+Y

 ;

 S X=^AMHXLOG(AMH("RUN LOG"),0),AMH("RUN BEGIN")=$P(X,U),AMH("RUN END")=$P(X,U,2),AMH("COUNT")=$P(X,U,6),AMH("ORIG TX DATE")=$P($P(X,U,3),".")

 S Y=AMH("RUN BEGIN") X ^DD("DD") S AMH("PRINT BEGIN")=Y

 S Y=AMH("RUN END") X ^DD("DD") S AMH("PRINT END")=Y

 S AMH("RECS")=$P(^AMHXLOG(AMH("RUN LOG"),21,0),U,4)

 W !!,"Log entry ",AMH("RUN LOG"),"  was for date range ",AMH("PRINT BEGIN")," through ",AMH("PRINT END"),!,"and generated ",AMH("COUNT")," transactions from ",AMH("RECS")," records."

 ;

 W !!!,$C(7),$C(7),"This routine will generate ",$S($D(AMHS("MHSS")):"MHSS",$D(AMHS("APC")):"APC",1:""),$S($D(AMHS("INPT")):", and INPATIENT",1:""),$S($D(AMHS("CHA")):", and CHA",1:"")," transactions.",!

RDD ;

 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

 I $D(DIRUT) S AMH("QFLG")=99 Q

 I Y=0 S AMH("QFLG")=99 Q

 Q

AMHEXRE1  ; IHS/CMI/LAB - CONT. OF REDO MHSS EXPORT ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2       ;

INIT      ;EP

 +1        DO CHKOLD^AMHEXDI2

 +2        IF AMH("QFLG")

               QUIT 

 +3        SET DIC="^AMHXLOG("

           SET DIC(0)="AEQ"

           SET DIC("S")="I $D(^(21)),$P(^(0),U,9)=DUZ(2)"

           DO ^DIC

           KILL DIC

 +4        IF Y<0

               SET AMH("QFLG")=99

               QUIT 

 +5        SET AMH("RUN LOG")=+Y

 +6       ;

 +7        SET X=^AMHXLOG(AMH("RUN LOG"),0)

           SET AMH("RUN BEGIN")=$PIECE(X,U)

           SET AMH("RUN END")=$PIECE(X,U,2)

           SET AMH("COUNT")=$PIECE(X,U,6)

           SET AMH("ORIG TX DATE")=$PIECE($PIECE(X,U,3),".")

 +8        SET Y=AMH("RUN BEGIN")

           XECUTE ^DD("DD")

           SET AMH("PRINT BEGIN")=Y

 +9        SET Y=AMH("RUN END")

           XECUTE ^DD("DD")

           SET AMH("PRINT END")=Y

 +10       SET AMH("RECS")=$PIECE(^AMHXLOG(AMH("RUN LOG"),21,0),U,4)

 +11       WRITE !!,"Log entry ",AMH("RUN LOG"),"  was for date range ",AMH("PRINT BEGIN")," through ",AMH("PRINT END"),!,"and generated ",AMH("COUNT")," transactions from ",AMH("RECS")," records."

 +12      ;

 +13       WRITE !!!,$CHAR(7),$CHAR(7),"This routine will generate ",$SELECT($DATA(AMHS("MHSS")):"MHSS",$DATA(AMHS("APC")):"APC",1:""),$SELECT($DATA(AMHS("INPT")):", and INPATIENT",1:""),$SELECT($DATA(AMHS("CHA")):", and CHA",1:"")," transactions.",!

RDD       ;

 +1        SET DIR(0)="Y"

           SET DIR("A")="Do you want to regenerate the transactions for this run"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +2        IF $DATA(DIRUT)

               SET AMH("QFLG")=99

               QUIT 

 +3        IF Y=0

               SET AMH("QFLG")=99

               QUIT 

 +4        QUIT