Global: ^ABSPRJC

FileMan FileNo	FileMan Filename	Package
9002313.3	ABSP REJECT CODES	Pharmacy Point of Sale

FileMan FileNo

FileMan Filename

Package

9002313.3

ABSP REJECT CODES

Package	Total	Routines
Pharmacy Point of Sale	2	ABSPOSR5 ABSPOSUU

Package

Total

Routines

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REJECT CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `AUG 23, 2007` HELP-PROMPT: `Answer must be 2-3 characters in length` CROSS-REFERENCE: `9002313.3^B` 1)= S ^ABSPRJC("B",$E(X,1,30),DA)="" 2)= K ^ABSPRJC("B",$E(X,1,30),DA)
1	TYPE	0;2	SET	'P' FOR PREVENTABLE; 'N' FOR NON-RECOVERABLE; 'B' FOR PREVENTABLE & NON-RECOVERABLE; LAST EDITED: `AUG 23, 2007`
2	EXPLANATION	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `MAY 02, 2008` HELP-PROMPT: `Answer must be 3-60 characters in length` CROSS-REFERENCE: `9002313.3^C` 1)= S ^ABSPRJC("C",$E(X,1,30),DA)="" 2)= K ^ABSPRJC("C",$E(X,1,30),DA)

REJECT CODE

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002313.3^B

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

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

TYPE

0;2

SET

EXPLANATION

0;3

FREE TEXT

CROSS-REFERENCE: 9002313.3^C

1)= S ^ABSPRJC("C",$E(X,1,30),DA)=""

2)= K ^ABSPRJC("C",$E(X,1,30),DA)