Global: ^ABMDAOTX(2906

FileMan FileNo	FileMan Filename	Package
9002274.9	3P AREA OFFICE EXPORT	Third Party Billing

Package	Total	FileMan Files
Third Party Billing	1	3P BILL(#9002274.4)[.18]

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X` LAST EDITED: `APR 08, 1991` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.9^B` 1)= S ^ABMDAOTX(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^ABMDAOTX(DUZ(2),"B",$E(X,1,30),DA)
.02	RECORD COUNT	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 12, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.03	ERROR DESCRIPTION	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `APR 11, 1991` HELP-PROMPT: `Answer must be 3-60 characters in length.`
.04	AMOUNT	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `APR 12, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits`