Global: ^PRSE(452

FileMan FileNo	FileMan Filename	Package
452	PRSE STUDENT EDUCATION TRACKING	PAID

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

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

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.` LAST EDITED: `DEC 07, 1992` HELP-PROMPT: `This is a word-processing field.` DESCRIPTION: `Enter additional comments regarding program/funding.`

>>	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)

Customize PDF page

Package: PAID

Global: ^PRSE(452

Information

Description

Directly Accessed By Routines, Total: 40

Accessed By FileMan Db Calls, Total: 10

Pointer To FileMan Files, Total: 5

Fields, Total: 31

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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