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 |  Fields |  Found Entries |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^QA(742.14

Package: Incident Reporting

Global: ^QA(742.14


Information

FileMan FileNo FileMan Filename Package
742.14 QA COMPLICATIONS LEADING TO DEATH Incident Reporting

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Incident Reporting 10 QANUTL    ^QA(742.14    QANBENE1    QANBRIF    QANCNV0    QANDELE    QANFULL0    QANPST3
QANQTOT    QANQTTL    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Incident Reporting 1 QANPST3    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Incident Reporting 2 QA INCIDENT REPORT(#742.4)[.15]    QA INCIDENT SUMMARY(#742.6)[#742.61(.01)]    

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 QA Type of Death entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.01 DEATH TYPE 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:  SEP 03, 1991
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Input the reason for the death.
  • DELETE TEST:  1,0)= I 1 W !,*7,"ENTRIES CANNOT BE DELETED!"
  • CROSS-REFERENCE:  742.14^B
    1)= S ^QA(742.14,"B",$E(X,1,30),DA)=""
    2)= K ^QA(742.14,"B",$E(X,1,30),DA)
    3)= Do not delete!
  • CROSS-REFERENCE:  742.14^BUPPER^MUMPS
    1)= S ^QA(742.14,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
    2)= K ^QA(742.14,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
    3)= Do not delete!
    Cross Reference files the uppercase text of the specific Complication Leading To Death.
.02 STATUS 0;2 SET
  • '1' FOR ACTIVE;

  • LAST EDITED:  APR 02, 1992
  • HELP-PROMPT:  Enter the Status for this particular Type of Death.
  • DESCRIPTION:  
    Denotes whether the particular Type of Death is active or inactive.
  • CROSS-REFERENCE:  742.14^BSTAT
    1)= S ^QA(742.14,"BSTAT",$E(X,1,30),DA)=""
    2)= K ^QA(742.14,"BSTAT",$E(X,1,30),DA)
    3)= Do not delete.

Found Entries, Total: 11

DEATH TYPE: CASES ACCEPTED BY M.E.    DEATH TYPE: CONJUNCTION WITH A PROCEDURE    DEATH TYPE: DURING INDUCTION OF ANES.    DEATH TYPE: EQUIPMENT MALFUNCTION    DEATH TYPE: FAILURE TO DIAGNOSE OR TREAT    DEATH TYPE: ON MEDICAL CENTER GROUNDS    DEATH TYPE: OPERATING ROOM    DEATH TYPE: OTHER    
DEATH TYPE: RECOVERY ROOM    DEATH TYPE: WITHIN 24 HOURS OF ADMISSION (EX. DOA'S AND TERMINALS)    DEATH TYPE: WITHIN 48 HOURS OF SURGERY    

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(742.14 - [#742.14] .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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Local Variables |  All