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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ENG(6915.5

Package: Engineering

Global: ^ENG(6915.5


Information

FileMan FileNo FileMan Filename Package
6915.5 FD DOCUMENT LOG Engineering

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Engineering 12 ENFABAL    ^ENG(6915.5    ENFABETR    ENFACTX    ENFADEL    ENFARC2    ENFAUTL    ENFAXMT2
ENLIB3    ENXIP57    ENXIP60    ENXTIPS    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Engineering 4 ENFACTX    ENFADEL    ENFARC2    ENXOIPS    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Engineering 3 EQUIPMENT INV.(#6914)[.01]    NX DISPOSITION METHOD(#6914.8)[103]    AV REASON(#6915.11)[303]    
Kernel 1 NEW PERSON(#200)[1.5302]    

Fields, Total: 42

Field # Name Loc Type Details
.01 EQUIPMENT RECORD 0;1 POINTER TO EQUIPMENT INV. FILE (#6914)
************************REQUIRED FIELD************************
EQUIPMENT INV.(#6914)

  • LAST EDITED:  SEP 05, 1995
  • DESCRIPTION:  
    This field holds the internal entry number from file 6914 for the piece of capitalized NX equipment that an FD document was sent for.
  • CROSS-REFERENCE:  6915.5^B
    1)= S ^ENG(6915.5,"B",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.5,"B",$E(X,1,30),DA)
1 DATE/TIME CREATED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 13, 1995
  • DESCRIPTION:  
    This is the date and time that the FD document was prepared.
  • CROSS-REFERENCE:  6915.5^D
    1)= S ^ENG(6915.5,"D",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.5,"D",$E(X,1,30),DA)
1.5 SENDER 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  SEP 13, 1995
  • DESCRIPTION:  
    This is the person who created the FD document using the Equipment Entry option.
2 SEGMENT 1 ID 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the Segment 1 ID for the FD document, usually it will be CTL.
3 SOURCE SYSTEM 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the source system for the FD document, ususally AMM.
4 DESTINATION SYSTEM 1;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the system where the FD document is going, usually FMS.
5 SUBMITTING STATION 1;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the station number of the site that is submitting this FD document.
6 TRANSACTION CLASS 1;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the class of document being sent to FMS.  It is usually DOC, to represent a document transaction.
7 TRANSACTION CODE 1;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This tells FMS what kind of document is being sent.  FD for an FD document.
8 SEC1 CODE 1;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This is the Security 1 code of the submitting Administration/Staff office.  VHA=10, VBA=20, and NCS=40.
9 BATCH NUMBER 1;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the batch number of the FD document being sent.  Currently set to six spaces.
10 TRANSACTION NUMBER 1;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<11) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 11 characters in length.
  • DESCRIPTION:  
    This is the transaction number for this FD document.  It consists of the station number_the last digit of the fiscal year_N_the 4 digit sequential number.
11 TRANSACTION DATE 1;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This is the date the FD document was created in YYYYMMDD format.
12 TRANSACTION TIME 1;11 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the time the FD document was created in HHMMSS format.
13 SEQUENCE NUMBER 1;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the transaction part sequence number.  Should always be 001.
14 SEQUENCE TOTAL 1;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the total number of transaction parts.  Should always be 001.
15 VERSION 1;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the AMES/MERS-FMS interface version.  Should always be 001.
16 SEGMENT 2 ID 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the segment identifier for segment 2.  Should always be DOC.
20 SEGMENT 3 ID 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the segment identifier for the the FD1 segment.  Should always be FD1.
21 TRANS CODE 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the Trans code for the FD1 segment.  Should always be FD.
22 TRANS DIVISION 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • DESCRIPTION:  
    This is the Security 1 code.  VHA=10, VBA=20, NCS=40.
23 TRANS NUMBER 3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  DEC 19, 1996
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • DESCRIPTION:  
    This is the transaction number for this FD document.  It consists of the station number_the last digit of the fiscal year_N_the 4 digit sequential number.
  • CROSS-REFERENCE:  6915.5^C
    1)= S ^ENG(6915.5,"C",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.5,"C",$E(X,1,30),DA)
24 BEG BUDGET YEAR 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the beginning budget fiscal year.
25 SEGMENT 4 ID 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the segment ID for the LIN section.  Should always be LIN.
26 SEGMENT 5 ID 5;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the segment ID for the FDD segment.  Should always be FDD.
27 FIXED ASSET NUMBER 5;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<15) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 15 characters in length.
  • DESCRIPTION:  
    The fixed asset number consists of the submitting station_the 2 digit satelite station number (or 2 spaces if no satellite)_the internal entry number of the asset from file 6914.
28 FIXED ASSET TYPE 5;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the FA TYPE field from the NX SGL file for this particular Standard General Ledger account.
29 DISPOSITION METHOD CODE 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 12, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Method by which asset was finally disposed of.
30 DISPOSITION YEAR 5;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  SEP 08, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    This is the year the item was disposed of.
31 DISPOSITION MONTH 5;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  SEP 08, 1995
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the month the item was disposed of.
32 DISPOSITION DAY 5;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  SEP 08, 1995
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the day the item was disposed of.
33 SELLING PRICE 5;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<4)!'(X?1.12N1"."2N) X
  • LAST EDITED:  SEP 22, 1995
  • HELP-PROMPT:  Must be a dollar value, with 2 decimal places and without the $ sign.
  • DESCRIPTION:  
    This is the price received when the item was sold.
34 DISPOSITION AUTHORITY 5;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 06, 1995
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This is the authority under which the item was disposed of.
100 TURN-IN OR DISPOSITION? 100;1 SET
************************REQUIRED FIELD************************
  • 'T' FOR TURN-IN;
  • 'D' FOR FINAL DISPOSITION;

  • LAST EDITED:  OCT 12, 1995
  • DESCRIPTION:  Since FD documents may be used in moving an asset to EXCESS as well as in processing final disposition, we must ask the user which he wants to do. This repsonse tells us whether to update the TURN-IN DATE or the
    DISPOSITION DATE.
101 ASSET VALUE 100;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999)!(X<0) X
  • LAST EDITED:  JUL 19, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits
  • DESCRIPTION:  
    Asset value at time of document generation.
102 DISPOSITION DATE 100;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)="00" X I $D(X),$E(X,6,7)="00" S X=$E(X,1,5)_"01"
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  DISPOSITION DATE MUST CONTAIN A MONTH!
  • DESCRIPTION:  
    Disposition date in FAP format is extracted from this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
103 DISPOSITION METHOD 100;4 POINTER TO NX DISPOSITION METHOD FILE (#6914.8)
************************REQUIRED FIELD************************
NX DISPOSITION METHOD(#6914.8)

  • LAST EDITED:  DEC 12, 1995
  • HELP-PROMPT:  Enter method by which asset was finally disposed of.
  • DESCRIPTION:  
    Basis for stuffing the DISPOSITION METHOD CODE field that goes to FAP.
104 FAIR MARKET VALUE 100;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<1) X
  • LAST EDITED:  APR 15, 2013
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  The estimated, realistic dollar value of an asset when categorized as "VA Excess" personal property. This value will replace the current TOTAL ASSET VALUE in the Equipment Inv. file. Note that the current TOTAL ASSET VALUE
    will automatically be saved as the ORIGINAL ASSET VALUE.
    VA Accounting Standards require capitalized nonexpendable property to be recorded in the "Excess" Standard General Ledger (SGL) 1995 at its "Expected Net Realizable Value".
301 A.V. DATE 300;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 18, 1996
  • DESCRIPTION:  This field contains the date/time when an Adjustment Voucher was created. If blank, then an Adjustment Voucher has not yet been created for the FD Document. An Adjustment Voucher is used to notify Fiscal about a selected
    FAP Document.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^6915.5^302
    1)= X ^DD(6915.5,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.5,D0,300)):^(300),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.5,301,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.5,D0,300)):^(300),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^ENG(6915.5,DIV(0),300)):^(300),1:""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.5,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #302=""
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #302
  • CROSS-REFERENCE:  6915.5^AV
    1)= S ^ENG(6915.5,"AV",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.5,"AV",$E(X,1,30),DA)
302 A.V. CREATED BY 300;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 18, 1996
  • DESCRIPTION:  
    User that created adjustment voucher.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the A.V. DATE field of the FD DOCUMENT LOG File
303 A.V. REASON 300;3 POINTER TO AV REASON FILE (#6915.11) AV REASON(#6915.11)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)[""FD""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 31, 1997
  • HELP-PROMPT:  Select reason for adjustment voucher.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)[""FD"""
  • EXPLANATION:  Applicable reasons for FD Document
310 A.V. COMMENTS 301;0 WORD-PROCESSING #6915.51

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6859
  • ABOVE PAR
  • EQUIPMENT RECORD (.01).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 1+1, 102+1, 301+1
    ^DIC 303+1
    ^DICR 301(XREF 1n1.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 301(XREF 1n1.4)
    ^DD(6915.5 301(XREF 1S)
    ^ENG(6915.5 - [#6915.5] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 23(XREF 1S), 23(XREF 1K), 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4), 301(XREF 2S)
    301(XREF 2K)
    ^VA(200 - [#200] 301(XREF 1n1.3)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1+1, 301(XREF 1n1.3)
    ^(100 ID100+1
    ^(3 ID23+1
    ^(300 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*, 102+1*, 301+1*
    >> D0 301(XREF 1S), 301(XREF 1n1.3)
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 23(XREF 1S), 23(XREF 1K), 301(XREF 1n1.3), 301(XREF 2S), 301(XREF 2K)
    DIC ID100+1, 303+1!*
    DIC("S" 303+1*, 303SCR+1*
    >> DIE 303+1
    >> DIG 301(XREF 1n1.4)
    >> DIH 301(XREF 1n1.4)
    >> DIU 301(XREF 1S)
    DIV 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4)
    DIV(0 301(XREF 1n1.3), 301(XREF 1n1.4)
    DUZ 301(XREF 1S)
    U ID1+1, ID23+1, 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4)
    X .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1!, 6+1!
    , 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1!
    , 20+1!, 21+1!, 22+1!, 23+1!, 23(XREF 1S), 23(XREF 1K), 24+1!, 25+1!, 26+1!, 27+1!
    , 28+1!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1!, 101+1*!, 102+1*!, 104+1*!
    , 301+1*!, 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4), 301(XREF 2S), 301(XREF 2K), 303+1*!
    Y 1+1, 102+1, 301+1, 301(XREF 1S), 303+1
    Y(0 301(XREF 1n1.3)
    Y(1 301(XREF 1S), 301(XREF 1n1.3)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All