ACRFEVA1.m

ACRFEVA1 ;IHS/OIRM/DSD/THL,AEF - EVALUATE QUOTES; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;EVALUATE QUOTES

VHEAD ;EP;TO DISPLAY HEADER FOR COMPARISON OF QUOTES BY VENDOR

 W @IOF

 W !?10,"Comparison of Quotes by VENDOR for RFQ: ",ACRDOC

 I $P(^ACRDOC(ACRDOCDA,"PO"),U,5) D

 .S ACRVDA=$P(^ACRDOC(ACRDOCDA,"PO"),U,5)

 .I ACRVDA,$D(^AUTTVNDR(ACRVDA,0)) D

 ..W !!,$P(^AUTTVNDR(ACRVDA,0),U)," is currently VENDOR for this PO."

 W !!?10,"No."

 W ?15,"Vendor"

 W ?50,"Total Quote"

 W !?10,"------------------------------"

 W ?50,"---------------"

 Q

IHEAD ;EP;TO DISPLAY HEADER FOR COMPARISON OF QUOTES BY ITEM

 W @IOF

 W !?10,"Comparison of Quotes by ITEM for RFQ: ",ACRDOC

 W !!,"No."

 W ?4,"Description/Vendor"

 W ?46,"Quantity"

 W ?56,"Unit"

 W ?68,"Item Cost"

 W !,"---"

 W ?4,"------------------------------"

 W ?46,"--------"

 W ?56,"-------"

 W ?68,"------------"

 Q

TOP ;EP;SELECT NUMBER TO DISPLAY

 S DIR(0)="NOA^1:"_ACRJ

 S DIR("A")="Display the Top HOW MANY "_$S($D(ACRVND):"VENDORS",1:"ITEMS")_": "

 S DIR("B")=ACRJ

 W !

 D DIR^ACRFDIC

 I $G(Y)<1!$D(ACRQUIT)!$D(ACROUT) S ACRQUIT="" Q

 S ACRTOP=Y

 Q

MODE ;EP;SELECT DISPLAY MODE

 S DIR(0)="SO^1:Display Summary VENDOR Quotes;2:Display Detailed VENDOR Quotes;3:Display Quotes by ITEM"

 S DIR("A")="Which display"

 W !

 D DIR^ACRFDIC

 I $G(Y)<1!$D(ACRQUIT)!$D(ACROUT) S ACRQUIT="" Q

 S ACRMODE=$S(Y'=3:"VENDOR",1:"ITEM")

 S:Y=2 ACRDETL=""

 Q

COUNT ;EP;COUNT NUMBER OF ITEMS IN ORIGINAL RFQ

 S (ACRSSDA,ACRI)=0

 F  S ACRSSDA=$O(^ACRSS("J",ACRDOCDA,ACRSSDA)) Q:'ACRSSDA  S ACRI=ACRI+1

 S ACRCOUNT=ACRI

 Q

ACRFEVA1  ;IHS/OIRM/DSD/THL,AEF - EVALUATE QUOTES; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;EVALUATE QUOTES

VHEAD     ;EP;TO DISPLAY HEADER FOR COMPARISON OF QUOTES BY VENDOR

 +1        WRITE @IOF

 +2        WRITE !?10,"Comparison of Quotes by VENDOR for RFQ: ",ACRDOC

 +3        IF $PIECE(^ACRDOC(ACRDOCDA,"PO"),U,5)

               Begin DoDot:1

 +4                SET ACRVDA=$PIECE(^ACRDOC(ACRDOCDA,"PO"),U,5)

 +5                IF ACRVDA

                       IF $DATA(^AUTTVNDR(ACRVDA,0))

                           Begin DoDot:2

 +6                            WRITE !!,$PIECE(^AUTTVNDR(ACRVDA,0),U)," is currently VENDOR for this PO."

                           End DoDot:2

               End DoDot:1

 +7        WRITE !!?10,"No."

 +8        WRITE ?15,"Vendor"

 +9        WRITE ?50,"Total Quote"

 +10       WRITE !?10,"------------------------------"

 +11       WRITE ?50,"---------------"

 +12       QUIT 

IHEAD     ;EP;TO DISPLAY HEADER FOR COMPARISON OF QUOTES BY ITEM

 +1        WRITE @IOF

 +2        WRITE !?10,"Comparison of Quotes by ITEM for RFQ: ",ACRDOC

 +3        WRITE !!,"No."

 +4        WRITE ?4,"Description/Vendor"

 +5        WRITE ?46,"Quantity"

 +6        WRITE ?56,"Unit"

 +7        WRITE ?68,"Item Cost"

 +8        WRITE !,"---"

 +9        WRITE ?4,"------------------------------"

 +10       WRITE ?46,"--------"

 +11       WRITE ?56,"-------"

 +12       WRITE ?68,"------------"

 +13       QUIT 

TOP       ;EP;SELECT NUMBER TO DISPLAY

 +1        SET DIR(0)="NOA^1:"_ACRJ

 +2        SET DIR("A")="Display the Top HOW MANY "_$SELECT($DATA(ACRVND):"VENDORS",1:"ITEMS")_": "

 +3        SET DIR("B")=ACRJ

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        IF $GET(Y)<1!$DATA(ACRQUIT)!$DATA(ACROUT)

               SET ACRQUIT=""

               QUIT 

 +7        SET ACRTOP=Y

 +8        QUIT 

MODE      ;EP;SELECT DISPLAY MODE

 +1        SET DIR(0)="SO^1:Display Summary VENDOR Quotes;2:Display Detailed VENDOR Quotes;3:Display Quotes by ITEM"

 +2        SET DIR("A")="Which display"

 +3        WRITE !

 +4        DO DIR^ACRFDIC

 +5        IF $GET(Y)<1!$DATA(ACRQUIT)!$DATA(ACROUT)

               SET ACRQUIT=""

               QUIT 

 +6        SET ACRMODE=$SELECT(Y'=3:"VENDOR",1:"ITEM")

 +7        IF Y=2

               SET ACRDETL=""

 +8        QUIT 

COUNT     ;EP;COUNT NUMBER OF ITEMS IN ORIGINAL RFQ

 +1        SET (ACRSSDA,ACRI)=0

 +2        FOR 

               SET ACRSSDA=$ORDER(^ACRSS("J",ACRDOCDA,ACRSSDA))

               IF 'ACRSSDA

                   QUIT 

               SET ACRI=ACRI+1

 +3        SET ACRCOUNT=ACRI

 +4        QUIT