Global: ^MCAR(690.97

FileMan FileNo	FileMan Filename	Package
690.97	MCQ POLLING	Medicine

Package	Total	Routines
Medicine	2	MCARE1 MCPOS01A

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X` LAST EDITED: `MAY 02, 1996` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `690.97^B` 1)= S ^MCAR(690.97,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(690.97,"B",$E(X,1,30),DA)
.02	TYPE	0;2	SET	'1' FOR PAT; '2' FOR PCC; '3' FOR DEL; LAST EDITED: `MAY 02, 1996`
.03	DA	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `MAY 02, 1996` HELP-PROMPT: `Type a Number between 0 and 999999999999, 6 Decimal Digits`
.04	FILE	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `MAY 02, 1996` HELP-PROMPT: `Type a Number between 0 and 999999999999, 6 Decimal Digits`
.05	MCARGDA	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `MAY 02, 1996` HELP-PROMPT: `Type a Number between 0 and 999999999999, 6 Decimal Digits`
.06	MCQDEL	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 02, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`