Sub-Field: 9002274.0121

Parent File	Name	Number	Package
3P FEE TABLE(#9002274.01)	DENTAL (ADA CODE)	9002274.0121	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) INPUT TRANSFORM: `S DINUM=1_$P(^AUTTADA(X,0),"^",1)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.0121^B` 1)= S ^ABMDFEE(DA(1),21,"B",$E(X,1,30),DA)="" 2)= K ^ABMDFEE(DA(1),21,"B",$E(X,1,30),DA)
.02	*CHARGE	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` LAST EDITED: `JAN 21, 2010` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002274.0121^.04` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDFEE(D0,21,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002274.0121,.02,1,1,1.4) 1.4)= S DIH=$S($D(^ABMDFEE(DIV(0),21,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9002274.0121,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= TODAY DELETE VALUE)= NO EFFECT FIELD)= #.04
.03	*FREE TXT CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `JAN 21, 2010` HELP-PROMPT: `Answer must be 4 characters in length.`
.04	*LAST UPDATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 2010` NOTES: `TRIGGERED by the *CHARGE field of the DENTAL (ADA CODE) sub-field of the 3P FEE TABLE File`
1	EFFECTIVE DATE	1;0	DATE Multiple #9002274.1211	9002274.1211