Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 731.02

Package: Interim Management Support

VAMC MANAGEMENT(#731)-->731.02

Sub-Field: 731.02


Information

Parent File Name Number Package
VAMC MANAGEMENT(#731) CONTRACT 731.02 Interim Management Support

Details

Field # Name Loc Type Details
.01 CONTRACT # 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 03, 1990
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the contract number which uniquely identifies the contract.
  • CROSS-REFERENCE:  731.02^B
    1)= S ^ECT(731,DA(1),20,"B",$E(X,1,30),DA)=""
    2)= K ^ECT(731,DA(1),20,"B",$E(X,1,30),DA)
1 DESCRIPTION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  NOV 03, 1990
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    What it the purpose of the contract? For example, 'FIRE ALARM SYSTEM MAINTENANCE' or 'DISPOSAL OF TRASH & NON-EDIBLE GARBAGE'.
2 TYPE 0;3 SET
  • '1' FOR MAINTENANCE;
  • '2' FOR SERVICE;
  • '3' FOR SHARING;
  • '4' FOR CONSTRUCTION;

  • LAST EDITED:  JAN 15, 1991
  • HELP-PROMPT:  Indicate type of contract: maintenance, service, sharing, or construction.
  • DESCRIPTION:  
    Indicate the type of contract: enter '1' for maintenance, '2' for service, '3' for sharing, or '4' for construction.
3 AMOUNT 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  NOV 03, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the dollar amount of the contract.
4 VENDOR 0;5 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • LAST EDITED:  NOV 03, 1990
  • HELP-PROMPT:  Select vendor for contract.
  • DESCRIPTION:  
    Select the contract vendor.
5 RESPONSIBLE SERVICE 0;6 POINTER TO NATIONAL SERVICE FILE (#730) NATIONAL SERVICE(#730)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^ECC(730,""ALS"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 03, 1990
  • HELP-PROMPT:  Enter the service which is responsible for the contract.
  • DESCRIPTION:  
    Enter the service which is responsible for the contract.
  • SCREEN:  S DIC("S")="I $D(^ECC(730,""ALS"",+Y))"
  • EXPLANATION:  Select only services which have been identified as 'local' services.
Info |  Details