Global: ^IBQ(538

FileMan FileNo	FileMan Filename	Package
538	UTILIZATION MANAGEMENT ROLLUP	Utilization Management Rollup

Package	Total	Routines
Utilization Management Rollup	12	IBQL538 IBQLD1 IBQLD2 IBQLD3 IBQLD4 IBQLPRG IBQLR1 IBQLR2 IBQLR3 IBQLR4 IBQLSCR IBQLT

Package	Total	Routines
Utilization Management Rollup	2	IBQLLD1 IBQLPRG

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	ENTRY ID	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1001)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Type a Number between 1001 and 99999999999, 0 Decimal Digits` DESCRIPTION: `This is a unique number assigned by the Claims Tracking entry. The first 3 characters of the number are the stations site number.` CROSS-REFERENCE: `538^B` `1)= S ^IBQ(538,"B",$E(X,1,30),DA)=""` `2)= K ^IBQ(538,"B",$E(X,1,30),DA)`
.02	SITE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `SEP 28, 1995` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `This is a 3 digit station number plus any modifiers.` CROSS-REFERENCE: `538^ASITE^MUMPS` `1)= S IBQ=$P($G(^IBQ(538,DA,1)),"^",8) I IBQ]"" S ^IBQ(538,"ASITE",X,IBQ,DA)=""` `2)= S IBQ=$P($G(^IBQ(538,DA,1)),"^",8) I IBQ]"" K ^IBQ(538,"ASITE",X,IBQ,DA)` `This MUMPS cross-reference index 'ASITE' of the SITE field works with the MUMPS cross-reference index 'ASITE1' of the ROLLUP DATE in setting up the "ASITE" cross reference.`
.03	SSN	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` LAST EDITED: `AUG 09, 1995` HELP-PROMPT: `Answer must be 9 characters in length.` DESCRIPTION: `This is a nine digit Social Security Number field.` CROSS-REFERENCE: `538^C` `1)= S ^IBQ(538,"C",$E(X,1,30),DA)=""` `2)= K ^IBQ(538,"C",$E(X,1,30),DA)` `Cross reference used to lookup Entry ID by SSN.`
.04	ADMITTING DIAGNOSIS	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `ICD 9 Code Number`
.05	ENROLLEMENT CODE	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<3) X` LAST EDITED: `APR 18, 1995` HELP-PROMPT: `Answer must be 3-5 characters in length.` DESCRIPTION: `This field contains the three internal enrollement sample codes (Random, Disease specific, or Local) from the Claims Tracking entry seperated by hyphens. Example: 1--, 0-3-0, 0-0-1.`
.06	ADMITTING PHYSICIAN CODE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1995` HELP-PROMPT: `Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `Contains the Physician's IEN number from the NEW PERSON File (#200)`
.07	ATTENDING PHYSICIAN CODE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1995` HELP-PROMPT: `Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `Contains the Physician's IEN number from the NEW PERSON File (#200).`
.08	RESIDENT PHYSICIAN CODE	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1995` HELP-PROMPT: `Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `Contains the Physician's IEN number from the NEW PERSON File (#200).`
.09	ACUTE CARE ADMISSION DATE	0;9	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1995`
.1	ACUTE CARE DISCHARGE DATE	0;10	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1995` CROSS-REFERENCE: `538^ADIS` `1)= S ^IBQ(538,"ADIS",$E(X,1,30),DA)=""` `2)= K ^IBQ(538,"ADIS",$E(X,1,30),DA)` `This is a regular cross-reference indexing ACUTE CARE DISCHARGE DATE for quicker date range reporting.`
.11	WARD	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Enter the ward on which the patient was placed.` DESCRIPTION: `Enter in this field the name of the ward location as selectable using bed control options in MAS.`
.12	TREATING SPECIALTY	0;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Enter the Treating Specialty assigned to this patient with this movement.` DESCRIPTION: `Contains the name of the facility treating specialty. Types of treating specialties may vary between Facilities.`
.13	ACUTE ADMISSION (Y/N)?	0;13	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `APR 18, 1995`
1.01	SEVERITY OF ILLNESS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Answer with SI/IS CATEGORIES CODE, 2 characters in length.` DESCRIPTION: `Enter the Severity of Illness (SI) category code that best describes the criteria met for continued stay days of care. Select the PRIMARY category for the reason.`
1.02	INTENSITY OF SERVICE	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Answer with SI/IS CATEGORIES CODE, 2 characters in length.` DESCRIPTION: `Enter the Intensity of Service (IS) category code that best describes the criteria met for continued stay days of care. Select the PRIMARY category for this reason.`
1.03	REASON FOR NON-ACUTE ADMISSION	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<4) X` LAST EDITED: `JUN 29, 1995` HELP-PROMPT: `Answer with NON-ACUTE CLASSIFICATIONS CODE seperated by space if more than one, 4-18 characters in length.` DESCRIPTION: `This is the external reference which is uniquely known.`
1.04	PROVIDER INTERVIEWED (Y/N)?	1;4	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `APR 18, 1995`
1.05	ADMISSION INFLUENCED (Y/N)?	1;5	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `APR 18, 1995`
1.06	LOCAL, NATIONAL, OR BOTH	1;6	SET	**********************REQUIRED FIELD********************** 'L' FOR LOCAL; 'N' FOR NATIONAL; 'B' FOR BOTH; LAST EDITED: `MAY 12, 1995`
1.07	SERVICE	1;7	SET	**********************REQUIRED FIELD********************** 'M' FOR MEDICINE; 'S' FOR SURGERY; 'P' FOR PSYCHIATRY; 'NH' FOR NHCU; 'NE' FOR NEUROLOGY; 'I' FOR INTERMEDIATE MED; 'R' FOR REHAB MEDICINE; 'SCI' FOR SPINAL CORD INJURY; 'D' FOR DOMICILIARY; 'B' FOR BLIND REHAB; 'RE' FOR RESPITE CARE; LAST EDITED: `JUL 06, 1995` HELP-PROMPT: `Enter the SERVICE Code describing this admission review.` DESCRIPTION: `This field contains the Service code for the entries Admission review.`
1.08	ROLLUP DATE	1;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 26, 1995` DESCRIPTION: `This field is for National Database use. It will hold the date of transmission to the National Database.` CROSS-REFERENCE: `538^ASITE1^MUMPS` `1)= S IBQ=$P(^IBQ(538,DA,0),"^",2) I IBQ]"" S ^IBQ(538,"ASITE",IBQ,X,DA)=""` `2)= S IBQ=$P(^IBQ(538,DA,0),"^",2) I IBQ]"" K ^IBQ(538,"ASITE",IBQ,X,DA)` `This cross reference index 'ASITE1' of the ROLLUP DATE field works with the MUMPS cross reference index 'ASITE' of the SITE field in setting up the "ASITE" cross reference.`
1.09	ARCHIVED?	1;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 26, 1995` DESCRIPTION: `This field is for National Database use. This field will be true on the National Database if the entry has been archived to tape.`
13	DAY	13;0	Multiple #538.113	538.113 DESCRIPTION: `Contains Continued Stay Reviews.`

Customize PDF page

Package: Utilization Management Rollup

Global: ^IBQ(538

Information

Description

Directly Accessed By Routines, Total: 12

Accessed By FileMan Db Calls, Total: 2

Fields, Total: 23