Sub-Field: 162.701

Parent File	Name	Number	Package
FEE BASIS UNAUTHORIZED CLAIMS(#162.7)	EXTENSIONS	162.701	Fee Basis

Details

Field #	Name	Loc	Type	Details
.01	EXTENSION ENTERED DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 09, 2001` HELP-PROMPT: `Enter the date/time when the extension was granted.` DESCRIPTION: `The date/time when the extension was entered into the computer. This field is automatically populated.` CROSS-REFERENCE: `162.701^B` `1)= S ^FB583(DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^FB583(DA(1),3,"B",$E(X,1,30),DA)`
.02	ENTERED BY	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `OCT 09, 2001` DESCRIPTION: `User that entered the extension. Automatically populated.`
.03	FOR STATUS	0;3	POINTER TO FEE BASIS UNAUTHORIZED CLAIMS STATUS FILE (#162.92)	**********************REQUIRED FIELD********************** FEE BASIS UNAUTHORIZED CLAIMS STATUS(#162.92) LAST EDITED: `OCT 09, 2001` DESCRIPTION: `Status for which the extension is being granted.`
.04	EXTENSION DATE	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 09, 2001` HELP-PROMPT: `Enter the extension date.` DESCRIPTION: `New extension date granted.`
.05	COMMENTS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `OCT 09, 2001` HELP-PROMPT: `Answer must be 3-80 characters in length.` DESCRIPTION: `Enter any comments related to the extension.`