ACGSCPA2.m

ACGSCPA2 ;IHS/OIRM/DSD/THL,AEF - COMPETITIVE PROCUREMENT ACTIVITY REPORT CONTINUED; [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;COMPETITIVE PROCUREMENT ACTIVITY REPORT CONTINUED

 W !!,"II.  NON-COMPETITIVE       |            |            |            |"

 W !?5,"A. NEW CONTRT         |            |            |            |"

 W !,$P(@ACGT@(61,"C"),U,2),?14,"| ",$P(@ACGT@(62,"C"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"C"),U,2),?53,"| ",$P(@ACGT@(63,"C"),U,2),?66,"| ",$P(@ACGT@("NCCT"),U,2)

 W !?0,$J($FN($P(@ACGT@(61,"C"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"C"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"C"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"C"),U),"P,",0),12)

 W ?66,"|",$J($FN($P(@ACGT@("NCCT"),U),"P,",0),13)

 W !,"--------------|------------|------------|------------|------------|-------------"

 W !?5,"B. RENEW MOD          |            |            |            |"

 W !,$P(@ACGT@(61,"M"),U,2),?14,"| ",$P(@ACGT@(62,"M"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"M"),U,2),?53,"| ",$P(@ACGT@(63,"M"),U,2),?66,"| ",$P(@ACGT@("NCMT"),U,2)

 W !?0,$J($FN($P(@ACGT@(61,"M"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"M"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"M"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"M"),U),"P,",0),12)

 W ?66,"|",$J($FN($P(@ACGT@("NCMT"),U),"P,",0),13)

 W !,"--------------|------------|------------|------------|------------|-------------"

 W !?5,"C. OTHER MOD          |            |            |            |"

 W !,$P(@ACGT@(61,"O"),U,2),?14,"| ",$P(@ACGT@(62,"O"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"O"),U,2),?53,"| ",$P(@ACGT@(63,"O"),U,2),?66,"| ",$P(@ACGT@("NCOT"),U,2)

 W !?0,$J($FN($P(@ACGT@(61,"O"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"O"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"O"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"O"),U),"P,",0),12)

 W ?66,"|",$J($FN($P(@ACGT@("NCOT"),U),"P,",0),13)

 W !,"--------------|------------|------------|------------|------------|-------------"

 W !?5,"D. TOTALS             |            |            |            |"

 W !,$P(@ACGT@(61,"T"),U,2),?14,"| ",$P(@ACGT@(62,"T"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"T"),U,2),?53,"| ",$P(@ACGT@(63,"T"),U,2),?66,"| ",$P(@ACGT@("NCT"),U,2)

 W !?0,$J($FN($P(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"T"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"T"),U),"P,",0),12)

 W ?66,"|",$J($FN($P(@ACGT@("NCT"),U),"P,",0),13)

 W !,"--------------|------------|------------|------------|------------|-------------"

 W !!,"III.  MEDICAL SERVICES     |            |            |            |"

 W !?0,$P(@ACGT@(61,"Q"),U,2),?14,"| ",$P(@ACGT@(58,"Q"),U,2)+$P(@ACGT@(62,"Q"),U,2),?27,"| ",$P(@ACGT@(50,"Q"),U,2),?40,"| ",$P(@ACGT@(59,"Q"),U,2)+$P(@ACGT@(60,"Q"),U,2)

 W ?53,"| ",$P(@ACGT@(56,"Q"),U,2)+$P(@ACGT@(63,"Q"),U,2),?66,"| ",$P(@ACGT@("Q"),U,2)

 W !?0,$J($FN($P(@ACGT@(61,"Q"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(58,"Q"),U)+$P(@ACGT@(62,"Q"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"Q"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"Q"),U)+$P(@ACGT@(60,"Q"),U),"P,",0),12)

 W ?53,"|",$J($FN($P(@ACGT@(56,"Q"),U)+$P(@ACGT@(63,"Q"),U),"P,",0),12),?66,"|",$J($FN($P(@ACGT@("Q"),U),"P,",0),13)

 W !,"--------------|------------|------------|------------|------------|-------------"

 W !!,"IV. GRAND TOTALS           |            |            |            |"

 W !,$P(@ACGT@(61,"T"),U,2),?14,"| ",$P(@ACGT@(58,"T"),U,2)+$P(@ACGT@(62,"T"),U,2),?27,"| ",$P(@ACGT@(50,"T"),U,2),?40,"| ",$P(@ACGT@(59,"T"),U,2)+$P(@ACGT@(60,"T"),U,2)

 W ?53,"| ",$P(@ACGT@(56,"T"),U,2)+$P(@ACGT@(63,"T"),U,2),?66,"| ",$P(@ACGT@("T"),U,2)

 W !,$J($FN($P(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(58,"T"),U)+$P(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"T"),U),"P,",0),12)

 W ?40,"|",$J($FN($P(@ACGT@(59,"T"),U)+$P(@ACGT@(60,"T"),U),"P,",0),12)

 W ?53,"|",$J($FN($P(@ACGT@(56,"T"),U)+$P(@ACGT@(63,"T"),U),"P,",0),12),?66,"|",$J($FN($P(@ACGT@("T"),U),"P,",0),13)

 I $D(IOST),$E(IOST,1,2)="C-" D HOLD^ACGSMENU

 Q

 ;

ACGSCPA2  ;IHS/OIRM/DSD/THL,AEF - COMPETITIVE PROCUREMENT ACTIVITY REPORT CONTINUED; [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;COMPETITIVE PROCUREMENT ACTIVITY REPORT CONTINUED

 +3        WRITE !!,"II.  NON-COMPETITIVE       |            |            |            |"

 +4        WRITE !?5,"A. NEW CONTRT         |            |            |            |"

 +5        WRITE !,$PIECE(@ACGT@(61,"C"),U,2),?14,"| ",$PIECE(@ACGT@(62,"C"),U,2),?27,"|",?40,"| ",$PIECE(@ACGT@(60,"C"),U,2),?53,"| ",$PIECE(@ACGT@(63,"C"),U,2),?66,"| ",$PIECE(@ACGT@("NCCT"),U,2)

 +6       WRITE !?0,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"C"),U),"P,",0),13),?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(62,"C"),U),"P,",0),12),?27,"|",?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(60,"C"),U),"P,",0),12),?53,"|",$JUSTIFY(...

           ... $FNUMBER($PIECE(@ACGT@(63,"C"),U),"P,",0),12)

 +7        WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("NCCT"),U),"P,",0),13)

 +8        WRITE !,"--------------|------------|------------|------------|------------|-------------"

 +9        WRITE !?5,"B. RENEW MOD          |            |            |            |"

 +10       WRITE !,$PIECE(@ACGT@(61,"M"),U,2),?14,"| ",$PIECE(@ACGT@(62,"M"),U,2),?27,"|",?40,"| ",$PIECE(@ACGT@(60,"M"),U,2),?53,"| ",$PIECE(@ACGT@(63,"M"),U,2),?66,"| ",$PIECE(@ACGT@("NCMT"),U,2)

 +11      WRITE !?0,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"M"),U),"P,",0),13),?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(62,"M"),U),"P,",0),12),?27,"|",?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(60,"M"),U),"P,",0),12),?53,"|",$JUSTIFY(...

           ... $FNUMBER($PIECE(@ACGT@(63,"M"),U),"P,",0),12)

 +12       WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("NCMT"),U),"P,",0),13)

 +13       WRITE !,"--------------|------------|------------|------------|------------|-------------"

 +14       WRITE !?5,"C. OTHER MOD          |            |            |            |"

 +15       WRITE !,$PIECE(@ACGT@(61,"O"),U,2),?14,"| ",$PIECE(@ACGT@(62,"O"),U,2),?27,"|",?40,"| ",$PIECE(@ACGT@(60,"O"),U,2),?53,"| ",$PIECE(@ACGT@(63,"O"),U,2),?66,"| ",$PIECE(@ACGT@("NCOT"),U,2)

 +16      WRITE !?0,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"O"),U),"P,",0),13),?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(62,"O"),U),"P,",0),12),?27,"|",?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(60,"O"),U),"P,",0),12),?53,"|",$JUSTIFY(...

           ... $FNUMBER($PIECE(@ACGT@(63,"O"),U),"P,",0),12)

 +17       WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("NCOT"),U),"P,",0),13)

 +18       WRITE !,"--------------|------------|------------|------------|------------|-------------"

 +19       WRITE !?5,"D. TOTALS             |            |            |            |"

 +20       WRITE !,$PIECE(@ACGT@(61,"T"),U,2),?14,"| ",$PIECE(@ACGT@(62,"T"),U,2),?27,"|",?40,"| ",$PIECE(@ACGT@(60,"T"),U,2),?53,"| ",$PIECE(@ACGT@(63,"T"),U,2),?66,"| ",$PIECE(@ACGT@("NCT"),U,2)

 +21      WRITE !?0,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(60,"T"),U),"P,",0),12),?53,"|",$JUSTIFY(...

           ... $FNUMBER($PIECE(@ACGT@(63,"T"),U),"P,",0),12)

 +22       WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("NCT"),U),"P,",0),13)

 +23       WRITE !,"--------------|------------|------------|------------|------------|-------------"

 +24       WRITE !!,"III.  MEDICAL SERVICES     |            |            |            |"

 +25       WRITE !?0,$PIECE(@ACGT@(61,"Q"),U,2),?14,"| ",$PIECE(@ACGT@(58,"Q"),U,2)+$PIECE(@ACGT@(62,"Q"),U,2),?27,"| ",$PIECE(@ACGT@(50,"Q"),U,2),?40,"| ",$PIECE(@ACGT@(59,"Q"),U,2)+$PIECE(@ACGT@(60,"Q"),U,2)

 +26       WRITE ?53,"| ",$PIECE(@ACGT@(56,"Q"),U,2)+$PIECE(@ACGT@(63,"Q"),U,2),?66,"| ",$PIECE(@ACGT@("Q"),U,2)

 +27      WRITE !?0,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"Q"),U),"P,",0),13),?14,"|",$JUSTIFY(...

           ... $FNUMBER($PIECE(@ACGT@(58,"Q"),U)+$PIECE(@ACGT@(62,"Q"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"Q"),U),"P,",0),12),?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"Q"),U)+$PIECE(@ACGT@(60,"Q"),U),"P,",0),12)

 +28       WRITE ?53,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(56,"Q"),U)+$PIECE(@ACGT@(63,"Q"),U),"P,",0),12),?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("Q"),U),"P,",0),13)

 +29       WRITE !,"--------------|------------|------------|------------|------------|-------------"

 +30       WRITE !!,"IV. GRAND TOTALS           |            |            |            |"

 +31       WRITE !,$PIECE(@ACGT@(61,"T"),U,2),?14,"| ",$PIECE(@ACGT@(58,"T"),U,2)+$PIECE(@ACGT@(62,"T"),U,2),?27,"| ",$PIECE(@ACGT@(50,"T"),U,2),?40,"| ",$PIECE(@ACGT@(59,"T"),U,2)+$PIECE(@ACGT@(60,"T"),U,2)

 +32       WRITE ?53,"| ",$PIECE(@ACGT@(56,"T"),U,2)+$PIECE(@ACGT@(63,"T"),U,2),?66,"| ",$PIECE(@ACGT@("T"),U,2)

 +33       WRITE !,$JUSTIFY($FNUMBER($PIECE(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(58,"T"),U)+$PIECE(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"T"),U),"P,",0),12)

 +34       WRITE ?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"T"),U)+$PIECE(@ACGT@(60,"T"),U),"P,",0),12)

 +35       WRITE ?53,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(56,"T"),U)+$PIECE(@ACGT@(63,"T"),U),"P,",0),12),?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("T"),U),"P,",0),13)

 +36       IF $DATA(IOST)

               IF $EXTRACT(IOST,1,2)="C-"

                   DO HOLD^ACGSMENU

 +37       QUIT 

 +38      ;