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 |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^NURSF(210

Package: Nursing Service

Global: ^NURSF(210


Information

FileMan FileNo FileMan Filename Package
210 NURS STAFF Nursing Service

Description

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Nursing Service 9 NURA7A    NURAED0    NURAED5    NURASPL    NURASPT    NURSAGP1    NURSEPCA    NURSEXP
NURSUT1    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Nursing Service 7 NURS PAY SCALE(#211.1)[6.5]    NURS SERVICE POSITION(#211.3)[#210.13(1)]    NURS EDUCATION(#212.1)[21.5, 21.7, #210.04(.01)]
NURS CERTIFICATION(#212.2)[#210.024(.01)]    NURS COLLEGE MAJOR(#212.3)[#210.04(1)]    *NURS MANDATORY INSERVICE(#212.4)[#210.05(1)]    NURS PRIVILEGE(#212.6)[#210.19(.01)]    
Kernel 2 STATE(#5)[13.7, #210.02(5), #210.03(.01)]
NEW PERSON(#200)[.01, #210.03(1.6), #210.18(1)]
Registration 1 BRANCH OF SERVICE(#23)[#210.06(1)]    

Fields, Total: 53

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

  • LAST EDITED:  AUG 07, 1990
  • HELP-PROMPT:  Name of employee (Last,First MI)
  • DESCRIPTION:  
    Pointer to NEW PERSON FILE (#200).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  210^B
    1)= S ^NURSF(210,"B",$E(X,1,30),DA)=""
    2)= K ^NURSF(210,"B",$E(X,1,30),DA)
    This is the main index on the NURS STAFF file on the Employee Name Field.
1 SOCIAL SECURITY NUMBER COMPUTED

  • MUMPS CODE:  S:$D(^VA(200,$P(^NURSF(210,D0,0),"^"),1)) NSSN=$P(^(1),"^",9),X=$E(NSSN,1,3)_"-"_$E(NSSN,4,5)_"-"_$E(NSSN,6,9) K NSSN
  • ALGORITHM:  S:$D(^VA(200,$P(^NURSF(210,D0,0),"^"),1)) NSSN=$P(^(1),"^",9),X=$E(NSSN,1,3)_"-"_$E(NSSN,4,5)_"-"_$E(NSSN,6,9) K NSSN
  • LAST EDITED:  MAY 18, 1990
  • DESCRIPTION:  
    Extended pointer to NEW PERSON FILE (field 9 of FILE #200). Employee's SSN.
2 PRIMARY SERVICE POSITION COMPUTED

  • MUMPS CODE:  S DA=D0 D EN2^NURSUT0 S X=$S($G(NPSPOS)="":"",1:$G(NPSPOS)) K DA,NPSPOS,NOD1,NOD2
  • ALGORITHM:  S DA=D0 D EN2^NURSUT0 S X=$S($G(NPSPOS)="":"",1:$G(NPSPOS)) K DA,NPSPOS,NOD1,NOD2
  • LAST EDITED:  MAR 22, 1995
  • DESCRIPTION:  
    This field indicates the employee's primary SERVICE POSITION.
3 LOCATION PRIMARY PRODUCT LINE COMPUTED

  • MUMPS CODE:  S DA=+D0 D EN2^NURSUT0 S X=$P($G(^NURSF(212.7,+$P($G(^NURSF(211.4,+$O(^NURSF(211.4,"B",+$G(^NURSF(211.8,+$G(NOD1),0)),0)),1)),"^",4),0)),"^")
  • ALGORITHM:  S DA=+D0 D EN2^NURSUT0 S X=$P($G(^NURSF(212.7,+$P($G(^NURSF(211.4,+$O(^NURSF(211.4,"B",+$G(^NURSF(211.8,+$G(NOD1),0)),0)),1)),"^",4),0)),"^")
  • LAST EDITED:  JUL 29, 1996
  • DESCRIPTION:  
    This field indicates the service/program/product line associated with the employee's primary assignment.
3.1 SVC POS PRIMARY PRODUCT LINE COMPUTED

  • MUMPS CODE:  S DA=+D0 D EN2^NURSUT0 S X=$G(NPSPOS(2))
  • ALGORITHM:  S DA=+D0 D EN2^NURSUT0 S X=$G(NPSPOS(2))
  • DESCRIPTION:  
    This field indicates the service/program/product line associated with the employee's primary service position.
4 PRIMARY FACILITY COMPUTED

  • MUMPS CODE:  S DA=+D0 D EN2^NURSUT0 Q:'NOD1 S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,NOD1,0)),0)),U,4),.01,"I")
  • ALGORITHM:  S DA=+D0 D EN2^NURSUT0 Q:'NOD1 S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,NOD1,0)),0)),U,4),.01,"I")
  • LAST EDITED:  MAR 04, 2003
  • DESCRIPTION:  
    This field indicates the Institution/Division associated with the employee's primary assignment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 TOTAL ASSIGNMENT FTEE COMPUTED

  • MUMPS CODE:  S NUR("DA")=D0 D EN1^NURSUT2 S X=+$J(NURTFTEE,5,3) K NURTFTEE
  • ALGORITHM:  S NUR("DA")=D0 D EN1^NURSUT2 S X=$J(NURTFTEE,5,3) K NURTFTEE
  • LAST EDITED:  MAY 22, 1997
  • DESCRIPTION:  
    This is the employee's actual FTEE.
  • EXECUTABLE HELP:  W:$D(NURSEP) !,?5,"TYPE A NUMBER BETWEEN 0 AND 1 (e.g. 0,.2,.5,1)."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5.5 STATUS 0;2 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INTERMITTENT;
  • 'R' FOR INACTIVE;

  • LAST EDITED:  FEB 12, 1991
  • DESCRIPTION:  
    Indicates if the individual is currently employed in Nursing Service. IDENTIFIER
  • CROSS-REFERENCE:  210^AC
    1)= S ^NURSF(210,"AC",$E(X,1,30),DA)=""
    2)= K ^NURSF(210,"AC",$E(X,1,30),DA)
    This index is used to identify the employee's status.
6 LOCATION COMPUTED

  • MUMPS CODE:  D EN2^NURSUT2
  • ALGORITHM:  D EN2^NURSUT2
  • LAST EDITED:  AUG 18, 1988
  • DESCRIPTION:  
    Employee's Primary Assignment Location.
6.3 ASSIGN TOUR OF DUTY COMPUTED

  • MUMPS CODE:  S DA=D0 D EN3^NURSUT0 S NUR=$S($D(^NURSF(211.8,+NOD1,1,+NOD2,0)):$P(^(0),U,10),1:""),X=$S($D(^NURSF(211.6,+NUR,0)):$P(^(0),U),1:"") K NUR,NOD1,NOD2
  • ALGORITHM:  S DA=D0 D EN3^NURSUT0 S NUR=$S($D(^NURSF(211.8,+NOD1,1,+NOD2,0)):$P(^(0),U,10),1:""),X=$S($D(^NURSF(211.6,+NUR,0)):$P(^(0),U),1:"") K NUR,NOD1,NOD2
  • LAST EDITED:  AUG 18, 1992
  • DESCRIPTION:  
    Employee's primary assignment location.
6.5 GRADE/STEP CODE 7;1 POINTER TO NURS PAY SCALE FILE (#211.1)
************************REQUIRED FIELD************************
NURS PAY SCALE(#211.1)

  • LAST EDITED:  FEB 25, 1986
  • DESCRIPTION:  
    Indicates employee's service category, grade, and step level. Pointer to NURS PAY SCALE FILE (#211.1).
  • EXECUTABLE HELP:  S MSG(1)="Examples of Grade/Step Code:",MSG(2)="R/A/5 = Registered Nurse,Associate Grade,Step 5",MSG(3)="N/4/7 = Nursing Assistant,GS4,Step 7" D EN^DDIOL(.MSG) K MSG
  • CROSS-REFERENCE:  210^D
    1)= S ^NURSF(210,"D",$E(X,1,30),DA)=""
    2)= K ^NURSF(210,"D",$E(X,1,30),DA)
    This index is used to identify the employee's grade/step.
6.7 UNIFORM ALLOWANCE 13;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    Indicates whether or not an employee is receiving a uniform allowance.
7 DATE OF BIRTH COMPUTED DATE

  • MUMPS CODE:  X ^DD(210,7,9.2) S X=$P(Y(210,7,101),U,3) S D0=Y(210,7,80)
    9.2 = S Y(210,7,80)=$S($D(D0):D0,1:""),Y(210,7,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,7,1),U,1) S:'$D(^VA(200,+D0,1)) D0=-1 S Y(210,7,101)=$S($D(^VA(200,D0,1)):^(1),1:"")
  • ALGORITHM:  .01:5
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    Extended pointer to NEW PERSON FILE (field 5 of File #200).
7.5 AGE COMPUTED

  • MUMPS CODE:  X ^DD(210,7.5,9.6) S X=$S(Y(210,7.5,2):Y(210,7.5,18),Y(210,7.5,19):X)
    9.2 = X $P(^DD(210,7,0),U,5,99) S Y(210,7.5,1)=X S X=Y(210,7.5,1)>0,Y(210,7.5,2)=X,Y(210,7.5,3)=X,Y(210,7.5,4)=X,X=DT S X=X,Y(210,7.5,5)=X S X=1,Y(210,7.5,6)=X S X=3
    9.3 = X ^DD(210,7.5,9.2) S X=$E(Y(210,7.5,5),Y(210,7.5,6),X),Y(210,7.5,7)=X S X=Y(210,7.5,1),Y(210,7.5,8)=X S X=1,Y(210,7.5,9)=X S X=3
    9.4 = X ^DD(210,7.5,9.3) S X=$E(Y(210,7.5,8),Y(210,7.5,9),X) S Y=X,X=Y(210,7.5,7),X=X-Y,Y(210,7.5,10)=X,Y(210,7.5,11)=X,Y(210,7.5,12)=X,X=DT S X=X,Y(210,7.5,13)=X S X=4
    9.5 = X ^DD(210,7.5,9.4) S Y(210,7.5,14)=X S X=7,X=$E(Y(210,7.5,13),Y(210,7.5,14),X),Y(210,7.5,15)=X S X=Y(210,7.5,1),Y(210,7.5,16)=X S X=4,Y(210,7.5,17)=X S X=7
    9.6 = X ^DD(210,7.5,9.5) S X=$E(Y(210,7.5,16),Y(210,7.5,17),X) S Y=X,X=Y(210,7.5,15),X=X
  • ALGORITHM:  $S(#7>0:$E(TODAY,1,3)-$E(#7,1,3)-($E(TODAY,4,7)<$E(#7,4,7)),1:0)
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    Computed age of employee.
8 SEX COMPUTED

  • MUMPS CODE:  X ^DD(210,8,9.3) S X=$P($P(Y(210,8,102),$C(59)_$P(Y(210,8,101),U,2)_":",2),$C(59),1) S D0=Y(210,8,80)
    9.2 = S Y(210,8,80)=$S($D(D0):D0,1:""),Y(210,8,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,8,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1
    9.3 = X ^DD(210,8,9.2) S Y(210,8,102)=$C(59)_$S($D(^DD(200,4,0)):$P(^(0),U,3),1:""),Y(210,8,101)=$S($D(^VA(200,D0,1)):^(1),1:"")
  • ALGORITHM:  .01:4
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    Extended pointer to NEW PERSON FILE (field 4 of FILE #200).
9 HOME ADDRESS COMPUTED

  • MUMPS CODE:  X ^DD(210,9,9.2) S X=$P(Y(210,9,101),U,1) S D0=Y(210,9,80)
    9.2 = S Y(210,9,80)=$S($D(D0):D0,1:""),Y(210,9,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,9,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,9,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"")
  • ALGORITHM:  .01:.111
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    Street number and street name of current residence.
11 HOME CITY COMPUTED

  • MUMPS CODE:  X ^DD(210,11,9.2) S Y(210,11,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"") S X=$P(Y(210,11,101),U,4) S D0=Y(210,11,80)
    9.2 = S Y(210,11,80)=$S($D(D0):D0,1:""),Y(210,11,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,11,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1
  • ALGORITHM:  .01:.114
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    City where employee is currently residing.
12 HOME STATE COMPUTED

  • MUMPS CODE:  X ^DD(210,12,9.2) S Y(210,12,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"") S X=$S('$D(^DIC(5,+$P(Y(210,12,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(210,12,80)
    9.2 = S Y(210,12,80)=$S($D(D0):D0,1:""),Y(210,12,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,12,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1
  • ALGORITHM:  .01:.115
  • LAST EDITED:  MAR 20, 1990
  • DESCRIPTION:  
    Pointer to the STATE FILE (#5).
12.1 HOME ZIP CODE COMPUTED

  • MUMPS CODE:  X ^DD(210,12.1,9.2) S Y(210,12.1,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"") S X=$P(Y(210,12.1,101),U,6) S D0=Y(210,12.1,80)
    9.2 = S Y(210,12.1,80)=$S($D(D0):D0,1:""),Y(210,12.1,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""),D0=$P(Y(210,12.1,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1
  • ALGORITHM:  .01:.116
  • DESCRIPTION:  
    Zip code for employee's home address.
13.3 MAILING ADDRESS 15;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  APR 06, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Street number and street name of current mailing address.
13.35 MAILING ADDRESS 2 15;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  OCT 15, 1992
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
  • DESCRIPTION:  
    This is the second line of the mailing address of the new person.
13.4 MAILING ADDRESS 3 15;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<2 X S:$L(X)>35 X=$E(X,1,35)
  • LAST EDITED:  OCT 15, 1992
  • HELP-PROMPT:  Answer must be 2-35 characters in length.
  • DESCRIPTION:  
    This is the third line of the mailing address of the new person.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13.5 MAILING CITY 15;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  APR 17, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    City of mailing address.
13.7 MAILING STATE 15;5 POINTER TO STATE FILE (#5) STATE(#5)

  • HELP-PROMPT:  Enter state where mailing address is located.
  • DESCRIPTION:  
    Pointer to STATE FILE (#5).
13.9 MAILING ZIP CODE 15;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  SEP 08, 1990
  • HELP-PROMPT:  Answer with ZIP CODE or ZIP+4.
  • DESCRIPTION:  
    Zip code of mailing address.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
14 TELEPHONE NUMBER 2;0 Multiple #210.01 210.01

  • DESCRIPTION:  
    Current telephone number of employee.
15 NAME OF EMERGENCY CONTACT 3;0 Multiple #210.02 210.02

  • DESCRIPTION:  
    Indicates name of individual to contact if employee is involved in an accident. Demographic information on the 'Emergency Contact' is also documented.
16 STATE ISSUING LICENSE 4;0 POINTER Multiple #210.03 210.03

  • DESCRIPTION:  
    Documents licensure information for RNs, LPNs, and LVNs.
16.5 VETERAN PREFERENCE 0;8 SET
  • '0' FOR NO SERVICE;
  • '1' FOR NONE;
  • '2' FOR 5 PT.;
  • '3' FOR 10 PT. DISAB.;
  • '4' FOR 10 PT. COMP.;
  • '5' FOR 10 PT. OTHER;
  • '6' FOR 10 PT./30% COMP;

  • LAST EDITED:  DEC 29, 1988
  • HELP-PROMPT:  Enter the Veteran Preference code for this employee.
  • DESCRIPTION:  
    Employee veteran preference code. A number 0 - 6.
17 STATION ENTRY ON DUTY DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
    9.2 = S Y(210,17,80)=$S($D(D0):D0,1:""),Y(210,17,1)=$S($D(^NURSTAFF(D0,0)):^(0),1:""),D0=$P(Y(210,17,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,17,180)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(210,17,9.2) S Y(210,17,101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(210,17,101),U,1) K DIC S DIC="^VA(200,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
    9.1 = S Y=$S($G(^PRSPC(D0,0)):$P(^(0),"^",3),1:"") D:+Y D^DIQ S X=Y
  • LAST EDITED:  JUN 21, 1989
  • DESCRIPTION:  
    Indicates employee's EOD (entry on duty) date for this facility (i.e. VAMC, OPC etc.).
    WRITE AUTHORITY: ^
18 VA EMPLOYMENT STARTING DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
    9.2 = S Y(210,18,80)=$S($D(D0):D0,1:""),Y(210,18,1)=$S($D(^NURSTAFF(D0,0)):^(0),1:""),D0=$P(Y(210,18,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,18,180)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(210,18,9.2) S Y(210,18,101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(210,18,101),U,1) K DIC S DIC="^VA(200,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
    9.1 = S Y=$S($D(^PRSPC(D0,2)):$P(^(2),"^",22),1:"") D:+Y D^DIQ S X=Y
  • LAST EDITED:  JUN 21, 1989
  • DESCRIPTION:  
    Indicates the employee's EOD date within the VA system.
    WRITE AUTHORITY: ^
19 SERVICE COMPUTATION DATE COMPUTED DATE

  • MUMPS CODE:  S X=$$COMPDAT^NURSUT4(D0)
  • ALGORITHM:  S X=$$COMPDAT^NURSUT4(D0)
  • LAST EDITED:  OCT 22, 1998
19.5 END OF PROBATIONARY PERIOD 13;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:3500101X) X
  • LAST EDITED:  FEB 11, 1997
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1950 AND 1/1/2050
  • DESCRIPTION:  
    Indicates date on which employee's probationary period ends.
19.61 DATE OF PROMOTION 9;0 DATE Multiple #210.17 210.17

  • DESCRIPTION:  
    Date of the employee's last promotion.
19.86 NPSB 14;0 DATE Multiple #210.18 210.18

  • DESCRIPTION:  
    Date on which the registered nurse's proficiency/annual narrative is due.
21.3 PROFESSIONAL EDUCATION 6;0 POINTER Multiple #210.04 210.04

  • DESCRIPTION:  
    Describes the professional education of the employee.
21.5 HIGHEST NURSING DEGREE 17;1 POINTER TO NURS EDUCATION FILE (#212.1) NURS EDUCATION(#212.1)

  • LAST EDITED:  FEB 25, 1986
  • DESCRIPTION:  
    Indicates highest nursing degree held by the employee. Pointer to the NURS EDUCATION FILE (#212.1).
21.51 HIGHEST NURSING CODE COMPUTED

  • MUMPS CODE:  X ^DD(210,21.51,9.2) S Y(210,21.51,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"") S X=$P(Y(210,21.51,101),U,3) S D0=Y(210,21.51,80)
    9.2 = S Y(210,21.51,80)=$S($D(D0):D0,1:""),Y(210,21.51,1)=$S($D(^NURSF(210,D0,17)):^(17),1:""),D0=$P(Y(210,21.51,1),U,1) S:'$D(^NURSF(212.1,+D0,0)) D0=-1
    9.3 = X ^DD(210,21.51,9.2) S Y(210,21.51,180)=$S($D(D0):D0,1:""),Y(210,21.51,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"")
  • ALGORITHM:  HIGHEST NURSING DEGREE:CODE
  • DESCRIPTION:  
    Abbreviation from File 212.1 indicating the highest nursing degree for this employee.
21.7 HIGHEST ACADEMIC DEGREE 17;2 POINTER TO NURS EDUCATION FILE (#212.1) NURS EDUCATION(#212.1)

  • LAST EDITED:  JAN 04, 1989
  • HELP-PROMPT:  The highest academic degree held by this employee.
  • DESCRIPTION:  
    The highest academic degree held by this employee.
21.71 HIGHEST ACADEMIC CODE COMPUTED

  • MUMPS CODE:  X ^DD(210,21.71,9.2) S Y(210,21.71,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"") S X=$P(Y(210,21.71,101),U,3) S D0=Y(210,21.71,80)
    9.2 = S Y(210,21.71,80)=$S($D(D0):D0,1:""),Y(210,21.71,1)=$S($D(^NURSF(210,D0,17)):^(17),1:""),D0=$P(Y(210,21.71,1),U,2) S:'$D(^NURSF(212.1,+D0,0)) D0=-1
  • ALGORITHM:  HIGHEST ACADEMIC DEGREE:CODE
  • DESCRIPTION:  
    The abbreviation of the highest academic degree for this employee.
22.5 PROFESSIONAL EXPERIENCE 20;0 Multiple #210.13 210.13

  • LAST EDITED:  MAY 24, 1994
  • DESCRIPTION:  
    Identifies the professional experience of the employee before 'Station EOD Date'.
  • TECHNICAL DESCR:  
    Free Text Value of .01 Field in File #211.5.
  • IDENTIFIED BY:  
    "WRITE": D EN6^NURAED3
23.1 FACULTY 15;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S X=$$UP^XLFSTR(X)
  • LAST EDITED:  SEP 07, 1994
  • DESCRIPTION:  
    This field indicates if the employee is a faculty member.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23.2 FACULTY APPOINTMENT 1;0 Multiple #210.08 210.08

  • DESCRIPTION:  
    This field indicates that the employee has a faculty appointment.
23.5 INSTITUTION 15;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Institution at which employee is a faculty member.
24 NATIONAL CERTIFICATION 12;0 POINTER Multiple #210.024 210.024

  • DESCRIPTION:  
    Documents national certification of registered nurses.
25 MILITARY EXPERIENCE COMPUTED

  • MUMPS CODE:  S X=$S('$D(^NURSF(210,D0,0)):"",$P(^(0),U,8)="":"",'$P(^(0),U,8):"NO",1:"YES")
  • ALGORITHM:  S X=$S('$D(^NURSF(210,D0,0)):"",$P(^(0),U,8)="":"",'$P(^(0),U,8):"NO",1:"YES")
  • LAST EDITED:  DEC 29, 1988
  • DESCRIPTION:  
    Indicates military experience for this employee.
26 MILITARY STATUS 10;0 SET Multiple #210.06 210.06

  • DESCRIPTION:  
    Documents active and/or inactive status of military experience.
27 *CONTINUING EDUCATION PROGRAM 18;0 Multiple #210.12 210.12

  • LAST EDITED:  APR 15, 1993
  • DESCRIPTION:  
    Continuing education programs attended by employee.
28 *MANDATORY INSERVICE PROGRAM 8;0 DATE Multiple #210.05 210.05

  • LAST EDITED:  APR 15, 1993
  • DESCRIPTION:  
    Tracks employee attendance at mandatory inservices.
  • IDENTIFIED BY:  *CLASS(#1)[R]
28.1 MI REVIEW GROUP COMPUTED

  • MUMPS CODE:  D EN11^NURSUT0($G(D0))
  • ALGORITHM:  D EN11^NURSUT0($G(D0))
  • LAST EDITED:  JAN 06, 1989
  • HELP-PROMPT:  Enter the name of the group of mandatory inservices that this employee is to attend.
  • DESCRIPTION:  
    The name of the mandatory inservice/training group(s) associated with this employee.
29 PRIVILEGES 16;0 POINTER Multiple #210.19 210.19

  • DESCRIPTION:  
    Indicates the privileges granted to an employee.
41 SERVICE CATEGORY COMPUTED

  • MUMPS CODE:  S DA=D0 D EN2^NURSUT0 S X=$S('$D(NPSPOS(1)):"",NPSPOS(1)="":"",1:NPSPOS(1)) K DA,NPSPOS,NOD1,NOD2
  • ALGORITHM:  S DA=D0 D EN2^NURSUT0 S X=$S('$D(NPSPOS(1)):"",NPSPOS(1)="":"",1:NPSPOS(1)) K DA,NPSPOS,NOD1,NOD2
  • DESCRIPTION:  
    This field indicates the service category of the employee.
  • TECHNICAL DESCR:  
    This field contains the name of the service category associated with the FTEE. The category is computed from File #211.3.
42 SALARY COMPUTED

  • MUMPS CODE:  S DA=D0,Z=$$EN12^NURSUT0(DA),X=$J(+Z,6,2)
  • ALGORITHM:  S DA=D0,Z=$$EN12^NURSUT0(DA),X=$J(+Z,6,2)
  • LAST EDITED:  MAR 08, 1994
  • DESCRIPTION:  
    This field indicates the employee's salary which is stored in the PAID Employee (#450) file.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #570
  • QUALITY IMPROVEMENT CHECKLIST
    		•
    ICR #5267
  • Emergency Department Integration Software
    		•  EMPLOYEE NAME (.01).
    Access: Direct Global Read & w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All