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 |  All
Print Page as PDF
Global: ^QA(742

Package: Incident Reporting

Global: ^QA(742


Information

FileMan FileNo FileMan Filename Package
742 QA PATIENT INCIDENT REVIEW Incident Reporting

Description

Directly Accessed By Routines, Total: 30

Package Total Routines
Incident Reporting 30 QANAUX1    QANBENE0    QANBENE1    QANBRIF    QANCDNT    QANCNV00    QANCNVT    QANDBASE
QANDBXX    QANDELE    QANEDIT    QANEWS    QANFULL0    QANMAL0    QANOPEN    QANPSD1
QANPSDO    QANPST3    QANQIP1    QANQTOT    QANQUCK    QANRPT1    QANRPT2    QANUTL0
QANUTL1    QANUTL2    QANUTL4    QANUTL5    QANUTL6    QANVAL    

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
Incident Reporting 14 QANAUX1    QANCDNT    QANCNV00    QANCNVT    QANEDIT    QANPSDO    QANQUCK    QANUTL
QANUTL0    QANUTL1    QANUTL2    QANUTL4    QANUTL6    QANVAL    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Incident Reporting 2 QA MEDICATION ERRORS(#742.13)[.11]    QA INCIDENT REPORT(#742.4)[.03]    
Registration 2 FACILITY TREATING SPECIALTY(#45.7)[.07]    PATIENT(#2)[.01]    
Interim Management Support 1 NATIONAL SERVICE(#730)[.08#742.01(.01)]    
Quality Assurance Integration 1 QA AUDIT(#740.5)[50]    
Scheduling 1 HOSPITAL LOCATION(#44)[.06]    

Fields, Total: 16

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  JUL 09, 1992
  • HELP-PROMPT:  Please enter the appropriate patient who has been through an incident.
  • DESCRIPTION:  
    This is the patient involved in the incident.
  • TECHNICAL DESCR:  
    Pointer to the patient file. ^DPT(2,
  • DELETE TEST:  1,0)= I 1 W !!?5,*7,"Patient entries CANNOT be deleted."
  • CROSS-REFERENCE:  742^B
    1)= S ^QA(742,"B",$E(X,1,30),DA)=""
    2)= K ^QA(742,"B",$E(X,1,30),DA)
    3)= Do not delete!
  • CROSS-REFERENCE:  742^AC^MUMPS
    1)= I $D(X),'$D(^QA(742,"AC",$E(X,1,30))) S ^QA(742,"AC",$E(X,1,30),DA)=""
    2)= I $D(X),$D(^QA(742,"AC",$E(X,1,30),DA)) K ^QA(742,"AC",$E(X,1,30),DA) S QAN("NXT")=+$O(^QA(742,"AC",$E(X,1,30),"")) X:QAN("NXT")>0 ^DD(742,.01,1,2,1) K QAN("NXT")
    3)= Do not delete!
    If a particular patient is added to our file more than once, this mumps x-ref grabs the first entry for the patient and files the entry.
  • CROSS-REFERENCE:  742^AA1^MUMPS
    1)= S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""),QAN(3)=$P(QAN,U,3) S:QAN(3)]"" ^QA(742,"AA",X,QAN(3),DA)="" K QAN
    2)= S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""),QAN(3)=$P(QAN,U,3) K:QAN(3)]"" ^QA(742,"AA",X,QAN(3),DA) K QAN
    3)= DO NOT DELETE!
    Helps for look-ups associated with patients and incidents.
.02 PATIENT ID 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<6) X I $D(X) K:X'?2.A4N X
  • LAST EDITED:  DEC 17, 1991
  • HELP-PROMPT:  Answer must be 6-7 characters in length.
  • DESCRIPTION:  
    This field indentifies the patient without exposing his/her identity.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  742^BPID
    1)= S ^QA(742,"BPID",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BPID",$E(X,1,30),DA)
    3)= Do not delete.
    Identifies a patient without exposing his/her true identity.
  • CROSS-REFERENCE:  742^BS5^MUMPS
    1)= Q:$P(^QA(742,DA,0),U,2)']""  S QANN(1)=$P(^QA(742,DA,0),U,2),QANN(2)=$L(QANN(1)) S:QANN(2)=6 ^QA(742,"BS5",$E(QANN(1),2)_$E(QANN(1),3,6),DA)="" S:QANN(2)=7 ^QA(742,"BS5",$E(QANN(1),3)_$E(QANN(1),4,7),DA)="" K QANN
    2)= Q:$P(^QA(742,DA,0),U,2)']""  S QANN(1)=$P(^QA(742,DA,0),U,2),QANN(2)=$L(QANN(1)) K:QANN(2)=6 ^QA(742,"BS5",$E(QANN(1),2)_$E(QANN(1),3,6),DA) K:QANN(2)=7 ^QA(742,"BS5",$E(QANN(1),3)_$E(QANN(1),4,7),DA) K QANN
    3)= DO NOT DELETE
    Allow the lookup on the first letter of the last name and the last four SSN numbers.
.03 CASE NUMBER 0;3 POINTER TO QA INCIDENT REPORT FILE (#742.4) QA INCIDENT REPORT(#742.4)

  • LAST EDITED:  FEB 26, 1992
  • HELP-PROMPT:  Enter the appropriate case number.
  • DESCRIPTION:  
    Indicates the incident case number.
  • CROSS-REFERENCE:  742^BCS
    1)= S ^QA(742,"BCS",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BCS",$E(X,1,30),DA)
    3)= DO NOT DELETE!
    Cross Reference on the Case Number for the incident.
  • CROSS-REFERENCE:  742^ACN^MUMPS
    1)= S ^QA(742.4,"ACN",DA,$E(X,1,30))=""
    2)= K ^QA(742.4,"ACN",DA,$E(X,1,30))
    3)= Do not delete.
  • CROSS-REFERENCE:  742^AA2^MUMPS
    1)= S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U) S:QAN(1)]"" ^QA(742,"AA",QAN(1),X,DA)="" K QAN
    2)= S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U) K:QAN(1)]"" ^QA(742,"AA",QAN(1),X,DA) K QAN
    3)= DO NOT DELETE!
    Helps in lookups for patients and incidents.
.04 DATE OF ADMISSION 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 1991
  • HELP-PROMPT:  Enter the date of admission for this patient.
  • DESCRIPTION:  
    Indicates the date of admission to the hospital.
.05 PATIENT TYPE 0;5 SET
  • '0' FOR OUTPATIENT;
  • '1' FOR INPATIENT;

  • LAST EDITED:  JUN 12, 1991
  • HELP-PROMPT:  Enter whether the patient is currently in the hospital.
  • DESCRIPTION:  
    Indicates whether the patient is an inpatient.
  • CROSS-REFERENCE:  742^BPT
    1)= S ^QA(742,"BPT",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BPT",$E(X,1,30),DA)
.06 WARD/CLINIC 0;6 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""!($P(^(0),U,3)=""W"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 20, 1991
  • HELP-PROMPT:  Enter the ward/clinic location for the patient.
  • DESCRIPTION:  
    Indicates the ward/clinic the patient belongs to.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""C""!($P(^(0),U,3)=""W"")"
  • EXPLANATION:  Choice of ONLY wards or clinics.
  • CROSS-REFERENCE:  742^BWD
    1)= S ^QA(742,"BWD",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BWD",$E(X,1,30),DA)
.07 TREATING SPECIALTY 0;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • INPUT TRANSFORM:  S DIC("S")="S QANCN=$P($G(^QA(742,DA,0)),U,3),QANDT=$P($G(^QA(742.4,+QANCN,0)),U,3) I $$ACTIVE^DGACT(45.7,Y,QANDT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 15, 1995
  • HELP-PROMPT:  Enter the appropriate Treating Specialty.
  • DESCRIPTION:  
    Contains the Treating Specialty for the patient.
  • SCREEN:  S DIC("S")="S QANCN=$P($G(^QA(742,DA,0)),U,3),QANDT=$P($G(^QA(742.4,+QANCN,0)),U,3) I $$ACTIVE^DGACT(45.7,Y,QANDT)"
  • EXPLANATION:  Screening of active Treating Specialty
  • CROSS-REFERENCE:  742^BTS
    1)= S ^QA(742,"BTS",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BTS",$E(X,1,30),DA)
    3)= DO NOT DELETE
.08 SERVICE 0;8 POINTER TO NATIONAL SERVICE FILE (#730) NATIONAL SERVICE(#730)

  • LAST EDITED:  JUN 27, 1991
  • HELP-PROMPT:  Enter the appropriate Service for the patient.
  • DESCRIPTION:  
    Contains the Service for the patient.
  • CROSS-REFERENCE:  742^BSER
    1)= S ^QA(742,"BSER",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BSER",$E(X,1,30),DA)
    3)= DO NOT DELETE
.09 FALL ASSESSMENT SCORE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUN 28, 1991
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Contains the Assessment Score for a fall.
.1 SEVERITY LEVEL 0;10 SET
  • '0' FOR NO INJURY OR DISABILITY;
  • '1' FOR MINOR;
  • '2' FOR MAJOR;
  • '3' FOR DEATH;

  • LAST EDITED:  NOV 04, 1991
  • HELP-PROMPT:  Enter the Severity Level for the incident.
  • DESCRIPTION:  
    Contains the Severity Level of the incident.
.11 MEDICATION ERRORS 0;11 POINTER TO QA MEDICATION ERRORS FILE (#742.13) QA MEDICATION ERRORS(#742.13)

  • INPUT TRANSFORM:  S DIC("S")="I +$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 07, 1992
  • HELP-PROMPT:  Enter the Medication Errors as they apply to the patient.
  • DESCRIPTION:  
    Contains the Medication Errors for the patient.
  • SCREEN:  S DIC("S")="I +$P(^(0),U,2)"
  • EXPLANATION:  Checks for active Medication Errors.
.12 RESPONSIBLE SERVICE 1;0 POINTER Multiple #742.01 742.01

  • DESCRIPTION:  
    Enter the Responsible Service(s) for the incident.
.13 PATIENT RECORD STATUS 0;12 SET
  • '1' FOR OPEN;
  • '0' FOR CLOSED;
  • '-1' FOR DELETED;

  • LAST EDITED:  NOV 20, 1991
  • HELP-PROMPT:  Enter the Patient Record Status.
  • DESCRIPTION:  
    Contains the status of the patient record.  '1' for open, '0' for closed, and '-1' for deleted.
  • CROSS-REFERENCE:  742^BPRS
    1)= S ^QA(742,"BPRS",$E(X,1,30),DA)=""
    2)= K ^QA(742,"BPRS",$E(X,1,30),DA)
    Tracks the status of a patient.
.14 MEDICATION ERRORS (OTHER) 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Contains the type of medication error not found in the QA Medication Error file.
.15 INCIDENT RELATED DIAGNOSIS 2;0 Multiple #742.02 742.02

  • LAST EDITED:  DEC 12, 1991
  • DESCRIPTION:  
    Contains the appropriate patient diagnosis to date for the patient.
50 PATIENT AUDIT TRAIL 0;14 POINTER TO QA AUDIT FILE (#740.5) QA AUDIT(#740.5)

  • LAST EDITED:  MAR 17, 1992
  • HELP-PROMPT:  Pointer to QA Audit file.
  • DESCRIPTION:  
    Files changes in the QA patient Event file in the QA Audit file.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All