Sub-Field: 9001004.2101

Parent File	Name	Number	Package
PCC MAN REPORTS OUTPUT RECORD DEF(#9001004.1)	ITEMS	9001004.2101	VA Sharing-Link To Visit

Details

Field #	Name	Loc	Type	Details
.01	ITEMS	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 25, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9001004.2101^B` 1)= S ^APCLRECD(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^APCLRECD(DA(1),11,"B",$E(X,1,30),DA)
.02	BEGINNING COLUMN	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 14, 1995` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `9001004.2101^AC` 1)= S ^APCLRECD(DA(1),11,"AC",$E(X,1,30),DA)="" 2)= K ^APCLRECD(DA(1),11,"AC",$E(X,1,30),DA)
.03	ENDING COLUMN	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1995` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.04	LENGTH	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1995` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.05	REQUIRED?	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 21, 1995`
.06	EDIT CRITERIA	0;6	SET	'RB' FOR RIGHT BLANK FILL; 'LB' FOR LEFT BLANK FILL; 'LZ' FOR LEFT ZERO FILL; 'RZ' FOR RIGHT ZERO FILL; LAST EDITED: `SEP 21, 1995`
1101	GET CODE	11;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `MAY 06, 1995` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1201	DESCRIPTION	12;0	WORD-PROCESSING #9001004.210112