ACRF1442 ;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 D H
W !!?20,$G(ACR7A)
W ?48,$G(ACR7B)
W ?72,$G(ACR8)
W !!?2
W $G(ACR9(1))
W ?41,$G(ACR10)
W ?50,$G(ACR11)
W ?64,$G(ACR12)
W !?2
W $G(ACR9(2))
W !?2
W $G(ACR9(3))
W ?48,$G(ACR13A)
W !?2,$G(ACR9(4)),", ",$G(ACR9(5))," ",$G(ACR9(6))
W !?9,$G(ACR9(7)),?60,$G(ACR13B)
W !!
W ?43,"SIC",$G(ACRSIC),?50,"SIZE",$G(ACRSIZE),?60,$G(ACR14)
I $G(ACR15(3))=""&($G(ACR16(3))="") W !
W !?2
W $G(ACR15(1)),?41,$G(ACR16(1))
W !?2
W $G(ACR15(2)),?41,$G(ACR16(2))
I $G(ACR15(3))]""!($G(ACR16(3))]"") D
.W !?2,$G(ACR15(3)),?41,$G(ACR16(3))
W !?2,$G(ACR15(4)),", ",$G(ACR15(5))," ",$G(ACR15(6))," (",$G(ACR15(7))_")"
W ?41,$G(ACR16(4)),", ",$G(ACR16(5))," ",$G(ACR16(6))," (",$G(ACR16(7))_")"
W !!
I $G(ACR17(3))=""&($G(ACR18(3))]"") W !
W !?2
W $G(ACR17(1)),?41,$G(ACR18(1))
W !?2
W $G(ACR17(2)),?41,$G(ACR18(2))
I $G(ACR17(3))]""!($G(ACR18(3))]"") D
.W !?2,$G(ACR17(3)),?41,$G(ACR18(3))
W !?2,$G(ACR17(4)),", ",$G(ACR17(5))," ",$G(ACR17(6))," (",$G(ACR17(7))_")"
W ?41,$G(ACR18(4)),", ",$G(ACR18(5))," ",$G(ACR18(6))," (",$G(ACR18(7))_")"
W !?9,$G(ACR17(7))
W ?49,$G(ACR18(7))
W !
W !?2,$G(ACR17B)
W ?40,$G(ACR18B)
W !
W !
K ACRTOP
D DISPLAY^ACRFSS12
I $D(ACRTOP) K ACRTOP Q
DISP ;EP;
D ^ACRFPSS
W !
W !?2,$G(ACR27A)
W ?53,$G(ACR27A1)
W !?2,$G(ACR27B)
W ?53,$G(ACR27B1)
D ^ACRFPAPV
F X=$Y:1:45 W !
W !?41,ACRUS," ",$P(ACRAP,"@")
W:'$D(ACRTOP) @IOF
K ACRTOP
Q
L W $$DASH^ACRFMENU
Q
HEAD ;EP;
W !,"SOLICITATION/CONTRACT/ORDER FOR COMMERCIAL ITEMS (CON'T)"
W !?2,"CONTRACT NO.",?18,"EFFECTIVE",?30,"ORDER NUMBER",?48,"SOLICITATION NO.",?72,"ISSUED"
W $$DASH^ACRFMENU
H G @("L"_ACRADJST)
L0 W !?48,$G(ACR1)
W ?67,$G(ACRPOPG)
L1 W !
L2 W !?2,$P($G(ACRDOC0),U,2)
W ?18,$G(ACREFFD)
W ?30,$G(ACR4)
W ?48,$G(ACR5)
W ?72,$G(ACR6)
Q
ACRF1442 ;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 DO H
+1 WRITE !!?20,$GET(ACR7A)
+2 WRITE ?48,$GET(ACR7B)
+3 WRITE ?72,$GET(ACR8)
+4 WRITE !!?2
+5 WRITE $GET(ACR9(1))
+6 WRITE ?41,$GET(ACR10)
+7 WRITE ?50,$GET(ACR11)
+8 WRITE ?64,$GET(ACR12)
+9 WRITE !?2
+10 WRITE $GET(ACR9(2))
+11 WRITE !?2
+12 WRITE $GET(ACR9(3))
+13 WRITE ?48,$GET(ACR13A)
+14 WRITE !?2,$GET(ACR9(4)),", ",$GET(ACR9(5))," ",$GET(ACR9(6))
+15 WRITE !?9,$GET(ACR9(7)),?60,$GET(ACR13B)
+16 WRITE !!
+17 WRITE ?43,"SIC",$GET(ACRSIC),?50,"SIZE",$GET(ACRSIZE),?60,$GET(ACR14)
+18 IF $GET(ACR15(3))=""&($GET(ACR16(3))="")
WRITE !
+19 WRITE !?2
+20 WRITE $GET(ACR15(1)),?41,$GET(ACR16(1))
+21 WRITE !?2
+22 WRITE $GET(ACR15(2)),?41,$GET(ACR16(2))
+23 IF $GET(ACR15(3))]""!($GET(ACR16(3))]"")
Begin DoDot:1
+24 WRITE !?2,$GET(ACR15(3)),?41,$GET(ACR16(3))
End DoDot:1
+25 WRITE !?2,$GET(ACR15(4)),", ",$GET(ACR15(5))," ",$GET(ACR15(6))," (",$GET(ACR15(7))_")"
+26 WRITE ?41,$GET(ACR16(4)),", ",$GET(ACR16(5))," ",$GET(ACR16(6))," (",$GET(ACR16(7))_")"
+27 WRITE !!
+28 IF $GET(ACR17(3))=""&($GET(ACR18(3))]"")
WRITE !
+29 WRITE !?2
+30 WRITE $GET(ACR17(1)),?41,$GET(ACR18(1))
+31 WRITE !?2
+32 WRITE $GET(ACR17(2)),?41,$GET(ACR18(2))
+33 IF $GET(ACR17(3))]""!($GET(ACR18(3))]"")
Begin DoDot:1
+34 WRITE !?2,$GET(ACR17(3)),?41,$GET(ACR18(3))
End DoDot:1
+35 WRITE !?2,$GET(ACR17(4)),", ",$GET(ACR17(5))," ",$GET(ACR17(6))," (",$GET(ACR17(7))_")"
+36 WRITE ?41,$GET(ACR18(4)),", ",$GET(ACR18(5))," ",$GET(ACR18(6))," (",$GET(ACR18(7))_")"
+37 WRITE !?9,$GET(ACR17(7))
+38 WRITE ?49,$GET(ACR18(7))
+39 WRITE !
+40 WRITE !?2,$GET(ACR17B)
+41 WRITE ?40,$GET(ACR18B)
+42 WRITE !
+43 WRITE !
+44 KILL ACRTOP
+45 DO DISPLAY^ACRFSS12
+46 IF $DATA(ACRTOP)
KILL ACRTOP
QUIT
DISP ;EP;
+1 DO ^ACRFPSS
+2 WRITE !
+3 WRITE !?2,$GET(ACR27A)
+4 WRITE ?53,$GET(ACR27A1)
+5 WRITE !?2,$GET(ACR27B)
+6 WRITE ?53,$GET(ACR27B1)
+7 DO ^ACRFPAPV
+8 FOR X=$Y:1:45
WRITE !
+9 WRITE !?41,ACRUS," ",$PIECE(ACRAP,"@")
+10 IF '$DATA(ACRTOP)
WRITE @IOF
+11 KILL ACRTOP
+12 QUIT
L WRITE $$DASH^ACRFMENU
+1 QUIT
HEAD ;EP;
+1 WRITE !,"SOLICITATION/CONTRACT/ORDER FOR COMMERCIAL ITEMS (CON'T)"
+2 WRITE !?2,"CONTRACT NO.",?18,"EFFECTIVE",?30,"ORDER NUMBER",?48,"SOLICITATION NO.",?72,"ISSUED"
+3 WRITE $$DASH^ACRFMENU
H GOTO @("L"_ACRADJST)
L0 WRITE !?48,$GET(ACR1)
+1 WRITE ?67,$GET(ACRPOPG)
L1 WRITE !
L2 WRITE !?2,$PIECE($GET(ACRDOC0),U,2)
+1 WRITE ?18,$GET(ACREFFD)
+2 WRITE ?30,$GET(ACR4)
+3 WRITE ?48,$GET(ACR5)
+4 WRITE ?72,$GET(ACR6)
+5 QUIT
