STANDARD DATA DICTIONARY #452.1 -- PRSE PROGRAM/CLASS FILE 9/29/25 PAGE 1
STORED IN ^PRSE(452.1, *** 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 the names of the continuing education and inservice programs used in the Education Tracking software.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
APPLICATION GROUP(S): PRSE
IDENTIFIED BY: REQUIRED FREQUENCY (#4), TYPE OF EDUCATION (#5)[R], OPEN/CLOSED (#7)[R]
POINTED TO BY: MANDATORY CLASS field (#.01) of the MANDATORY CLASS sub-field (#450.0633) of the PAID EMPLOYEE File (#450)
PROGRAM/CLASS field (#.01) of the PROGRAM/CLASS sub-field (#452.25) of the PRSE EDUCATION PROGRAM/CLASS SUPPLIER
File (#452.2)
MANDATORY CLASSES field (#.01) of the MANDATORY CLASSES sub-field (#452.31) of the PRSE MANDATORY TRAINING (MI)
CLASS GROUP File (#452.3)
PROGRAM/CLASS field (#.01) of the PROGRAM/CLASS sub-field (#452.42) of the PRSE EDUCATION PROGRAM/CLASS CATEGORY
File (#452.4)
CLASS NAME field (#.01) of the PRSE EDUCATION REGISTRATION File (#452.8)
CROSS
REFERENCED BY: PROGRAM/CLASS TITLE(B), TYPE OF EDUCATION(C)
452.1,.01 PROGRAM/CLASS TITLE 0;1 FREE TEXT (Required) (audited)
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'?1P.E)!(X[";") X I $D(X)#
2,$$EN11^PRSEUTL3(X,+$G(D0)) D EN^DDIOL(.PRSEDUPL) K X,PRSEDUPL
LAST EDITED: OCT 17, 2000
HELP-PROMPT: Answer must be 2-53 characters in length
DESCRIPTION:
This is the name of the program or class.
TECHNICAL DESCR:
FREE TEXT FIELD
AUDIT: EDITED OR DELETED
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 452.1^B
1)= S ^PRSE(452.1,"B",$E(X,1,53),DA)=""
2)= K ^PRSE(452.1,"B",$E(X,1,53),DA)
Main index of program/class entries by program/class title.
452.1,1 DESCRIPTION 0;2 FREE TEXT
DESCRIPTION OF PROGRAM OR CLASS
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>72!($L(X)<3) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Enter a short description (3-72 chars.).
DESCRIPTION:
This is a short description for reporting purposes.
TECHNICAL DESCR:
FREE TEXT FIELD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.1,2 PRSE PROGRAM/CLASS LENGTH HRS 0;3 NUMBER (Required)
LENGTH HRS
INPUT TRANSFORM: K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: DEC 14, 1994
HELP-PROMPT: Indicate the number of hours by typing a number between 0 and 9999.99, 2 Decimal Digits.
DESCRIPTION:
This field indicates the class duration in hours.
452.1,4 REQUIRED FREQUENCY 0;6 SET
'1M' FOR MONTHLY;
'3M' FOR QUARTERLY;
'6M' FOR TWICE YEARLY;
'1Y' FOR ONCE YEARLY;
'2Y' FOR EVERY TWO YEARS;
'3Y' FOR EVERY THREE YEARS;
'1T' FOR ONE TIME ONLY;
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) D EN2^PRSEUTL
OUTPUT TRANSFORM: D EN3^PRSEUTL
LAST EDITED: JUN 13, 1995
DESCRIPTION:
This field indicates the mandatory frequency or interval for attending the class.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.1,5 TYPE OF EDUCATION 0;7 SET (Required)
'M' FOR Mandatory Inservice;
'C' FOR Continuing Education;
'O' FOR Other Training;
'W' FOR Ward Inservice;
INPUT TRANSFORM: S X=$$UP^XLFSTR(X)
LAST EDITED: SEP 23, 1994
DESCRIPTION: This field categorizes the class as mandatory inservice, continuing education, ward inservice, or
other.
TECHNICAL DESCR:
Set of codes to indicate the inservice class type.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 452.1^C
1)= S ^PRSE(452.1,"C",$E(X,1,30),DA)=""
2)= K ^PRSE(452.1,"C",$E(X,1,30),DA)
This cross reference is used to sort/lookup inservice class types.
452.1,6 SERVICE 0;8 POINTER TO PAID COST CENTER/ORGANIZATION FILE (#454.1) (Required)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U)'=""MISCELLANEOUS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1994
DESCRIPTION:
This field associates the class with a specific service.
SCREEN: S DIC("S")="I $P($G(^(0)),U)'=""MISCELLANEOUS"""
EXPLANATION: Select Cost Center/Organization Code entry other than 'MISCELLANEOUS'
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^452.8^2.7
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(452.1,6,1,1,89.2) S Y(101)=$S($D(^PRSE(452.8,D0,0)):^(0),1:
"") S X=$S('$D(^PRSP(454.1,+$P(Y(101),U,21),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X=DIV
S X=DIV,X=X X ^DD(452.1,6,1,1,1.4)
1.4)= S DIH=$S($D(^PRSE(452.8,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,21)=DIV,DIH=452.8,
DIG=2.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(452.1,6,1,1,89.2) S Y(101)=$S($D(^PRSE(452.8,D0,0)):^(0),1:
"") S X=$S('$D(^PRSP(454.1,+$P(Y(101),U,21),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(45
2.1,6,1,1,2.1) X ^DD(452.1,6,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^PRSE(452.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X
2.4)= S DIH=$S($D(^PRSE(452.8,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,21)=DIV,DIH=452.8,
DIG=2.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^PRSE(452.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S
X=X K DIC S DIC="^PRSE(452.8,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y
CREATE VALUE)= INTERNAL(#6)
DELETE VALUE)= INTERNAL(#6)
DIC)= LOOKUP
FIELD)= #.01:452.8:#2.7
This trigger updates the sponsoring service field in the PRSE Education registration file (#452.8).
452.1,7 OPEN/CLOSED 0;9 SET (Required)
'1' FOR CLOSED;
'0' FOR OPEN;
LAST EDITED: JAN 21, 1993
DESCRIPTION: This field indicates if the class is opened to individuals outside of the service. Closed programs
will not be displayed to potential registrants from other services.
452.1,8 OBJECTIVE(S) 1;0 WORD-PROCESSING #452.18
TECHNICAL DESCR:
Word processing field used to define the class objectives.
LAST EDITED: OCT 18, 1993
HELP-PROMPT: Define the Program/Class objectives (word-processing).
DESCRIPTION:
This field is used to defined the Program/Class objectives.
FILES POINTED TO FIELDS
PAID COST CENTER/ORGANIZATION
(#454.1) SERVICE (#6)
PRSE EDUCATION REGISTRATION
(#452.8) SERVICE (#6)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):