STANDARD DATA DICTIONARY #452 -- PRSE STUDENT EDUCATION TRACKING FILE 3/24/25 PAGE 1 STORED IN ^PRSE(452, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains information on employee and non-employee attendance at continuing education and inservice programs. DD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ APPLICATION GROUP(S): PRSE IDENTIFIED BY: PROGRAM/CLASS TITLE (#1)[R], BEGINNING DATE (#2)[R] CROSS REFERENCED BY: STUDENT NAME(AB), PROGRAM/CLASS TITLE(AC), BEGINNING DATE(AD), STUDENT NAME(AE), PROGRAM/CLASS TITLE(AF), PROGRAM/CLASS TITLE(AK), BEGINNING DATE(AL), STUDENT NAME(B), PROGRAM/CLASS TITLE(CLS), BEGINNING DATE(D), PROGRAM/CLASS TITLE(D1), PROGRAM/CLASS TITLE(E), TYPE OF EDUCATION(F), BEGINNING DATE(H), LOCAL NON-LOCAL(LOC1), TYPE OF EDUCATION(LOC2), SPONSORING SERVICE(SER) 452,.01 STUDENT NAME 0;1 POINTER TO NEW PERSON FILE (#200) (Required) NAME OF STUDENT LAST EDITED: JUN 18, 1993 DESCRIPTION: This is the name of the employee who attended this program/class. TECHNICAL DESCR: POINTER TO NEW PERSON FILE CROSS-REFERENCE: 452^B 1)= S ^PRSE(452,"B",$E(X,1,30),DA)="" 2)= K ^PRSE(452,"B",$E(X,1,30),DA) This X-Ref is the main index on student tracking file which indexes file by student name which is a pointer to the New Person (#200) file. CROSS-REFERENCE: 452^AB^MUMPS 1)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3),XX=$P(PDATA,U,21) S:'(YY="")&'(XX="") &(+ZZ>0) ^PRSE(452,"AA",XX,$E(X,1,30),YY,(9999999-ZZ),DA)="" K PDATA,YY,ZZ,XX 2)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3),XX=$P(PDATA,U,21) K:'(YY="")&'(XX="") &(+ZZ>0) ^PRSE(452,"AA",XX,$E(X,1,30),YY,(9999999-ZZ),DA) K PDATA,YY,ZZ,XX This MUMPS Cross reference indicates the latest time/date a particular type of inservice class was taken. It includes the class type, the class, the #200 File pointer for the employee, and the inverse start date for the class. CROSS-REFERENCE: 452^AE^MUMPS 1)= S DATA=$G(^PRSE(452,DA,0)),DATA(1)=$S('($P($G(^PRSE(452,DA,6)),U)=""):$P(^(6),U),1:"L") I $P(DA TA,U,21)'="",'(DATA(1)="") S ^PRSE(452,"G",$P(DATA,U,21),DATA(1),X,DA)="" K DATA 2)= S DATA=$G(^PRSE(452,DA,0)),DATA(1)=$S('($P($G(^PRSE(452,DA,6)),U)=""):$P(^(6),U),1:"L") I $P(DA TA,U,21)'="",'(DATA(1)="") K ^PRSE(452,"G",$P(DATA,U,21),DATA(1),X,DA) K DATA Indexes continuing education classes by type (local/non-local). 452,1 PROGRAM/CLASS TITLE 0;2 FREE TEXT (Required) NAME OF PROGRAM OR CLASS INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>53!($L(X)<2) X LAST EDITED: MAY 15, 1997 HELP-PROMPT: Answer must be 2-53 characters in length DESCRIPTION: This is the name of the program/class attended. TECHNICAL DESCR: FREE TEXT NAME OF EDUCATION PROGRAM/CLASS TITLE FILE ^PRSE(452.1, ENTRY. EXECUTABLE HELP: S DIC="^PRSE(452.1,",DIC(0)="EQ",D="B" D DQ^DICQ NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452^E^MUMPS 1)= S ^PRSE(452,"CLAS",$P(^PRSE(452,DA,0),U),$E(X,1,53),DA)="" 2)= K ^PRSE(452,"CLAS",$P(^PRSE(452,DA,0),U),$E(X,1,53),DA) Indicates the latest date/time a particular class was taken. It includes the File 200 pointer for the employee and the inverse start date of the class. CROSS-REFERENCE: 452^CLS 1)= S ^PRSE(452,"CLS",$E(X,1,53),DA)="" 2)= K ^PRSE(452,"CLS",$E(X,1,53),DA) CROSS-REFERENCE: 452^AC^MUMPS 1)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,3),ZZ=$P(PDATA,U,21) S:(+PDATA>0)&(+YY>0)&'(ZZ="") ^PRSE( 452,"AA",ZZ,+PDATA,$E(X,1,53),(9999999-YY),DA)="" K PDATA,YY,ZZ 2)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,3),ZZ=$P(PDATA,U,21) K:(+PDATA>0)&(+YY>0)&'(ZZ="") ^PRSE( 452,"AA",ZZ,+PDATA,$E(X,1,53),(9999999-YY),DA) K PDATA,YY,ZZ See description on AB MUMPS cross reference. CROSS-REFERENCE: 452^AK^MUMPS 1)= S VA200DA=+$G(^PRSE(452,DA,0)) S:'$D(^PRSE(452,"AK",X)) ^PRSE(452,"AK",X,DA)=$$EN7^PRSEUTL3(X,V A200DA,DA) 2)= I $D(^PRSE(452,"AK",X,DA)) X "S PRSENM=0,VA200DA=+$G(^(0)) F S PRSENM=$O(^PRSE(452,""CLS"",X,P RSENM)) Q:PRSENM'>0!(PRSENM'=DA)" S:PRSENM>0 ^PRSE(452,"AK",X,PRSENM)=$$EN7^PRSEUTL3(X,VA200DA,DA) K ^PRSE(452,"AK",X,DA),PRSENM This cross reference is used to look up each class which has been entered in the Education Tracking File. CROSS-REFERENCE: 452^AF^MUMPS 1)= D SALCLS1^PRSEUTL3 2)= D DALCLS1^PRSEUTL3 Indexes file by each class/date occurrence. CROSS-REFERENCE: 452^D1^MUMPS 1)= S PRSE=$G(^PRSE(452,DA,0)) I +$P(PRSE,U,3)=$P(PRSE,U,3),'($P(PRSE,U,2)="") S ^PRSE(452,"DAT",$P (PRSE,U,2),(9999999-+$P(PRSE,U,3)),DA)="" 2)= S PRSE=$G(^PRSE(452,DA,0)) I +$P(PRSE,U,3)=$P(PRSE,U,3),'($P(PRSE,U,2)="") K ^PRSE(452,"DAT",$P (PRSE,U,2),(9999999-+$P(PRSE,U,3)),DA) See description for D X-Ref of file 452. 452,2 BEGINNING DATE 0;3 DATE (Required) DATE PROGRAM/CLASS BEGAN INPUT TRANSFORM: S PRSE="S" D EN10^PRSEUTL2 OUTPUT TRANSFORM: S X=Y D D^DIQ LAST EDITED: FEB 15, 1994 HELP-PROMPT: Enter the date/time (time is optional) DESCRIPTION: This is the scheduled start date/time for the program or class. TECHNICAL DESCR: BEGINNING DATE/TIME NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452^D^MUMPS 1)= S PRSE=$G(^PRSE(452,DA,0)) I +X=X,'($P(PRSE,U,2)="") S ^PRSE(452,"DAT",$P(PRSE,U,2),(9999999-X) ,DA)="" 2)= S PRSE=$G(^PRSE(452,DA,0)) I +X=X,'($P(PRSE,U,2)="") K ^PRSE(452,"DAT",$P(PRSE,U,2),(9999999-X) ,DA) This an inverted date mumps X-Ref by Class/Date for File 452. CROSS-REFERENCE: 452^AD^MUMPS 1)= S PDATA=^PRSE(452,DA,0),ZZ=$P(PDATA,U,2),YY=$P(PDATA,U,21) S:(+PDATA>0)&'(ZZ="")&'(YY="") ^PRSE (452,"AA",YY,+PDATA,ZZ,(9999999-+X),DA)="" K PDATA,ZZ,YY 2)= S PDATA=^PRSE(452,DA,0),ZZ=$P(PDATA,U,2),YY=$P(PDATA,U,21) K:(+PDATA>0)&'(ZZ="")&'(YY="") ^PRSE (452,"AA",YY,+PDATA,ZZ,(9999999-+X),DA) K PDATA,ZZ,YY See description for the AB MUMPS cross reference. CROSS-REFERENCE: 452^H 1)= S ^PRSE(452,"H",$E(X,1,30),DA)="" 2)= K ^PRSE(452,"H",$E(X,1,30),DA) Indexes student tracking record entries by start date. CROSS-REFERENCE: 452^AL^MUMPS 1)= D SALCLS^PRSEUTL3 2)= D DALCLS^PRSEUTL3 Indexes file by each class/date occurence. 452,2.1 PRSE PROGRAM/CLASS LENGTH HRS 0;16 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X LAST EDITED: DEC 09, 1994 HELP-PROMPT: Indicate class hours by typing a Number between 0 and 9999.99, 2 Decimal Digits. DESCRIPTION: The length of the class in hours. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,2.2 CLASS HRS DURING ON-DUTY TIME 0;23 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: MAY 24, 1993 HELP-PROMPT: Indicate on duty hours by entering a Number between 0 and 9999, 0 Decimal Digits. DESCRIPTION: The number of class room hours during the student's on-duty time. 452,2.3 CLASS HRS DURING OFF-DUTY TIME 0;24 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: MAY 24, 1993 HELP-PROMPT: Indicate off duty hours by entering a Number between 0 and 9999, 0 Decimal Digits. DESCRIPTION: The number of class room hours during the student's off-duty time. 452,2.4 PROGRAM/CLASS SUPPLIER 6;2 FREE TEXT INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X LAST EDITED: SEP 20, 1994 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains the company or organization who supplied the materials for this class. DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,4 PROGRAM/CLASS CATEGORY 0;5 POINTER TO PRSE EDUCATION PROGRAM/CLASS CATEGORY FILE (#452.4) (Required) CLASS CATEGORY LAST EDITED: OCT 31, 1994 DESCRIPTION: This is a group of related subjects as categorized on VA Form 5-4691 (Report of Employee Training) under #14. TECHNICAL DESCR: POINTER TO EDUCATION PROGRAM/CLASS CATEGORY FILE ^PRSE(452.4, NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,4.1 PURPOSE OF TRAINING 2;1 POINTER TO PRSE EMPLOYEE PURPOSE OF TRAINING FILE (#452.51) LAST EDITED: JUN 13, 1994 DESCRIPTION: This field indicates the reason for the student's training. 452,5 TYPE OF EDUCATION 0;21 SET 'M' FOR MANDATORY INSERVICE; 'O' FOR OTHER TRAINING; 'C' FOR CONTINUING EDUCATION; 'W' FOR WARD INSERVICE; LAST EDITED: OCT 31, 1994 DESCRIPTION: This field categorizes the class as mandatory inservice, continuing education, ward inservice, or other. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452^F^MUMPS 1)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3) S:YY'=""&(+ZZ>0) ^PRSE(452,"AA",$E(X, 1,30),+PDATA,YY,(9999999-ZZ),DA)="" K PDATA,YY,ZZ 2)= S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3) K:YY'=""&(+ZZ>0) ^PRSE(452,"AA",$E(X, 1,30),+PDATA,YY,(9999999-ZZ),DA) K PDATA,YY,ZZ See description of AB MUMPS XREF. CROSS-REFERENCE: 452^LOC2^MUMPS 1)= S DATA=$P($G(^PRSE(452,DA,6)),U) I DATA'="" S ^PRSE(452,"G",X,DATA,DA)="" 2)= S DATA=$P($G(^PRSE(452,DA,6)),U) I DATA'="" K ^PRSE(452,"G",X,DATA,DA) See description for LOC1 XREF. 452,6 SOURCE OF TRAINING 0;7 SET COST TO GOVERNMENT '1' FOR VA; '2' FOR INTERAGENCY; '3' FOR NON-GOVERNMENT (Designed for VA); '4' FOR NON-GOVERNMENT (e.g. Institution, Company or University); '5' FOR STATE OR LOCAL GOVERNMENT; INPUT TRANSFORM: S X=$$UP^XLFSTR(X) Q LAST EDITED: NOV 23, 1994 DESCRIPTION: This field identifies the source of funding for the program. TECHNICAL DESCR: SET OF CODES PERTAINING TO GOVERNMENT COST NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,7 STUDENT EXPENSE 0;8 NUMBER COST TO THE STUDENT INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>2000)!(X<0) X LAST EDITED: MAY 21, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 2000, 2 Decimal Digits. DESCRIPTION: This is the amount, if any, incurred by this employee for a government sponsored program or class. TECHNICAL DESCR: THIS IS A DOLLAR AMOUNT FIELD 452,8 ACCREDITING ORGANIZATION 0;9 POINTER TO PRSE EDUCATION ACCREDITATION ORGANIZATIONS FILE (#452.9) LAST EDITED: FEB 04, 1993 DESCRIPTION: This field contains the name of the organization accrediting the program. TECHNICAL DESCR: POINTER TO EDUCATION ACCREDITATION ORGANINZATION FILE ^PRSE(452.9, 452,9 CONTACT HOURS 0;10 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X LAST EDITED: JUL 06, 1993 HELP-PROMPT: Type a Number between 0 and 9999.99, 2 Decimal Digits. DESCRIPTION: This field contains the number of contact hours associated with this program. TECHNICAL DESCR: NUMERIC FIELD WITH 2 DECIMALS 452,9.1 C.E.U.s 0;6 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X LAST EDITED: MAY 29, 1997 HELP-PROMPT: Type a Number between 0 and 9999.99, 2 Decimal Digits DESCRIPTION: This is the number of continuing education units associated with this class. 452,10 S.S.N. 0;11 NUMBER (Required) INPUT TRANSFORM: K:$L(X)>9!($L(X)<9)!'(X?9N) X LAST EDITED: AUG 26, 1994 HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits. DESCRIPTION: This is the social security number of the student. TECHNICAL DESCR: NUMERIC FIELD EXECUTABLE HELP: W !!,"Social Security is a required field." NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,11 CODE FOR OLDE 0;12 SET 'Y' FOR CODED; 'N' FOR NOT CODED; INPUT TRANSFORM: S X=$$UP^XLFSTR(X) LAST EDITED: SEP 23, 1994 HELP-PROMPT: Please enter the status of this program or class DESCRIPTION: This field indicates whether or not this record should be transmitted to Austin, Texas. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,12 SPONSORING SERVICE 0;13 FREE TEXT INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X LAST EDITED: AUG 03, 1995 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is the name of the student's service. TECHNICAL DESCR: EMPLOYEE SERVICE/SECTION OR STUDENT LOCATION EXECUTABLE HELP: W !,"Enter the employees service/section or students location." NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452^SER 1)= S ^PRSE(452,"SER",$E(X,1,30),DA)="" 2)= K ^PRSE(452,"SER",$E(X,1,30),DA) Indexes student tracking entries by student's service. 452,13 ENDING DATE 0;14 DATE DATE PROGRAM/CLASS ENDED INPUT TRANSFORM: S PRSE="E" D EN10^PRSEUTL2 LAST EDITED: APR 21, 1993 HELP-PROMPT: Enter the data/time (time is optional) DESCRIPTION: This is the date/time the program is scheduled to end. TECHNICAL DESCR: ENDING DATE/TIME NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,13.5 PROGRAM/CLASS LOCATION 0;15 FREE TEXT PLACE WHERE PROGRAM/CLASS GIVEN INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X LAST EDITED: AUG 22, 1994 HELP-PROMPT: Answer must be 3-30 characters in length DESCRIPTION: This field contains a general location for the class, e.g., Nursing Education, Training Room # ... TECHNICAL DESCR: FREE TEXT FIELD NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,14 LOCAL NON-LOCAL 6;1 SET (Required) 'L' FOR LOCAL; 'N' FOR NON-LOCAL; LAST EDITED: OCT 27, 1994 DESCRIPTION: This field indicates when the class was presented at the VA facility (local) or at another location (non-local). NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452^LOC1^MUMPS 1)= I X'="" S DATA=$G(^PRSE(452,DA,0)) I +$G(DATA)>0,$P(DATA,U,21)="C" S ^PRSE(452,"G","C",X,+DATA, DA)="" 2)= I 'X="" S DATA=$G(^PRSE(452,DA,0)) I +$G(DATA)>0,$P(DATA,U,21)="C" K ^PRSE(452,"G","C",X,+DATA, DA) This cross reference indexes continuing education classes by type (local-non/local)employee, and internal entry number. 452,15 GOVERNMENT FUNDED 0;22 SET 'G' FOR GOVERNMENT FUNDED; 'E' FOR EMPLOYEE FUNDED; LAST EDITED: OCT 27, 1994 DESCRIPTION: This field indicates that the program was paid for by the gov't or by the employee. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 452,16 HOURS A/A REQUESTED 0;17 NUMBER ANUAL LEAVE REQUESTED INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: NOV 09, 1992 HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits. DESCRIPTION: This field contains the hours of authorized absence requested by employee to attend a program. 452,17 HOURS A/A GRANTED 0;18 NUMBER ANUAL LEAVE GRANTED INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: NOV 09, 1992 HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits. DESCRIPTION: This field contains the total hours of authorized absence granted to attend a program. 452,18 DIRECT COST 0;19 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X LAST EDITED: MAY 21, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits. DESCRIPTION: This field contains the direct government cost (tuition, books, etc.) of the program. Refer to VA Form 5-4691, field 13. 452,19 INDIRECT COST 0;20 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X LAST EDITED: MAY 21, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits. DESCRIPTION: This field contains the indirect government cost (travel, per diem) of the program. Refer to VA Form 5-4691, field 13. 452,20 ROUTINE/NON-ROUTINE 0;4 SET 'R' FOR ROUTINE; 'N' FOR NON-ROUTINE; LAST EDITED: NOV 01, 1994 HELP-PROMPT: Enter (R)outine if class does not enhance employee's job qualifications, or (N)on-Routine if the opposite is true. DESCRIPTION: This field indicates whether or not the class enhances or does not enhance the employee's job qualifications. TECHNICAL DESCR: set of codes 452,33 SVC REASON 1;0 POINTER Multiple #452.033 (Add New Entry without Asking) DESCRIPTION: This field contains the service's reason or purpose for emloyees attending the class. This field uses data contained in File 452.6. TECHNICAL DESCR: POINTER TO SVC REASON FOR TRAINING File 452.6 452.033,.01 SVC REASON 0;1 POINTER TO PRSE SVC REASONS FOR TRAINING FILE (#452.6) (Multiply asked) SVC REASON FOR CLASS LAST EDITED: MAY 21, 1993 DESCRIPTION: This field contains the service's reason or purpose for employees attending the class. This field uses data contained in File 452.6. TECHNICAL DESCR: POINTER TO SVC REASON FOR TRAINING File 452.6 CROSS-REFERENCE: 452.033^B 1)= S ^PRSE(452,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^PRSE(452,DA(1),1,"B",$E(X,1,30),DA) Main index of service reason entries that point to the PRSE SVC REASONS FOR TRAINING (#452.6) File. 452,55 FUNDS REQUESTED 3;0 SET Multiple #452.055 (Add New Entry without Asking) DESCRIPTION: This field indicates intended use of requested funds, e.g., hotel, registration, etc. 452.055,.01 FUNDS REQUESTED 0;1 SET (Multiply asked) 'A' FOR AIRFARE; 'P' FOR PER DIEM; 'R' FOR REGISTRATION; 'H' FOR HOTEL; 'T' FOR TRAVEL; 'N' FOR NONE REQUESTED; 'U' FOR TUITION; 'B' FOR BOOKS/MATERIALS; 'D' FOR DIRECT OTHER; 'I' FOR INDIRECT OTHER; INPUT TRANSFORM: S X=$$UP^XLFSTR(X) Q LAST EDITED: AUG 22, 1994 DESCRIPTION: This field indicates intended use of requested funds, e.g., hotel, registration, etc. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452.055^B 1)= S ^PRSE(452,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^PRSE(452,DA(1),3,"B",$E(X,1,30),DA) Main index of Funds Requested entries from the defined code set. 452.055,1 AMOUNT REQUESTED 0;2 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X LAST EDITED: MAY 21, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits. DESCRIPTION: This field stores the total funding (dollar amount) requested by employee. 452,66 FUNDS AUTHORIZED 4;0 SET Multiple #452.066 (Add New Entry without Asking) DESCRIPTION: This field indicates intended use of authorized funds, e.g., hotel, airfare. 452.066,.01 FUNDS AUTHORIZED 0;1 SET (Multiply asked) 'A' FOR AIRFARE; 'P' FOR PER DIEM; 'R' FOR REGISTRATION; 'H' FOR HOTEL; 'T' FOR TRAVEL; 'N' FOR NONE REQUESTED; 'U' FOR TUITION; 'B' FOR BOOKS/MATERIALS; 'D' FOR DIRECT OTHER; 'I' FOR INDIRECT OTHER; INPUT TRANSFORM: S X=$$UP^XLFSTR(X) Q LAST EDITED: AUG 22, 1994 DESCRIPTION: This field indicates intended use of authorized funds, e.g., hotel, airfare. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 452.066^B 1)= S ^PRSE(452,DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^PRSE(452,DA(1),4,"B",$E(X,1,30),DA) Main index of the Funds Authorized entries from the defined code set. 452.066,1 AMOUNT AUTHORIZED 0;2 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X LAST EDITED: MAY 21, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits. DESCRIPTION: This field stores the dollar amount authorized by a service to an employee. 452,77 C.E.U. COMMENTS 5;0 WORD-PROCESSING #452.077 DESCRIPTION: This field contains additional comments regarding program/funding. LAST EDITED: DEC 07, 1992 HELP-PROMPT: This is a word-processing field. DESCRIPTION: Enter additional comments regarding program/funding. FILES POINTED TO FIELDS NEW PERSON (#200) STUDENT NAME (#.01) PRSE EDUCATION ACCREDITATION O (#452.9) ACCREDITING ORGANIZATION (#8) PRSE EDUCATION PROGRAM/CLASS C (#452.4) PROGRAM/CLASS CATEGORY (#4) PRSE EMPLOYEE PURPOSE OF TRAIN (#452.51) PURPOSE OF TRAINING (#4.1) PRSE SVC REASONS FOR TRAINING (#452.6) SVC REASON:SVC REASON (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):