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

Package: Integrated Billing

Global: ^IBA(355.9


Information

FileMan FileNo FileMan Filename Package
355.9 IB BILLING PRACTITIONER ID Integrated Billing

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Integrated Billing 21 IB20P279    IBCEF73    IBCEF76    IBCEP0    IBCEP1    IBCEP2    IBCEP2A    IBCEP5
IBCEP5C    IBCEP5D    IBCEP8    IBCNSCD    IBY358PO    ^IBE(399.6    IBCEP9    IBCEP9B
IBCEQ1    ^IBA(355.9    ^IBA(355.96    IBCEQ1A    ^IBA(364.5    
Kernel 1 XUSNPIXU    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Integrated Billing 10 IB20P279    IBCEP0A    IBCEP2B    IBCEP5A    IBCEP5D    IBCEP8    IBCEP9    IBCEP9B
IBCEQ1A    IBY358PO    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Integrated Billing 4 INSURANCE COMPANY(#36)[.02]    IB NON/OTHER VA BILLING PROVIDER(#355.93)[.01]    IB INS CO PROVIDER ID CARE UNIT(#355.96)[.03]    IB PROVIDER ID # TYPE(#355.97)[.06]    
Kernel 1 NEW PERSON(#200)[.01]    

Fields, Total: 9

Field # Name Loc Type Details
.01 PRACTITIONER 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
NEW PERSON(#200)  IB NON/OTHER VA BILLING PROVIDER(#355.93)  

  • EXPLANATION:  Only individual providers can be selected here.
  • INPUT TRANSFORM:  I $G(DA) K:$$DUP^IBCEP1(.01,DA) X
  • LAST EDITED:  DEC 20, 2000
  • HELP-PROMPT:  Enter the name of the individual provider (practitioner). This cannot be a duplicate of any entry in the NEW PERSON file.
  • DESCRIPTION:  This is the practitioner (individual provider) for whom the id number is being defined. This practitioner can either be a VA provider and reside in the NEW PERSON file or can be a NON-VA provider and will reside in the IB
    NON-VA BILLING PROVIDER file as an individual provider (not as a facility).
  • TECHNICAL DESCR:  
    DBIA #3272 was secured to allow this file's .01 field to point to file 200.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  355.9^B
    1)= S ^IBA(355.9,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(355.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^355.9^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,15)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="*ALL*" X ^DD(35
    5.9,.01,1,2,1.4)
    1.4)= S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR
    2)= Q
    3)= Do not delete
    CREATE CONDITION)= INDEX VALUE INSURANCE CO=""
    CREATE VALUE)= "*ALL*"
    DELETE VALUE)= NO EFFECT
    FIELD)= INDEX VALUE INSURANCE CO
    This trigger 'seeds' a value into the key field for insurance company so the value of the key is never null, even if the insurance company is not entered.
  • CROSS-REFERENCE:  ^^TRIGGER^355.9^.16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,16)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X="*N/A*" X ^DD(35
    5.9,.01,1,3,1.4)
    1.4)= S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 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 of the key is never null, even if the care unit is not entered.
  • RECORD INDEXES:  AC (#116), AD (#117), AE (#118), AG (#119), AUNIQ (#120)
.02 INSURANCE CO 0;2 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  I $G(DA) K:$$DUP^IBCEP1(.02,DA) X
  • LAST EDITED:  DEC 07, 2000
  • HELP-PROMPT:  Enter the insurance company who has specific id's for the provider
  • DESCRIPTION:  
    This is the insurance company that has assigned a specific id to the provider. If this data is not entered, the id number will be assumed to apply to all insurance companies for the provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^355.9^.03
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=355.9,DIG=.03 D ^DICR
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= PROVIDER ID CARE UNIT
  • CROSS-REFERENCE:  ^^TRIGGER^355.9^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="*ALL*" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR
    3)= Do not delete
    CREATE VALUE)= INTERNAL(INSURANCE CO)
    DELETE VALUE)= "*ALL*"
    FIELD)= INDEX VALUE INSURANCE CO
    When the insurance company is entered or changed, trigger the same value into the field. When insurance company is deleted, re-seed it with *ALL*
  • RECORD INDEXES:  AE (#118), AG (#119)
.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:$D(DA) DIC("S")="I +$G(^IBA(355.96,+Y,0))=+$P($G(^IBA(355.9,DA,0)),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) K:$$DUP^IBCEP1(.03,DA) X
  • LAST EDITED:  JUN 02, 2004
  • HELP-PROMPT:  Enter the specific care unit value needed to get the provider id.
  • DESCRIPTION:  
    This is the actual data value of the care unit to use to assign this provider id to the insurance company and provider. *** NOT CURRENTLY USED ***
  • SCREEN:  S DIC("S")="I +$G(^IBA(355.96,+Y,0))=+$P($G(^IBA(355.9,DA,0)),U,2)"
  • EXPLANATION:  Value must be defined as valid for the insurance co
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the INSURANCE CO field of the IB BILLING PRACTITIONER ID File
  • CROSS-REFERENCE:  ^^TRIGGER^355.9^.16
    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.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.9,.03,1,1,1.4)
    1.4)= S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X="*N/A*" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 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.9^ACARE
    1)= S ^IBA(355.9,"ACARE",$E(X,1,30),DA)=""
    2)= K ^IBA(355.9,"ACARE",$E(X,1,30),DA)
    3)= Do not delete
    This xref allows quick access to the file by care unit.
  • RECORD INDEXES:  AG (#119)
.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:  Enter the form types that this 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 (#120)
.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) K:$$DUP^IBCEP1(.05,DA) X
  • LAST EDITED:  SEP 07, 2000
  • HELP-PROMPT:  Enter the bill care type (inpatient/outpatient/Rx) that this id # will apply to.
  • DESCRIPTION:  
    This designates whether the id number is to be used for just inpatient episodes, just outpatient episodes, both inpatient and outpatient episodes, or for just prescriptions.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AUNIQ (#120)
.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 $P(^(0),U,2)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) K:$$DUP^IBCEP1(.06,DA) X
  • LAST EDITED:  SEP 06, 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 $P(^(0),U,2)'=1"
  • EXPLANATION:  ID types that are limited to facility level cannot be selected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AC (#116), AD (#117), AUNIQ (#120)
.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 used for a claim when all criteria defined on this record have been met.
  • CROSS-REFERENCE:  355.9^C
    1)= S ^IBA(355.9,"C",$E(X,1,30),DA)=""
    2)= K ^IBA(355.9,"C",$E(X,1,30),DA)
    3)= Do not delete
    This allows a lookup on this file by provider id #
.15 INDEX VALUE INSURANCE CO 0;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 07, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field contains the key value for the insurance company or '*ALL*' if no insurance company is selected. This is to assure uniqueness in the records in the file even if the insurance company is blank.
  • TECHNICAL DESCR:  
    Triggered on entry of the record by the .01 field to *ALL*
    WRITE AUTHORITY: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the PRACTITIONER field of the IB BILLING PRACTITIONER ID File
    TRIGGERED by the INSURANCE CO field of the IB BILLING PRACTITIONER ID File
  • RECORD INDEXES:  AC (#116), AD (#117), AUNIQ (#120)
.16 INDEX VALUE CARE UNIT 0;16 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 07, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field contains the key 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: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the PRACTITIONER field of the IB BILLING PRACTITIONER ID File
    TRIGGERED by the PROVIDER ID CARE UNIT field of the IB BILLING PRACTITIONER ID File
  • RECORD INDEXES:  AUNIQ (#120)

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4960
  • Kernel
    		•  INSURANCE CO (.02).
    Access: Direct Global Read & w/Fileman

    PROVIDER ID (.07).
    Access: Direct Global Read & w/Fileman

    		 The IBA(355.9 global contains one record for each uniquebilling provider ID number that an individual provider (practitioner) isassigned by an insurance company or by a licensing or government entity.Uses B x-ref to get IEN for given practitioner

    External References

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(355.9 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S)
    ^DD(355.97 ID.06+1
    ^DD(36 ID.02+1
    ^DIC(36 - [#36] ID.02+1
    ^IBA(355.9 - [#355.9] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXADSL+1*, IXADKL+1!, IXADKEIC+1!, IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!, IXAGSL+1*
    , IXAGKL+1!, IXAUNIQSL+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)
    , .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .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.02+1, ID.06+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .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.02+1*!, ID.06+1*!
    >> C ID.02+1*, ID.06+1*
    >> D0 .01(XREF 2S), .01(XREF 3S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    >> DA IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAGSL+1, IXAGKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    , .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .02+1, .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1
    , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .06+1, .07(XREF 1S), .07(XREF 1K)
    DIC ID.02+1, ID.04+1, ID.05+1, ID.06+1, .03+1!*, .06+1!*
    DIC("S" .01VPSCR2+1*, .03+1*, .03SCR+1*, .06+1*, .06SCR+1*
    >> DIE .03+1, .06+1
    >> DIG .01(XREF 2n1.4), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1n1.4), .03(XREF 1K)
    >> DIH .01(XREF 2n1.4), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1n1.4), .03(XREF 1K)
    >> DIU .01(XREF 2S), .01(XREF 3S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1n1.4), .03(XREF 1K)
    U ID.02+1, ID.06+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S)
    , .03(XREF 1n1.4), .03(XREF 1K)
    X IXAGSCC+1*, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .02+1!, .02(XREF 1K)
    , .02(XREF 2S), .02(XREF 2K), .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), .15+1!, .16+1!
    X(1 IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(2 IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(3 IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAUNIQSL+1, IXAUNIQKL+1
    X(4 IXAUNIQSL+1, IXAUNIQKL+1
    X(5 IXAUNIQSL+1, IXAUNIQKL+1
    X(6 IXAUNIQSL+1, IXAUNIQKL+1
    >> X1(2 IXAGKL+1
    >> X1(3 IXAGKL+1
    >> X2(1 IXAGSCC+1
    >> X2(2 IXAGSL+1
    >> X2(3 IXAGSL+1
    Y ID.02+1*, ID.06+1*, .01(XREF 2S), .01(XREF 3S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1, .03(XREF 1S), .03(XREF 1K)
    , .06+1
    Y(0 .01(XREF 2S), .01(XREF 3S), .03(XREF 1S)
    Y(1 .01(XREF 2S), .01(XREF 3S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .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