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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^NURSA(214.7

Package: Nursing Service

Global: ^NURSA(214.7


Information

FileMan FileNo FileMan Filename Package
214.7 NURS REVIEW CLASSIFICATION Nursing Service

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Nursing Service 5 NURACE7    NURSCUTL    ^NURSA(214.7    NURSADEL    ^NURSF(219.7    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[3]    
Nursing Service 1 NURS CLASSIFICATION(#214.6)[.04, 2]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 6

Field # Name Loc Type Details
.01 REVIEW DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:($P(Y,".")>DT)!(Y<1) X
  • LAST EDITED:  JUN 18, 1987
  • DESCRIPTION:  
    Date/time of the review of a classification.
  • CROSS-REFERENCE:  214.7^B
    1)= S ^NURSA(214.7,"B",$E(X,1,30),DA)=""
    2)= K ^NURSA(214.7,"B",$E(X,1,30),DA)
    This is the main index on the 'Review Date/Time' field of the NURS Review Classification file.
  • CROSS-REFERENCE:  214.7^AZ1^MUMPS
    1)= I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,2)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)=""
    2)= I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,2)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)
    This mumps index is an inverted time/date index which make the latest entry reviewed the first entry accessed when using this index.
.02 NAME 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  NOV 18, 1987
  • DESCRIPTION:  
    Name of patient whose classification is being reviewed. Points to the PATIENT (#2) File.
  • CROSS-REFERENCE:  214.7^C
    1)= S ^NURSA(214.7,"C",$E(X,1,30),DA)=""
    2)= K ^NURSA(214.7,"C",$E(X,1,30),DA)
    This index is on the 'Name' field in the NURS Review Classification file.
  • CROSS-REFERENCE:  214.7^AZ2^MUMPS
    1)= I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,1)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)=""
    2)= I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,1)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)
    This mumps index make the latest review entry available by patient name, NURS Location, and review date/time.
.04 CLASSIFICATION REVIEWED 0;3 POINTER TO NURS CLASSIFICATION FILE (#214.6)
************************REQUIRED FIELD************************
NURS CLASSIFICATION(#214.6)

  • INPUT TRANSFORM:  S DIC("S")="D EN4^NURSCUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 07, 1991
  • DESCRIPTION:  
    The classification being reviewed. Points to the NURS CLASSIFICATION (#214.6) file.
  • SCREEN:  S DIC("S")="D EN4^NURSCUTL"
  • EXPLANATION:  Screen to allow selection of only valid classification dates
  • CROSS-REFERENCE:  214.7^AA^MUMPS
    1)= D EN3^NURSCUTL S:(NURSDFN'="")&(NURSR'="") ^NURSA(214.7,"AA",NURSDFN,X,9999999-NURSR,DA)="" K NURSDFN,NURSR
    2)= D EN3^NURSCUTL K:(NURSDFN'="")&(NURSR'="") ^NURSA(214.7,"AA",NURSDFN,X,9999999-NURSR,DA) K NURSDFN,NURSR
    This mumps index indicates the review date/time of the latest classification for this patient.
1 CLASSIFICATION CHANGED 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    This field indicates if the classification was changed. Answer Yes or No.
2 NEW CLASSIFICATION DATE/TIME 0;5 POINTER TO NURS CLASSIFICATION FILE (#214.6) NURS CLASSIFICATION(#214.6)

  • INPUT TRANSFORM:  S DIC("S")="D EN4^NURSCUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 07, 1991
  • DESCRIPTION:  
    This field contains the new classification for the patient if it was changed. Points to the NURS CLASSIfICATION (#214.6) file.
  • SCREEN:  S DIC("S")="D EN4^NURSCUTL"
  • EXPLANATION:  Only valid classifications for this patient
3 REVIEWER 0;6 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 13, 1992
  • DESCRIPTION:  
    Person who reviewed the classification. Points to the NEW PERSON (#200) file.

External References

Name Field # of Occurrence
^%DT .01+1
^DIC .04+1, 2+1
Y^DIQ ID.02+1
EN3^NURSCUTL .04(XREF 2S), .04(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 ID.02+1
^DPT - [#2] ID.02+1
^NURSA(214.7 - [#214.7] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K)
DIC ID.02+1, .04+1!*, 2+1!*
DIC("S" .04+1*, .04SCR+1*, 2+1*, 2SCR+1*
>> DIE .04+1, 2+1
DT .01+1
NURSDFN .04(XREF 2S), .04(XREF 2K)
NURSR .04(XREF 2S), .04(XREF 2K)
U ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04+1*!
, .04(XREF 2S), .04(XREF 2K), 2+1*!
>> Y ID.02+1*, .01+1, .04+1, 2+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All