Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ECT(731.5

Package: Interim Management Support

Global: ^ECT(731.5


Information

FileMan FileNo FileMan Filename Package
731.5 VAMC PLANNED EQUIPMENT Interim Management Support

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Interim Management Support 8 ECT EQUIPMENT INPUT    ECT STATUS EDIT    ECTEIN    ECTEPR    ECTEQT    ECTEST    ^ECT(731.5    SERVICE
Event Capture 3 EC2P6PST    ECT EQUIPMENT INPUT    ECT STATUS EDIT    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Interim Management Support 4 ECTEIN    ECTEPR    ECTEQT    ECTEST    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Interim Management Support 1 NATIONAL SERVICE(#730)[1]    

Fields, Total: 12

Field # Name Loc Type Details
.01 ITEM NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the name of an item which VAMC plans to purchase.
  • CROSS-REFERENCE:  731.5^B
    1)= S ^ECT(731.5,"B",$E(X,1,30),DA)=""
    2)= K ^ECT(731.5,"B",$E(X,1,30),DA)
1 SERVICE 0;2 POINTER TO NATIONAL SERVICE FILE (#730)
************************REQUIRED FIELD************************
NATIONAL SERVICE(#730)

  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Enter the service wishing to procure the item.
  • DESCRIPTION:  
    Service is a pointer to the National Service file. Choose the service that wishes to procure the item.
2 HIGH TECH EQT ITEM? 0;3 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Is item from the regional high technology equipment list?
  • DESCRIPTION:  
    Is the planned equipment item from the regional unfunded high technology equipment list? If yes, answer with a "1" or "Y". If not, answer with a "0" or "N".
3 ADP EQT ITEM? 0;4 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Indicate if the item is for IRM/ADP.
  • DESCRIPTION:  
    Is the planned equipment item for IRM/ADP? If so, answer with a "1" or "Y". If not, answer with a "0" or "N".
4 ADDITIONAL/REPLACEMENT? 0;5 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADDITIONAL;
  • 'R' FOR REPLACEMENT;

  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Indicate if item is additional or replacement.
  • DESCRIPTION:  
    If the item is 'additional' equipment, enter 'A'; if 'replacement', enter 'R'.
5 PRIORITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 12, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Indicate the level of importance for purchasing purposes. Number 1 indicates highest level of importance. Number 999 indicates lowest possible level of importance.
6 COST 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 10, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the estimated cost of the planned purchase item.
20 REQUEST DATE 1;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Enter date item was requested.
  • DESCRIPTION:  
    Enter the date the item was requested. Date may be exact, i.e. JAN 21,1991 or imprecise, i.e. JAN 1991.
21 DATE APPROVED 1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date item was approved.
  • DESCRIPTION:  
    Enter the date the item was approved for purchase.
22 DATE PROCURED 1;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date item was procured.
  • DESCRIPTION:  
    Enter the date the item was purchased.
23 STATUS 1;4 SET
************************REQUIRED FIELD************************
  • 'A' FOR APPROVED TO BE PURCHASED;
  • 'P' FOR APPROVED AND PURCHASED;
  • 'N' FOR NOT YET APPROVED OR PURCHASED;

  • LAST EDITED:  OCT 09, 1990
  • HELP-PROMPT:  Enter the status of the planned item.
  • DESCRIPTION:  
    Enter the status of the item: 'A' for Approved to be purchased, 'P' for approved and Purchased, and 'N' for Not yet approved or purchased.
30 JUSTIFICATION 2;0 WORD-PROCESSING #731.51

  • DESCRIPTION:  
    Enter the justification for the planned equipment item.

External References

Name Field # of Occurrence
^%DT 20+1, 21+1, 22+1
Y^DIQ ID1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(730 ID1+1
^ECC(730 - [#730] ID1+1
^ECT(731.5 - [#731.5] .01(XREF 1S), .01(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 20+1*, 21+1*, 22+1*
%I ID1+1*!
>> C ID1+1*
>> DA .01(XREF 1S), .01(XREF 1K)
>> DIC ID1+1
U ID1+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 5+1!, 6+1*!, 20+1*!, 21+1*!, 22+1*!
>> Y ID1+1*, 20+1, 21+1, 22+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All