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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 27

Package Total Routines
PAID 22 LABOR DISTRIBUTION    PRSECAL    PRSEDEL    PRSEDEL1    PRSEED0    PRSEED1    PRSEED12    PRSEED14
PRSEED4    PRSEED7    PRSEEMP1    PRSEEMP2    PRSEEMP4    PRSEPMC    PRSEPMD4    PRSEPMD5
PRSEUTL    PRSEUTL2    PRSEUTL3    PRSEUTL4    ^PRSE(452.1    PRSXP50    
Nursing Service 5 NURSAGP1    NURSEPD0    NURSEPD2    NURSEPIN    NURSEPML    

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.

External References

Name Field # of Occurrence
EN^DDIOL .01+1
^DIC 6+1, 6(XREF 1n89.2)
^DICR 6(XREF 1n1.4), 6(XREF 1n2.4)
EN3^PRSEUTL 4OT+1
$$EN11^PRSEUTL3 .01+1
$$UP^XLFSTR .01+1, 1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 6(XREF 1n1.4), 6(XREF 1n2.4)
^DD(452.1 6(XREF 1S), 6(XREF 1K)
^PRSE(452.1 - [#452.1] .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n89.2)
^PRSE(452.8 - [#452.8] 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
^PRSP(454.1 - [#454.1] 6(XREF 1S), 6(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID4+1, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4), 6(XREF 1n89.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 6(XREF 1n89.2)
>> D0 .01+1, 6(XREF 1S), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n89.2)
>> DA .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K)
DIC ID5+1, ID7+1, 6+1!*, 6(XREF 1n89.2)
DIC("S" 6+1*, 6SCR+1*
DIC(0 6(XREF 1n89.2)
>> DIE 6+1
>> DIG 6(XREF 1n1.4), 6(XREF 1n2.4)
>> DIH 6(XREF 1n1.4), 6(XREF 1n2.4)
>> DIU 6(XREF 1S), 6(XREF 1K)
DIV 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4)
DIV(0 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4), 6(XREF 1n89.2)
>> I(0 6(XREF 1S), 6(XREF 1K), 6(XREF 1n89.2)
PRSEDUPL .01+1!
U ID4+1, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4), 6(XREF 1n89.2)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1!, 5(XREF 1S), 5(XREF 1K), 6+1*!, 6(XREF 1S), 6(XREF 1n1.4)
, 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4), 6(XREF 1n89.2)
Y 4OT+1, 6+1, 6(XREF 1S), 6(XREF 1K), 6(XREF 1n89.2)
Y(0 4OT+1*
Y(1 6(XREF 1n2.1), 6(XREF 1n89.2)
Y(101 6(XREF 1S), 6(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All