Sub-Field: 9002274.3011

Parent File	Name	Number	Package
3P CLAIM DATA(#9002274.3)	PCC Visit	9002274.3011	Third Party Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PCC VISIT	0;1	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^ABMDCLM(DUZ(2),DA,0),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `DEC 06, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^ABMDCLM(DUZ(2),DA,0),U,1)"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.3^AV` 1)= S ^ABMDCLM(DUZ(2),"AV",$E(X,1,30),DA(1),DA)="" 2)= K ^ABMDCLM(DUZ(2),"AV",$E(X,1,30),DA(1),DA)
.02	VISIT STATUS	0;2	SET	'R' FOR REJECTED; 'P' FOR PRIMARY; LAST EDITED: `MAY 09, 1997` CROSS-REFERENCE: `9002274.3011^AC` 1)= S ^ABMDCLM(DUZ(2),DA(1),11,"AC",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),DA(1),11,"AC",$E(X,1,30),DA)

PCC VISIT

0;1

POINTER TO VISIT FILE (#9000010)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=$P(^ABMDCLM(DUZ(2),DA,0),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: DEC 06, 1994
SCREEN: S DIC("S")="I $P(^(0),U,5)=$P(^ABMDCLM(DUZ(2),DA,0),U,1)"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002274.3^AV

1)= S ^ABMDCLM(DUZ(2),"AV",$E(X,1,30),DA(1),DA)=""

2)= K ^ABMDCLM(DUZ(2),"AV",$E(X,1,30),DA(1),DA)

VISIT STATUS

0;2

SET

CROSS-REFERENCE: 9002274.3011^AC

1)= S ^ABMDCLM(DUZ(2),DA(1),11,"AC",$E(X,1,30),DA)=""

2)= K ^ABMDCLM(DUZ(2),DA(1),11,"AC",$E(X,1,30),DA)