Sub-Field: 9002274.4011

Parent File	Name	Number	Package
3P BILL(#9002274.4)	PCC Visit	9002274.4011	Third Party Billing

Parent File

Name

Number

Package

PCC Visit

9002274.4011

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(^ABMDBILL(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: `OCT 21, 1990` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^ABMDBILL(DUZ(2),DA,0),U,1)"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.4^AV` 1)= S ^ABMDBILL(DUZ(2),"AV",$E(X,1,30),DA(1),DA)="" 2)= K ^ABMDBILL(DUZ(2),"AV",$E(X,1,30),DA(1),DA)
.02	VISIT STATUS	0;2	SET	'R' FOR REJECTED; LAST EDITED: `APR 10, 1990`

PCC VISIT

0;1

POINTER TO VISIT FILE (#9000010)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=$P(^ABMDBILL(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: OCT 21, 1990
SCREEN: S DIC("S")="I $P(^(0),U,5)=$P(^ABMDBILL(DUZ(2),DA,0),U,1)"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002274.4^AV

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

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

VISIT STATUS

0;2

SET