Global: ^APMM(99.1

FileMan FileNo	FileMan Filename	Package
9002099.1	DUPLICATE CHECKER	Patient Care Component Patient Merge MFI

Fields, Total: 10

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
.01	TYPE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9002099.1^B` 1)= S ^APMM(99.1,"B",$E(X,1,30),DA)="" 2)= K ^APMM(99.1,"B",$E(X,1,30),DA)
1	STATUS	0;2	SET	'C' FOR COMPLETE; 'I' FOR INCOMPLETE; 'H' FOR HALTED; 'R' FOR RUNNING; CROSS-REFERENCE: `9002099.1^AC` 1)= S ^APMM(99.1,"AC",$E(X,1,30),DA)="" 2)= K ^APMM(99.1,"AC",$E(X,1,30),DA)
2	DATE STARTED	0;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X`
3	DATE COMPLETE	0;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X`
4	RESTART CROSSREFERENCE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH`
5	RESTART PATIENT	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH`
6	ENTRY POINT	R;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-8 CHARACTERS IN LENGTH`
7	ROUTINE	R;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<4) X` HELP-PROMPT: `ANSWER MUST BE 4-8 CHARACTERS IN LENGTH`
13	PATIENTS CHECKED	1;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 12, 1988` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`