Global: ^AUTTREVN

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

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

FileMan FileNo	FileMan Filename	Package
9999999.72	REVENUE CODES	Utility Tables

FileMan FileNo

FileMan Filename

Package

9999999.72

REVENUE CODES

Utility Tables

Description

DATA DICTIONARY...: This is a standard RPMS data dictionary, maintained in the AUT package. Changes to this data dictionary must be submitted to the RPMS/DBA Team. RPMS/DBA Team June 30, 2000 ENTRIES IN THIS FILE...: Both the data dictionary and the data contained in this file is coordinated by the RPMS/DBA Team. Please contact the DBA for changes to either the data dictionary or the data contained in the file. This file contains revenue codes used in the Billing process, the codes are HCFA codes from "FORM LOCATOR 51, REVENUE CODE". The IHS Business Office can provide further information and interpretation of revenue codes. HISTORY...:

Package	Total	Routines
Third Party Billing	23	ABMAPAS1 ABMAPASS ABMDE8B1 ABMDE8C ABMDEI ABMDEI2 ABMDES1 ABMDESMB ABMDESMU ABMDF11Y ABMDF1D ABMDF28Q ABMDF28Y ABMDF51Y ABMDRPX ABMDTFED ABMDTMS ABMDUTL ABME5SV2 ABME8SV2 ABMFEAPI ABMFECNV ABMPTSMT
Contract Health Management Information System	3	ACHSCPTC ACHSREV ACHSTX7A
Table Maintenance	1	AUMSCBU

Package	Total	Routines
Third Party Billing	4	ABMDE8C ABMDEOK1 ABMDIPS ABMDTREV
Utility Tables	1	AUT98P14

Package	Total	FileMan Files
Third Party Billing	5	3P CHARGE MASTER(#9002274.75)[.02] 3P BILL(#9002274.4)[.97, #9002274.4021(.03), #9002274.4023(.02), #9002274.4025(.01), #9002274.4027(.02), #9002274.4033(.02), #9002274.4035(.02), #9002274.4037(.02), #9002274.4039(.02), #9002274.4043(.02), #9002274.4045(.05), #9002274.4047(.02)] 3P CLAIM DATA(#9002274.3)[.97, #9002274.3021(.03), #9002274.3023(.02), #9002274.3025(.01), #9002274.3027(.02), #9002274.3033(.02), #9002274.3035(.02), #9002274.3037(.02), #9002274.3039(.02), #9002274.3043(.02), #9002274.3045(.05), #9002274.3047(.02)] 3P FEE TABLE(#9002274.01)[#9002274.0131(.01)] 3P INSURER(#9002274.09)[#9002274.091(.03)]
IHS Patient	3	IHS HL7 SUPPLY INTERFACE(#9000021)[2.06] V LINE ITEM (GOODS&SERVICES)(#9000010.99)[.07] V TRANSACTION CODES(#9000010.33)[.09]
CPT Files	2	CPT CATEGORY(#81.1)[9999999.01] CPT(#81)[9999999.02]
Contract Health Management Information System	1	CHS FACILITY(#9002080)[#9002080.197(.01)]
Utility Tables	1	INSURER(#9999999.18)[#9999999.183901(.03)]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	REVENUE CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) S:$L(X)<3 X=$E("000",1,3-$L(X))_X K:X="000" X K:$L(X)>4!($L(X)<3)!'(X?3.4N) X I $D(X) S DINUM=+X` LAST EDITED: `DEC 03, 1999` HELP-PROMPT: `Enter the 4-digit numeric code associated with this entry.` DESCRIPTION: This is the 3 to 4-digit numeric code associated with this entry. DELETE TEST: `.01,0)= I 1` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.72^B` 1)= S ^AUTTREVN("B",$E(X,1,30),DA)="" 2)= K ^AUTTREVN("B",$E(X,1,30),DA) CROSS-REFERENCE: `9999999.72^F^MUMPS` 1)= I +X,+X<100 S ^AUTTREVN("F",+X,DA)="" 2)= K ^AUTTREVN("F",+X,DA)
1	STANDARD ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X?1"".A!(X?1A.E)) X I $D(X),$E(X)="" S X=X_"RESERVED"` LAST EDITED: `MAY 12, 1993` HELP-PROMPT: `Enter the 1-60 character abbreviation of the description field of this entry.` DESCRIPTION: This is the abbreviation of the description field of this entry. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.72^C` 1)= S ^AUTTREVN("C",$E(X,1,30),DA)="" 2)= K ^AUTTREVN("C",$E(X,1,30),DA)
2	INACTIVATE	0;3	SET	'1' FOR INACTIVATE CODE; '0' FOR ACTIVATE CODE; LAST EDITED: `JUL 21, 1990` HELP-PROMPT: `Enter '1' if you wish to inactivate this code, or '0' if this code is to be active for usage.` DESCRIPTION: This indicates whether or not this revenue code has been activated for use. CROSS-REFERENCE: `9999999.72^AC^MUMPS` 1)= I $P(^AUTTREVN(DA,0),"^",3)=1 S ^AUTTREVN("AC",DA)="" 2)= K ^AUTTREVN("AC",DA) CROSS-REFERENCE: `9999999.72^D1^MUMPS` 1)= S Z1=+X,Z=$P(^AUTTREVN(DA,0),"^",1) X ^DD(9999999.72,2,9.3) 2)= S Z1=+X,Z=$P(^AUTTREVN(DA,0),"^",1) X ^DD(9999999.72,2,9.4)
3	DESCRIPTION	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X` LAST EDITED: `MAY 12, 1993` HELP-PROMPT: `Enter the 2-60 character description of this revenue code.` DESCRIPTION: This is the full length description of this entry. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.72^E^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?!'-/&:;)\\|#+`="[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTREVN("E",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?!'-/&:;)\\|#+`="[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTREVN("E",I,DA)
4	ALL INCLUSIVE	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 23, 1990` HELP-PROMPT: `Enter the code which indicates if this revenue code is an all inclusive rate.` DESCRIPTION: This indicates whether or not this revenue code is an all inclusive rate. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Customize PDF page

Package: Utility Tables

Global: ^AUTTREVN

Information

Description

Directly Accessed By Routines, Total: 27

Accessed By FileMan Db Calls, Total: 5

Pointed To By FileMan Files, Total: 12

Fields, Total: 5