Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | 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

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