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

Package: Integrated Billing

Global: ^IBA(355.7


Information

FileMan FileNo FileMan Filename Package
355.7 PERSONAL POLICY Integrated Billing

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Integrated Billing 4 IBCNSM9    IBCNSP01    IBCNSP3    ^IBA(355.7    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBCNSP3    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 1 INSURANCE RIDERS(#355.6)[.01]    
Registration 1 VA PATIENT(#2)[.02]    

Fields, Total: 3

Field # Name Loc Type Details
.01 RIDER 0;1 POINTER TO INSURANCE RIDERS FILE (#355.6)
************************REQUIRED FIELD************************
INSURANCE RIDERS(#355.6)

  • LAST EDITED:  NOV 30, 1993
  • DESCRIPTION:  Select the Insurance Rider that best describes the personal rider you are adding or editing for this patient. A personal rider is add-on coverage that an individual may purchase as part of their group plan but is has
    additional cost.
  • CROSS-REFERENCE:  355.7^B
    1)= S ^IBA(355.7,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(355.7,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  355.7^APP^MUMPS
    1)= S:$P(^IBA(355.7,DA,0),U,2)&($P(^(0),U,3)) ^IBA(355.7,"APP",+$P(^(0),U,2),+$P(^(0),U,3),X,DA)=""
    2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),+$P(^(0),U,3),X,DA)
    Cross reference of riders by patient, policy, rider.  Used to make sure only one entry for each policy.
.02 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  NOV 30, 1993
  • DESCRIPTION:  
    Select the patient that this is a rider for.  For any patients' policy there may be a number of riders associated with it.
  • CROSS-REFERENCE:  355.7^AC
    1)= S ^IBA(355.7,"AC",$E(X,1,30),DA)=""
    2)= K ^IBA(355.7,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  355.7^APP1^MUMPS
    1)= S:$P(^IBA(355.7,DA,0),U,3) ^IBA(355.7,"APP",X,+$P(^(0),U,3),+^(0),DA)=""
    2)= K ^IBA(355.7,"APP",X,+$P(^IBA(355.7,DA,0),U,3),+^(0),DA)
    Cross reference of riders by patient, policy, rider.  Used to make sure only one entry for each policy.
.03 HEALTH INSURANCE POLICY 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X S:$D(X) X=$$SEL^IBTRC2(X,$P(^IBA(355.7,DA,0),"^",2),DT,2)
  • OUTPUT TRANSFORM:  S Y=$P($G(^DIC(36,+$P($G(^DPT(+$P(^IBA(355.7,DA,0),U,2),.312,+$G(Y),0)),U),0)),U)
  • LAST EDITED:  NOV 29, 1993
  • HELP-PROMPT:  Select the correct policy for this patient. Answer must be 1-30 characters in length.
  • DESCRIPTION:  This is the policy for the patient that this is a rider for.
    One or more riders may be associated with any policy for any patient.
  • EXECUTABLE HELP:  S DFN=$P(^IBA(355.7,DA,0),U,2) D DISP^IBCNS W !
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  355.7^APP2^MUMPS
    1)= S:$P(^IBA(355.7,DA,0),U,2) ^IBA(355.7,"APP",+$P(^(0),U,2),X,+^(0),DA)=""
    2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),X,+^(0),DA)
    Cross reference of riders by patient, policy, rider.  Used to make sure only one entry for each policy.

External References

Name Field # of Occurrence
Y^DIQ ID.02+1
DISP^IBCNS .03(HELP )
$$SEL^IBTRC2 .03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 ID.02+1
^DIC(36 - [#36] .03OT+1
^DPT - [#2] ID.02+1, .03OT+1
^IBA(355.7 - [#355.7] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1, .03OT+1
.03(HELP ), .03(XREF 1S), .03(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID.02+1*!
>> C ID.02+1*
>> 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), .03+1, .03OT+1
.03(HELP ), .03(XREF 1S), .03(XREF 1K)
>> DFN .03(HELP )
>> DIC ID.02+1
DT .03+1
U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03OT+1, .03(HELP ), .03(XREF 1S), .03(XREF 1K)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1!*, .03(XREF 1S)
.03(XREF 1K)
>> Y ID.02+1*, .03OT+1*
>> Y(0 .03OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All