- ACRF262 ;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 !?2
- I $G(ACR9(3))=""&($G(ACR16(3))="") W !?2
- W $G(ACR9(1)),?41,$G(ACR16(1))
- W !?2
- W $G(ACR9(2)),?41,$G(ACR16(2))
- W !?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 !?2,$G(ACR7A)," (",$G(ACR7B),")"
- VENDOR W !!
- I $G(ACR17(3))="" W !
- W !?2
- W $G(ACR17(1))
- W !?2
- W $G(ACR17(2))
- I $G(ACR17(3))]"" D
- .W !?2,$G(ACR17(3))
- W !?2,$G(ACR17(4)),", ",$G(ACR17(5))," ",$G(ACR17(6))," (",$G(ACR17(7))_")"
- W !?9,$G(ACR17(7))
- W !!!!!?2
- W $G(ACR15(1)),?41,$G(ACR18(1))
- W !?2
- W $G(ACR15(2)),?41,$G(ACR18(2))
- W !?2,$G(ACR15(4)),", ",$G(ACR15(5))," ",$G(ACR15(6))," (",$G(ACR15(7))_")"
- W ?41,$G(ACR18(4)),", ",$G(ACR18(5))," ",$G(ACR18(6))," (",$G(ACR18(7))_")"
- D ^ACRFPSS
- W !
- K ACRTOP
- D DISPLAY^ACRFSS12
- I $D(ACRTOP) K ACRTOP Q
- DISP ;EP;
- F X=$Y:1:36 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)
- D ^ACRFPAPV
- F X=$Y:1:53 W !
- W !?41,$G(ACRUS)," ",$P($G(ACRAP),"@")
- W:'$D(ACRTOP) @IOF
- Q
- L W $$DASH^ACRFMENU
- Q
- HEAD ;EP;
- W !,"AWARD/CONTRACT (CON'T)"
- W !?2,"CONTRACT NO.",?30,"EFFECTIVE DATE",?49,"REQUISITION NUMBER"
- W $$DASH^ACRFMENU
- H G @("L"_ACRADJST)
- L0 W !?60,$G(ACR13B)
- W ?77,$G(ACRPOPG)
- L1 W !
- L2 W !?2,$P($G(ACRDOC0),U,2)
- W ?30,$G(ACREFFD)
- W ?49,$P($G(ACRDOC0),U)
- Q
- ACRF262 ;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 !?2
- +2 IF $GET(ACR9(3))=""&($GET(ACR16(3))="")
- WRITE !?2
- +3 WRITE $GET(ACR9(1)),?41,$GET(ACR16(1))
- +4 WRITE !?2
- +5 WRITE $GET(ACR9(2)),?41,$GET(ACR16(2))
- +6 WRITE !?2
- +7 IF $GET(ACR9(3))]""!($GET(ACR16(3))]"")
- Begin DoDot:1
- +8 WRITE !?2,$GET(ACR9(3)),?41,$GET(ACR16(3))
- End DoDot:1
- +9 WRITE !?2,$GET(ACR9(4)),", ",$GET(ACR9(5))," ",$GET(ACR9(6))
- +10 WRITE ?41,$GET(ACR16(4)),", ",$GET(ACR16(5))," ",$GET(ACR16(6))
- +11 WRITE !?2,$GET(ACR7A)," (",$GET(ACR7B),")"
- VENDOR WRITE !!
- +1 IF $GET(ACR17(3))=""
- WRITE !
- +2 WRITE !?2
- +3 WRITE $GET(ACR17(1))
- +4 WRITE !?2
- +5 WRITE $GET(ACR17(2))
- +6 IF $GET(ACR17(3))]""
- Begin DoDot:1
- +7 WRITE !?2,$GET(ACR17(3))
- End DoDot:1
- +8 WRITE !?2,$GET(ACR17(4)),", ",$GET(ACR17(5))," ",$GET(ACR17(6))," (",$GET(ACR17(7))_")"
- +9 WRITE !?9,$GET(ACR17(7))
- +10 WRITE !!!!!?2
- +11 WRITE $GET(ACR15(1)),?41,$GET(ACR18(1))
- +12 WRITE !?2
- +13 WRITE $GET(ACR15(2)),?41,$GET(ACR18(2))
- +14 WRITE !?2,$GET(ACR15(4)),", ",$GET(ACR15(5))," ",$GET(ACR15(6))," (",$GET(ACR15(7))_")"
- +15 WRITE ?41,$GET(ACR18(4)),", ",$GET(ACR18(5))," ",$GET(ACR18(6))," (",$GET(ACR18(7))_")"
- +16 DO ^ACRFPSS
- +17 WRITE !
- +18 KILL ACRTOP
- +19 DO DISPLAY^ACRFSS12
- +20 IF $DATA(ACRTOP)
- KILL ACRTOP
- QUIT
- DISP ;EP;
- +1 FOR X=$Y:1:36
- WRITE !
- +2 WRITE !?2,$PIECE($GET(ACR21),U),?41,$PIECE($GET(ACR21),U,9)
- +3 WRITE !?2,$PIECE($GET(ACR21),U,2)
- +4 WRITE !?2,$PIECE($GET(ACR21),U,3),?41,$PIECE($GET(ACR21),U,10)
- +5 WRITE !?2,$PIECE($GET(ACR21),U,4)
- +6 WRITE !?2,$PIECE($GET(ACR21),U,5),?41,$PIECE($GET(ACR21),U,11)
- +7 WRITE !?2,$PIECE($GET(ACR21),U,6)
- +8 WRITE !?2,$PIECE($GET(ACR21),U,7),?41,$PIECE($GET(ACR21),U,12)
- +9 WRITE !?2,$PIECE($GET(ACR21),U,8),?41,$PIECE($GET(ACR21),U,13)
- +10 DO ^ACRFPAPV
- +11 FOR X=$Y:1:53
- WRITE !
- +12 WRITE !?41,$GET(ACRUS)," ",$PIECE($GET(ACRAP),"@")
- +13 IF '$DATA(ACRTOP)
- WRITE @IOF
- +14 QUIT
- L WRITE $$DASH^ACRFMENU
- +1 QUIT
- HEAD ;EP;
- +1 WRITE !,"AWARD/CONTRACT (CON'T)"
- +2 WRITE !?2,"CONTRACT NO.",?30,"EFFECTIVE DATE",?49,"REQUISITION NUMBER"
- +3 WRITE $$DASH^ACRFMENU
- 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 ?30,$GET(ACREFFD)
- +2 WRITE ?49,$PIECE($GET(ACRDOC0),U)
- +3 QUIT