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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(742.6

Package: Incident Reporting

Global: ^QA(742.6


Information

FileMan FileNo FileMan Filename Package
742.6 QA INCIDENT SUMMARY Incident Reporting

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Incident Reporting 5 INSTANCE OF DEATH    QANQTOT    ^QA(742.6    QANQTTL    QANSUMM    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Incident Reporting 4 QANQSDT    QANQTOT    QANQTTL    QANSUMM    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Incident Reporting 2 QA INCIDENTS(#742.1)[.04]    QA COMPLICATIONS LEADING TO DEATH(#742.14)[#742.61(.01)]    
Kernel 1 INSTITUTION(#4)[.01]    

Fields, Total: 18

Field # Name Loc Type Details
.01 MEDICAL CENTER 0;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Enter the Medical Center where the incident occurred.
  • DESCRIPTION:  
    This is the Medical Center where the incident occurred.
  • TECHNICAL DESCR:  
    Pointer to the Institution File.
  • CROSS-REFERENCE:  742.6^B
    1)= S ^QA(742.6,"B",$E(X,1,30),DA)=""
    2)= K ^QA(742.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  742.6^AA1^MUMPS
    1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",X,A4BV(2),A4BV(3),A4BV(4),DA)="" K A4BV
    2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",X,A4BV(2),A4BV(3),A4BV(4),DA) K A4BV
    3)= Do not delete.
    Mumps x-ref to link medical center, date, patient type, and incident type together.
.02 DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 26, 1992
  • HELP-PROMPT:  Enter the date of the incident.
  • DESCRIPTION:  
    Holds the Date of the Quarterly Report.
  • TECHNICAL DESCR:  
    Date the Quarterly Report was generated. Date/Time, time not required.
  • CROSS-REFERENCE:  742.6^AA2^MUMPS
    1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(1)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),X,A4BV(3),A4BV(4),DA)="" K A4BV
    2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(1)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),X,A4BV(3),A4BV(4),DA) K A4BV
    3)= Do not delete.
    Mumps x-ref to link medical center, date, patient type, and incident type together.
  • CROSS-REFERENCE:  742.6^QDATE
    1)= S ^QA(742.6,"QDATE",$E(X,1,30),DA)=""
    2)= K ^QA(742.6,"QDATE",$E(X,1,30),DA)
    3)= Do not delete.
    Holds the beginning date of a quarter.
.03 PATIENT TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;
  • 'N' FOR NHCU;
  • 'D' FOR DOMICILIARY;

  • LAST EDITED:  MAR 26, 1992
  • HELP-PROMPT:  Enter the Patient Type, inpatient, outpatient, NHCU, or Domiciliary.
  • DESCRIPTION:  
    Indicates the Patient Type.
  • TECHNICAL DESCR:  
    Patient Type: Set of Codes.
  • CROSS-REFERENCE:  742.6^AA3^MUMPS
    1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""&(A4BV(1)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),X,A4BV(4),DA)="" K A4BV
    2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""&(A4BV(1)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),X,A4BV(4),DA) K A4BV
    3)= Do not delete.
    Mumps x-ref to link medical center, date, patient type, and incident type together.
  • CROSS-REFERENCE:  742.6^BTYPE
    1)= S ^QA(742.6,"BTYPE",$E(X,1,30),DA)=""
    2)= K ^QA(742.6,"BTYPE",$E(X,1,30),DA)
    3)= Do not delete.
    Holds the Patient Type.
.04 INCIDENT TYPE 0;4 POINTER TO QA INCIDENTS FILE (#742.1)
************************REQUIRED FIELD************************
QA INCIDENTS(#742.1)

  • LAST EDITED:  MAR 26, 1992
  • HELP-PROMPT:  Enter the Type of Incident.
  • DESCRIPTION:  
    Indicates the Type of Incident.
  • TECHNICAL DESCR:  
    Pointer to QA Incidents File. LAYGO not allowed.
  • CROSS-REFERENCE:  742.6^AA4^MUMPS
    1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) S:A4BV(2)]""&(A4BV(3)]"")&(A4BV(1)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),A4BV(3),X,DA)="" K A4BV
    2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) K:A4BV(2)]""&(A4BV(3)]"")&(A4BV(1)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),A4BV(3),X,DA) K A4BV
    3)= Do not delete.
    Mumps x-ref to link medical center, date, patient type, and incident type together.
  • CROSS-REFERENCE:  742.6^BINC
    1)= S ^QA(742.6,"BINC",$E(X,1,30),DA)=""
    2)= K ^QA(742.6,"BINC",$E(X,1,30),DA)
    3)= Do not delete.
    Holds the incident.
.05 TOTAL NON-INVESTIGATED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of NON investigated incidents for a given quarter.
.06 TOTAL INVESTIGATED 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total number of Investigated incidents over a given quarter.
.07 TOTAL NON-INVESTIGATED 0 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total of Non-Investigated incidents with a Severity Level of 0.
.08 TOTAL NON-INVESTIGATED 1 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total of Non-Investigated incidents with a Severity Level of 1.
.09 TOTAL NON-INVESTIGATED 2 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Non-Investigated incidents with a Severity Level of 2.
.1 TOTAL NON-INVESTIGATED 3 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Non-Investigated incidents with a Severity Level of 3.
.11 TOTAL INVESTIGATED 0 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Investigated incidents with a Severity Level of 0.
.12 TOTAL INVESTIGATED 1 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Investigated incidents with a Severity Level of 1.
.13 TOTAL INVESTIGATED 2 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Investigated incidents with a Severity Level of 2.
.14 TOTAL INVESTIGATED 3 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the Total Number of Investigated incidents with a Severity Level of 3.
.15 DATE ENTERED 0;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 1992
  • HELP-PROMPT:  Enter the Date the data was rolled up into the database.
  • DESCRIPTION:  
    Holds the Date the data was rolled up into the database.
  • TECHNICAL DESCR:  
    Date/Time, Time optional.
.16 ALLEGED/PROVEN 0;16 SET
  • '1' FOR PROVEN;
  • '0' FOR ALLEGED;

  • LAST EDITED:  MAR 24, 1992
  • HELP-PROMPT:  Enter whether the Incident was alleged or proven.
  • DESCRIPTION:  
    Defines whether the incident was alleged or proven.
.17 TRANSMITTED TO REGION 0;17 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 26, 1992
  • HELP-PROMPT:  Enter whether the data has been sent to the region.
  • DESCRIPTION:  
    Defines whether the data has been sent to the region.
1 INSTANCE OF DEATH 1;0 POINTER Multiple #742.61 742.61

  • DESCRIPTION:  
    Contains the totals for investigated and non-investigated types of deaths.

External References

Name Field # of Occurrence
^%DT .02+1, .15+1
Y^DIQ ID.04+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(742.1 ID.04+1
^QA(742.1 - [#742.1] ID.04+1
^QA(742.6 - [#742.6] .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), .04(XREF 2S), .04(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.04+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*, .15+1*
%I ID.04+1*!
A4BV .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(1 .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(2 .01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(3 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(4 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> C ID.04+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), .04(XREF 2S), .04(XREF 2K)
>> DIC ID.03+1, ID.04+1
U ID.02+1, ID.04+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
X .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(XREF 1S)
.03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1!, .06+1!, .07+1!
, .08+1!, .09+1!, .1+1!, .11+1!, .12+1!, .13+1!, .14+1!, .15+1*!
>> Y ID.04+1*, .02+1, .15+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All