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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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: 18

Package Total Routines
Integrated Billing 15 IBY320PO    ^IBE(399.6    IBCEF75    IBCEF76    IBCEP2B    IBCEP7    IBCEP7A    IBCEP7B
IBCEP7C    IBCEPA    IBCNSC1    IBCNSCD    IBY232PO    IBY288PO    ^IBA(355.92    
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

    External References

    Name Field # of Occurrence
    ^DIC .06+1
    ^DICR .01(XREF 2n1.4), .01(XREF 3n1.4), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1n1.4), .05(XREF 1K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(355.92 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .05(XREF 1S)
    ^IBA(355.92 - [#355.92] IXAIDSL+1*, IXAIDKL+1!, IXAIDKEIC+1!, IXAUNIQSL+1*, IXAUNIQSCC+1, IXAUNIQKL+1!, IXAUNIQKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S)
    .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1n1.4)
    .05(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    >> DA IXAIDSL+1, IXAIDKL+1, IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .03(XREF 1S)
    .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)
    DIC .06+1!*
    DIC("S" .06+1*, .06SCR+1*
    >> DIE .06+1
    >> DIG .01(XREF 2n1.4), .01(XREF 3n1.4), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1n1.4), .05(XREF 1K)
    >> DIH .01(XREF 2n1.4), .01(XREF 3n1.4), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1n1.4), .05(XREF 1K)
    >> DIU .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K)
    U IXAUNIQSCC+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .05(XREF 1S), .05(XREF 1n1.4)
    .05(XREF 1K)
    X IXAUNIQSCC+1*, IXAUNIQKCC+1*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .03(XREF 1S), .03(XREF 1n1.4)
    .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K), .06+1*!, .07+1!, .1+1!, .11+1!
    X(1 IXAIDSL+1, IXAIDKL+1, IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, IXAUNIQKCC+1
    X(2 IXAIDSL+1, IXAIDKL+1, IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, IXAUNIQKCC+1
    X(3 IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, IXAUNIQKCC+1
    X(4 IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, IXAUNIQKCC+1
    X(5 IXAUNIQSL+1, IXAUNIQSCC+1, IXAUNIQKL+1, IXAUNIQKCC+1
    Y .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K), .06+1
    Y(0 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .05(XREF 1S)
    Y(1 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All