ASU6JUPD.m

ASU6JUPD ; IHS/ITSC/LMH -PROCESS CREDIT ADJUSTMENTS -37 ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;;This routine provides logic to post (process) ADJUSTMENT

 ;;transactions to the database.

 S:$G(DDSREFT)']"" DDSREFT=$G(ASUV("DDSREFT"))

 I ASUT("TRCD")="37" D

 .S ASUS("CLCD")=0 ;Value entered in transaction flag

 .S:ASUT(ASUT,"VAL")="" ASUS("CLCD")=1 ;Value to be set by program

 .D CAJRSET Q:$D(DDSERROR)  ;Update Station master from transaction variables

 .S ASUT(ASUT,"ACC")=ASUMX("ACC"),ASUT(ASUT,"CALCED")=ASUS("CLCD")

 I ASUT("TRCD")="3P" D

 .D QVINCRE ;Update Station master from transaction variables

 I ASUT("TRCD")="2P" D

 .D CAJRSET ;Update station master from transaction variables

 I ASUT("TRCD")="27" D

 .D DAJRSET ;Update Station master from transaction variables

 Q:$D(DDSERROR)

 D ^ASUJHIST ;Move transaction to History file

 Q

DAJRSET ;EP; -RESETS TOTAL VALUE & TOTAL QUANTITY ON DEBIT ADJUSTMENTS

 I ASUT(ASUT,"QTY")=""&(ASUT(ASUT,"VAL")]"") G CALCMST

 I ASUT(ASUT,"VAL")=""&(ASUT(ASUT,"QTY")]"") N X S X="" D MSUNCST(.X)

 I ASUT(ASUT,"VAL")']"" S ASUT(ASUT,"VAL")=X*ASUT(ASUT,"QTY")

CALCMST ;CALCULATE MASTER TOTAL

 D QVINCRE

 Q

CAJRSET ;EP; RESETS TOTAL VALUE & TOTAL QUANTITY ON CREDIT ADJUSTMENTS

 I ASUT(ASUT,"QTY")']"" G CACKCS

 I ASUT(ASUT,"VAL")']"" G CACKQT

 G CACKCB

CACKQT ;CHECK QTY

 I ASUT(ASUT,"QTY")>ASUMS("QTY","O/H") G RJCRBAL

 I ASUT(ASUT,"QTY")=ASUMS("QTY","O/H") S ASUT(ASUT,"VAL")=ASUMS("VAL","O/H") G CACKAL

 N X S X="" D MSUNCST(.X)

 S ASUT(ASUT,"VAL")=X*ASUT(ASUT,"QTY")

 I ASUT(ASUT,"VAL")>ASUMS("VAL","O/H") S ASUT(ASUT,"VAL")=ASUMS("VAL","O/H")

 G CACKAL

CACKCS ;CHECK IF ONLY COST ENTERED

 I ASUT(ASUT,"VAL")']"" G RJNOENTR

CACKCB ;CHECK IF CREDIT BALANCE

 I ASUT(ASUT,"VAL")>ASUMS("VAL","O/H") G RJCRBAL

CACKAL ;CHECK BALANCES

 S ASUMS("QTY","O/H")=ASUMS("QTY","O/H")-ASUT(ASUT,"QTY")

 S ASUMS("VAL","O/H")=ASUMS("VAL","O/H")-ASUT(ASUT,"VAL")

 I ASUMS("QTY","O/H")=0 G CACKV0

 I ASUMS("QTY","O/H")<0 G RJCRBAL

 I ASUMS("VAL","O/H")=0!(ASUMS("VAL","O/H")<0) G REJBOH

 G STAUPDT

CACKV0 ;CHECK VALUE ZERO

 I ASUMS("VAL","O/H")=0 G STAUPDT

 G REJBOH

MSUNCST(X) ;EP ;COMPUTE UNIT COST FROM MASTER

 I 0=+ASUMS("VAL","O/H")!(0=+ASUMS("QTY","O/H")) D

 .S X=0

 E  D

 .S X=$FN(ASUMS("VAL","O/H")/ASUMS("QTY","O/H"),"-",2)

 I ASUT("TRCD")=27 S:X=0 X=ASUMS("LPP")

 Q

QVDECRE ;EP;.

 S ASUMS("VAL","O/H")=ASUMS("VAL","O/H")-ASUT(ASUT,"VAL")

 S ASUMS("QTY","O/H")=ASUMS("QTY","O/H")-ASUT(ASUT,"QTY")

 I ASUT("TRCD")="2P" G QVDCK0

 G STAUPDT

QVDCK0 ;

 I ASUMS("VAL","O/H")<0 G RJCRBAL

 I ASUMS("QTY","O/H")<0 G RJCRBAL

 I ASUMS("VAL","O/H")=0&(ASUMS("QTY","O/H")>0) G REJBOH

 I ASUMS("QTY","O/H")=0&(ASUMS("VAL","O/H")>0) G REJBOH

 G STAUPDT

QVINCRE ;EP;.

 S ASUMS("VAL","O/H")=ASUMS("VAL","O/H")+ASUT(ASUT,"VAL")

 S ASUMS("QTY","O/H")=ASUMS("QTY","O/H")+ASUT(ASUT,"QTY")

STAUPDT ;

 D MIX^ASUMSTWR

 Q

REJBOH ;REJECT BALANCE ON HAND

 N Z S Z="Master Balance on Hand" D MSG^ASUJHELP(.Z) S DDSERROR=1 ;DFM P1 9/1/98

 G REJECT

RJCRBAL ;REJECT CREDIT BALANCE

 N Z S Z="Would create Master Credit Balance" D MSG^ASUJHELP(.Z) S DDSERROR=2 ;DFM P1 9/1/98

 G REJECT

RJNOENTR ;REJECT NO ENTRY

 N Z S Z="NO QTY OR VAL" D MSG^ASUJHELP(.Z) S DDSERROR=3 ;DFM P1 9/1/98

REJECT ;REJECT REPORT

 Q

ASU6JUPD  ; IHS/ITSC/LMH -PROCESS CREDIT ADJUSTMENTS -37 ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;;This routine provides logic to post (process) ADJUSTMENT

 +3       ;;transactions to the database.

 +4        IF $GET(DDSREFT)']""

               SET DDSREFT=$GET(ASUV("DDSREFT"))

 +5        IF ASUT("TRCD")="37"

               Begin DoDot:1

 +6       ;Value entered in transaction flag

                   SET ASUS("CLCD")=0

 +7       ;Value to be set by program

                   IF ASUT(ASUT,"VAL")=""

                       SET ASUS("CLCD")=1

 +8       ;Update Station master from transaction variables

                   DO CAJRSET

                   IF $DATA(DDSERROR)

                       QUIT 

 +9                SET ASUT(ASUT,"ACC")=ASUMX("ACC")

                   SET ASUT(ASUT,"CALCED")=ASUS("CLCD")

               End DoDot:1

 +10       IF ASUT("TRCD")="3P"

               Begin DoDot:1

 +11      ;Update Station master from transaction variables

                   DO QVINCRE

               End DoDot:1

 +12       IF ASUT("TRCD")="2P"

               Begin DoDot:1

 +13      ;Update station master from transaction variables

                   DO CAJRSET

               End DoDot:1

 +14       IF ASUT("TRCD")="27"

               Begin DoDot:1

 +15      ;Update Station master from transaction variables

                   DO DAJRSET

               End DoDot:1

 +16       IF $DATA(DDSERROR)

               QUIT 

 +17      ;Move transaction to History file

           DO ^ASUJHIST

 +18       QUIT 

DAJRSET   ;EP; -RESETS TOTAL VALUE & TOTAL QUANTITY ON DEBIT ADJUSTMENTS

 +1        IF ASUT(ASUT,"QTY")=""&(ASUT(ASUT,"VAL")]"")

               GOTO CALCMST

 +2        IF ASUT(ASUT,"VAL")=""&(ASUT(ASUT,"QTY")]"")

               NEW X

               SET X=""

               DO MSUNCST(.X)

 +3        IF ASUT(ASUT,"VAL")']""

               SET ASUT(ASUT,"VAL")=X*ASUT(ASUT,"QTY")

CALCMST   ;CALCULATE MASTER TOTAL

 +1        DO QVINCRE

 +2        QUIT 

CAJRSET   ;EP; RESETS TOTAL VALUE & TOTAL QUANTITY ON CREDIT ADJUSTMENTS

 +1        IF ASUT(ASUT,"QTY")']""

               GOTO CACKCS

 +2        IF ASUT(ASUT,"VAL")']""

               GOTO CACKQT

 +3        GOTO CACKCB

CACKQT    ;CHECK QTY

 +1        IF ASUT(ASUT,"QTY")>ASUMS("QTY","O/H")

               GOTO RJCRBAL

 +2        IF ASUT(ASUT,"QTY")=ASUMS("QTY","O/H")

               SET ASUT(ASUT,"VAL")=ASUMS("VAL","O/H")

               GOTO CACKAL

 +3        NEW X

           SET X=""

           DO MSUNCST(.X)

 +4        SET ASUT(ASUT,"VAL")=X*ASUT(ASUT,"QTY")

 +5        IF ASUT(ASUT,"VAL")>ASUMS("VAL","O/H")

               SET ASUT(ASUT,"VAL")=ASUMS("VAL","O/H")

 +6        GOTO CACKAL

CACKCS    ;CHECK IF ONLY COST ENTERED

 +1        IF ASUT(ASUT,"VAL")']""

               GOTO RJNOENTR

CACKCB    ;CHECK IF CREDIT BALANCE

 +1        IF ASUT(ASUT,"VAL")>ASUMS("VAL","O/H")

               GOTO RJCRBAL

CACKAL    ;CHECK BALANCES

 +1        SET ASUMS("QTY","O/H")=ASUMS("QTY","O/H")-ASUT(ASUT,"QTY")

 +2        SET ASUMS("VAL","O/H")=ASUMS("VAL","O/H")-ASUT(ASUT,"VAL")

 +3        IF ASUMS("QTY","O/H")=0

               GOTO CACKV0

 +4        IF ASUMS("QTY","O/H")<0

               GOTO RJCRBAL

 +5        IF ASUMS("VAL","O/H")=0!(ASUMS("VAL","O/H")<0)

               GOTO REJBOH

 +6        GOTO STAUPDT

CACKV0    ;CHECK VALUE ZERO

 +1        IF ASUMS("VAL","O/H")=0

               GOTO STAUPDT

 +2        GOTO REJBOH

MSUNCST(X) ;EP ;COMPUTE UNIT COST FROM MASTER

 +1        IF 0=+ASUMS("VAL","O/H")!(0=+ASUMS("QTY","O/H"))

               Begin DoDot:1

 +2                SET X=0

               End DoDot:1

 +3       IF '$TEST

               Begin DoDot:1

 +4                SET X=$FNUMBER(ASUMS("VAL","O/H")/ASUMS("QTY","O/H"),"-",2)

               End DoDot:1

 +5        IF ASUT("TRCD")=27

               IF X=0

                   SET X=ASUMS("LPP")

 +6        QUIT 

QVDECRE   ;EP;.

 +1        SET ASUMS("VAL","O/H")=ASUMS("VAL","O/H")-ASUT(ASUT,"VAL")

 +2        SET ASUMS("QTY","O/H")=ASUMS("QTY","O/H")-ASUT(ASUT,"QTY")

 +3        IF ASUT("TRCD")="2P"

               GOTO QVDCK0

 +4        GOTO STAUPDT

QVDCK0    ;

 +1        IF ASUMS("VAL","O/H")<0

               GOTO RJCRBAL

 +2        IF ASUMS("QTY","O/H")<0

               GOTO RJCRBAL

 +3        IF ASUMS("VAL","O/H")=0&(ASUMS("QTY","O/H")>0)

               GOTO REJBOH

 +4        IF ASUMS("QTY","O/H")=0&(ASUMS("VAL","O/H")>0)

               GOTO REJBOH

 +5        GOTO STAUPDT

QVINCRE   ;EP;.

 +1        SET ASUMS("VAL","O/H")=ASUMS("VAL","O/H")+ASUT(ASUT,"VAL")

 +2        SET ASUMS("QTY","O/H")=ASUMS("QTY","O/H")+ASUT(ASUT,"QTY")

STAUPDT   ;

 +1        DO MIX^ASUMSTWR

 +2        QUIT 

REJBOH    ;REJECT BALANCE ON HAND

 +1       ;DFM P1 9/1/98

           NEW Z

           SET Z="Master Balance on Hand"

           DO MSG^ASUJHELP(.Z)

           SET DDSERROR=1

 +2        GOTO REJECT

RJCRBAL   ;REJECT CREDIT BALANCE

 +1       ;DFM P1 9/1/98

           NEW Z

           SET Z="Would create Master Credit Balance"

           DO MSG^ASUJHELP(.Z)

           SET DDSERROR=2

 +2        GOTO REJECT

RJNOENTR  ;REJECT NO ENTRY

 +1       ;DFM P1 9/1/98

           NEW Z

           SET Z="NO QTY OR VAL"

           DO MSG^ASUJHELP(.Z)

           SET DDSERROR=3

REJECT    ;REJECT REPORT

 +1        QUIT