Sub-Field: 9002067.01

Parent File	Name	Number	Package
CHS DOCUMENT PRINTED LIST(#9002067)	DOCUMENT	9002067.01	Contract Health Management Information System

Details

Field #	Name	Loc	Type	Details
.01	DOCUMENT	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X K:$D(X)&($L(X)>12)!$D(X)&($L(X)<12) X` LAST EDITED: `MAR 04, 1993` HELP-PROMPT: `ANSWER MUST BE 12 CHARACTERS IN LENGTH` DESCRIPTION: Answer with Document number 12 characters in length NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002067.01^B` 1)= S ^ACHS(7,DA(1),"D","B",$E(X,1,30),DA)="" 2)= K ^ACHS(7,DA(1),"D","B",$E(X,1,30),DA) CROSS-REFERENCE: `9002067^P^MUMPS` 1)= S ^ACHS(7,"P",$P(^ACHS(7,DA(1),"D",DA,0),U,2),$P(^ACHS(7,DA(1),"D",DA,0),U,3),$P(^ACHS(7,DA(1),"D",DA,0),U,4),DA(1),DA)="" 2)= K ^ACHS(7,"P",$P(^ACHS(7,DA(1),"D",DA,0),U,2),$P(^ACHS(7,DA(1),"D",DA,0),U,3),$P(^ACHS(7,DA(1),"D",DA,0),U,4),DA(1),DA)
1	SITE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999` DESCRIPTION: Answer with Site number 1-4 characters 0-9999
2	DOCUMENT POINTER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999` DESCRIPTION: Type a whole number between 1 and 9999999
3	TRANSACTION	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999` DESCRIPTION: Type a whole number between 1 and 9999