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 |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^NURSA(213.4

Package: Nursing Service

Global: ^NURSA(213.4


Information

FileMan FileNo FileMan Filename Package
213.4 NURS AMIS 1106 MANHOURS Nursing Service

Description

Directly Accessed By Routines, Total: 20

Package Total Routines
Nursing Service 20 NURAMHE    ^NURSA(213.4    ACUITY    NURAAE0    NURAAE1    NURAAU0    NURAAU3    NURACUIT
NURAMH9    NURAMHU    NURARMH1    NURARMH2    NURARPC1    NURARPC3    NURARPC4    NURARWL2
NURARWL4    NURIPST    ^NURSF(219.7    NURARWL5    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Nursing Service 8 NURAAE0    NURAAE1    NURAAU0    NURAAU3    NURACUIT    NURAMHE    NURAMHU    NURIPST

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[10]    
Nursing Service 1 NURS AMIS WARD(#213.3)[#213.41(.01)]    

Fields, Total: 9

Field # Name Loc Type Details
.01 DATE/SHIFT/WARD 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>22!($L(X)<8)!'(X?7N.1A1.15E) X
  • LAST EDITED:  MAR 02, 1998
  • HELP-PROMPT:  ANSWER MUST BE 8-22 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is composed of the DATE of the data concatenated to the SHIFT (D=Day, E=Evening, N=Night) of the data concatenated with the WARD associated with the data.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  213.4^B
    1)= S ^NURSA(213.4,"B",$E(X,1,30),DA)=""
    2)= K ^NURSA(213.4,"B",$E(X,1,30),DA)
    This is the main index on the 'Date/Shift/Ward' field of the NURS AMIS 1106 Manhours file.
  • CROSS-REFERENCE:  213.4^AB^MUMPS
    1)= S ^NURSA(213.4,"AB",$E(X,1,7),DA)=""
    2)= K ^NURSA(213.4,"AB",$E(X,1,7),DA)
    This is a Mumps cross-reference of just the date of the AMIS 1106 Manhours.
1 ACTUAL HOURS ON DUTY RN 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 19, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Actual number of RN manhours worked for this ward on this shift on this day.
2 ACTUAL HOURS ON DUTY LPN 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 02, 1989
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Indicates the number of LPN manhours worked for this ward on this shift on this day.
3 ACTUAL HOURS ON DUTY NA 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Indicates the number of NA manhours worked for this ward on this shift on this day.
5 ACUITY 1;0 POINTER Multiple #213.41 213.41
10 ENTERED BY 0;8 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 13, 1992
  • DESCRIPTION:  
    This field indicates the user entering the manhour entries.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
11 DATE COMPUTED DATE

  • MUMPS CODE:  S X=$E(^NURSA(213.4,D0,0),1,7)
  • ALGORITHM:  S X=$E(^NURSA(213.4,D0,0),1,7)
  • LAST EDITED:  JUN 22, 1990
  • DESCRIPTION:  
    This field indicates the date of this entry.
12 SHIFT COMPUTED

  • MUMPS CODE:  S NURX=$E(^NURSA(213.4,D0,0),8),X=$S(NURX="D":"DAY",NURX="N":"NIGHT",NURX="E":"EVENING",1:"")
  • ALGORITHM:  S NURX=$E(^NURSA(213.4,D0,0),8),X=$S(NURX="D":"DAY",NURX="N":"NIGHT",NURX="E":"EVENING",1:"")
  • DESCRIPTION:  
    This field indicates the shift associated with this entry.
13 WARD COMPUTED

  • MUMPS CODE:  S NPWARD=$E($P(^NURSA(213.4,D0,0),"^"),9,99) D EN6^NURSAUTL S:NPWARD'="" X=NPWARD
  • ALGORITHM:  S NPWARD=$E($P(^NURSA(213.4,D0,0),"^"),9,99) D EN6^NURSAUTL S:NPWARD'="" X=NPWARD
  • LAST EDITED:  JUN 22, 1990
  • DESCRIPTION:  
    This field indicates the location associated with this entry.

External References

Name Field # of Occurrence
EN6^NURSAUTL 13+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSA(213.4 - [#213.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 5S), .01(XREF 5K), 11+1, 12+1, 13+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 11+1, 12+1, 13+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 5S), .01(XREF 5K)
>> NPWARD 13+1*
>> NURX 12+1*
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 5S), .01(XREF 5K), 1+1!, 2+1!, 3+1!, 11+1*, 12+1*
, 13+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All