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 ;
