Sub-Field: 9002274.094

Parent File	Name	Number	Package
3P INSURER(#9002274.09)	LAB CPT/HCPCS REQ'ING RESULTS	9002274.094	Third Party Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LAB CPT/HCPCS REQ'ING RESULTS	0;1	POINTER TO CPT FILE (#81)	CPT(#81) INPUT TRANSFORM: `S DIC("S")="I (($P(^ICPT(Y,0),U)>79999)&($P(^ICPT(Y,0),U)<90000))!(($A($E($P(^ICPT(Y,0),U),1),1)>65)&($A($E($P(^ICPT(Y,0),U),1),1)<90))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 03, 2008` SCREEN: `S DIC("S")="I (($P(^ICPT(Y,0),U)>79999)&($P(^ICPT(Y,0),U)<90000))!(($A($E($P(^ICPT(Y,0),U),1),1)>65)&($A($E($P(^ICPT(Y,0),U),1),1)<90))"` EXPLANATION: `Lab and HCPCS codes only` CROSS-REFERENCE: `9002274.094^B` 1)= S ^ABMNINS(DUZ(2),DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^ABMNINS(DUZ(2),DA(1),4,"B",$E(X,1,30),DA)
.02	REQ'D FOR INSURER?	0;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 03, 2008`

LAB CPT/HCPCS REQ'ING RESULTS

0;1

POINTER TO CPT FILE (#81)

INPUT TRANSFORM: S DIC("S")="I (($P(^ICPT(Y,0),U)>79999)&($P(^ICPT(Y,0),U)<90000))!(($A($E($P(^ICPT(Y,0),U),1),1)>65)&($A($E($P(^ICPT(Y,0),U),1),1)<90))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: OCT 03, 2008
SCREEN: S DIC("S")="I (($P(^ICPT(Y,0),U)>79999)&($P(^ICPT(Y,0),U)<90000))!(($A($E($P(^ICPT(Y,0),U),1),1)>65)&($A($E($P(^ICPT(Y,0),U),1),1)<90))"
EXPLANATION: Lab and HCPCS codes only

CROSS-REFERENCE: 9002274.094^B

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

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

REQ'D FOR INSURER?

0;2

SET