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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBA(362.3

Package: Integrated Billing

Global: ^IBA(362.3


Information

FileMan FileNo FileMan Filename Package
362.3 IB BILL/CLAIMS DIAGNOSIS Integrated Billing

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Integrated Billing 8 IBCCC3    ^IBA(362.3    IB20PT62    IBCSC4D    IBCSC4E    IBCSC5    IBCSC5C    IBCU1

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Integrated Billing 4 IBCCC3    IBCD3    IBCSC4D    IBCSC5C    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 BILL/CLAIMS(#399)[#399.0304(10)#399.0304(11)#399.0304(12)#399.0304(13)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.01]    
Integrated Billing 1 BILL/CLAIMS(#399)[.02]    

Fields, Total: 3

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 23, 1993
  • HELP-PROMPT:  Enter a diagnosis for this bill. Duplicates are not allowed.
  • DESCRIPTION:  
    Enter an active diagnosis for this bill.
  • TECHNICAL DESCR:  
    All diagnosis for a bill are stored here, beginning with IB v2.0.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3"
  • EXPLANATION:  Only active diagnosis, no duplicates for a bill, and bill must not be authorized or cancelled.
  • EXECUTABLE HELP:  D HELP^IBCSC4D
  • CROSS-REFERENCE:  362.3^B
    1)= S ^IBA(362.3,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(362.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  362.3^AIFN^MUMPS
    1)= S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AIFN"_+$P(^(0),U,2),+X,DA)=""
    2)= K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AIFN"_+$P(^(0),U,2),+X,DA)
    Special x-ref set up specifically to provide a regular x-ref of a bill and all it's diagnoses for easy look-up.
.02 BILL NUMBER 0;2 POINTER TO BILL/CLAIMS FILE (#399)
************************REQUIRED FIELD************************
BILL/CLAIMS(#399)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,13)<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 12, 1994
  • HELP-PROMPT:  The bill that this diagnosis is related to.
  • SCREEN:  S DIC("S")="I $P(^(0),U,13)<3"
  • EXPLANATION:  Diagnosis can only be added to open bills.
  • CROSS-REFERENCE:  362.3^AIFN1^MUMPS
    1)= S ^IBA(362.3,"AIFN"_X,+^IBA(362.3,DA,0),DA)=""
    2)= K ^IBA(362.3,"AIFN"_X,+^IBA(362.3,DA,0),DA)
    Special x-ref set up specifically to provide a regular x-ref of a bill and all it's diagnoses for easy look-up.
  • CROSS-REFERENCE:  362.3^AO^MUMPS
    1)= S:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,"AO",+X,+$P(^(0),U,3),DA)=""
    2)= K:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,"AO",+X,+$P(^(0),U,3),DA)
    Print order by bill, used to prevent duplicate print orders for a bill.
  • CROSS-REFERENCE:  ^^TRIGGER^362.3^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$ORDNXT^IBCU1(+X)
    X ^DD(362.3,.02,1,3,1.4)
    1.4)= S DIH=$S($D(^IBA(362.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=362.3,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= ORDER=""
    CREATE VALUE)= S X=$$ORDNXT^IBCU1(+X)
    DELETE VALUE)= NO EFFECT
    FIELD)= ORDER
    Sets default value for print order.
.03 ORDER 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N)!($$DXBSTAT^IBCU1(DA)>2)!($$ORDDUP^IBCU1(+X,DA)) X
  • LAST EDITED:  NOV 23, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits. This is the order that the diagnoses will be printed on a bill. Each number must be unique for a bill.
  • EXECUTABLE HELP:  D HELP^IBCSC4D
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the BILL NUMBER field of the IB BILL/CLAIMS DIAGNOSIS File
  • CROSS-REFERENCE:  362.3^AO1^MUMPS
    1)= S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AO",+$P(^(0),U,2),+X,DA)=""
    2)= K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AO",+$P(^(0),U,2),+X,DA)
    Print order by bill, used to prevent duplicate print orders for a bill.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3824
  • ACCOUNTS RECEIVABLE
  • DIAGNOSIS (.01).
    Access: Direct Global Read & w/Fileman

    BILL NUMBER (.02).
    Access: Direct Global Read & w/Fileman

    ORDER (.03).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^DIC .01+1, .02+1
    ^DICR .02(XREF 3n1.4)
    HELP^IBCSC4D .01(HELP ), .03(HELP )
    $$DXBSTAT^IBCU1 .03+1
    $$ORDDUP^IBCU1 .03+1
    $$ORDNXT^IBCU1 .02(XREF 3S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .02(XREF 3n1.4)
    ^DD(362.3 .02(XREF 3S)
    ^IBA(362.3 - [#362.3] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3n1.4)
    .03(XREF 1S), .03(XREF 1K)

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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