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

Package: Integrated Billing

Global: ^IBA(354


Information

FileMan FileNo FileMan Filename Package
354 BILLING PATIENT Integrated Billing

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Integrated Billing 17 IBAMTED1    IBARXEC    IBARXEI    IBARXEP    IBARXEPL    IBARXEPV    IBARXEU    IBARXEU0
IBARXEU5    IBARXEX    IBARXEX1    IBAUTL6    IBAUTL7    IBPEX    ^IBA(354    IBXEXS
^IBA(354.1    
Registration 2 DG53632P    DGRTRIG    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Integrated Billing 6 IBARXEP    IBARXEPL    IBARXEPV    IBAUTL6    IBAUTL7    IBXEXS    
Registration 1 DG53632P    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 BILLING EXEMPTIONS(#354.1)[.02]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 1 EXEMPTION REASON(#354.2)[.05]    
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 4

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Enter the name of the patient as it appears in the patient file or enter the SSN or last four.
  • DESCRIPTION:  
    This is the name of the patient as it appears in the patient file.
  • TECHNICAL DESCR:  
    This field is the pointer to the PATIENT file.  It will use the same internal entry number in this file as in the PATIENT file.
  • DELETE TEST:  1,0)= I 1 W !,"Deleting entries not allowed"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  354^B
    1)= S ^IBA(354,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(354,"B",$E(X,1,30),DA)
.03 COPAY EXEMPTION STATUS DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:X'=$P(^IBA(354,DA,0),U,3) X
  • LAST EDITED:  FEB 10, 1993
  • HELP-PROMPT:  Enter the date of the current income exemption.
  • DESCRIPTION:  DO NOT EDIT THIS FIELD. It is maintained by the Copay Exemption Software.
    This is the date that this patients Medication Copay Income Exemption Status was last updated.  If this date is not in the current calendar year this patient will be flagged as needing to have his status updated.
  • TECHNICAL DESCR:  This field will be updated by the Copay Exemption software every time a new current exemption is added. It should not be edited.
    Programmers must 4 slash stuff data into this field to bypass the input transform.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the COPAY INCOME EXEMPTION STATUS field of the BILLING PATIENT File
  • CROSS-REFERENCE:  354^AD
    1)= S ^IBA(354,"AD",$E(X,1,30),DA)=""
    2)= K ^IBA(354,"AD",$E(X,1,30),DA)
.04 COPAY INCOME EXEMPTION STATUS 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR EXEMPT;
  • '0' FOR NON-EXEMPT;

  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter whether this patient is currently exempt from pharmacy copay due to the income exemption.
  • DESCRIPTION:  DO NOT EDIT THIS FIELD. It is maintained by the Copay Exemption Software.
    This is the patients current Medication Copay Income Exemption Status.  It is updated whenever an entry in the Billing Exemptions file is made.
    If a patient's income is less than the pension level, effective 10/29/92 the patient is exempt from paying the Medication Copayment.  If a patient is receiving a VA Pension, or is receiving Aid and Attendence or House
    Bound benefits, or his income for the previous year is less than the pension level, he is exempt.
  • TECHNICAL DESCR:  This field will be updated by the Copay Exemption software every time a new current exemption is added. It should not be edited.
    Programmers must 4 slash stuff data into this field to bypass the input transform.
  • SCREEN:  S DIC("S")="I $P(^IBA(354,DA,0),U,4)=Y!($G(IBJOB)>10)"
  • EXPLANATION:  This field can only be edited/updated by the Copay Exemption software.
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  354^AEX
    1)= S ^IBA(354,"AEX",$E(X,1,30),DA)=""
    2)= K ^IBA(354,"AEX",$E(X,1,30),DA)
    This is a regular cross-reference of the Pharmacy Copay Income Exemption Status of patients for their most recent status.
  • CROSS-REFERENCE:  ^^TRIGGER^354^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBA(354,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=354,DIG=.03 D ^DICR
    1.4)= S DIH=$S($D(^IBA(354,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=354,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBA(354,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=354,DIG=.03 D ^DICR
    CREATE VALUE)= S X=DT
    DELETE VALUE)= @
    FIELD)= #.03
  • CROSS-REFERENCE:  354^AENR04^MUMPS
    1)= D E354^DGRTRIG(DA)
    2)= D E354^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.05 COPAY EXEMPTION REASON 0;5 POINTER TO EXEMPTION REASON FILE (#354.2)
************************REQUIRED FIELD************************
EXEMPTION REASON(#354.2)

  • INPUT TRANSFORM:  S DIC("S")="I Y=$P(^IBA(354,DA,0),U,5)!($G(IBJOB)>10)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 10, 1993
  • DESCRIPTION:  DO NOT EDIT THIS FIELD. It is maintained by the Copay Exemption Software.
    This is the exemption reason for the current copay exemption.  It will be entered by the system.
  • TECHNICAL DESCR:  This field will be updated by the Copay Exemption software every time a new current exemption is added. It should not be edited.
    Programmers must 4 slash stuff data into this field to bypass the input transform.
  • SCREEN:  S DIC("S")="I Y=$P(^IBA(354,DA,0),U,5)!($G(IBJOB)>10)"
  • EXPLANATION:  This field can only be edited/updated by the Copay Exemption software.
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  354^AC
    1)= S ^IBA(354,"AC",$E(X,1,30),DA)=""
    2)= K ^IBA(354,"AC",$E(X,1,30),DA)

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5296
  • INSURANCE CAPTURE BUFFER
  • ICR #6115
  • VA Point of Service
  • COPAY INCOME EXEMPTION (.04).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .03+1
    E354^DGRTRIG .04(XREF 3S), .04(XREF 3K)
    ^DIC .05+1
    ^DICR .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K)
    Y^DIQ ID.05+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .04(XREF 2n1.4)
    ^DD(354.2 ID.05+1
    ^IBA(354 - [#354] .01(XREF 1S), .01(XREF 1K), .03+1, .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K)
    .05(XREF 1S), .05(XREF 1K)
    ^IBE(354.2 - [#354.2] ID.05+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.05+1, .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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