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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AUTTOBJC

Package: Utility Tables

Global: ^AUTTOBJC

Information

FileMan FileNo	FileMan Filename	Package
9999999.59	OBJECT/SUB-OBJECT	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA.

Directly Accessed By Routines, Total: 44

Package	Total	Routines
Commitment Register	39	ACRCSS5 ACRFAPVS ACRFCCP1 ACRFCDIS ACRFDFL1 ACRFDHR ACRFDIC ACRFDIS ACRFESS ACRFEXP2 ACRFEXP3 ACRFFF2 ACRFIV13 ACRFNEWD ACRFPAY1 ACRFPAY2 ACRFPAY7 ACRFPAYE ACRFPAYR ACRFPO2 ACRFPRNT ACRFPSS ACRFRR12 ACRFRR31 ACRFRR32 ACRFRRPT ACRFSOF ACRFSS3 ACRFSSD ACRFTV3 ACRFTXTP ACRFUFMI ACRFUFMU ACRPCCS ACRPII ACRPITM ACRPOCC ACRPREQ ACRPSTM
Contracts and Grants	2	ACGPSP ACGSSPFD
Local Area Programs	1	AZHQPRNT
NCR Financial System	1	AFSLCKSQ
Nursing Acuity	1	ANSDIC

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Commitment Register	3	ACRFDIS ACRFPAY1 ACRFSOF
NCR Financial System	1	AFSHTBUP

Pointed To By FileMan Files, Total: 15

Package	Total	FileMan Files
Commitment Register	10	FMS DOCUMENT(#9002196)[113060] FMS DISTRIBUTION(#9002191)[.03] ARMS STANDARD ITEM(#9002195)[6] FMS REQUEST(#9002189)[10] FMS APPROVALS FOR PAYMENT(#9002194.2)[14] FMS EXPORT CONTROL(#9002196.1)[.06] FMS STOCK CATEGORY CODE(#9002195.1)[.03] FMS SUPPLIES AND SERVICES(#9002193)[.04] FMS SYSTEM DEFAULTS(#9002199.2)[400.2] FMS TRANSACTION TYPE(#9002194)[.03, #9002194.1001(.01)]
Supply	2	ASUTBL STOCK SUB OBJECT(#9002039.03)[.03] ASUTBL DIRECT ISSUE SUB OBJECT(#9002039.04)[.03]
3780 Telecommunications	1	1166 APPROVALS FOR PAYMENT(#9002325)[#9002325.02(14)]
Contracts and Grants	1	CIS CONTRACTS AND GRANTS(#9002330)[302]
Utility Tables	1	COST CENTER(#9999999.58)[#9999999.581(.01)]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Utility Tables	3	OBJECT CLASS CATEGORY(#9999999.61)[.03] OBJECT CLASS GROUP(#9999999.591)[.02] OBJECT CLASS REPORT GRP(#9999999.67)[.04]
Commitment Register	1	FMS TRANSACTION TYPE(#9002194)[5]

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	OBJECT CLASS	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X'?1P.E) X` LAST EDITED: `AUG 20, 1992` HELP-PROMPT: `Answer must be 4 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.59^C` 1)= S ^AUTTOBJC("C",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("C",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9999999.59^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTOBJC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV_" " X ^DD(9999999.59,.01,1,2,1.4) 1.4)= S DIH=$S($D(^AUTTOBJC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9999999.59,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTOBJC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9999999.59,.01,1,2,2.4) 2.4)= S DIH=$S($D(^AUTTOBJC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9999999.59,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= OBJECT CLASS_" " DELETE VALUE)= @ FIELD)= NUMERIC COLLATING
.02	GROUP	0;2	POINTER TO OBJECT CLASS GROUP FILE (#9999999.591)	**********************REQUIRED FIELD********************** OBJECT CLASS GROUP(#9999999.591) LAST EDITED: `NOV 10, 1989` CROSS-REFERENCE: `9999999.59^GP` 1)= S ^AUTTOBJC("GP",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("GP",$E(X,1,30),DA)
.03	CATEGORY	0;4	POINTER TO OBJECT CLASS CATEGORY FILE (#9999999.61)	OBJECT CLASS CATEGORY(#9999999.61) LAST EDITED: `AUG 19, 1992` CROSS-REFERENCE: `9999999.59^E` 1)= S ^AUTTOBJC("E",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("E",$E(X,1,30),DA)
.04	REPORT GROUP	0;6	POINTER TO OBJECT CLASS REPORT GRP FILE (#9999999.67)	OBJECT CLASS REPORT GRP(#9999999.67) LAST EDITED: `NOV 07, 1989` CROSS-REFERENCE: `9999999.59^RG` 1)= S ^AUTTOBJC("RG",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("RG",$E(X,1,30),DA)
1	GENERAL LEDGER ACCOUNT	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `SEP 06, 1991` HELP-PROMPT: `Answer must be 5 characters in length.`
2	ADP CODE	0;10	SET	'1' FOR 1; '2' FOR 2; '3' FOR 3; '4' FOR 4; '5' FOR 5; '9' FOR 9; LAST EDITED: `SEP 06, 1991`
3	SHORT NAME	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X` LAST EDITED: `AUG 19, 1992` HELP-PROMPT: `ANSWER MUST BE 3-40 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9999999.59^D` 1)= S ^AUTTOBJC("D",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("D",$E(X,1,30),DA)
4	NUMERIC COLLATING	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X` LAST EDITED: `AUG 31, 1992` HELP-PROMPT: `Answer must be 5 characters in length.` UNEDITABLE NOTES: `TRIGGERED by the OBJECT CLASS field of the OBJECT/SUB-OBJECT File` CROSS-REFERENCE: `9999999.59^B` 1)= S ^AUTTOBJC("B",$E(X,1,30),DA)="" 2)= K ^AUTTOBJC("B",$E(X,1,30),DA)
5	TRANSACTION TYPE	0;7	POINTER TO FMS TRANSACTION TYPE FILE (#9002194)	FMS TRANSACTION TYPE(#9002194) LAST EDITED: `SEP 14, 1990`
6	STOCK/DIRECT ISSUE	0;8	SET	'S' FOR STOCK; 'D' FOR DIRECT ISSUE; LAST EDITED: `SEP 01, 1992`
11	FUND PROJECTION CODE	0;11	SET	'1' FOR 1; '2' FOR 2; '3' FOR 3; '4' FOR 4; '5' FOR 5; '6' FOR 6; '7' FOR 7; '8' FOR 8; LAST EDITED: `OCT 15, 1992`
12	ACTIVE	0;12	SET	'1' FOR ACTIVE; '0' FOR INACTIVE; LAST EDITED: `OCT 15, 1992`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All