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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^QA(742.4

Package: Incident Reporting

Global: ^QA(742.4


Information

FileMan FileNo FileMan Filename Package
742.4 QA INCIDENT REPORT Incident Reporting

Description

Directly Accessed By Routines, Total: 39

Package Total Routines
Incident Reporting 37 MEDICAL CENTER ACTION    QANAUX1    QANBENE0    QANBENE1    QANBRIF    QANCDNT    QANCNV0    QANCNV00
QANCNV1    QANCNV2    QANDBASE    QANDBXX    QANDELE    QANEDIT    QANEWS    QANFULL
QANMAIL    QANOPEN    QANPEDT    QANPSD1    QANPST3    QANQIP1    QANQUCK    ^QA(742.4
QANPSDO    QANQTOT    QANRPT1    QANRPT2    QANUTL    QANUTL0    QANUTL1    QANUTL2
QANUTL3    QANUTL4    QANUTL5    QANUTL6    QANVAL    

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
Incident Reporting 17 QANAUX1    QANBRIF    QANCDNT    QANCNV0    QANCNV00    QANDELE    QANEDIT    QANFULL
QANMAIL    QANPST3    QANQUCK    QANUTL    QANUTL0    QANUTL2    QANUTL4    QANUTL6
QANVAL    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Incident Reporting 3 QA INCIDENTS(#742.1)[.02]    QA COMPLICATIONS LEADING TO DEATH(#742.14)[.15]    QA INCIDENT LOCATION(#742.5)[.04]    
Kernel 3 TITLE(#3.1)[.07]    INSTITUTION(#4)[52]    NEW PERSON(#200)[.06]    
Quality Assurance Integration 1 QA AUDIT(#740.5)[50]    

Fields, Total: 25

Field # Name Loc Type Details
.01 CASE NUMBER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>13!($L(X)<7) X
  • LAST EDITED:  MAY 16, 1991
  • HELP-PROMPT:  Answer must be 7-13 characters in length.
  • DESCRIPTION:  
    Indicates the case number for this particular incident.
  • DELETE TEST:  1,0)= I 1 W !!?5,*7,"Incident entries CANNOT be deleted."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  742.4^B
    1)= S ^QA(742.4,"B",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"B",$E(X,1,30),DA)
    3)= Do not delete!
  • CROSS-REFERENCE:  742.4^AA1^MUMPS
    1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) S:QAN(2)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),QAN(2),X,DA)="" K QAN
    2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) K:QAN(2)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),QAN(2),X,DA) K QAN
    3)= Do not delete!
    Cross Reference files the Case Number, Incident, and the Date of the Incident for ease of data retrieval.
.02 INCIDENT 0;2 POINTER TO QA INCIDENTS FILE (#742.1)
************************REQUIRED FIELD************************
QA INCIDENTS(#742.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 01, 1992
  • HELP-PROMPT:  Enter the incident on which to base this report.
  • DESCRIPTION:  
    Indicates the type of incident for this record.
  • SCREEN:  S DIC("S")="I $P(^(0),U,6)'=1"
  • EXPLANATION:  Screens out inactives.
  • CROSS-REFERENCE:  742.4^AA2^MUMPS
    1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) S:QAN(1)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),X,QAN(1),DA)="" K QAN
    2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) K:QAN(1)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),X,QAN(1),DA) K QAN
    3)= Do not delete!
    Cross Reference links the Case Number, Incident, and the Date of the  Incident for ease of data retrieval.
  • CROSS-REFERENCE:  742.4^BINC
    1)= S ^QA(742.4,"BINC",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"BINC",$E(X,1,30),DA)
.03 DATE OF INCIDENT 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="PETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
  • LAST EDITED:  NOV 04, 1991
  • HELP-PROMPT:  Enter the date of the incident.
  • DESCRIPTION:  
    Indicates the date of the incident.
  • CROSS-REFERENCE:  742.4^AA3^MUMPS
    1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) S:QAN(2)]""&(QAN(1)]"") ^QA(742.4,"AA",X,QAN(2),QAN(1),DA)="" K QAN
    2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) K:QAN(1)]""&(QAN(2)]"") ^QA(742.4,"AA",X,QAN(2),QAN(1),DA) K QAN
    3)= Do not delete!
  • CROSS-REFERENCE:  742.4^BDT
    1)= S ^QA(742.4,"BDT",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"BDT",$E(X,1,30),DA)
    Regular cross reference for date of an incident.
.04 INCIDENT LOCATION 0;4 POINTER TO QA INCIDENT LOCATION FILE (#742.5) QA INCIDENT LOCATION(#742.5)

  • 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:  MAY 28, 1992
  • HELP-PROMPT:  Enter the location of the incident.
  • DESCRIPTION:  
    Indicates the location of the incident.
  • SCREEN:  S DIC("S")="I +$P(^(0),U,2)"
  • EXPLANATION:  Enter only active incident locations.
  • CROSS-REFERENCE:  742.4^BLOC
    1)= S ^QA(742.4,"BLOC",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"BLOC",$E(X,1,30),DA)
    3)= Do not delete.
    X-ref on incident location field.
.05 INCIDENT DESCRIPTION 1;0 WORD-PROCESSING #742.41

  • DESCRIPTION:  
    Contains the description of the incident.
.06 PERSON REPORTING THE INCIDENT 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the person reporting the incident.
  • DESCRIPTION:  
    Contains the person who reported the incident.
.07 TITLE OF THE REPORTING PERSON 0;6 POINTER TO TITLE FILE (#3.1) TITLE(#3.1)

  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the title of the reporting person.
  • DESCRIPTION:  
    Enter the title of the reporting person.
.08 WITNESSED 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 28, 1991
  • HELP-PROMPT:  Enter whether the incident had a witness.
  • DESCRIPTION:  
    Contains whether the incident had a witness.
.09 LOCAL CASE STATUS 0;8 SET
  • '0' FOR CLOSED;
  • '1' FOR OPEN;
  • '2' FOR DELETED;
  • '3' FOR QUICK;

  • LAST EDITED:  JAN 08, 1992
  • HELP-PROMPT:  Enter the case status for the incident.
  • DESCRIPTION:  
    Contains the case status for the incident.
  • CROSS-REFERENCE:  742.4^ACS
    1)= S ^QA(742.4,"ACS",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"ACS",$E(X,1,30),DA)
    X-REF FOR THE LOCAL CASE STATUS.
.1 VA 10-2633 DATE CREATED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the date form VA 10-2633 was created.
  • DESCRIPTION:  
    Contains the date the form VA 10-2633 was created.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.11 VA 10-2633 DATE COMPLETED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,9)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the date the form VA 10-2633 was completed.
  • DESCRIPTION:  
    Contains the date the form VA 10-2633 was completed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.12 LEVEL OF REVIEW 0;11 SET
  • '1' FOR NONE;
  • '2' FOR ADMINISTRATIVE INVESTIGATION;
  • '3' FOR OTHER;
  • '4' FOR M&M/PEER REVIEW;

  • LAST EDITED:  AUG 27, 1993
  • HELP-PROMPT:  Enter the level of review for the incident.
  • DESCRIPTION:  
    Contains the type of level of review.
.13 LR DATE INITIATED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the date the level of review was initiated.
  • DESCRIPTION:  
    Contains the date the level of review was initiated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 LR DATE COMPLETED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,12)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  JUN 25, 1991
  • HELP-PROMPT:  Enter the date the level of review was completed.
  • DESCRIPTION:  
    Contains the date the level of review was completed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.15 QA TYPE OF DEATH 0;14 POINTER TO QA COMPLICATIONS LEADING TO DEATH FILE (#742.14) QA COMPLICATIONS LEADING TO DEATH(#742.14)

  • 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 02, 1992
  • HELP-PROMPT:  Enter the reason for death.
  • DESCRIPTION:  
    Contains the reason for the patient's death.
  • SCREEN:  S DIC("S")="I +$P(^(0),U,2)"
  • EXPLANATION:  Valid Types of Death are active Types of Death.
  • CROSS-REFERENCE:  742.4^ADTH
    1)= S ^QA(742.4,"ADTH",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"ADTH",$E(X,1,30),DA)
    X-REF FOR THE TYPE OF DEATH.
.16 MEDICAL CENTER ACTION 2;0 SET Multiple #742.42 742.42

  • LAST EDITED:  JUN 28, 1991
  • DESCRIPTION:  
    Contains the action(s) taken by the medical center.
.17 NATIONAL CASE STATUS 0;15 SET
  • '0' FOR CLOSED;
  • '1' FOR OPEN;
  • '2' FOR DELETED;
  • '3' FOR QUICK;
  • '4' FOR FULL;

  • LAST EDITED:  AUG 30, 1991
  • HELP-PROMPT:  Enter the National Case Status for the incident.
  • DESCRIPTION:  
    Indicates the case status on the national level.
  • CROSS-REFERENCE:  742.4^ANCS
    1)= S ^QA(742.4,"ANCS",$E(X,1,30),DA)=""
    2)= K ^QA(742.4,"ANCS",$E(X,1,30),DA)
    X-REF FOR THE NATIONAL CASE STATUS.
.18 PATIENT ABUSE ALLEGED/PROVEN 0;16 SET
  • '0' FOR ALLEGED;
  • '1' FOR PROVEN;

  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Enter whether the Patient Abuse was alleged or proven.
  • DESCRIPTION:  
    Indicates whether the incident of patient abuse was proven.  '1' for a proven case, '0' for an alleged case.
.19 BENEFICIARY QUARTERLY REPORT 0;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Enter whether the Beneficiary Quarterly Report can be generated from the incident.
  • DESCRIPTION:  
    Indicates whether the Beneficiary Quarterly Report can be generated based on the incident.
.2 PERTINENT INFORMATION 3;0 WORD-PROCESSING #742.43

  • DESCRIPTION:  
    Contains any Pertinent Information as it applies to the incident.
.21 INCIDENT TRANSMITTED TO DATABASE 0;18 SET
  • '1' FOR TRANSMITTED;
  • '0' FOR NOT TRANSMITTED;

  • LAST EDITED:  MAY 22, 1998
  • HELP-PROMPT:  Enter whether the Incident has been previously rolled up to the system.
  • DESCRIPTION:  
    This field flags whether an incident has been 'rolled' up to the regional NQABD system.
.22 LEVEL OF REVIEW (OTHER) 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Contains the Level of Review type which is not contained in the Level of Review field.
.23 INCIDENT SUMMARY DATA 0;21 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Enter whether Incident Summary Data has been used for the Quarterly Summary.
  • DESCRIPTION:  
    Denotes whether Incident Data has been used for the Quarterly Summary.
50 INCIDENT AUDIT TRAIL 0;20 POINTER TO QA AUDIT FILE (#740.5) QA AUDIT(#740.5)

  • LAST EDITED:  MAR 17, 1992
  • HELP-PROMPT:  Pointer to the QA Audit file.
  • DESCRIPTION:  
    Files any changes to the QA Incident file to the QA Audit file.
52 DIVISION 0;22 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^QA(740,1,""QAN2"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 24, 1997
  • HELP-PROMPT:  Choice to be made from entries in site's QA Site Parameter file (#740).
  • SCREEN:  S DIC("S")="I $D(^QA(740,1,""QAN2"",""B"",Y))"
  • EXPLANATION:  Choice to be made from entries in site's QA Site parameter file (#740).

External References

Name Field # of Occurrence
^%DT .03+1, .1+1, .11+1, .13+1, .14+1
^DIC .02+1, .04+1, .15+1, 52+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(742.1 ID.02+1
^QA(742.1 - [#742.1] ID.02+1
^QA(742.4 - [#742.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1+1, .11+1, .13+1, .14+1
.15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .1+1*, .11+1*, .13+1*, .14+1*
>> %DT(0 .03+1*!, .1+1*!, .11+1*!, .13+1*!, .14+1*!
%I ID.02+1*!
>> C ID.02+1*
>> D0 .1+1, .11+1, .13+1, .14+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), .03(XREF 1S), .03(XREF 1K)
.03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K), .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K)
DIC ID.02+1, .02+1!*, .04+1!*, .15+1!*, 52+1!*
DIC("S" .02+1*, .02SCR+1*, .04+1*, .04SCR+1*, .15+1*, .15SCR+1*, 52+1*, 52SCR+1*
>> DIE .02+1, .04+1, .15+1, 52+1
QAN .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
QAN(1 .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
QAN(2 .01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
QAN(3 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .1+1, .11+1
, .13+1, .14+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
, .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1*!, .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K)
, .1+1*!, .11+1*!, .13+1*!, .14+1*!, .15+1*!, .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K), .22+1!
, 52+1*!
>> Y ID.02+1*, .02+1, .03+1, .04+1, .1+1, .11+1, .13+1, .14+1, .15+1, 52+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All