Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRSE(452

Package: PAID

Global: ^PRSE(452


Information

FileMan FileNo FileMan Filename Package
452 PRSE STUDENT EDUCATION TRACKING PAID

Description

Directly Accessed By Routines, Total: 40

Package Total Routines
PAID 29 FUNDS AUTHORIZED    FUNDS REQUESTED    LABOR DISTRIBUTION    PRSEDEL    PRSEDEL1    PRSEED1    PRSEED10    PRSEED12
PRSEED14    PRSEED2    PRSEED3    PRSEED6    PRSEED7    PRSEED8    PRSEED9    PRSEEMP
PRSEEMP1    PRSEEMP2    PRSEEMP4    PRSEFIX    PRSEPMD4    PRSEPMD5    PRSEPOL1    PRSEUTL1
PRSEUTL2    PRSEUTL3    PRSXP50    SVC REASON    ^PRSE(452    
Nursing Service 9 NURSEP31    NURSEP3I    NURSEPC0    NURSEPC1    NURSEPCA    NURSEPD0    NURSEPD2    NURSEPIN
NURSEPML    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
PAID 9 PRSEDEL    PRSEDEL1    PRSEED12    PRSEED2    PRSEED3    PRSEED7    PRSEED9    PRSEUTL2
PRSXP50    
Nursing Service 1 NURSAGP1    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
PAID 4 PRSE EDUCATION PROGRAM/CLASS CATEGORY(#452.4)[4]    PRSE EMPLOYEE PURPOSE OF TRAINING(#452.51)[4.1]    PRSE SVC REASONS FOR TRAINING(#452.6)[#452.033(.01)]    PRSE EDUCATION ACCREDITATION ORGANIZATIONS(#452.9)[8]    
Kernel 1 NEW PERSON(#200)[.01]    

Fields, Total: 31

Field # Name Loc Type Details
.01 STUDENT NAME 0;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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(DATA,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(DATA,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).
1 PROGRAM/CLASS TITLE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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,VA200DA,DA)
    2)= I $D(^PRSE(452,"AK",X,DA)) X "S PRSENM=0,VA200DA=+$G(^(0)) F S PRSENM=$O(^PRSE(452,""CLS"",X,PRSENM)) Q:PRSENM'>0!(PRSENM'=DA)" S:PRSENM>0 ^PRSE(452,"AK",X,PRSENM)=$$EN7^PRSEUTL3(X,VA200DA,DA) K ^PRSE(452,"AK",X,DA),P
    RSENM
    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.
2 BEGINNING DATE 0;3 DATE
************************REQUIRED FIELD************************

  • 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.
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
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.
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.
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
4 PROGRAM/CLASS CATEGORY 0;5 POINTER TO PRSE EDUCATION PROGRAM/CLASS CATEGORY FILE (#452.4)
************************REQUIRED FIELD************************
PRSE EDUCATION PROGRAM/CLASS CATEGORY(#452.4)

  • 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
4.1 PURPOSE OF TRAINING 2;1 POINTER TO PRSE EMPLOYEE PURPOSE OF TRAINING FILE (#452.51) PRSE EMPLOYEE PURPOSE OF TRAINING(#452.51)

  • LAST EDITED:  JUN 13, 1994
  • DESCRIPTION:  
    This field indicates the reason for the student's training.
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.
6 SOURCE OF TRAINING 0;7 SET
  • '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
7 STUDENT EXPENSE 0;8 NUMBER

  • 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
8 ACCREDITING ORGANIZATION 0;9 POINTER TO PRSE EDUCATION ACCREDITATION ORGANIZATIONS FILE (#452.9) PRSE EDUCATION ACCREDITATION ORGANIZATIONS(#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,
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
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.
10 S.S.N. 0;11 NUMBER
************************REQUIRED FIELD************************

  • 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
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
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.
13 ENDING DATE 0;14 DATE

  • 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
13.5 PROGRAM/CLASS LOCATION 0;15 FREE TEXT

  • 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
14 LOCAL NON-LOCAL 6;1 SET
************************REQUIRED FIELD************************
  • '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.
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
16 HOURS A/A REQUESTED 0;17 NUMBER

  • 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.
17 HOURS A/A GRANTED 0;18 NUMBER

  • 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.
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.
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.
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
33 SVC REASON 1;0 POINTER Multiple #452.033 452.033

  • 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
55 FUNDS REQUESTED 3;0 SET Multiple #452.055 452.055

  • DESCRIPTION:  
    This field indicates intended use of requested funds, e.g., hotel, registration, etc.
66 FUNDS AUTHORIZED 4;0 SET Multiple #452.066 452.066

  • DESCRIPTION:  
    This field indicates intended use of authorized funds, e.g., hotel, airfare.
77 C.E.U. COMMENTS 5;0 WORD-PROCESSING #452.077

  • DESCRIPTION:  
    This field contains additional comments regarding program/funding.

External References

Name Field # of Occurrence
DQ^DICQ 1(HELP )
D^DIQ 2OT+1
EN10^PRSEUTL2 2+1, 13+1
$$EN7^PRSEUTL3 1(XREF 4S), 1(XREF 4K)
DALCLS^PRSEUTL3 2(XREF 5K)
DALCLS1^PRSEUTL3 1(XREF 5K)
SALCLS^PRSEUTL3 2(XREF 5S)
SALCLS1^PRSEUTL3 1(XREF 5S)
$$UP^XLFSTR 1+1, 2.4+1, 12+1, 13.5+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSE(452 - [#452] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 1(XREF 6S), 1(XREF 6K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
2(XREF 3S), 2(XREF 3K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 12(XREF 1S), 12(XREF 1K), 14(XREF 1S), 14(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, ID2+1
^(6 .01(XREF 3S), .01(XREF 3K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 1(HELP )
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 1(XREF 6S), 1(XREF 6K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
2(XREF 3S), 2(XREF 3K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 12(XREF 1S), 12(XREF 1K), 14(XREF 1S), 14(XREF 1K)
DATA .01(XREF 3S), .01(XREF 3K), 5(XREF 2S), 5(XREF 2K), 14(XREF 1S), 14(XREF 1K)
DATA(1 .01(XREF 3S), .01(XREF 3K)
>> DIC 1(HELP )
>> DIC(0 1(HELP )
PDATA .01(XREF 2S), .01(XREF 2K), 1(XREF 3S), 1(XREF 3K), 2(XREF 2S), 2(XREF 2K), 5(XREF 1S), 5(XREF 1K)
>> PRSE 1(XREF 6S), 1(XREF 6K), 2+1*, 2(XREF 1S), 2(XREF 1K), 13+1*
PRSENM 1(XREF 4K)
U ID1+1, ID2+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K)
1(XREF 6S), 1(XREF 6K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
14(XREF 1S), 14(XREF 1K)
>> VA200DA 1(XREF 4S), 1(XREF 4K)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S)
1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 2OT+1*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
2(XREF 3S), 2(XREF 3K), 2.1+1!, 2.2+1!, 2.3+1!, 2.4+1*!, 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
, 7+1*!, 9+1!, 9.1+1!, 10+1!, 12+1*!, 12(XREF 1S), 12(XREF 1K), 13.5+1*!, 14(XREF 1S), 14(XREF 1K)
, 16+1!, 17+1!, 18+1*!, 19+1*!
XX .01(XREF 2S), .01(XREF 2K)
>> Y 2OT+1
>> Y(0 2OT+1*
YY .01(XREF 2S), .01(XREF 2K), 1(XREF 3S), 1(XREF 3K), 2(XREF 2S), 2(XREF 2K), 5(XREF 1S), 5(XREF 1K)
ZZ .01(XREF 2S), .01(XREF 2K), 1(XREF 3S), 1(XREF 3K), 2(XREF 2S), 2(XREF 2K), 5(XREF 1S), 5(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All