Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^IBA(355.92

Package: Integrated Billing

Global: ^IBA(355.92

Information

FileMan FileNo	FileMan Filename	Package
355.92	FACILITY BILLING ID	Integrated Billing

Description

This file contains one record for each facility id that an insurance company assigns to a facility. Each record can be for an insurance company and any combination of the patient status and form type. There must be only one record for each combination.

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
Integrated Billing	7	IBCEP7 IBCEP7A IBCEP7C IBCEPA IBY232PO IBY288PO IBY320PO

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Integrated Billing	3	INSURANCE COMPANY(#36)[.01] IB PROVIDER ID CARE UNIT(#355.95)[.03] IB PROVIDER ID # TYPE(#355.97)[.06]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[.05]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	INSURANCE COMPANY	0;1	POINTER TO INSURANCE COMPANY FILE (#36)	**********************REQUIRED FIELD********************** INSURANCE COMPANY(#36) LAST EDITED: `MAR 07, 2006` HELP-PROMPT: `Enter the name of the insurance company that is providing the id.` DESCRIPTION: `This is the insurance company that is providing the facility id.` CROSS-REFERENCE: `355.92^B` `1)= S ^IBA(355.92,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(355.92,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^355.92^.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,10)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="N/A" X ^DD(` `355.92,.01,1,2,1.4)` `1.4)= S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR` `2)= Q` `3)= This field is trigger on a new entry to the file and can not be edited.` `CREATE CONDITION)= INDEX VALUE CARE UNIT=""` `CREATE VALUE)= "N/A"` `DELETE VALUE)= NO EFFECT` `FIELD)= INDE` CROSS-REFERENCE: `^^TRIGGER^355.92^.11` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,11)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="N/A" X ^DD(` `355.92,.01,1,3,1.4)` `1.4)= S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR` `2)= Q` `3)= This field is trigger on a new entry to the file and can not be edited.` `CREATE CONDITION)= INDEX VALUE DIVISION=""` `CREATE VALUE)= "N/A"` `DELETE VALUE)= NO EFFECT` `FIELD)= INDEX VALUE DIVISION` RECORD INDEXES: `AID (#413), AUNIQ (#674)`
.03	CARE UNITS	0;3	POINTER TO IB PROVIDER ID CARE UNIT FILE (#355.95)	IB PROVIDER ID CARE UNIT(#355.95) LAST EDITED: `MAR 21, 2006` DESCRIPTION: `This is the care unit for which this ID is being defined. Care Units are only used for Billing Provider Secondary ID #2 .` CROSS-REFERENCE: `^^TRIGGER^355.92^.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.03,1,1,1.4)` `1.4)= S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="N/A" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR` `CREATE CONDITION)= INTERNAL(CARE UNITS)` `CREATE VALUE)= INTERNAL(CARE UNITS)` `DELETE VALUE)= "N/A"` `FIELD)= IND` CROSS-REFERENCE: `355.92^AC` `1)= S ^IBA(355.92,"AC",$E(X,1,30),DA)=""` `2)= K ^IBA(355.92,"AC",$E(X,1,30),DA)` `This cross reference will determine whether a care unit is in use before it can be deleted`
.04	FORM TYPE APPLIED TO	0;4	SET	**********************REQUIRED FIELD********************** '0' FOR BOTH UB-04 AND CMS-1500 FORMS; '1' FOR UB-04 FORMS ONLY; '2' FOR CMS-1500 ONLY; '3' FOR PRESCRIPTION ONLY; LAST EDITED: `JAN 16, 2007` HELP-PROMPT: `Select one or both forms that the facility id will apply to.` DESCRIPTION: `This designates whether the id number is to be used for just UB-04 form types, just CMS-1500 form types or both form types.` RECORD INDEXES: `AUNIQ (#674)`
.05	DIVISION	0;5	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `DEC 27, 2005` HELP-PROMPT: `Enter the specific division this id will be used for.` DESCRIPTION: `This designates which division this id number should be used for.` CROSS-REFERENCE: `^^TRIGGER^355.92^.11` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.05,1,1,1.4)` `1.4)= S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="N/A" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR` `CREATE CONDITION)= INTERNAL(DIVISION)` `CREATE VALUE)= INTERNAL(DIVISION)` `DELETE VALUE)= "N/A"` `FIELD)= INDEX VALUE DIVISION` RECORD INDEXES: `AID (#413)`
.06	PROVIDER ID TYPE	0;6	POINTER TO IB PROVIDER ID # TYPE FILE (#355.97)	**********************REQUIRED FIELD********************** IB PROVIDER ID # TYPE(#355.97) INPUT TRANSFORM: `S DIC("S")="I $$FACID^IBCEP7(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 12, 2004` HELP-PROMPT: `Enter the type of id # being recorded.` DESCRIPTION: `This is the indicator of what type of id is being recorded.` SCREEN: `S DIC("S")="I $$FACID^IBCEP7(Y)"` EXPLANATION: `Must be a valid type for SUB2 record in EDI claim flat file` RECORD INDEXES: `AUNIQ (#674)`
.07	PROVIDER ID	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 11, 2004` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the facility ID that will be reported for the provider id type for the insurance co.`
.08	ID TYPE FLAG	0;8	SET	'E' FOR ELECTRONIC PLAN TYPE; 'A' FOR ADDITIONAL IDS; 'LF' FOR VA LAB/FACILITY ID; LAST EDITED: `MAR 09, 2006` DESCRIPTION: `This is the flag that enables the code to tell the 3 types of IDs in this file apart.`
.1	INDEX VALUE CARE UNIT	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 2005` HELP-PROMPT: `Answer must be 1-30 characters in length` DESCRIPTION: `This field contains the value for the care unit or 'N/A' if no care unit is selected. This is to assure uniqueness in the records in the file even if the care unit is blank.` TECHNICAL DESCR: `Triggered on entry of the record by the .01 field to N/A` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the INSURANCE COMPANY field of the FACILITY BILLING ID File` `TRIGGERED by the CARE UNITS field of the FACILITY BILLING ID File` RECORD INDEXES: `AUNIQ (#674)`
.11	INDEX VALUE DIVISION	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 2005` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the value for the division or 'N/A' if no division is selected. This is to assure uniqueness in the records in the file even if the division is blank.` TECHNICAL DESCR: `Triggered on entry of the record by the .01 field to N/A` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the INSURANCE COMPANY field of the FACILITY BILLING ID File` `TRIGGERED by the DIVISION field of the FACILITY BILLING ID File` RECORD INDEXES: `AUNIQ (#674)`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4962	Kernel	PROVIDER ID (.07). Access: Direct Global Read & w/Fileman	The IBA(355.92 global contains one record for eachfacility ID that an Insurance company assigns to a facility.Uses B x-ref to get IEN for given insurance company

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All