Sub-Field: 9002274.401311

Parent File	Name	Number	Package
9002274.4013	COVERAGE TYPE	9002274.401311	Third Party Billing

Parent File

Name

Number

Package

COVERAGE TYPE

9002274.401311

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	COVERAGE TYPE	0;1	POINTER TO COVERAGE TYPE FILE (#9999999.65)	COVERAGE TYPE(#9999999.65) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `MAY 14, 1990` SCREEN: `S DIC("S")="I $P(^(0),U,2)=DA"` EXPLANATION: `COVERAGE TYPE RELATE TO INSURER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.401311^B` 1)= S ^ABMDBILL(DUZ(2),DA(2),13,DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^ABMDBILL(DUZ(2),DA(2),13,DA(1),11,"B",$E(X,1,30),DA)

COVERAGE TYPE

0;1

POINTER TO COVERAGE TYPE FILE (#9999999.65)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 14, 1990
SCREEN: S DIC("S")="I $P(^(0),U,2)=DA"
EXPLANATION: COVERAGE TYPE RELATE TO INSURER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002274.401311^B

1)= S ^ABMDBILL(DUZ(2),DA(2),13,DA(1),11,"B",$E(X,1,30),DA)=""

2)= K ^ABMDBILL(DUZ(2),DA(2),13,DA(1),11,"B",$E(X,1,30),DA)