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(362.5

Package: Integrated Billing

Global: ^IBA(362.5


Information

FileMan FileNo FileMan Filename Package
362.5 IB BILL/CLAIMS PROSTHETICS Integrated Billing

Description

Directly Accessed By Routines, Total: 21

Package Total Routines
Integrated Billing 20 IB20P389    IBCAPR1    IBCC1    IBCCC3    IBCEF1    IBCEF22    IBCF    IBCF4
IBCNSMR    IBCOIVM1    IBCRCC    IBCSC5    IBCSC5B    IBCSC61    IBCU83    IBJDF2
IBJTU5    ^IBA(362.5    IBTUTL5    ^IBE(399.6    
Accounts Receivable 1 RCXVUTIL    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Integrated Billing 3 IBCCC3    IBCSC5B    IBY399P    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 1 BILL/CLAIMS(#399)[.02]    
Prosthetics 1 RECORD OF PROS APPLIANCE/REPAIR(#660)[.04]    

Fields, Total: 5

Field # Name Loc Type Details
.01 DELIVERY DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  Enter the date the item was delivered to the patient.
  • DESCRIPTION:  
    This is the date the prosthetic item was delivered and accepted by the patient.
  • CROSS-REFERENCE:  362.5^B
    1)= S ^IBA(362.5,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(362.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  362.5^AIFN^MUMPS
    1)= S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)=""
    2)= K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)
    Set-up for quick cross reference of all prosthetic devices on a bill.
  • CROSS-REFERENCE:  ^^TRIGGER^362.5^.04
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(362.5,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^IBA(362.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=362.5,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= record
    Deletes the Prescription Transaction Record pointer if the Delivery Date is changed.
.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)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 13, 2008
  • HELP-PROMPT:  The bill number associated with this prosthetic item.
  • SCREEN:  S DIC("S")="I $P(^(0),U,13)=1"
  • EXPLANATION:  Only open bills may be modified.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  362.5^AIFN1^MUMPS
    1)= S ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)=""
    2)= K ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)
    Set-up for quick cross reference of all prosthetic devices on a bill.
.03 *ITEM 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 07, 2008
  • HELP-PROMPT:  Enter the prosthetic item to be added to this bill.
  • DESCRIPTION:  
    The prosthetic item added to the bill.
  • TECHNICAL DESCR:  This should be automatically set by the system if a prosthetic record is chosen.
    This field was marked for deletion 04/01/08. Field was a pointer to PROS ITEM MASTER (#661) which is out of date.
.04 RECORD 0;4 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) RECORD OF PROS APPLIANCE/REPAIR(#660)

  • LAST EDITED:  JUN 01, 2009
  • HELP-PROMPT:  Enter the record for this prosthetic item transaction.
  • DESCRIPTION:  
    This is the Prosthetic record for this item transaction.
  • TECHNICAL DESCR:  
    This should be automatically set by the system if a prosthetic record is chosen. This is not required because not all items may be from prosthetics, such as fee basis charges.
  • NOTES:  TRIGGERED by the DELIVERY DATE field of the IB BILL/CLAIMS PROSTHETICS File
  • CROSS-REFERENCE:  362.5^AE^MUMPS
    1)= I X'<1 S ^IBA(362.5,"AE",$E(X,1,30),DA)=""
    2)= K ^IBA(362.5,"AE",$E(X,1,30),DA)
    Cross reference for Prosthetics record pointer.
.05 ITEM NAME 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  FEB 12, 2008
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This is the name or short description of the Prosthetics Item.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3826
  • Accounts Receivable
    		•  BILL NUMBER (.02).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .01+1
    ^DIC .02+1
    ^DICR .01(XREF 3n2.4)

    Global Variables Directly Accessed

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

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*
    >> D0 .01(XREF 3K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)
    DIC .02+1!*
    DIC("S" .02+1*, .02SCR+1*
    >> DIE .02+1
    >> DIG .01(XREF 3n2.4)
    >> DIH .01(XREF 3n2.4)
    >> DIU .01(XREF 3K)
    DIV .01(XREF 3K), .01(XREF 3n2.4)
    DIV(0 .01(XREF 3K), .01(XREF 3n2.4)
    U .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4), .02+1*!, .02(XREF 1S), .02(XREF 1K)
    , .03+1!, .04(XREF 1S), .04(XREF 1K), .05+1!
    Y .01+1, .01(XREF 3K), .02+1
    Y(1 .01(XREF 3K)
    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