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

Package: Integrated Billing

Global: ^IBA(355.91


Information

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

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Integrated Billing 16 IB20P239    IB20P279    IBCEF72    IBCEMU3    IBCEP0    IBCEP1    IBCEP2    IBCEP2A
IBCEP5C    IBCEP5D    IBCNSC1    ^IBA(355.96    IBCEQ1    ^IBA(355.91    ^IBE(399.6    IBCNSCD
Kernel 1 XUSNPIXU    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Integrated Billing 5 IB20P239    IB20P279    IBCEMU3    IBCEP0    IBCEP0A    

Pointer To FileMan Files, Total: 3

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

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4961
  • Kernel
    		•  PROVIDER ID (.07).
    Access: Direct Global Read & w/Fileman

    		 The IBA(355.91 global contains one record for eachprovider ID that an Insurance company assigns to a facility for ALL billingproviders at the facility.Uses B x-ref to get IEN for given insurance company

    External References

    Name Field # of Occurrence
    ^DIC .03+1, .06+1
    ^DICR .01(XREF 2n1.4), .03(XREF 1n1.4), .03(XREF 1K)
    Y^DIQ ID.06+1
    $$DUP1^IBCEP1 .01+1, .03+1, .06+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(355.91 .01(XREF 2S), .03(XREF 1S)
    ^DD(355.97 ID.06+1
    ^IBA(355.91 - [#355.91] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXAUNIQSL+1*, IXAUNIQKL+1!, IXAUNIQKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4)
    , .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .07(XREF 1S), .07(XREF 1K)
    ^IBE(355.97 - [#355.97] ID.06+1

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %I ID.06+1*!
    >> C ID.06+1*
    >> D0 .01(XREF 2S), .03(XREF 1S), .03(XREF 1K)
    >> DA IXACSL+1, IXACKL+1, IXAUNIQSL+1, IXAUNIQKL+1, .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .03+1, .03(XREF 1S)
    , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .06+1, .07(XREF 1S), .07(XREF 1K)
    DIC ID.04+1, ID.05+1, ID.06+1, .03+1!*, .06+1!*
    DIC("S" .03+1*, .03SCR+1*, .06+1*, .06SCR+1*
    >> DIE .03+1, .06+1
    >> DIG .01(XREF 2n1.4), .03(XREF 1n1.4), .03(XREF 1K)
    >> DIH .01(XREF 2n1.4), .03(XREF 1n1.4), .03(XREF 1K)
    >> DIU .01(XREF 2S), .03(XREF 1S), .03(XREF 1K)
    DIV .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K)
    U ID.06+1, .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .03+1*!, .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K), .03(XREF 2S)
    , .03(XREF 2K), .06+1*!, .07+1!, .07(XREF 1S), .07(XREF 1K), .1+1!
    X(1 IXACSL+1, IXACKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(2 IXACSL+1, IXACKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(3 IXACSL+1, IXACKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(4 IXAUNIQSL+1, IXAUNIQKL+1
    X(5 IXAUNIQSL+1, IXAUNIQKL+1
    Y ID.06+1*, .01(XREF 2S), .03+1, .03(XREF 1S), .03(XREF 1K), .06+1
    Y(0 .01(XREF 2S), .03(XREF 1S)
    Y(1 .01(XREF 2S), .03(XREF 1S), .03(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