Global: ^PRSE(452.6

Information

FileMan FileNo	FileMan Filename	Package
452.6	PRSE SVC REASONS FOR TRAINING	PAID

This file contains the service's reasons for individuals attending a program/class.

Package	Total	Routines
PAID	3	PRSEED1 PRSEED14 PRSEED4

Package	Total	FileMan Files
PAID	2	PRSE STUDENT EDUCATION TRACKING(#452)[#452.033(.01)] PRSE EDUCATION REGISTRATION(#452.8)[#452.877(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REASON FOR EMPLOYEE TRAINING	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S X=$$UP^XLFSTR(X) K:$L(X)>72!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `SEP 12, 1994` HELP-PROMPT: `Answer must be 2-72 characters in length.` DESCRIPTION: `This field contains the service's reason for attending this program/class.` TECHNICAL DESCR: `FREE TEXT (2-72)` EXECUTABLE HELP: `W !,"You may enter a reason for giving this class.",!` DELETE TEST: `1,0)= I 1 D EN^DDIOL("FILE IS POINTED TO - NO DELETION ALLOWED")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `452.6^B` `1)= S ^PRSE(452.6,"B",$E(X,1,72),DA)=""` `2)= K ^PRSE(452.6,"B",$E(X,1,72),DA)` `Main index of file entries by reason for training name.`

REASON FOR EMPLOYEE TRAINING

0;1

FREE TEXT

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

INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>72!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: SEP 12, 1994
HELP-PROMPT: Answer must be 2-72 characters in length.
DESCRIPTION:
This field contains the service's reason for attending this program/class.
TECHNICAL DESCR:
FREE TEXT (2-72)
EXECUTABLE HELP: W !,"You may enter a reason for giving this class.",!
DELETE TEST: 1,0)= I 1 D EN^DDIOL("FILE IS POINTED TO - NO DELETION ALLOWED")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 452.6^B
1)= S ^PRSE(452.6,"B",$E(X,1,72),DA)=""
2)= K ^PRSE(452.6,"B",$E(X,1,72),DA)
Main index of file entries by reason for training name.