- 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
