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 |  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

Directly Accessed By Routines, Total: 14

Package Total Routines
Integrated Billing 13 IBCEF75    IBCEF76    IBCEP2B    IBCEP7    IBCEP7A    IBCEP7B    IBCEP7C    IBCEPA
IBCNSC1    IBCNSCD    IBY232PO    IBY288PO    IBY320PO    
Kernel 1 XUSNPIXU    

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 |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All