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
