Global: ^ENG(6915.3

FileMan FileNo	FileMan Filename	Package
6915.3	FB DOCUMENT LOG	Engineering

Package	Total	Routines
Engineering	13	ENFA CHANGE EN ENFA CHANGE FA ENFA CHANGE FB ENFABAL ENFABETR ^ENG(6915.3 ^OFM(7336.9 ENFACHG1 ENFARC2 ENFARC3 ENFAXMT ENFAXMT1 ENFAXMT2

Package	Total	Routines
Engineering	1	ENFABETR

Package	Total	FileMan Files
Engineering	1	FC DOCUMENT LOG(#6915.4)[104]

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

Fields, Total: 47

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 FB document was sent for.` CROSS-REFERENCE: `6915.3^B` `1)= S ^ENG(6915.3,"B",$E(X,1,30),DA)=""` `2)= K ^ENG(6915.3,"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 FB document was prepared.` CROSS-REFERENCE: `6915.3^D` `1)= S ^ENG(6915.3,"D",$E(X,1,30),DA)=""` `2)= K ^ENG(6915.3,"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 FB document using the Betterment 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 FB 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 FB document, ususally AMM.`
4	DESTINATION SYSTEM	1;3	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 system where the FB document is going, usually FMS.`
5	SUBMITTING STATION	1;4	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 station number of the site that is submitting this FB 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. FB for an FB 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 FB 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 FB 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 FB 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 FB 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	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.`
17	SEGMENT 3 ID	3;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 identifier for the the FB1 segment. Should always be FB1.`
18	TRANS CODE	3;2	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 Trans code for the FB1 segment. Should always be FB.`
19	TRANS DIVISION	3;3	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: `This is the Security 1 code. VHA=10, VBA=20, NCS=40.`
20	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 FB document. It consists of the station number_the last digit of the fiscal year_N_the 4 digit sequential number.` CROSS-REFERENCE: `6915.3^C` `1)= S ^ENG(6915.3,"C",$E(X,1,30),DA)=""` `2)= K ^ENG(6915.3,"C",$E(X,1,30),DA)`
21	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.`
22	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.`
23	BETTERMENT NUMBER	3;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `SEP 19, 1995` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: `This is the 2 digit sequential betterment number for this asset. The first betterment would have a number of 01, the second 02, etc.` CROSS-REFERENCE: `6915.3^ABTR^MUMPS` `1)= S ^ENG(6915.3,"ABTR",$P(^ENG(6915.3,DA,0),U),X,DA)=""` `2)= K ^ENG(6915.3,"ABTR",$P(^ENG(6915.3,DA,0),U),X,DA)` `Means of helping users choose from available betterments.`
24	DESCRIPTION	3;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 29, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the free text description of the betterment, for example, what the betterment does.`
25	ACQ YR - BETTERMENT (4 digit)	3;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` LAST EDITED: `SEP 13, 1995` HELP-PROMPT: `Answer must be 4 numerics in length.` DESCRIPTION: `This is the year in which the betterment was acquired.`
26	ACQUISITION MONTH (2 digit)	3;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `SEP 13, 1995` HELP-PROMPT: `Answer must be 2 numerics in length.` DESCRIPTION: `This is the month in which the betterment was acquired.`
27	ACQUISITION DAY (2 digit)	3;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `SEP 13, 1995` HELP-PROMPT: `Answer must be 2 numerics in length.` DESCRIPTION: `This is the day in which the betterment was acquired.`
28	ACQUISITION METHOD	3;12	SET	**********************REQUIRED FIELD********************** '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 the method by which the betterment was acquired; purchased, leased, etc.`
29	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 FB2 segment. Should always be FB2.`
30	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 betterment is measured by; each, gross, etc.`
31	SALVAGE VALUE	4;3	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: `Should be 0.00 for depreciable items, otherwise blank.`
32	SUMMARY ASSET VALUE	4;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<4)!'(X?1.12N1"."2N) X` LAST EDITED: `JUL 29, 1996` HELP-PROMPT: `Must be a dollar value, with 2 decimal places and without the $ sign.` DESCRIPTION: `This is the total value of the betterment.`
33	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 LIN section. Should always be LIN.`
34	SEGMENT 6 ID	6;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 FBA segment. Should always be FBA.`
35	EQUITY ACCOUNT 1	6;2	SET	'3299' FOR MEDICAL; '3210' FOR NON-MEDICAL; '3402' FOR DONATED; LAST EDITED: `SEP 20, 1995` DESCRIPTION: `This is the General Ledger account in which the asset resides.`
36	ASSET VALUE 1	6;3	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 value of the asset.`
100	ACQUISITION DATE	100;1	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: `JUL 29, 1996` HELP-PROMPT: `ACQUISITION DATE MUST CONTAIN MONTH!` DESCRIPTION: `Use VA FileMan to get date from which FAP format can be extracted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
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 FB Document. It is initially populated with the original SUMMARY ASSET VALUE of the FB Document and then automatically adjusted whenever FC Documents are processed against` `this FB Document.`
202	ADJUSTED DESCRIPTION	200;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 26, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the current description of the FB document. It is initially populated with the original DESCRIPTION of the FB Document and then automatically adjusted whenever the FB is changed by a FC Document.`
203	ADJUSTED ACQUISITION DATE	200;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 26, 1996` DESCRIPTION: `This is the current acquisition date of the FB DOcument. It is initially populated with the original ACQUISITION DATE of the FB Document and then automatically adjusted whenever the FB is changed by a FC Document.`
204	ADJUSTED ACQUISITION METHOD	200;4	SET	'C' FOR CONSTRUCTED; 'G' FOR GIFT/BEQUEST/DONATION; 'L' FOR LEASED; 'M' FOR LEASED/PURCHASED; 'O' FOR OTHER; 'P' FOR PURCHASED; 'R' FOR TRANSFERRED; 'T' FOR TRADED; 'X' FOR EXCESS; LAST EDITED: `MAR 26, 1996` DESCRIPTION: `This is the current acquisition method of the FB Document. It is initially populated with the original ACQUISITION METHOD if the Fb Document and then automatically adjusted whenever the FB is changed by a FC 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 FB Document. An Adjustment Voucher is used to notify Fiscal about a selected` `FAP Document.` `UNEDITABLE` CROSS-REFERENCE: `^^TRIGGER^6915.3^302` `1)= X ^DD(6915.3,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.3,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.3,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.3,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.3,DIV(0),300)):^(300),1:""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.3,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.3^AV` `1)= S ^ENG(6915.3,"AV",$E(X,1,30),DA)=""` `2)= K ^ENG(6915.3,"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 FB 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)[""FB""" 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)[""FB"""` EXPLANATION: `Applicable reasons for FB Document`
310	A.V. COMMENTS	301;0	WORD-PROCESSING #6915.31	LAST EDITED: `DEC 17, 1996` HELP-PROMPT: `Enter adjustment voucher comments (if any).`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	301(XREF 1n1.4)
^DD(6915.3	301(XREF 1S)
^ENG(6915.3 - [#6915.3]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 20(XREF 1S), 20(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)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 100+1, 203+1, 301+1
>> D0	301(XREF 1S), 301(XREF 1n1.3)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 20(XREF 1S), 20(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, ID20+1, ID23+1, 23(XREF 1S), 23(XREF 1K), 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! , 17+1!, 18+1!, 19+1!, 20+1!, 20(XREF 1S), 20(XREF 1K), 21+1!, 22+1!, 23+1!, 23(XREF 1S) , 23(XREF 1K), 24+1!, 25+1!, 26+1!, 27+1!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1! , 34+1!, 36+1!, 100+1!, 201+1!, 202+1!, 203+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, 100+1, 203+1, 301+1, 301(XREF 1S), 303+1
Y(0	301(XREF 1n1.3)
Y(1	301(XREF 1S), 301(XREF 1n1.3)

Customize PDF page

Package: Engineering

Global: ^ENG(6915.3

Information

Description

Directly Accessed By Routines, Total: 17

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 47

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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