Global: ^IBA(355.91

Customize PDF page

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

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

Information

FileMan FileNo	FileMan Filename	Package
355.91	IB INSURANCE CO LEVEL BILLING PROV ID	Integrated Billing

Description

This file contains one record for each provider id that an insurance company assigns to a facility for ALL billing providers at the facility. Each record can be for an insurance company and any combination of the patient status, form type and care unit. There must be only one record for each combination. This file contains the id numbers for the following levels: o Assigned by insurance company to all providers o Assigned by insurance company, to all providers, one id for each care unit

Package	Total	Routines
Integrated Billing	5	IB20P239 IB20P279 IBCEMU3 IBCEP0 IBCEP0A

Package	Total	FileMan Files
Integrated Billing	3	INSURANCE COMPANY(#36)[.01] IB INS CO PROVIDER ID CARE UNIT(#355.96)[.03] IB PROVIDER ID # TYPE(#355.97)[.06]

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	INSURANCE CO	0;1	POINTER TO INSURANCE COMPANY FILE (#36)	**********************REQUIRED FIELD********************** INSURANCE COMPANY(#36) INPUT TRANSFORM: `I $G(DA),$$DUP1^IBCEP1(.01,DA) K X` LAST EDITED: `OCT 18, 2000` HELP-PROMPT: `Enter an insurance company name.` DESCRIPTION: `This is the name of the insurance company that the id is being defined for.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `355.91^B` `1)= S ^IBA(355.91,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(355.91,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^355.91^.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.91,D0,0)):^(0),1:"") S X=$P(Y(1),U,10)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.91,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.91,.01,1,2,1.4)` `1.4)= S DIH=$G(^IBA(355.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR` `2)= Q` `3)= Do not delete` `CREATE CONDITION)= INDEX VALUE CARE UNIT=""` `CREATE VALUE)= "N/A"` `DELETE VALUE)= NO EFFECT` `FIELD)= INDEX VALUE CARE UNIT` `This trigger 'seeds' a value into the key field for care unit so the value is never null, even if the care unit is not entered.` RECORD INDEXES: `AC (#121), AUNIQ (#122)`
.03	PROVIDER ID CARE UNIT	0;3	POINTER TO IB INS CO PROVIDER ID CARE UNIT FILE (#355.96)	IB INS CO PROVIDER ID CARE UNIT(#355.96) INPUT TRANSFORM: `S DIC("S")="I +$G(^IBA(355.96,+Y,0))=+$G(^IBA(355.91,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$$DUP1^IBCEP1(.03,DA) K X` LAST EDITED: `JUN 07, 2004` HELP-PROMPT: `Enter the specific care unit needed to get the provider id.` DESCRIPTION: `This is the generic, lowest breakdown provided for identification of the provider id. This can be virtually any piece of data the insurance co chooses to use. The unit must be entered manually on each bill.` `* NOT CURRENTLY USED ` SCREEN: `S DIC("S")="I +$G(^IBA(355.96,+Y,0))=+$G(^IBA(355.91,DA,0))"` EXPLANATION: `Must be a valid care unit as defined for the insurance company` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^355.91^.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.91,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.91,.03,1,1,1.4)` `1.4)= S DIH=$G(^IBA(355.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.91,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.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR` `CREATE CONDITION)= INTERNAL(PROVIDER ID CARE UNIT)` `CREATE VALUE)= INTERNAL(PROVIDER ID CARE UNIT)` `DELETE VALUE)= "N/A*"` `FIELD)= INDEX VALUE CARE UNIT` CROSS-REFERENCE: `355.91^ACARE` `1)= S ^IBA(355.91,"ACARE",$E(X,1,30),DA)=""` `2)= K ^IBA(355.91,"ACARE",$E(X,1,30),DA)` `3)= Do not delete` `This xref allows quick access to the file by care unit.`
.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 FORMS ONLY; LAST EDITED: `JAN 16, 2007` HELP-PROMPT: `Select one or both forms that the provider 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 (#122)`
.05	BILL CARE TYPE	0;5	SET	**********************REQUIRED FIELD********************** '0' FOR BOTH INPATIENT AND OUTPATIENT; '1' FOR INPATIENT ONLY; '2' FOR OUTPATIENT ONLY; '3' FOR PRESCRIPTION ONLY; INPUT TRANSFORM: `I $G(DA),$$DUP1^IBCEP1(.05,DA) K X` LAST EDITED: `SEP 07, 2000` HELP-PROMPT: `Enter the type of care (inpatient/outpatient/Rx) that this id # will apply to.` DESCRIPTION: `This designates whether the id number is to be used for just inpatient bills, just outpatient bills, both inpatient and outpatient bills or just prescriptions.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AUNIQ (#122)`
.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 $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$$DUP1^IBCEP1(.06,DA) K X` LAST EDITED: `OCT 18, 2000` 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 $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)"` EXPLANATION: `If limited, provider id type must be assigned by insurance co for all providers` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AC (#121), AUNIQ (#122)`
.07	PROVIDER ID	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!'(X?1N.E!(X?1A.E)) X` LAST EDITED: `MAY 07, 2001` HELP-PROMPT: `Answer must be 1-15 characters in length and must begin with a number or letter.` DESCRIPTION: `This is the provider ID that will be reported for the provider id type for the insurance co` CROSS-REFERENCE: `355.91^C` `1)= S ^IBA(355.91,"C",$E(X,1,30),DA)=""` `2)= K ^IBA(355.91,"C",$E(X,1,30),DA)` `3)= Do not delete` `Lookup by provider id #`
.1	INDEX VALUE CARE UNIT	0;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 18, 2000` 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 CO field of the IB INSURANCE CO LEVEL BILLING PROV ID File` `TRIGGERED by the PROVIDER ID CARE UNIT field of the IB INSURANCE CO LEVEL BILLING PROV ID File` RECORD INDEXES: `AC (#121), AUNIQ (#122)`

ICR, Total: 1

Customize PDF page

Package: Integrated Billing

Global: ^IBA(355.91

Information

Description

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 3

Fields, Total: 7

ICR, Total: 1