Sub-Field: 40.16

Parent File	Name	Number	Package
OPC ERRORS(#40.15)	FIELD NAME	40.16	Registration

Details

Field #	Name	Loc	Type	Details
.01	FIELD NAME	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 15, 1988` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This contains the name of the field that needs to be corrected.`
1	PATIENT FILE FIELD NUMBER	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<.0000001)!(X?.E1"."9N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN .0000001 AND 9999999` DESCRIPTION: `This field contains the number of the field within the patient file that needs to be corrected.`
2	SAMPLE FILE PIECE NUMBER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>25)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 05, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 25` DESCRIPTION: `This field contains the number of the field in the OPC file that needs to be corrected.`
3	SPECIFIC DATE APPLIED	0;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 21, 1988` DESCRIPTION: `This field contains the date the error was located and placed in this file.` CROSS-REFERENCE: `40.16^AB^MUMPS` `1)= S ^SDASE(DA(1),"AB",X,$P(^SDASE(DA(1),1,DA,0),U),DA)=""` `2)= K ^SDASE(DA(1),"AB",X,$P(^SDASE(DA(1),1,DA,0),U),DA)`
4	DIVISION	0;5	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `SEP 19, 1988` DESCRIPTION: `This field contains the pointer value of the Medical Center Division.`