Global: ^IBA(355.7

FileMan FileNo	FileMan Filename	Package
355.7	PERSONAL POLICY	Integrated Billing

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Integrated Billing	10	IBCNSJ21 IBCNSM1 IBCNSM9 IBCNSP01 IBCNSP3 IBCONS1 IBYAPT1 ^IBA(355.7 ^IBE(399.6 IBCNSU3

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBCNSM1 IBCNSP3 IBYAPT1

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Integrated Billing	1	INSURANCE RIDERS(#355.6)[.01]
Registration	1	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 PATIENT FILE (#2)	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 PATIENT FILE (#2)

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