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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBA(355.96

Package: Integrated Billing

Global: ^IBA(355.96


Information

FileMan FileNo FileMan Filename Package
355.96 IB INS CO PROVIDER ID CARE UNIT Integrated Billing

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Integrated Billing 15 ^IBA(355.96    IB20P279    IBCEP    IBCEP0    IBCEP1    IBCEP2    IBCEP3    IBCEP4
IBCEP4A    IBCEP5    IBCEP5C    IBCEP5D    ^IBA(355.95    ^IBE(399.6    IBCNSCD    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IBCEP3    IBCEP4A    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 3 BILL/CLAIMS(#399)[#399.0222(.09)#399.0222(.1)#399.0222(.11)#399.0222(1.01)#399.0222(1.02)#399.0222(1.03)]    IB BILLING PRACTITIONER ID(#355.9)[.03]    IB INSURANCE CO LEVEL BILLING PROV ID(#355.91)[.03]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 3 INSURANCE COMPANY(#36)[.03]    IB PROVIDER ID CARE UNIT(#355.95)[.01]    IB PROVIDER ID # TYPE(#355.97)[.06]    

Fields, Total: 5

Field # Name Loc Type Details
.01 CARE UNIT 0;1 POINTER TO IB PROVIDER ID CARE UNIT FILE (#355.95)
************************REQUIRED FIELD************************
IB PROVIDER ID CARE UNIT(#355.95)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$P($G(^IBA(355.95,+Y,0)),U,3):1,1:$P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 01, 2001
  • HELP-PROMPT:  Enter the name of a care unit
  • DESCRIPTION:  
    This is the care unit for which the insurance company requires a specific provider id number.
  • SCREEN:  S DIC("S")="I $S('$P($G(^IBA(355.95,+Y,0)),U,3):1,1:$P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)))"
  • EXPLANATION:  Must be a care unit for the same insurance co
  • DELETE TEST:  .01,0)= I $O(^IBA(355.91,"ACARE",D0,0))!$O(^IBA(355.9,"ACARE",D0,0)) D EN^DDIOL("Can't delete this entry - a provider ID is still using it","","?5")
  • CROSS-REFERENCE:  355.96^B
    1)= S ^IBA(355.96,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(355.96,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^355.96^.04
    1)= X ^DD(355.96,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^IBA(355.96,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=355.96,DIG=.04 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(355.96,.04,0)),U,3),Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(59),1)=""
    2)= Q
    3)= Do not delete
    CREATE CONDITION)= FORM TYPE APPLIED TO=""
    CREATE VALUE)= S X=0
    DELETE VALUE)= NO EFFECT
    FIELD)= FORM TYPE APPLIED TO
    This xref defaults the FORM TYPE APPLIED TO field to be both form types
  • CROSS-REFERENCE:  ^^TRIGGER^355.96^.05
    1)= X ^DD(355.96,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^IBA(355.96,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=355.96,DIG=.05 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(355.96,.05,0)),U,3),Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)=""
    2)= Q
    3)= Do not delete
    CREATE CONDITION)= BILL CARE TYPE=""
    CREATE VALUE)= S X=0
    DELETE VALUE)= NO EFFECT
    FIELD)= BILL CARE TYPE
    This xref defaults the BILL CARE TYPE field to be both inpatient and outpatient.
  • RECORD INDEXES:  AE (#126), AUNIQ (#127)
.03 INSURANCE COMPANY 0;3 POINTER TO INSURANCE COMPANY FILE (#36)
************************REQUIRED FIELD************************
INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 01, 2001
  • HELP-PROMPT:  This is the insurance company that is associated with the selected care
  • DESCRIPTION:  
    This is the insurance company that is associated with the selected care type.
  • SCREEN:  S DIC("S")="I $P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)),U,3)"
  • EXPLANATION:  Care unit must be defined for the same insurance company
  • RECORD INDEXES:  AC (#124), AD (#125), AE (#126), AUNIQ (#127), D (#128)
.04 FORM TYPE APPLIED TO 0;4 SET
************************REQUIRED FIELD************************
  • '0' FOR BOTH UB-04 AND CMS-1500 FORMS;
  • '1' FOR UB-04 FORM ONLY;
  • '2' FOR CMS-1500 FORM 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.
  • NOTES:  TRIGGERED by the CARE UNIT field of the IB INS CO PROVIDER ID CARE UNIT File
  • RECORD INDEXES:  AD (#125), AUNIQ (#127)
.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;

  • LAST EDITED:  AUG 01, 2001
  • 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:  TRIGGERED by the CARE UNIT field of the IB INS CO PROVIDER ID CARE UNIT File
  • RECORD INDEXES:  AD (#125), AUNIQ (#127)
.06 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 $$RAINS^IBCEPU(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  APR 18, 2006
  • HELP-PROMPT:  Enter the provider id type that this care unit is to apply to.
  • DESCRIPTION:  
    This is the type of provider ID that the set of care unit is being defined for.
  • SCREEN:  S DIC("S")="I $$RAINS^IBCEPU(Y)"
  • EXPLANATION:  Must be for a type that includes insurance co
  • CROSS-REFERENCE:  355.96^C
    1)= S ^IBA(355.96,"C",$E(X,1,30),DA)=""
    2)= K ^IBA(355.96,"C",$E(X,1,30),DA)
    3)= Do not delete
    Allow lookup by provider id type
  • RECORD INDEXES:  AC (#124), AD (#125), AUNIQ (#127), D (#128)

External References

Name Field # of Occurrence
EN^DDIOL .01DEL.01+1
^DIC .01+1, .03+1, .06+1
^DICR .01(XREF 2S), .01(XREF 3S)
Y^DIQ ID.06+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(355.96 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
^DD(355.97 ID.06+1
^IBA(355.9 - [#355.9] .01DEL.01+1
^IBA(355.91 - [#355.91] .01DEL.01+1
^IBA(355.96 - [#355.96] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXADSL+1*, IXADKL+1!, IXADKEIC+1!, IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!, IXAUNIQSL+1*
, IXAUNIQKL+1!, IXAUNIQKEIC+1!, IXDSL+1*, IXDKL+1!, IXDKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S)
.01(XREF 3n1.3), .06(XREF 1S), .06(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.3), .01(XREF 3S), .01(XREF 3n1.3)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID.06+1*!
>> C ID.06+1*
>> D0 .01DEL.01+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
>> DA IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAUNIQSL+1, IXAUNIQKL+1, IXDSL+1, IXDKL+1
.01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 3n1.3), .06(XREF 1S), .06(XREF 1K)
DIC ID.04+1, ID.05+1, ID.06+1, .01+1!*, .03+1!*, .06+1!*
DIC("S" .01+1*, .01SCR+1*, .03+1*, .03SCR+1*, .06+1*, .06SCR+1*
>> DIE .01+1, .03+1, .06+1
>> DIG .01(XREF 2S), .01(XREF 3S)
>> DIH .01(XREF 2S), .01(XREF 3S)
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
DIV(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
U ID.06+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3), .03+1*!, .06+1*!, .06(XREF 1S)
.06(XREF 1K)
X(1 IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAUNIQSL+1, IXAUNIQKL+1, IXDSL+1, IXDKL+1
X(2 IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXAUNIQSL+1, IXAUNIQKL+1, IXDSL+1, IXDKL+1
X(3 IXADSL+1, IXADKL+1, IXAUNIQSL+1, IXAUNIQKL+1
X(4 IXADSL+1, IXADKL+1, IXAUNIQSL+1, IXAUNIQKL+1
X(5 IXAUNIQSL+1, IXAUNIQKL+1
Y ID.06+1*, .01+1, .01(XREF 2S), .01(XREF 3S), .03+1, .06+1
Y(0 .01(XREF 2n1.3), .01(XREF 3n1.3)
Y(1 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S), .01(XREF 3n1.3)
Y(2 .01(XREF 2n1.3), .01(XREF 3n1.3)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All