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: ^ENG(6915.4

Package: Engineering

Global: ^ENG(6915.4


Information

FileMan FileNo FileMan Filename Package
6915.4 FC DOCUMENT LOG Engineering

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Engineering 9 ENFABAL    ENFACHG    ENFACHG1    ENFARC3    ENXOIPS    ^OFM(7336.9    ENFARC2    ENFAXMT2
^ENG(6915.4    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Engineering 2 ENFACHG    ENFAXMT    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Engineering 6 CATEGORY STOCK NUMBER(#6917)[100]    EQUIPMENT INV.(#6914)[.01]    CMR(#6914.1)[101]    NX DISPOSITION METHOD(#6914.8)[102]    AV REASON(#6915.11)[303]    FB DOCUMENT LOG(#6915.3)[104]    
Kernel 1 NEW PERSON(#200)[1.5302]    

Fields, Total: 64

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 FC document was sent for.
  • CROSS-REFERENCE:  6915.4^B
    1)= S ^ENG(6915.4,"B",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.4,"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 FC document was prepared.
  • CROSS-REFERENCE:  6915.4^D
    1)= S ^ENG(6915.4,"D",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.4,"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 FC document using the change 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 FC document, usually it will be CTL.
3 SOURCE SYSTEM 1;2 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 source system for the FC document, usually AMM.
4 DESTINATION SYSTEM 1;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the system where the FC 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 FC document.
6 TRANSACTION CLASS 1;5 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 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 05, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This tells FMS what kind of document is being sent. FC for an FC document.
8 SEC1 CODE 1;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  SEP 05, 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 05, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the batch number of the FC 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 05, 1995
  • HELP-PROMPT:  Answer must be 11 characters in length.
  • DESCRIPTION:  
    This is the transaction number for this FC 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 05, 1995
  • HELP-PROMPT:  Answer must be 8 characters in length.
  • DESCRIPTION:  
    This is the date the FC 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 08, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the time the FC 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 05, 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 05, 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 05, 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 05, 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
************************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 identifier for the the FC1 segment. Should always be FC1.
21 TRANS CODE 3;2 FREE TEXT
************************REQUIRED FIELD************************

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

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  SEP 05, 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
************************REQUIRED FIELD************************

  • 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 FC document. It consists of the station number_the last digit of the fiscal year_N_the 4 digit sequential number.
  • CROSS-REFERENCE:  6915.4^C
    1)= S ^ENG(6915.4,"C",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.4,"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 05, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the beginning budget fiscal year.
25 FIXED ASSET NUMBER 3;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<6) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 6-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.
26 FIXED ASSET TYPE 3;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  SEP 05, 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.
27 BETTERMENT NUMBER 3;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  SEP 19, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    This is the betterment number if you are changing a betterment, otherwise it would be 00 since you would be changing the asset information.
  • EXECUTABLE HELP:  Q:'$D(ENEQ("DA")) S X="?" D SHOW^ENFACHG1
28 FA GROUP 3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  The group is derived from the Category Stock Number. It is generally the first 2 digits of the CSN concatenated with 00, except for CSNs in the 7nnn range, which send as 7000, except for 7020, 7021, 7025, 7035, 7040, &
    7050, which transmit as themselves.
29 LOCATION 3;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • DESCRIPTION:  
    The location is derived from the first 2 digits of the CMR. Cll are valid except 67, 73, 74, 79-85, and 87-98.
30 DESCRIPTION 3;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<4) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 4-30 characters in length.
  • DESCRIPTION:  
    This is really the Category Stock Number.
31 ACQUISITION YEAR 3;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length and not less than '1900'.
  • DESCRIPTION:  
    This is the year the item was acquired.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
32 ACQUISITION MONTH 3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length and from '01' to '31'.
  • DESCRIPTION:  
    This is the month the item was acquired.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
33 ACQUISITION DAY 3;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length and from '01' to '31'.
  • DESCRIPTION:  
    This is the day the asset was acquired.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
34 ACQUISITION METHOD 3;15 SET
  • 'C' FOR CONSTRUCTED;
  • 'G' FOR GIFT/BEQUEST/DONATION;
  • 'L' FOR LEASED;
  • 'M' FOR CAPITAL LEASE;
  • 'O' FOR OTHER;
  • 'P' FOR PURCHASED;
  • 'R' FOR TRANSFERRED;
  • 'T' FOR TRADED;
  • 'X' FOR EXCESS;

  • LAST EDITED:  DEC 10, 1997
  • DESCRIPTION:  
    This is how the item was acquired; constructed, purchased, etc.
35 SEGMENT 4 ID 4;1 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 segment ID for the FC2 segment. Should always be FC2.
36 UNITS 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    This is the units that the item is measured in; each, gross, etc.
37 USEFUL LIFE 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is the useful life expectancy in years for this item.
38 SALVAGE VALUE 4;4 FREE TEXT

  • 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 expected salvage value upon disposing of the item. Should be 0 for depreciable items.
39 DEPRECIATION METHOD 4;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is how the item will be depreciated. Always SL (straight line) for NX equipment.
40 SUMMARY ASSET VALUE 4;6 FREE TEXT

  • 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 new asset value that should be used in place of the original asset value on the code sheet being changed. When changing an FA Document (Betterment 00), enter the acquisition value of the asset. When changing a
    Betterment (Betterment 01, etc.), enter the value of the Betterment.
41 SELLING PRICE 4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<4)!'(X?1.12N1"."2N) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 4-15 characters in length.
  • DESCRIPTION:  
    Money recouped at sale of asset.
42 INCREASE-DECREASE 4;8 SET
  • 'I' FOR INCREASE;
  • 'D' FOR DECREASE;

  • LAST EDITED:  SEP 28, 1995
  • DESCRIPTION:  
    For future use.
43 DISPOSITION METHOD CODE 4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Method by which asset was finally disposed of.
44 DISPOSITION YEAR 4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 4 numerics in length and greater than '1900'.
  • DESCRIPTION:  
    Year in which asset was disposed of (YYYY).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
45 DISPOSITION MONTH 4;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 numerics in length from '01' to '31'.
  • DESCRIPTION:  
    Numeric representation of disposition month (ex: 09 for September). Leading zeroes must be included for January thru September.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46 DISPOSITION DAY 4;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 numerics in length and from '01' to '31'.
  • DESCRIPTION:  
    Disposition day. Leading zeroes must be included for the first thru the ninth.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
47 FUNDING SOURCE 4;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    For future use.
48 REPLACEMENT YEAR 4;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 4 numerics in length and greater than 1900.
  • DESCRIPTION:  
    Calendar year in which asset is scheduled for replacement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
49 REPLACEMENT MONTH 4;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 numerics in length and from '01' to '31'.
  • DESCRIPTION:  
    Numeric representation of month in which asset is scheduled to be replaced (ex: 09 for September). Leading zeroes are required for January thru September.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50 REPLACEMENT DAY 4;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  NOV 21, 1995
  • HELP-PROMPT:  Answer must be 2 numerics in length and from '01' to '31'.
  • DESCRIPTION:  
    Day on which asset is scheduled to be replaced. Leading zeroes required for the first thru the ninth.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
51 SEGMENT 5 ID 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    FAP segment identifier. Always set to LIN.
52 SEGMENT 6 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    FAP segment identifier. Always set to FCA.
53 EQUITY ACCOUNT 1 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  
    Financial classification consistent with FMS.
54 ASSET VALUE 1 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<4)!'(X?1.12N1"."2N) X
  • LAST EDITED:  SEP 28, 1995
  • HELP-PROMPT:  Dollar value. With 2 decimal places and without the $ sign.
  • DESCRIPTION:  
    Identically equal to SUMMARY ASSET VALUE. Should be entered only for changes to an FA (BETTERMENT NUMBER=00).
100 CATEGORY STOCK NUMBER 100;1 POINTER TO CATEGORY STOCK NUMBER FILE (#6917) CATEGORY STOCK NUMBER(#6917)

  • LAST EDITED:  SEP 19, 1995
  • DESCRIPTION:  
    Basis for FA GROUP and DESCRIPTION.
101 CMR 100;2 POINTER TO CMR FILE (#6914.1) CMR(#6914.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,7)=""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""DA""),9)),U,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 06, 1995
  • DESCRIPTION:  This field can no longer be changed by an FC Document because the CMR now determines the cost center and only FR Documents can change a cost center.
    Basis for LOCATION (as in department locator).
    CMRs that are assigned to a station other than the owning station for this asset are unacceptable. A change of this kind will require you to enter an FD document, then edit the CMR, and then enter an FA document.
  • SCREEN:  S DIC("S")="I $P(^(0),U,7)=""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""DA""),9)),U,5))"
  • EXPLANATION:  Must select CMR valid for equipment's station #. Enter '?' for list.
102 DISPOSITION METHOD 100;3 POINTER TO NX DISPOSITION METHOD FILE (#6914.8) NX DISPOSITION METHOD(#6914.8)

  • LAST EDITED:  SEP 28, 1995
  • DESCRIPTION:  
    Basis for stuffing the DISPOSITION METHOD CODE field that goes to FAP.
103 PREVIOUS VALUE 100;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999999)!(X<0) X
  • LAST EDITED:  NOV 09, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits
  • DESCRIPTION:  
    The previous value of the asset if FC is processed against the asset itself (BETTERMENT NUMBER = 00). Previous value of betterment if FC is processed against that (BETTERMENT NUMBER '= 00).
104 BETTERMENT POINTER 100;5 POINTER TO FB DOCUMENT LOG FILE (#6915.3) FB DOCUMENT LOG(#6915.3)

  • LAST EDITED:  NOV 09, 1995
  • DESCRIPTION:  
    Populated for FCs that are applied to betterments.
105 ACQUISITION DATE 100;6 DATE

  • 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:  NOV 21, 1995
  • HELP-PROMPT:  ACQUISITION DATE MUST CONTAIN A MONTH!
  • DESCRIPTION:  
    Used to extract date in FAP format.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
106 REPLACEMENT DATE 100;7 DATE

  • 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:  NOV 21, 1995
  • HELP-PROMPT:  REPLACEMENT DATE MUST CONTAIN A MONTH!
  • DESCRIPTION:  
    Used to extract date in FAP format.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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 FC Document. An Adjustment Voucher is used to notify Fiscal about a selected
    FAP Document.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^6915.4^302
    1)= X ^DD(6915.4,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.4,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.4,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.4,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.4,DIV(0),300)):^(300),1:""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.4,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.4^AV
    1)= S ^ENG(6915.4,"AV",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.4,"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 FC 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)[""FC""" 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)[""FC"""
  • EXPLANATION:  Applicable reasons for FC Document
310 A.V. COMMENTS 301;0 WORD-PROCESSING #6915.41

  • LAST EDITED:  DEC 17, 1996
  • HELP-PROMPT:  Enter adjustment voucher comments (if any).

External References

Name Field # of Occurrence
^%DT 1+1, 105+1, 106+1, 301+1
^DIC 101+1, 303+1
^DICR 301(XREF 1n1.4)
SHOW^ENFACHG1 27(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 301(XREF 1n1.4)
^DD(6915.4 301(XREF 1S)
^ENG(6915.4 - [#6915.4] .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)
^(3 ID23+1, ID27+1
^(300 301(XREF 1S), 301(XREF 1n1.3), 301(XREF 1n1.4)
^(4 ID40+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 105+1*, 106+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 101+1!*, 303+1!*
DIC("S" 101+1*, 101SCR+1*, 303+1*, 303SCR+1*
>> DIE 101+1, 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)
>> ENEQ("DA" 27(HELP )
U ID1+1, ID23+1, ID27+1, ID40+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!
27(HELP ), 28+1!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1!, 35+1!, 36+1!, 37+1!
, 38+1!, 39+1!, 40+1!, 41+1!, 43+1!, 44+1!, 45+1!, 46+1!, 47+1!, 48+1!
, 49+1!, 50+1!, 51+1!, 52+1!, 53+1!, 54+1!, 101+1*!, 103+1*!, 105+1*!, 106+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, 101+1, 105+1, 106+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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All