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.2

Package: Engineering

Global: ^ENG(6915.2


Information

FileMan FileNo FileMan Filename Package
6915.2 FA DOCUMENT LOG Engineering

Description

Directly Accessed By Routines, Total: 33

Package Total Routines
Engineering 33 ENFA CHANGE FA    ENFA CHANGE FB    ENFAACQ    ENFAAV    ENFABAL    ENFABAL1    ENFABETR    ENFACHG
ENFACHG1    ENFACTL    ENFACTR    ENFACTS    ENFACTT    ENFADEL    ENFAR5A    ENFAR7
ENFARA1    ENFARC1    ENFARC2    ENFARC3    ENFAUTL    ENFAXFR    ENFAXMT2    ENFAXMT3
ENLIB3    ENTIDD    ENXIP57    ENXIP60    ENXIP71    ENXOIPS    ENXSIPS    ^ENG(6914
^ENG(6915.2    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Engineering 3 ENFAACQ    ENXOIPS1    ENXSIPS    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Engineering 2 EQUIPMENT INV.(#6914)[.01]    AV REASON(#6915.11)[303]    
Kernel 1 NEW PERSON(#200)[1.5302]    

Fields, Total: 60

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 FA document was sent for.
  • CROSS-REFERENCE:  6915.2^B
    1)= S ^ENG(6915.2,"B",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.2,"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 FA document was prepared.
  • CROSS-REFERENCE:  6915.2^D
    1)= S ^ENG(6915.2,"D",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.2,"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 FA 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 FA 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 FA 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 FA 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 FA 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. FA for an FA 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 FA 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 FA 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 FA 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 05, 1995
  • HELP-PROMPT:  Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the time the FA 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 FA1 segmemnt. Should always be FA1.
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 FA1 segment. Should always be FA.
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 FA document. It consists of the station number_the last digit of the fiscal year_N_the 4 digit sequential number.
  • CROSS-REFERENCE:  6915.2^C
    1)= S ^ENG(6915.2,"C",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.2,"C",$E(X,1,30),DA)
24 FIXED ASSET NUMBER 3;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<15) X
  • LAST EDITED:  SEP 05, 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.
25 FIXED ASSET TYPE 3;6 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.
26 FA GROUP 3;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:  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.
27 LOCATION 3;8 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:  
    The location is derived from the first 2 digits of the CMR. All are valid except 67, 73, 74, 79-85, and 87-98.
28 BEG BUDGET FY 3;9 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 beginning budget fiscal year.
29 FUND 3;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<4) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 4-6 characters in length.
  • DESCRIPTION:  
    This is the fund code under which the asset was procured.
30 XDIVISION 3;11 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 Administrative/Office code for the asset. VAH=10, VBA=20, NCS=40.
31 XORGANIZATION 3;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    This is the accounting station for this asset.
32 XPROGRAM 3;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This the Fund Control Point Project Code.
33 BUDGET OBJECT CODE 3;14 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:  
    The Budget Object Code accounting classification.
34 DESCRIPTION 3;15 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.
35 ACQUISITION YEAR 3;16 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 year the item was acquired.
36 ACQUISITION MONTH 3;17 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 month the item was acquired.
37 ACQUISITION DAY 3;18 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 day the asset was acquired.
38 ACQUISITION METHOD 3;19 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 how the item was acquired; constructed, purchased, etc.
38.1 XAREA 3;31 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 15, 1998
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  Contains the equipment's CMR value (external) sent on the FA Document to populate the XAREA data element on the Fixed Assets/FMS system. Derived from the CMR (#19) field of the EQUIPMENT INV (#6914) file when the FA
    Document is created.
39 FUNDING SOURCE 3;20 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<8) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 8-12 characters in length.
  • DESCRIPTION:  
    This is the year_the fund which acquired the asset_the CFO code.
40 REPLACEMENT YEAR 3;21 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:  
    This is the year the item will be replaced.
41 REPLACEMENT MONTH 3;22 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 month the item will be replaced.
42 REPLACEMENT DAY 3;23 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 day the item will be replaced.
43 USEFUL LIFE 3;24 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
44 SALVAGE VALUE 3;25 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.
45 DEPRECIATION METHOD 3;26 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.
46 SUMMARY ASSET VALUE 3;27 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 total value of the asset.
47 COST ORGANIZATION 3;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  SEP 05, 1995
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    This is the cost center the item belongs to.
47.1 COST SUB ORG 3;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  DEC 07, 1995
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    For future use.
47.2 SUB ORG 3;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAR 20, 1996
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Satellite Station designator.
48 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 FA2 segment. Should always be FA2.
49 SEGMENT 5 ID 5;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 FA3 segment. Should always be FA3.
50 SEGMENT 6 ID 6;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 ID for the LIN section. Should always be LIN.
51 SEGMENT 7 ID 7;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 ID for the FAA segment. Should always be FAA.
52 EQUITY ACCOUNT 1 7;2 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 General Ledger account in which the asset resides.
53 ASSET VALUE 1 7;3 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 value of the asset.
201 ADJUSTED ASSET VALUE 200;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<4)!'(X?1.12N1"."2N) X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Must be a dollar value, with 2 decimal places and without the $ sign.
  • DESCRIPTION:  This is the current SUMMARY ASSET VALUE of the FA Document. It is initially populated with the original SUMMARY ASSET VALUE of the FA Document and then automatically adjusted whenever FC Documents are processed against
    this FA Document.
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 FA Document. An Adjustment Voucher is used to notify Fiscal about a selected
    FAP Document.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^6915.2^302
    1)= X ^DD(6915.2,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.2,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.2,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.2,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.2,DIV(0),300)):^(300),1:""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.2,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.2^AV
    1)= S ^ENG(6915.2,"AV",$E(X,1,30),DA)=""
    2)= K ^ENG(6915.2,"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 FA 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)[""FA""" 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)[""FA"""
  • EXPLANATION:  Applicable reasons for FA Dcouments
310 A.V. COMMENTS 301;0 WORD-PROCESSING #6915.21

External References

Name Field # of Occurrence
^%DT 1+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.2 301(XREF 1S)
^ENG(6915.2 - [#6915.2] .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
^(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*, 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 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!, 35+1!, 36+1!, 37+1!
, 38+1!, 38.1+1!, 39+1!, 40+1!, 41+1!, 42+1!, 43+1!, 44+1!, 45+1!, 46+1!
, 47+1!, 47.1+1!, 47.2+1!, 48+1!, 49+1!, 50+1!, 51+1!, 52+1!, 53+1!, 201+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, 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