Global: ^IBA(355.7

FileMan FileNo	FileMan Filename	Package
355.7	PERSONAL POLICY	Integrated Billing

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

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.

.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*

Customize PDF page

Package: Integrated Billing