- 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
