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

Package: Integrated Billing

Global: ^IBA(362.4


Information

FileMan FileNo FileMan Filename Package
362.4 IB BILL/CLAIMS PRESCRIPTION REFILL Integrated Billing

Description

Directly Accessed By Routines, Total: 57

Package Total Routines
Integrated Billing 55 IB20P276    IB20P405    IBCAPR1    IBCBB14    IBCC1    IBCCC3    IBCEF1    IBCEF22
IBCEF4    IBCEF73A    IBCEU4    IBCF    IBCF4    IBCNSMR    IBCOIVM1    IBCRBC
IBCRBC1    IBCRCC    IBCSC4D    IBCSC5    IBCSC5A    IBCSC5C    IBCSC61    IBCSCH1
IBCU1    IBCU3    IBCU83    IBEFUNC3    IBEFUR    IBEFURT    IBJDF11    IBJDF2
IBJDF51    IBJTCA1    IBJTEP1    IBJTRX    IBJTU5    IBNCPBB    IBNCPDPH    IBNCPDR4
IBNCPUT3    IBOHCK    IBOHLS1    IBOHPT1    IBTUTL5    ^IBA(362.4    IBOHDT    IBOHLD1
IBOSCDC1    IBOSRX    IBRFN    IBRUTL    IBTUBO2    IBY137PO    ^IBA(364.5    
Accounts Receivable 2 RCDPEWLP    RCXVUTIL    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Integrated Billing 5 IBCCC3    IBCSC5A    IBCSCH1    IBEFUNC3    IBY137PO    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 1 BILL/CLAIMS(#399)[.02]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[.05]    
Pharmacy Data Management 1 DRUG(#50)[.04]    

Fields, Total: 11

Field # Name Loc Type Details
.01 RX # 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    The prescription number for the refill.
  • TECHNICAL DESCR:  
    A free text pointer (may correspond to 52,.01).  Because prescriptions may be deleted from file 52 or prescriptions added that may not be from  outpatient pharmacy this may not be defined in the Prescription file (52).
  • CROSS-REFERENCE:  362.4^B
    1)= S ^IBA(362.4,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(362.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  362.4^AIFN^MUMPS
    1)= S:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,"AIFN"_+$P(^(0),U,2),X,+DA)=""
    2)= K:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,"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 rx refills for easy look-up.
  • CROSS-REFERENCE:  ^^TRIGGER^362.4^.05
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(362.4,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^IBA(362.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=362.4,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= RECORD
    Deletes the Prescription Record pointer if the Prescription Number is modified.
.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 22, 2008
  • HELP-PROMPT:  Enter a bill number.
  • DESCRIPTION:  
    The bill this rx refill is associated with.
  • 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.4^AIFN1^MUMPS
    1)= S ^IBA(362.4,"AIFN"_X,$P(^IBA(362.4,+DA,0),U,1),DA)=""
    2)= K ^IBA(362.4,"AIFN"_X,$P(^IBA(362.4,+DA,0),U,1),DA)
    Special x-ref set up specifically to provide a regular x-ref of a bill and all it's rx refills for easy look-up.
  • CROSS-REFERENCE:  362.4^C
    1)= S ^IBA(362.4,"C",$E(X,1,30),DA)=""
    2)= K ^IBA(362.4,"C",$E(X,1,30),DA)
  • FIELD INDEX:  ABP (#821) MUMPS IR ACTION
    Short Descr:  Update default taxonomy codes and billing provider IDs
    Description:  When a claim is entered into this file it is considered a pharmacy claim and the billing provider for this claim becomes the dispensing pharmacy institution.  When a claim is removed from this file, it ceases to be a
    pharmacy claim and the billing provider will change with this action.
    This x-ref will update the billing provider and service facility default taxonomy codes based on a potential new billing provider and service facility.  It will also update the billing provider secondary IDs and Qualifiers
    for every payer on the claim.
    Please note that this x-ref will potentially update the values of 8 fields in file 399:
    399,243 - SERVICE FACILITY TAXONOMY 399,252 - BILLING PROVIDER TAXONOMY 399,122 - PRIMARY PROVIDER # 399,123 - SECONDARY PROVIDER # 399,124 - TERTIARY PROVIDER # 399,128 - PRIMARY ID QUALIFIER 399,129 - SECONDARY ID
    QUALIFIER 399,130 - TERTIARY ID QUALIFIER
    Set Logic:  D TAX^IBCEF79(X(1))
    Kill Logic:  D TAX^IBCEF79(X(1))
    X(1):  BILL NUMBER  (362.4,.02)  (forwards)
.03 DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 08, 1994
  • HELP-PROMPT:  Enter the refill date.
  • DESCRIPTION:  
    The date of the refill that is being billed.
.04 DRUG 0;4 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • LAST EDITED:  DEC 23, 1993
  • HELP-PROMPT:  Enter the drug for this prescription.
  • DESCRIPTION:  
    The drug prescribed.
.05 RECORD 0;5 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  This is the Prescription record for this refill.
  • DESCRIPTION:  
    Enter the Prescription record for this refill.
  • TECHNICAL DESCR:  This should be automatically set by the system if a Prescription (52) refill is chosen. This is not required because not all items may be outpatient prescriptions, such as fee basis charges. Also, note that the
    Prescription (52) is not a permanent file.
  • NOTES:  TRIGGERED by the RX # field of the IB BILL/CLAIMS PRESCRIPTION REFILL File
.06 DAYS SUPPLY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>365)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 18, 2015
  • HELP-PROMPT:  Type a number between 1 and 365, 0 decimal digits.
  • DESCRIPTION:  
    This should be the number of days supplied of the drug dispensed in this refill.
  • TECHNICAL DESCR:  
    Passed from (52,8)
.07 QTY 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This should be the quantity (# of tablets, pills, items, etc.) of the drug dispensed in this refill.
  • TECHNICAL DESCR:  
    Loaded from (52,52,1)
.08 NDC # 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 14, 2001
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the NDC number for this drug, if it should be printed on the bill.
  • TECHNICAL DESCR:  
    Not loaded from pharmacy.
  • CROSS-REFERENCE:  ^^TRIGGER^362.4^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NDCNUM^IBCSC5A(X) S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=362.4,DIG=.09 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=362.4,DIG=.09 D ^DICR
    CREATE VALUE)= S X=$$NDCNUM^IBCSC5A(X)
    DELETE VALUE)= @
    FIELD)= FORMAT OF NDC#
.09 FORMAT OF NDC# 0;9 SET
  • '1' FOR 4-4-2 FORMAT;
  • '2' FOR 5-3-2 FORMAT;
  • '3' FOR 5-4-1 FORMAT;
  • '4' FOR 5-4-2 FORMAT;

  • LAST EDITED:  AUG 08, 2001
  • HELP-PROMPT:  Enter the NATIONAL DRUG CODE format for the NDC# of this prescription.
  • DESCRIPTION:  
    This is the NATIONAL DRUG CODE format in which the NDC# for the drug has been entered.
  • SCREEN:  S DIC("S")="N Z S Z=$P($G(^IBA(362.4,+$G(DA),0)),U,8) I $S(Z="""":1,X'=4:$L($TR(Z,""-""))=10,1:$L($TR(Z,""-""))=11)"
  • EXPLANATION:  If format 1,2,3 - length of # (minus dashes) must be 10. For format code, it must be 11.
  • NOTES:  TRIGGERED by the NDC # field of the IB BILL/CLAIMS PRESCRIPTION REFILL File
.1 FILL NUMBER 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  AUG 27, 2008
  • HELP-PROMPT:  Type a number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the Fill Number for the prescription. Where 0 = original fill and 1 = 1st refill, etc.
.11 ORDER DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 02, 2010
  • HELP-PROMPT:  Enter the date the Rx was ordered.
  • DESCRIPTION:  
    This field will be stuffed with the ISSUE DATE (#1) field of the Rx from the PRESCRIPTION (#52) file, if a corresponding entry exists in that file.  Otherwise, it will be blank.

ICR, Total: 2

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

    ICR #6033
  • ACCOUNTS RECEIVABLE
  • RX # (.01).
    Access: Direct Global Read & w/Fileman

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

    DRUG (.04).
    Access: Direct Global Read & w/Fileman

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

    RECORD (.05).
    Access: Direct Global Read & w/Fileman

    DAYS SUPPLY (.06).
    Access: Direct Global Read & w/Fileman

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

    NDC # (.08).
    Access: Direct Global Read & w/Fileman

    FORMAT OF NDC# (.09).
    Access: Direct Global Read & w/Fileman

    FILL NUMBER (.1).
    Access: Direct Global Read & w/Fileman

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

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .11+1
    ^DIC .02+1
    ^DICR .01(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K)
    Y^DIQ ID.02+1
    TAX^IBCEF79 IXABPSL+1, IXABPKL+1
    $$NDCNUM^IBCSC5A .08(XREF 1S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 3n2.4)
    ^DD(362.4 .01(XREF 3K)
    ^DD(399 ID.02+1
    ^DGCR(399 - [#399] ID.02+1
    ^IBA(362.4 - [#362.4] .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), .02(XREF 2S), .02(XREF 2K)
    .08(XREF 1S), .08(XREF 1K)

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .03+1*, .11+1*
    %I ID.02+1*!
    >> C ID.02+1*
    >> D0 .01(XREF 3K), .08(XREF 1S), .08(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .08(XREF 1S)
    .08(XREF 1K)
    DIC ID.02+1, .02+1!*
    DIC("S" .02+1*, .02SCR+1*, .09SCR+1*
    >> DIE .02+1
    >> DIG .01(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K)
    >> DIH .01(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K)
    >> DIU .01(XREF 3K), .08(XREF 1S), .08(XREF 1K)
    DIV .01(XREF 3K), .01(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K)
    DIV(0 .01(XREF 3K), .01(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K)
    U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 3n2.4), .02(XREF 1S), .02(XREF 1K), .08(XREF 1S), .08(XREF 1K)
    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)
    .02(XREF 2S), .02(XREF 2K), .03+1*!, .06+1!, .07+1!, .08+1!, .08(XREF 1S), .08(XREF 1K), .1+1!, .11+1*!
    X(1 IXABPSL+1, IXABPKL+1
    Y ID.02+1*, .01(XREF 3K), .02+1, .03+1, .08(XREF 1S), .08(XREF 1K), .11+1
    Y(1 .01(XREF 3K), .08(XREF 1S), .08(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All