Sub-Field: 9002274.61

Parent File	Name	Number	Package
3P TX STATUS(#9002274.6)	BILLS	9002274.61	Third Party Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	BILLS	0;1	POINTER TO 3P BILL FILE (#9002274.4)	3P BILL(#9002274.4) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `AUG 29, 2002` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.61^B` 1)= S ^ABMDTXST(DUZ(2),DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^ABMDTXST(DUZ(2),DA(1),2,"B",$E(X,1,30),DA)
.02	ATTENDING PROVIDER	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 17, 2000` CROSS-REFERENCE: `9002274.61^APROV` 1)= S ^ABMDTXST(DUZ(2),DA(1),2,"APROV",$E(X,1,30),DA)="" 2)= K ^ABMDTXST(DUZ(2),DA(1),2,"APROV",$E(X,1,30),DA)
.03	SUBSCRIBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `AUG 30, 2002` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `9002274.61^ASBR^MUMPS` 1)= S ^ABMDTXST(DUZ(2),DA(1),2,"ASBR",X,DA)=$$REL^ABMUTLP(DA) 2)= K ^ABMDTXST(DUZ(2),DA(1),2,"ASBR",X,DA)

BILLS

0;1

POINTER TO 3P BILL FILE (#9002274.4)

CROSS-REFERENCE: 9002274.61^B

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

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

ATTENDING PROVIDER

0;2

POINTER TO NEW PERSON FILE (#200)

CROSS-REFERENCE: 9002274.61^APROV

1)= S ^ABMDTXST(DUZ(2),DA(1),2,"APROV",$E(X,1,30),DA)=""

2)= K ^ABMDTXST(DUZ(2),DA(1),2,"APROV",$E(X,1,30),DA)

SUBSCRIBER

0;3

FREE TEXT

CROSS-REFERENCE: 9002274.61^ASBR^MUMPS

1)= S ^ABMDTXST(DUZ(2),DA(1),2,"ASBR",X,DA)=$$REL^ABMUTLP(DA)

2)= K ^ABMDTXST(DUZ(2),DA(1),2,"ASBR",X,DA)