ACRF332 ;IHS/OIRM/DSD/THL,AEF - SOLICITATION, OFFER AND AWARD - CON'T; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
PSC D H
W !
W:$G(ACR4)=2 ?39,"XX"
W !
I $G(ACR9(3))=""&($G(ACR16(3))="") W !
W ?2,$G(ACR9(1)),?41,$G(ACR16(1))
W !?2
W $G(ACR9(2)),?41,$G(ACR16(2))
I $G(ACR9(3))]""!($G(ACR16(3))]"") D
.W !?2,$G(ACR9(3)),?41,$G(ACR16(3))
W !?2,$G(ACR9(4)),", ",$G(ACR9(5))," ",$G(ACR9(6))
W ?41,$G(ACR16(4)),", ",$G(ACR16(5))," ",$G(ACR16(6))
W !!!!?18,$G(ACRCOPY)
W !?23,$G(ACRDET),?59,$G(ACRHOUR),?69,$G(ACRDATE)
K ACRDET
W !!!!!?17,$G(ACR7A),?48,$G(ACR7B)
W !!!
W !?2,$P($G(ACR21),U),?41,$P($G(ACR21),U,9)
W !?2,$P($G(ACR21),U,2)
W !?2,$P($G(ACR21),U,3),?41,$P($G(ACR21),U,10)
W !?2,$P($G(ACR21),U,4)
W !?2,$P($G(ACR21),U,5),?41,$P($G(ACR21),U,11)
W !?2,$P($G(ACR21),U,6)
W !?2,$P($G(ACR21),U,7),?41,$P($G(ACR21),U,12)
W !?2,$P($G(ACR21),U,8),?41,$P($G(ACR21),U,13)
VENDOR F X=$Y:1:35 W !
I $G(ACR17(3))="" W !
W !!?11
W $G(ACR17(1))
W !?11
W $G(ACR17(2))
I $G(ACR17(3))]"" D
.W !?11,$G(ACR17(3))
W !?11,$G(ACR17(4)),", ",$G(ACR17(5))," ",$G(ACR17(6))," (",$G(ACR17(7))_")"
W !!!
D ^ACRFPSS
W !!!!?2
W $G(ACR16(1)),?41,$G(ACR18(1))
W !?2
W $G(ACR16(2)),?41,$G(ACR18(2))
W !?2,$E($G(ACR15(4)),1,13),", ",$G(ACR16(5))," ",$G(ACR16(6))," (",$G(ACR16(7))_")"
W ?41,$E($G(ACR18(4)),1,13),", ",$G(ACR18(5))," ",$G(ACR18(6))," (",$G(ACR18(7))_")"
D ^ACRFPAPV
F X=$Y:1:54 W !
W !?2,ACRUS,?68,$P(ACRAP,"@")
W @IOF
Q
H G @("L"_ACRADJST)
L0 W !?60,$G(ACR13B)
W ?77,$G(ACRPOPG)
L1 W !
L2 W !?2,$P($G(ACRDOC0),U,2)
W ?20,$G(ACR5)
W:$G(ACR4)=1 ?39,"XX"
W ?51,$G(ACR6)
W ?66,$P($G(ACRDOC0),U)
Q
DISP ;EP
Q
HEAD ;EP;
Q
ACRF332 ;IHS/OIRM/DSD/THL,AEF - SOLICITATION, OFFER AND AWARD - CON'T; [ 11/01/2001 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
PSC DO H
+1 WRITE !
+2 IF $GET(ACR4)=2
WRITE ?39,"XX"
+3 WRITE !
+4 IF $GET(ACR9(3))=""&($GET(ACR16(3))="")
WRITE !
+5 WRITE ?2,$GET(ACR9(1)),?41,$GET(ACR16(1))
+6 WRITE !?2
+7 WRITE $GET(ACR9(2)),?41,$GET(ACR16(2))
+8 IF $GET(ACR9(3))]""!($GET(ACR16(3))]"")
Begin DoDot:1
+9 WRITE !?2,$GET(ACR9(3)),?41,$GET(ACR16(3))
End DoDot:1
+10 WRITE !?2,$GET(ACR9(4)),", ",$GET(ACR9(5))," ",$GET(ACR9(6))
+11 WRITE ?41,$GET(ACR16(4)),", ",$GET(ACR16(5))," ",$GET(ACR16(6))
+12 WRITE !!!!?18,$GET(ACRCOPY)
+13 WRITE !?23,$GET(ACRDET),?59,$GET(ACRHOUR),?69,$GET(ACRDATE)
+14 KILL ACRDET
+15 WRITE !!!!!?17,$GET(ACR7A),?48,$GET(ACR7B)
+16 WRITE !!!
+17 WRITE !?2,$PIECE($GET(ACR21),U),?41,$PIECE($GET(ACR21),U,9)
+18 WRITE !?2,$PIECE($GET(ACR21),U,2)
+19 WRITE !?2,$PIECE($GET(ACR21),U,3),?41,$PIECE($GET(ACR21),U,10)
+20 WRITE !?2,$PIECE($GET(ACR21),U,4)
+21 WRITE !?2,$PIECE($GET(ACR21),U,5),?41,$PIECE($GET(ACR21),U,11)
+22 WRITE !?2,$PIECE($GET(ACR21),U,6)
+23 WRITE !?2,$PIECE($GET(ACR21),U,7),?41,$PIECE($GET(ACR21),U,12)
+24 WRITE !?2,$PIECE($GET(ACR21),U,8),?41,$PIECE($GET(ACR21),U,13)
VENDOR FOR X=$Y:1:35
WRITE !
+1 IF $GET(ACR17(3))=""
WRITE !
+2 WRITE !!?11
+3 WRITE $GET(ACR17(1))
+4 WRITE !?11
+5 WRITE $GET(ACR17(2))
+6 IF $GET(ACR17(3))]""
Begin DoDot:1
+7 WRITE !?11,$GET(ACR17(3))
End DoDot:1
+8 WRITE !?11,$GET(ACR17(4)),", ",$GET(ACR17(5))," ",$GET(ACR17(6))," (",$GET(ACR17(7))_")"
+9 WRITE !!!
+10 DO ^ACRFPSS
+11 WRITE !!!!?2
+12 WRITE $GET(ACR16(1)),?41,$GET(ACR18(1))
+13 WRITE !?2
+14 WRITE $GET(ACR16(2)),?41,$GET(ACR18(2))
+15 WRITE !?2,$EXTRACT($GET(ACR15(4)),1,13),", ",$GET(ACR16(5))," ",$GET(ACR16(6))," (",$GET(ACR16(7))_")"
+16 WRITE ?41,$EXTRACT($GET(ACR18(4)),1,13),", ",$GET(ACR18(5))," ",$GET(ACR18(6))," (",$GET(ACR18(7))_")"
+17 DO ^ACRFPAPV
+18 FOR X=$Y:1:54
WRITE !
+19 WRITE !?2,ACRUS,?68,$PIECE(ACRAP,"@")
+20 WRITE @IOF
+21 QUIT
H GOTO @("L"_ACRADJST)
L0 WRITE !?60,$GET(ACR13B)
+1 WRITE ?77,$GET(ACRPOPG)
L1 WRITE !
L2 WRITE !?2,$PIECE($GET(ACRDOC0),U,2)
+1 WRITE ?20,$GET(ACR5)
+2 IF $GET(ACR4)=1
WRITE ?39,"XX"
+3 WRITE ?51,$GET(ACR6)
+4 WRITE ?66,$PIECE($GET(ACRDOC0),U)
+5 QUIT
DISP ;EP
+1 QUIT
HEAD ;EP;
+1 QUIT
