ASUAUVOU.m

ASUAUVOU ;DSD/DFM - UTILITY ENTER VOUCHER NUMBER;  [ 04/15/98  2:57 PM ]

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

RDVOU ;

 S DIR("A")=ASUV("ITEM #")_". ENTER VOUCHER NUMBER"

 S DIR(0)="F^8:8^D EDIT^ASUAUVOU"

 S DIR("?")="^D HELP^ASUAUVOU"

 D ^DIR

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

 S ASUTRNS(ASUTRNS,"VOUCHER #")=X

EXIT ;RETURN TO CALLING ROUTINE

 K DIR,X,Y

 Q

HELP ;EP ;EXECUTABLE HELP FOR VOUCHER NUMBER

 W !!,"Voucher Number must be 8 numeric digits, not all zeros in format FYMMSER#"

 W !!,"Fiscal Year (FY) must be current fiscal year or previous fiscal year,"

 W !,"Month (MM) must be 01 through 12,"

 W !,"and Serial number (SER#) must be 0001 through 9999."

 Q

EDIT ;EP ;VOUCHER EDIT SUB ROUTINE

 I '$D(ASUK("DATE","FM")) N DN D DAYTIM^ASUAUTL1 S ASUF("DATE")=1

 S Y("EY")=$E(X,1,2)

 S Y("EM")=$E(X,3,4)

 S Y("ES")=$E(X,5,8),Y("SB")=1

 S Y("M1")="Voucher year not equal to current"

 S Y("M2")=" "

 S Y("M3")="or previous FY"

 I ASUK("DATE","MO")="09" D

 .S Y("SB")=2,Y("M2")=", next "

 I Y("EM")<1!(Y("EM")>12) D

 .W *7,!,"Month must be 01-12" K X

 E  D

 .S Y("DIF")=ASUK("DATE","CFY")-Y("EY")

 .I Y("DIF")>Y("SB")!(Y("DIF")<0) D

 ..W *7,!,Y("M1"),Y("M2"),Y("M3") K X

 .E  D

 ..I Y("ES")'>0 D

 ...W *7,!,"Voucher Serial Number may not be all zeros" K X

 ..E  D

 ...I $L(Y("ES"))<4!($L(Y("ES"))>4) D

 ....W *7,!,"Voucher Number must be a total of 8 digits" K X

 K:$D(ASUF("DATE")) ASUK("DATE")

 K Y

 Q

ASUAUVOU  ;DSD/DFM - UTILITY ENTER VOUCHER NUMBER;  [ 04/15/98  2:57 PM ]

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

RDVOU     ;

 +1        SET DIR("A")=ASUV("ITEM #")_". ENTER VOUCHER NUMBER"

 +2        SET DIR(0)="F^8:8^D EDIT^ASUAUVOU"

 +3        SET DIR("?")="^D HELP^ASUAUVOU"

 +4        DO ^DIR

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

               QUIT 

 +6        SET ASUTRNS(ASUTRNS,"VOUCHER #")=X

EXIT      ;RETURN TO CALLING ROUTINE

 +1        KILL DIR,X,Y

 +2        QUIT 

HELP      ;EP ;EXECUTABLE HELP FOR VOUCHER NUMBER

 +1        WRITE !!,"Voucher Number must be 8 numeric digits, not all zeros in format FYMMSER#"

 +2        WRITE !!,"Fiscal Year (FY) must be current fiscal year or previous fiscal year,"

 +3        WRITE !,"Month (MM) must be 01 through 12,"

 +4        WRITE !,"and Serial number (SER#) must be 0001 through 9999."

 +5        QUIT 

EDIT      ;EP ;VOUCHER EDIT SUB ROUTINE

 +1        IF '$DATA(ASUK("DATE","FM"))

               NEW DN

               DO DAYTIM^ASUAUTL1

               SET ASUF("DATE")=1

 +2        SET Y("EY")=$EXTRACT(X,1,2)

 +3        SET Y("EM")=$EXTRACT(X,3,4)

 +4        SET Y("ES")=$EXTRACT(X,5,8)

           SET Y("SB")=1

 +5        SET Y("M1")="Voucher year not equal to current"

 +6        SET Y("M2")=" "

 +7        SET Y("M3")="or previous FY"

 +8        IF ASUK("DATE","MO")="09"

               Begin DoDot:1

 +9                SET Y("SB")=2

                   SET Y("M2")=", next "

               End DoDot:1

 +10       IF Y("EM")<1!(Y("EM")>12)

               Begin DoDot:1

 +11               WRITE *7,!,"Month must be 01-12"

                   KILL X

               End DoDot:1

 +12      IF '$TEST

               Begin DoDot:1

 +13               SET Y("DIF")=ASUK("DATE","CFY")-Y("EY")

 +14               IF Y("DIF")>Y("SB")!(Y("DIF")<0)

                       Begin DoDot:2

 +15                       WRITE *7,!,Y("M1"),Y("M2"),Y("M3")

                           KILL X

                       End DoDot:2

 +16              IF '$TEST

                       Begin DoDot:2

 +17                       IF Y("ES")'>0

                               Begin DoDot:3

 +18                               WRITE *7,!,"Voucher Serial Number may not be all zeros"

                                   KILL X

                               End DoDot:3

 +19                      IF '$TEST

                               Begin DoDot:3

 +20                               IF $LENGTH(Y("ES"))<4!($LENGTH(Y("ES"))>4)

                                       Begin DoDot:4

 +21                                       WRITE *7,!,"Voucher Number must be a total of 8 digits"

                                           KILL X

                                       End DoDot:4

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +22       IF $DATA(ASUF("DATE"))

               KILL ASUK("DATE")

 +23       KILL Y

 +24       QUIT