- ACGSCPA1 ;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
- LINES ;
- W !,"I. COMPETITIVE | | | |"
- W !?4,"A. NEW CONTRT | | | |"
- W !?14,"|",$P(@ACGT@(58,"C"),U,2),?27,"| ",$P(@ACGT@(50,"C"),U,2),?40,"| ",$P(@ACGT@(59,"C"),U,2),?53,"| ",$P(@ACGT@(56,"C"),U,2),?66,"| ",$P(@ACGT@("CCT"),U,2)
- W !?14,"|",$J($FN($P(@ACGT@(58,"C"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"C"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"C"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"C"),U),"P,",0),12)
- W ?66,"|",$J($FN($P(@ACGT@("CCT"),U),"P,",0),13)
- W !,"--------------|------------|------------|------------|------------|-------------"
- W !?4,"B. RENEW MOD | | | |"
- W !?14,"|",$P(@ACGT@(58,"M"),U,2),?27,"| ",$P(@ACGT@(50,"M"),U,2),?40,"| ",$P(@ACGT@(59,"M"),U,2),?53,"| ",$P(@ACGT@(56,"M"),U,2),?66,"| ",$P(@ACGT@("CMT"),U,2)
- W !?14,"|",$J($FN($P(@ACGT@(58,"M"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"M"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"M"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"M"),U),"P,",0),12)
- W ?66,"|",$J($FN($P(@ACGT@("CMT"),U),"P,",0),13)
- W !,"--------------|------------|------------|------------|------------|-------------"
- W !?4,"C. OTHER MOD | | | |"
- W !?14,"|",$P(@ACGT@(58,"O"),U,2),?27,"| ",$P(@ACGT@(50,"O"),U,2),?40,"| ",$P(@ACGT@(59,"O"),U,2),?53,"| ",$P(@ACGT@(56,"O"),U,2),?66,"| ",$P(@ACGT@("COT"),U,2)
- W !?14,"|",$J($FN($P(@ACGT@(58,"O"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"O"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"O"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"O"),U),"P,",0),12)
- W ?66,"|",$J($FN($P(@ACGT@("COT"),U),"P,",0),13)
- W !,"--------------|------------|------------|------------|------------|-------------"
- W !?4,"D. TOTALS | | | |"
- W !?14,"|",$P(@ACGT@(58,"T"),U,2),?27,"| ",$P(@ACGT@(50,"T"),U,2),?40,"| ",$P(@ACGT@(59,"T"),U,2),?53,"| ",$P(@ACGT@(56,"T"),U,2),?66,"| ",$P(@ACGT@("CT"),U,2)
- W !?14,"|",$J($FN($P(@ACGT@(58,"T"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"T"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"T"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"T"),U),"P,",0),12)
- W ?66,"|",$J($FN($P(@ACGT@("CT"),U),"P,",0),13)
- W !,"--------------|------------|------------|------------|------------|-------------"
- I $D(IOST),$E(IOST,1,2)="C-" D HOLD^ACGSMENU Q:$D(ACGQUIT) D HEAD^ACGSCPAR
- D ^ACGSCPA2
- Q
- ;
- ACGSCPA1 ;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
- LINES ;
- +1 WRITE !,"I. COMPETITIVE | | | |"
- +2 WRITE !?4,"A. NEW CONTRT | | | |"
- +3 WRITE !?14,"|",$PIECE(@ACGT@(58,"C"),U,2),?27,"| ",$PIECE(@ACGT@(50,"C"),U,2),?40,"| ",$PIECE(@ACGT@(59,"C"),U,2),?53,"| ",$PIECE(@ACGT@(56,"C"),U,2),?66,"| ",$PIECE(@ACGT@("CCT"),U,2)
- +4 WRITE !?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(58,"C"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"C"),U),"P,",0),12),?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"C"),U),"P,",0),12),?53,"|",$JUSTIFY($FNUMBER(...
- ... $PIECE(@ACGT@(56,"C"),U),"P,",0),12)
- +5 WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("CCT"),U),"P,",0),13)
- +6 WRITE !,"--------------|------------|------------|------------|------------|-------------"
- +7 WRITE !?4,"B. RENEW MOD | | | |"
- +8 WRITE !?14,"|",$PIECE(@ACGT@(58,"M"),U,2),?27,"| ",$PIECE(@ACGT@(50,"M"),U,2),?40,"| ",$PIECE(@ACGT@(59,"M"),U,2),?53,"| ",$PIECE(@ACGT@(56,"M"),U,2),?66,"| ",$PIECE(@ACGT@("CMT"),U,2)
- +9 WRITE !?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(58,"M"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"M"),U),"P,",0),12),?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"M"),U),"P,",0),12),?53,"|",$JUSTIFY($FNUMBER(...
- ... $PIECE(@ACGT@(56,"M"),U),"P,",0),12)
- +10 WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("CMT"),U),"P,",0),13)
- +11 WRITE !,"--------------|------------|------------|------------|------------|-------------"
- +12 WRITE !?4,"C. OTHER MOD | | | |"
- +13 WRITE !?14,"|",$PIECE(@ACGT@(58,"O"),U,2),?27,"| ",$PIECE(@ACGT@(50,"O"),U,2),?40,"| ",$PIECE(@ACGT@(59,"O"),U,2),?53,"| ",$PIECE(@ACGT@(56,"O"),U,2),?66,"| ",$PIECE(@ACGT@("COT"),U,2)
- +14 WRITE !?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(58,"O"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"O"),U),"P,",0),12),?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"O"),U),"P,",0),12),?53,"|",$JUSTIFY($FNUMBER(...
- ... $PIECE(@ACGT@(56,"O"),U),"P,",0),12)
- +15 WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("COT"),U),"P,",0),13)
- +16 WRITE !,"--------------|------------|------------|------------|------------|-------------"
- +17 WRITE !?4,"D. TOTALS | | | |"
- +18 WRITE !?14,"|",$PIECE(@ACGT@(58,"T"),U,2),?27,"| ",$PIECE(@ACGT@(50,"T"),U,2),?40,"| ",$PIECE(@ACGT@(59,"T"),U,2),?53,"| ",$PIECE(@ACGT@(56,"T"),U,2),?66,"| ",$PIECE(@ACGT@("CT"),U,2)
- +19 WRITE !?14,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(58,"T"),U),"P,",0),12),?27,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(50,"T"),U),"P,",0),12),?40,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@(59,"T"),U),"P,",0),12),?53,"|",$JUSTIFY($FNUMBER(...
- ... $PIECE(@ACGT@(56,"T"),U),"P,",0),12)
- +20 WRITE ?66,"|",$JUSTIFY($FNUMBER($PIECE(@ACGT@("CT"),U),"P,",0),13)
- +21 WRITE !,"--------------|------------|------------|------------|------------|-------------"
- +22 IF $DATA(IOST)
- IF $EXTRACT(IOST,1,2)="C-"
- DO HOLD^ACGSMENU
- IF $DATA(ACGQUIT)
- QUIT
- DO HEAD^ACGSCPAR
- +23 DO ^ACGSCPA2
- +24 QUIT
- +25 ;
