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 |  Pointed To By FileMan Files |  Fields |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^QA(742.13

Package: Incident Reporting

Global: ^QA(742.13


Information

FileMan FileNo FileMan Filename Package
742.13 QA MEDICATION ERRORS Incident Reporting

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Incident Reporting 2 QANUTL2    ^QA(742.13    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Incident Reporting 1 QA PATIENT INCIDENT REVIEW(#742)[.11]    

Fields, Total: 3

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  APR 07, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the IEN of the Medication Error entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.01 MEDICATION ERRORS 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 02, 1991
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Indicates medication errors as they pertain to the patient.
  • DELETE TEST:  1,0)= I 1 W !,*7,"ENTRIES CANNOT BE DELETED!"
  • CROSS-REFERENCE:  742.13^B
    1)= S ^QA(742.13,"B",$E(X,1,30),DA)=""
    2)= K ^QA(742.13,"B",$E(X,1,30),DA)
    3)= Do not delete!
  • CROSS-REFERENCE:  742.13^BUPPER^MUMPS
    1)= S ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
    2)= K ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
    3)= Do not delete!
    Cross Reference files the uppercase text of the Medication Error.
.02 STATUS 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR ACTIVE;

  • LAST EDITED:  OCT 02, 1992
  • HELP-PROMPT:  Enter the status of the Medication Error. '1' is active.
  • DESCRIPTION:  
    This field indicates whether the Medication Error is active.
  • CROSS-REFERENCE:  742.13^BSTAT
    1)= S ^QA(742.13,"BSTAT",$E(X,1,30),DA)=""
    2)= K ^QA(742.13,"BSTAT",$E(X,1,30),DA)
    3)= Do not delete.
    Indicates the status of the Medication Error.

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(742.13 - [#742.13] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
>> DINUM .001+1*
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  Global Variables Directly Accessed |  Local Variables |  All