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 |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  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

Directly Accessed By Routines, Total: 60

Package Total Routines
Nursing Service 60 NUR20PST    NURA5A    NURA5B    NURA5C    NURA6G    NURA6I1    NURA6I2    NURA6K1
NURA6K2    NURA7A    NURA7B    NURA7C    NURA9D11    NURA9G    NURA9I    NURA9K
NURAAGS0    NURAAGS1    NURADEG    NURADEG1    NURADEG2    NURADEG3    NURAED0    NURAED01
NURAED1    NURAED3    NURAED4    NURAED5    NURAEDCK    NURAR11A    NURAR1A    NURASPL
NURASPT    NURSAGP1    NURSAPE0    NURSAUTL    NURSCEP    NURSEP31    NURSEP3I    NURSEPC0
NURSEPCA    NURSEPCP    NURSEPD0    NURSEPD2    NURSEPIN    NURSEPML    NURSEXP    NURSHIGH
NURSPA    NURSPA1    NURSPA2    NURSPA3    NURSUT0    NURSUT1    NURSUT2    NURSUT3
NURSUT4    NURSXECP    NURXENV    NURXPRE    

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.521.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 |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  All