Sub-Field: 52.2551

Parent File	Name	Number	Package
52.25	COMMENTS	52.2551	Outpatient Pharmacy

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `NOV 03, 2006` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: Reject comment TECHNICAL DESCR: Date and Time CROSS-REFERENCE: `52.2551^B` 1)= S ^PSRX(DA(2),"REJ",DA(1),"COM","B",$E(X,1,30),DA)="" 2)= K ^PSRX(DA(2),"REJ",DA(1),"COM","B",$E(X,1,30),DA)
1	USER	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 02, 2006` HELP-PROMPT: `Enter the user who makes the comment.` DESCRIPTION: The user who makes the comment.
2	COMMENTS	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>150!($L(X)<1) X` LAST EDITED: `NOV 03, 2006` HELP-PROMPT: `Answer must be 1-150 characters in length.` DESCRIPTION: Reject comment.

DATE/TIME

0;1

DATE

CROSS-REFERENCE: 52.2551^B

1)= S ^PSRX(DA(2),"REJ",DA(1),"COM","B",$E(X,1,30),DA)=""

2)= K ^PSRX(DA(2),"REJ",DA(1),"COM","B",$E(X,1,30),DA)

USER

0;2

POINTER TO NEW PERSON FILE (#200)

COMMENTS

0;3

FREE TEXT