Global: ^ABSPF(9002313.94

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` CROSS-REFERENCE: `9002313.94^B` 1)= S ^ABSPF(9002313.94,"B",$E(X,1,30),DA)="" 2)= K ^ABSPF(9002313.94,"B",$E(X,1,30),DA)
.02	ROUTINE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 18, 2000` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `label~routine for this rule's logic. The routine's parameters must be as follows:` (.ARRAY,ABSBPATI,PTSPLUS,PTSMINUS)
1	DESCRIPTION	1;0	WORD-PROCESSING #9002313.941

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION

CROSS-REFERENCE: 9002313.94^B

1)= S ^ABSPF(9002313.94,"B",$E(X,1,30),DA)=""

2)= K ^ABSPF(9002313.94,"B",$E(X,1,30),DA)

ROUTINE

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 18, 2000
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: label~routine for this rule's logic. The routine's parameters must be as follows:
```
(.ARRAY,ABSBPATI,PTSPLUS,PTSMINUS)
```

1 DESCRIPTION 1;0 WORD-PROCESSING #9002313.941

Information