ASUAWXTW.m

ASUAWXTW ;DSD/DFM - EXTRACT TRANS - RE-EXTRACT AND DATA ENTRY ONLY OPTIONS;  [ 04/15/98  3:01 PM ]

 ;;3.0;SAMS;**1**;AUG 20, 1993

REXT ;PEP;RE-EXTRACT

 S DIR(0)="Y",DIR("A")="DO YOU WISH TO RE-EXTRACT TRANSACTIONS"

 S DIR("?",1)="Enter 'Y' to re-extract previously extracted, or"

 S DIR("?")=" 'N' to be prompted for a regular extract of updated transactions."

 D ^DIR K DIR

 Q:$D(DTOUT)  Q:$D(DUOUT)

 G:Y CONTURXT

 S DIR(0)="Y",DIR("A")="DO YOU WISH TO EXTRACT UPDATED TRANSACTIONS"

 S DIR("?",1)="Enter 'Y' to extract updated transactions, or"

 S DIR("?")=" 'N' to end this option selection."

 D ^DIR K DIR

 Q:$D(DTOUT)  Q:$D(DUOUT)

 G:Y BEGIN^ASUAWXT

 Q

CONTURXT ;

 S ASUW("TYPE LAST RUN")=^ASUTLRUN(1,0)

 S $P(ASUW("TYPE LAST RUN"),U,2)=8

 D:'$D(U) ^XBKVAR

 I '$D(IO(0)) S IOP=$I D ^%ZIS

 S ASUW("RUN TYPE")=$G(ASUW("RUN TYPE")) S:ASUW("RUN TYPE")']"" ASUW("RUN TYPE")=0

REXT2 ;EP ; RE-EXTRACT DATA

 S DIR(0)="D",DIR("A")="ENTER RE-EXTRACT DATE",DIR("?")="^D DATEHELP^ASUAWXTW" D ^DIR Q:$D(DTOUT)  Q:$D(DUOUT)!($D(DIROUT))

 S ASUX("EXTRACT DATE")=Y X ^DD("DD") W " ",Y

 K DIR,Y G OPNHFS^ASUAWXT

DATEHELP ;

 W !,"Enter the Extracted Date on records to be re-extracted.  Dates in Issues are:"

 S X=0 F  S X=$O(^ASU3("AX",X)) Q:X'?1N.N  W !,$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3)

 Q

DAOL ;PEP; DATA ENTRY ONLY

 S ASUW("TYPE LAST RUN")=^ASUTLRUN(1,0)

 S $P(ASUW("TYPE LAST RUN"),U,2)=9,ASUX("EXTRACT DATE")=DT

 D:'$D(U) ^XBKVAR

 I '$D(IO(0)) S IOP=$I D ^%ZIS

 S ASUW("RUN TYPE")=$G(ASUW("RUN TYPE"))

 S:ASUW("RUN TYPE")']"" ASUW("RUN TYPE")=0

 D:'$D(ASUK("DATE","RUNMO")) GETRUN^ASUAUTL1

 G OPNHFS^ASUAWXT

END ;

 Q

ASUAWXTW  ;DSD/DFM - EXTRACT TRANS - RE-EXTRACT AND DATA ENTRY ONLY OPTIONS;  [ 04/15/98  3:01 PM ]

 +1       ;;3.0;SAMS;**1**;AUG 20, 1993

REXT      ;PEP;RE-EXTRACT

 +1        SET DIR(0)="Y"

           SET DIR("A")="DO YOU WISH TO RE-EXTRACT TRANSACTIONS"

 +2        SET DIR("?",1)="Enter 'Y' to re-extract previously extracted, or"

 +3        SET DIR("?")=" 'N' to be prompted for a regular extract of updated transactions."

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)

               QUIT 

 +6        IF Y

               GOTO CONTURXT

 +7        SET DIR(0)="Y"

           SET DIR("A")="DO YOU WISH TO EXTRACT UPDATED TRANSACTIONS"

 +8        SET DIR("?",1)="Enter 'Y' to extract updated transactions, or"

 +9        SET DIR("?")=" 'N' to end this option selection."

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)

               QUIT 

 +12       IF Y

               GOTO BEGIN^ASUAWXT

 +13       QUIT 

CONTURXT  ;

 +1        SET ASUW("TYPE LAST RUN")=^ASUTLRUN(1,0)

 +2        SET $PIECE(ASUW("TYPE LAST RUN"),U,2)=8

 +3        IF '$DATA(U)

               DO ^XBKVAR

 +4        IF '$DATA(IO(0))

               SET IOP=$IO

               DO ^%ZIS

 +5        SET ASUW("RUN TYPE")=$GET(ASUW("RUN TYPE"))

           IF ASUW("RUN TYPE")']""

               SET ASUW("RUN TYPE")=0

REXT2     ;EP ; RE-EXTRACT DATA

 +1        SET DIR(0)="D"

           SET DIR("A")="ENTER RE-EXTRACT DATE"

           SET DIR("?")="^D DATEHELP^ASUAWXTW"

           DO ^DIR

           IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)!($DATA(DIROUT))

               QUIT 

 +2        SET ASUX("EXTRACT DATE")=Y

           XECUTE ^DD("DD")

           WRITE " ",Y

 +3        KILL DIR,Y

           GOTO OPNHFS^ASUAWXT

DATEHELP  ;

 +1        WRITE !,"Enter the Extracted Date on records to be re-extracted.  Dates in Issues are:"

 +2        SET X=0

           FOR 

               SET X=$ORDER(^ASU3("AX",X))

               IF X'?1N.N

                   QUIT 

               WRITE !,$EXTRACT(X,4,5),"/",$EXTRACT(X,6,7),"/",$EXTRACT(X,2,3)

 +3        QUIT 

DAOL      ;PEP; DATA ENTRY ONLY

 +1        SET ASUW("TYPE LAST RUN")=^ASUTLRUN(1,0)

 +2        SET $PIECE(ASUW("TYPE LAST RUN"),U,2)=9

           SET ASUX("EXTRACT DATE")=DT

 +3        IF '$DATA(U)

               DO ^XBKVAR

 +4        IF '$DATA(IO(0))

               SET IOP=$IO

               DO ^%ZIS

 +5        SET ASUW("RUN TYPE")=$GET(ASUW("RUN TYPE"))

 +6        IF ASUW("RUN TYPE")']""

               SET ASUW("RUN TYPE")=0

 +7        IF '$DATA(ASUK("DATE","RUNMO"))

               DO GETRUN^ASUAUTL1

 +8        GOTO OPNHFS^ASUAWXT

END       ;

 +1        QUIT