ACRF3472 ;IHS/OIRM/DSD/THL,AEF - AWARD/CONTRACT - CON'T; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
PSC G @("L"_ACRADJST)
L0 W !?67,$G(ACRPOPG)
L1 W !!
L2 W !!?2,$G(ACREFFD)
W ?21,$P($G(ACRDOC0),U,2)
W ?41,$G(ACR3)
W ?61,$P($G(ACRDOC0),U)
I $G(ACR5(3))=""&($G(ACR6(3))="") W !
W !?2
W $G(ACR5(1)),?41,$G(ACR6(1))
W !?2
W $G(ACR5(2)),?41,$G(ACR6(2))
I $G(ACR5(3))]""!($G(ACR6(3))]"") D
.W !?2,$G(ACR5(3)),?41,$G(ACR6(3))
W !?2,$G(ACR5(4)),", ",$G(ACR5(5))," ",$G(ACR5(6))," (",$G(ACR5(7))_")"
W ?41,$G(ACR6(4)),", ",$G(ACR6(5))," ",$G(ACR6(6))," (",$G(ACR6(7))_")"
W !!
I $G(ACR7(3))="" W !
W !?2
W $G(ACR7(1))
W !?2
W $G(ACR7(2))
I $G(ACR7(3))]"" D
.W !?2,$G(ACR7(3))
W !?2,$G(ACR7(4)),", ",$G(ACR7(5))," ",$G(ACR7(6))," (",$G(ACR7(7))_")"
W !?9,$G(ACR7(7))
F X=$Y:1:15 W !
W !?41,$G(ACR10)
D ^ACRFPSS
F X=$Y:1:21 W ! I $Y>20 D 11
F X=$Y:1:22 W !
W !?2,$G(ACR12),?30,$G(ACR14),?47,$G(ACR15),?64,$G(ACR16(1))
I $Y>24 W !?2,$G(ACR13),?64,$G(ACR16(2))
E W !?64,$G(ACR16(2)),!?2,$G(ACR13)
F X=$Y:1:29 W !
K ACRTOP
D DISPLAY^ACRFSS12
I $D(ACRTOP) K ACRTOP Q
DISP ;EP;
F X=$Y:1:50 W !
W !?10,$G(ACR18)
W ?30,$G(ACR19),?47,$G(ACR20)
W !!?10
W $G(ACR21(1))
W !?10
W $G(ACR21(2))," ",$G(ACR21(3)),?60,$J($FN($G(ACRPOTOT),"P,",2),13)
W !?10,$G(ACR21(4)),", ",$G(ACR21(5))," ",$G(ACR21(6))," (",$G(ACR21(7))_")"
D ^ACRFPAPV
F X=$Y:1:50 W !
W !?47,$G(ACRUS)
W:'$D(ACRTOP) @IOF
K ACRTOP
Q
11 ;EP;
Q:$G(ACR11)=""
W:$G(ACR11)="S" ?41
W:$G(ACR11)="O" ?51
W:$G(ACR11)="D" ?61
W:$G(ACR11)="W" ?71
W "XX"
Q
ACRF3472 ;IHS/OIRM/DSD/THL,AEF - AWARD/CONTRACT - CON'T; [ 11/01/2001 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
PSC GOTO @("L"_ACRADJST)
L0 WRITE !?67,$GET(ACRPOPG)
L1 WRITE !!
L2 WRITE !!?2,$GET(ACREFFD)
+1 WRITE ?21,$PIECE($GET(ACRDOC0),U,2)
+2 WRITE ?41,$GET(ACR3)
+3 WRITE ?61,$PIECE($GET(ACRDOC0),U)
+4 IF $GET(ACR5(3))=""&($GET(ACR6(3))="")
WRITE !
+5 WRITE !?2
+6 WRITE $GET(ACR5(1)),?41,$GET(ACR6(1))
+7 WRITE !?2
+8 WRITE $GET(ACR5(2)),?41,$GET(ACR6(2))
+9 IF $GET(ACR5(3))]""!($GET(ACR6(3))]"")
Begin DoDot:1
+10 WRITE !?2,$GET(ACR5(3)),?41,$GET(ACR6(3))
End DoDot:1
+11 WRITE !?2,$GET(ACR5(4)),", ",$GET(ACR5(5))," ",$GET(ACR5(6))," (",$GET(ACR5(7))_")"
+12 WRITE ?41,$GET(ACR6(4)),", ",$GET(ACR6(5))," ",$GET(ACR6(6))," (",$GET(ACR6(7))_")"
+13 WRITE !!
+14 IF $GET(ACR7(3))=""
WRITE !
+15 WRITE !?2
+16 WRITE $GET(ACR7(1))
+17 WRITE !?2
+18 WRITE $GET(ACR7(2))
+19 IF $GET(ACR7(3))]""
Begin DoDot:1
+20 WRITE !?2,$GET(ACR7(3))
End DoDot:1
+21 WRITE !?2,$GET(ACR7(4)),", ",$GET(ACR7(5))," ",$GET(ACR7(6))," (",$GET(ACR7(7))_")"
+22 WRITE !?9,$GET(ACR7(7))
+23 FOR X=$Y:1:15
WRITE !
+24 WRITE !?41,$GET(ACR10)
+25 DO ^ACRFPSS
+26 FOR X=$Y:1:21
WRITE !
IF $Y>20
DO 11
+27 FOR X=$Y:1:22
WRITE !
+28 WRITE !?2,$GET(ACR12),?30,$GET(ACR14),?47,$GET(ACR15),?64,$GET(ACR16(1))
+29 IF $Y>24
WRITE !?2,$GET(ACR13),?64,$GET(ACR16(2))
+30 IF '$TEST
WRITE !?64,$GET(ACR16(2)),!?2,$GET(ACR13)
+31 FOR X=$Y:1:29
WRITE !
+32 KILL ACRTOP
+33 DO DISPLAY^ACRFSS12
+34 IF $DATA(ACRTOP)
KILL ACRTOP
QUIT
DISP ;EP;
+1 FOR X=$Y:1:50
WRITE !
+2 WRITE !?10,$GET(ACR18)
+3 WRITE ?30,$GET(ACR19),?47,$GET(ACR20)
+4 WRITE !!?10
+5 WRITE $GET(ACR21(1))
+6 WRITE !?10
+7 WRITE $GET(ACR21(2))," ",$GET(ACR21(3)),?60,$JUSTIFY($FNUMBER($GET(ACRPOTOT),"P,",2),13)
+8 WRITE !?10,$GET(ACR21(4)),", ",$GET(ACR21(5))," ",$GET(ACR21(6))," (",$GET(ACR21(7))_")"
+9 DO ^ACRFPAPV
+10 FOR X=$Y:1:50
WRITE !
+11 WRITE !?47,$GET(ACRUS)
+12 IF '$DATA(ACRTOP)
WRITE @IOF
+13 KILL ACRTOP
+14 QUIT
11 ;EP;
+1 IF $GET(ACR11)=""
QUIT
+2 IF $GET(ACR11)="S"
WRITE ?41
+3 IF $GET(ACR11)="O"
WRITE ?51
+4 IF $GET(ACR11)="D"
WRITE ?61
+5 IF $GET(ACR11)="W"
WRITE ?71
+6 WRITE "XX"
+7 QUIT
