Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Details | All

Print Page as PDF

Sub-Field: 9002274.3033

Package: Third Party Billing

3P CLAIM DATA(#9002274.3)-->9002274.3033

Sub-Field: 9002274.3033

Information

Parent File	Name	Number	Package
3P CLAIM DATA(#9002274.3)	Dental	9002274.3033	Third Party Billing

Details

Field #	Name	Loc	Type	Details
.01	DENTAL (ADA CODE)	0;1	POINTER TO ADA CODE FILE (#9999999.31)	ADA CODE(#9999999.31) LAST EDITED: `FEB 03, 1997` CROSS-REFERENCE: `9002274.3033^B` 1)= S ^ABMDCLM(DUZ(2),DA(1),33,"B",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),DA(1),33,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002274.3033^.02` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,33,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=510 X ^DD(9002274.3033,.01,1,2,1.4) 1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),33,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002274.3033,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=510 DELETE VALUE)= NO EFFECT FIELD)= #.02
.02	REVENUE CODE	0;2	POINTER TO REVENUE CODES FILE (#9999999.72)	REVENUE CODES(#9999999.72) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,3),$E(^(0),1,2)>48,$E(^(0),1,2)<53" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 21, 1990` SCREEN: `S DIC("S")="I '$P(^(0),U,3),$E(^(0),1,2)>48,$E(^(0),1,2)<53"` EXPLANATION: `REVN CODES FOR O/P CLINICS` NOTES: `TRIGGERED by the DENTAL (ADA CODE) field of the Dental sub-field of the 3P CLAIM DATA File`
.03	DENTAL (CPT CODE)	0;3	POINTER TO CPT FILE (#81)	CPT(#81) INPUT TRANSFORM: `S DIC("S")="I $E(^(0),1)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 02, 1990` SCREEN: `S DIC("S")="I $E(^(0),1)=""D"""` EXPLANATION: `CPT FOR DENTAL`
.04	CORRESPONDING DIAGNOSIS	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 06, 1995` HELP-PROMPT: `Answer must be 1-7 characters in length.`
.05	OPERATIVE SITE	0;5	POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03)	DENTAL OPERATIVE SITE(#9002010.03) LAST EDITED: `MAR 27, 1990`
.06	SURFACE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X S ABMDX="" F Y=1:1 K:'$D(X) Y,ABMDX Q:'$D(X) K:$E(X,Y)="" ABMDX Q:($E(X,Y)="") K:"OMDBLFI"'[$E(X,Y) X Q:'$D(X) K:ABMDX[$E(X,Y) X S:$D(X) ABMDX=ABMDX_$E(X,Y)` LAST EDITED: `JUN 23, 1992` HELP-PROMPT: `Answer must be less than 5 characters and contain only 'OMDBLFI'` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	DATE of SERVICE	0;7	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 26, 1995` CROSS-REFERENCE: `9002274.3033^C` 1)= S ^ABMDCLM(DUZ(2),DA(1),33,"C",$E(X,1,30),DA)="" 2)= K ^ABMDCLM(DUZ(2),DA(1),33,"C",$E(X,1,30),DA)
.08	CHARGE	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` OUTPUT TRANSFORM: `S Y=$J(Y,4,2)` LAST EDITED: `MAY 05, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits`
.09	UNITS	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1995` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
.11	AREA OF ORAL CAVITY	0;11	SET	'00' FOR ENTIRE ORAL CAVITY; '01' FOR MAXILLARY AREA; '02' FOR MANDIBULAR AREA; '09' FOR OTHER AREA OF ORAL CAVITY; '10' FOR UPPER RIGHT QUADRANT; '20' FOR UPPER LEFT QUADRANT; '30' FOR LOWER LEFT QUADRANT; '40' FOR LOWER RIGHT QUADRANT; 'L' FOR LEFT; 'R' FOR RIGHT; LAST EDITED: `AUG 18, 2004`
.12	TOOTH SYSTEM	0;12	SET	'JP' FOR ADA'S UNIVERSAL/NATIONAL TOOTH DESIGNATION SYSTEM; 'JO' FOR ANSI/ADA/ISO SPECIFICATION NO.3950; LAST EDITED: `AUG 18, 2004`
.17	DATA SOURCE	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 20, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `9002274.3^AG^MUMPS` 1)= S ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA)="" 2)= K:$G(DC)'="M" ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA) 3)= Used by background checker
.18	SERVICE LINE PROVIDER	P;0	POINTER Multiple #9002274.303318	9002274.303318
.23	PRINT ORDER	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `SEP 15, 2017` HELP-PROMPT: `Type a number between 1 and 99999, 0 decimal digits.` CROSS-REFERENCE: `9002274.3^G^MUMPS` 1)= S ^ABMDCLM(DUZ(2),DA(1),"PO",X,33,DA)="" 2)= K ^ABMDCLM(DUZ(2),DA(1),"PO",X,33,DA)

Info | Details | All