- 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
