Global: ^APSPAF

Field #	Name	Loc	Type	Details
.01	ACTIVITY DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 11, 2011` CROSS-REFERENCE: `9009033.92^B` 1)= S ^APSPAF("B",$E(X,1,30),DA)="" 2)= K ^APSPAF("B",$E(X,1,30),DA)
.02	ORDER NUMBER	0;2	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `JUN 20, 2011` CROSS-REFERENCE: `9009033.92^C` 1)= S ^APSPAF("C",$E(X,1,30),DA)="" 2)= K ^APSPAF("C",$E(X,1,30),DA)
.03	SUCCESSFUL	0;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 11, 2011` DESCRIPTION: Indicates if the autofinish process successfully generated a prescription.
.04	COMMENT	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `MAY 11, 2011` HELP-PROMPT: `Answer must be 1-100 characters in length.`

Information