Global: ^AUTTACPT

Information

FileMan FileNo	FileMan Filename	Package
9999999.69	ACCOUNTING POINT	Utility Tables

Changes to this data dictionary should be coordinated thru the IHS DBA. Any additions/modifications to ACCOUNTING POINT values should be verified with OAM/DRM. Information in this file is duplicated in the AREA file via the CAN NUMBER PREFIX field, whose value should be "J"_ACCOUNTING POINT.

Package	Total	Routines
Commitment Register	19	ACRALC ACRALT ACRFCAA ACRFDHR1 ACRFDHR5 ACRFEA1 ACRFEA4 ACRFIV12 ACRFPAYS ACRFRR12 ACRFSYS ACRFTA ACRFUFMR ACRFUTL ACRLOC ACRPALW ACRPAPT ACRPLCD ACRPPUR

Package	Total	Routines
Commitment Register	3	ACRFODD ACRFPAYS ACRFUTL

Package	Total	FileMan Files
Commitment Register	6	FMS SUB-ALLOWANCE(#9002187)[130] FMS ALLOWANCE(#9002186)[130] FMS DISTRIBUTION GROUP(#9002198)[#9002198.01(.02)] FMS DEPARTMENT ACCOUNT(#9002188)[130] FMS PURCHASING OFFICE(#9002199.4)[.04] FMS SYSTEM DEFAULTS(#9002199.2)[53, #9002199.2311(.01), #9002199.2511(.01)]
Utility Tables	2	ALLOWANCE NO.(#9999999.52)[.02] LOCATION CODE(#9999999.66)[.03]

Package	Total	FileMan Files
Utility Tables	1	AREA(#9999999.21)[1]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ACCOUNTING POINT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `APR 20, 1993` HELP-PROMPT: `Enter a 2-character code for this accounting point.` DESCRIPTION: You must enter exactly two characters to identify this accounting point. This is typically 2 digits, e.g., "02", "57", etc. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.69^B` 1)= S ^AUTTACPT("B",$E(X,1,30),DA)="" 2)= K ^AUTTACPT("B",$E(X,1,30),DA)
1	AREA	0;2	POINTER TO AREA FILE (#9999999.21)	**********************REQUIRED FIELD********************** AREA(#9999999.21) LAST EDITED: `NOV 22, 1988` HELP-PROMPT: `What AREA is this accounting point for?` DESCRIPTION: Enter the area that this accounting point is valid for. CROSS-REFERENCE: `9999999.69^C` 1)= S ^AUTTACPT("C",$E(X,1,30),DA)="" 2)= K ^AUTTACPT("C",$E(X,1,30),DA)

ACCOUNTING POINT

0;1

FREE TEXT

************************REQUIRED FIELD************************

DESCRIPTION:

You must enter exactly two characters to identify this accounting point.  This is typically 2 digits, e.g., "02", "57", etc.

CROSS-REFERENCE: 9999999.69^B

1)= S ^AUTTACPT("B",$E(X,1,30),DA)=""

2)= K ^AUTTACPT("B",$E(X,1,30),DA)

AREA

0;2

POINTER TO AREA FILE (#9999999.21)

************************REQUIRED FIELD************************

DESCRIPTION:

Enter the area that this accounting point is valid for.

CROSS-REFERENCE: 9999999.69^C

1)= S ^AUTTACPT("C",$E(X,1,30),DA)=""

2)= K ^AUTTACPT("C",$E(X,1,30),DA)