ASUADCOR.m

ASUADCOR ;DSD/DFM - DUE IN CORRECTION;  [ 04/15/98  2:31 PM ]

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

 F  Q:$G(ASUREPLY("CORRECT"))="Y"  Q:$D(DTOUT)!($D(DUOUT))!($D(DIROUT))  D

 .Q:$D(DTOUT)!($D(DUOUT))!($D(DIROUT))  Q:ASUREPLY("CORRECT")="Y"

 .S DIR(0)="SB^Y:YES;N:NO;3:STATION;4:PURCHASE ORDER NUMBER;5:DATE DUE IN;6:ACCOUNT;7:SUB SUB ACTIVITY;8:INDEX;9:QUANTITY;10:VALUE"

 .D CORRECT^ASUAUYRN Q:ASUREPLY("CORRECT")="Y"  D

 ..D:ASUREPLY("CORRECT")="N"

 ...S DIR(0)="NOA^3:10:0"

 ...D GETFIELD^ASUAUYRN

 ..Q:$D(DTOUT)!($D(DUOUT))!($D(DIROUT))  Q:ASUREPLY("CORRECT")="Y"

 ..I ASUREPLY("CORRECT")="3" S DIR("B")=ASUTRNS(ASUTRNS,"STATION"),ASUTRNS(ASUTRNS,"STATION")="" D STAT^ASUAUAST

 ..I ASUREPLY("CORRECT")="4" D REQD^ASUAUPON

 ..I $E(ASUTRNS("TRANSACTION CODE"),2,2)'?1N I ASUREPLY("CORRECT")=5 S ASUV("ITEM #")=5 D ^ASUAUIDX

 ..I ASUREPLY("CORRECT")="5" D ^ASUADTDU

 ..I ASUREPLY("CORRECT")="6" S ASUV("ITEM #")=6 D ^ASUAUACC

 ..I ASUREPLY("CORRECT")="7" S ASUV("ITEM #")=7 D ^ASUAUSSA

 ..I ASUREPLY("CORRECT")="8" S ASUV("ITEM #")=8 D ^ASUAUIDX

 ..I ASUREPLY("CORRECT")="9" S ASUV("ITEM #")=9 D ^ASUAUQTY

 ..I ASUREPLY("CORRECT")="10" S ASUV("ITEM #")=10 D ^ASUAUVAL

 ..S ASUREPLY("CORRECT")="N" Q

 I ASUREPLY("CORRECT")="Y" D ^ASUADUPD

 K X,Y,ASUREPLY("CORRECT")

 Q

ASUADCOR  ;DSD/DFM - DUE IN CORRECTION;  [ 04/15/98  2:31 PM ]

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

 +2        FOR 

               IF $GET(ASUREPLY("CORRECT"))="Y"

                   QUIT 

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

                   QUIT 

               Begin DoDot:1

 +3                IF $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIROUT))

                       QUIT 

                   IF ASUREPLY("CORRECT")="Y"

                       QUIT 

 +4                SET DIR(0)="SB^Y:YES;N:NO;3:STATION;4:PURCHASE ORDER NUMBER;5:DATE DUE IN;6:ACCOUNT;7:SUB SUB ACTIVITY;8:INDEX;9:QUANTITY;10:VALUE"

 +5                DO CORRECT^ASUAUYRN

                   IF ASUREPLY("CORRECT")="Y"

                       QUIT 

                   Begin DoDot:2

 +6                    IF ASUREPLY("CORRECT")="N"

                           Begin DoDot:3

 +7                            SET DIR(0)="NOA^3:10:0"

 +8                            DO GETFIELD^ASUAUYRN

                           End DoDot:3

 +9                    IF $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIROUT))

                           QUIT 

                       IF ASUREPLY("CORRECT")="Y"

                           QUIT 

 +10                   IF ASUREPLY("CORRECT")="3"

                           SET DIR("B")=ASUTRNS(ASUTRNS,"STATION")

                           SET ASUTRNS(ASUTRNS,"STATION")=""

                           DO STAT^ASUAUAST

 +11                   IF ASUREPLY("CORRECT")="4"

                           DO REQD^ASUAUPON

 +12                   IF $EXTRACT(ASUTRNS("TRANSACTION CODE"),2,2)'?1N

                           IF ASUREPLY("CORRECT")=5

                               SET ASUV("ITEM #")=5

                               DO ^ASUAUIDX

 +13                   IF ASUREPLY("CORRECT")="5"

                           DO ^ASUADTDU

 +14                   IF ASUREPLY("CORRECT")="6"

                           SET ASUV("ITEM #")=6

                           DO ^ASUAUACC

 +15                   IF ASUREPLY("CORRECT")="7"

                           SET ASUV("ITEM #")=7

                           DO ^ASUAUSSA

 +16                   IF ASUREPLY("CORRECT")="8"

                           SET ASUV("ITEM #")=8

                           DO ^ASUAUIDX

 +17                   IF ASUREPLY("CORRECT")="9"

                           SET ASUV("ITEM #")=9

                           DO ^ASUAUQTY

 +18                   IF ASUREPLY("CORRECT")="10"

                           SET ASUV("ITEM #")=10

                           DO ^ASUAUVAL

 +19                   SET ASUREPLY("CORRECT")="N"

                       QUIT 

                   End DoDot:2

               End DoDot:1

 +20       IF ASUREPLY("CORRECT")="Y"

               DO ^ASUADUPD

 +21       KILL X,Y,ASUREPLY("CORRECT")

 +22       QUIT