Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^PRSE(452.1

Package: PAID

Global: ^PRSE(452.1


Information

FileMan FileNo FileMan Filename Package
452.1 PRSE PROGRAM/CLASS PAID

Description

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
PAID 5 PRSEDEL1    PRSEED5    PRSEED8    PRSEUTL1    PRSEUTL2    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
PAID 5 PRSE EDUCATION PROGRAM/CLASS SUPPLIER(#452.2)[#452.25(.01)]    PRSE MANDATORY TRAINING (MI) CLASS GROUP(#452.3)[#452.31(.01)]    PRSE EDUCATION PROGRAM/CLASS CATEGORY(#452.4)[#452.42(.01)]    PRSE EDUCATION REGISTRATION(#452.8)[.01]    PAID EMPLOYEE(#450)[#450.0633(.01)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
PAID 1 PAID COST CENTER/ORGANIZATION(#454.1)[6]    

Fields, Total: 8

Field # Name Loc Type Details
.01 PROGRAM/CLASS TITLE 0;1 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'?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.
1 DESCRIPTION 0;2 FREE TEXT

  • 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
2 PRSE PROGRAM/CLASS LENGTH HRS 0;3 NUMBER
************************REQUIRED FIELD************************

  • 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.
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
5 TYPE OF EDUCATION 0;7 SET
************************REQUIRED FIELD************************
  • '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.
6 SERVICE 0;8 POINTER TO PAID COST CENTER/ORGANIZATION FILE (#454.1)
************************REQUIRED FIELD************************
PAID COST CENTER/ORGANIZATION(#454.1)

  • 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(452.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).
7 OPEN/CLOSED 0;9 SET
************************REQUIRED FIELD************************
  • '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.
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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All