Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRF262

ACRF262.m

Go to the documentation of this file.
  1. 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
  1. PSC D H
  1. W !?2
  1. I $G(ACR9(3))=""&($G(ACR16(3))="") W !?2
  1. W $G(ACR9(1)),?41,$G(ACR16(1))
  1. W !?2
  1. W $G(ACR9(2)),?41,$G(ACR16(2))
  1. W !?2
  1. I $G(ACR9(3))]""!($G(ACR16(3))]"") D
  1. .W !?2,$G(ACR9(3)),?41,$G(ACR16(3))
  1. W !?2,$G(ACR9(4)),", ",$G(ACR9(5))," ",$G(ACR9(6))
  1. W ?41,$G(ACR16(4)),", ",$G(ACR16(5))," ",$G(ACR16(6))
  1. W !?2,$G(ACR7A)," (",$G(ACR7B),")"
  1. VENDOR W !!
  1. I $G(ACR17(3))="" W !
  1. W !?2
  1. W $G(ACR17(1))
  1. W !?2
  1. W $G(ACR17(2))
  1. I $G(ACR17(3))]"" D
  1. .W !?2,$G(ACR17(3))
  1. W !?2,$G(ACR17(4)),", ",$G(ACR17(5))," ",$G(ACR17(6))," (",$G(ACR17(7))_")"
  1. W !?9,$G(ACR17(7))
  1. W !!!!!?2
  1. W $G(ACR15(1)),?41,$G(ACR18(1))
  1. W !?2
  1. W $G(ACR15(2)),?41,$G(ACR18(2))
  1. W !?2,$G(ACR15(4)),", ",$G(ACR15(5))," ",$G(ACR15(6))," (",$G(ACR15(7))_")"
  1. W ?41,$G(ACR18(4)),", ",$G(ACR18(5))," ",$G(ACR18(6))," (",$G(ACR18(7))_")"
  1. D ^ACRFPSS
  1. W !
  1. K ACRTOP
  1. D DISPLAY^ACRFSS12
  1. I $D(ACRTOP) K ACRTOP Q
  1. DISP ;EP;
  1. F X=$Y:1:36 W !
  1. W !?2,$P($G(ACR21),U),?41,$P($G(ACR21),U,9)
  1. W !?2,$P($G(ACR21),U,2)
  1. W !?2,$P($G(ACR21),U,3),?41,$P($G(ACR21),U,10)
  1. W !?2,$P($G(ACR21),U,4)
  1. W !?2,$P($G(ACR21),U,5),?41,$P($G(ACR21),U,11)
  1. W !?2,$P($G(ACR21),U,6)
  1. W !?2,$P($G(ACR21),U,7),?41,$P($G(ACR21),U,12)
  1. W !?2,$P($G(ACR21),U,8),?41,$P($G(ACR21),U,13)
  1. D ^ACRFPAPV
  1. F X=$Y:1:53 W !
  1. W !?41,$G(ACRUS)," ",$P($G(ACRAP),"@")
  1. W:'$D(ACRTOP) @IOF
  1. Q
  1. L W $$DASH^ACRFMENU
  1. Q
  1. W !,"AWARD/CONTRACT (CON'T)"
  1. W !?2,"CONTRACT NO.",?30,"EFFECTIVE DATE",?49,"REQUISITION NUMBER"
  1. W $$DASH^ACRFMENU
  1. H G @("L"_ACRADJST)
  1. L0 W !?60,$G(ACR13B)
  1. W ?77,$G(ACRPOPG)
  1. L1 W !
  1. L2 W !?2,$P($G(ACRDOC0),U,2)
  1. W ?30,$G(ACREFFD)
  1. W ?49,$P($G(ACRDOC0),U)
  1. Q