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

Package: Occurrence Screen

Global: ^QA(741


Information

FileMan FileNo FileMan Filename Package
741 QA OCCURRENCE SCREEN Occurrence Screen

Description

Directly Accessed By Routines, Total: 44

Package Total Routines
Occurrence Screen 42 QAO QAI POSSIBLE INCIDENTS    QAOC109    QAOEDT    QAOEDT0    QAOEDT0C    QAOEDT0M    QAOEDT0P    QAOEDT1
QAOEDT2    QAOEDT3    QAOSCNV1    QAOSCNV3    QAOSCNVA    QAOSDDUT    QAOSDELT    QAOSENT1
QAOSENTR    QAOSLAPS    QAOSOCID    QAOSPAD0    QAOSPAD1    QAOSPAUD    QAOSPCL0    QAOSPCL1
QAOSPCM0    QAOSPDQ0    QAOSPHDR    QAOSPMG0    QAOSPNAM    QAOSPPR0    QAOSPRD0    QAOSPRS0
QAOSPSM0    QAOSPSR0    QAOSPSS0    QAOSPSY0    QAOSPTR0    QAOSPWT0    QAOSSFR0    QAOSWRK0
^QA(741.99    QAOUTL0    
Interim Management Support 1 ECTMENU    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Occurrence Screen 13 QAOEDT    QAOEDT0    QAOEDT1    QAOEDT2    QAOEDT3    QAOSCNV3    QAOSDELT    QAOSENTR
QAOSOPEN    QAOSPAUD    QAOSPINQ    QAOSSFR0    QAOSWRK0    

Pointer To FileMan Files, Total: 16

Package Total FileMan Files
Occurrence Screen 9 QA OCCURRENCE SCREEN CRITERIA(#741.1)[3]    QA OCCURRENCE REVIEW LEVEL(#741.2)[16, #741.01(.01)]    QA OCCURRENCE CLINICAL REFERRAL(#741.4)[#741.01(3)]    QA OCCURRENCE EXCEPTION(#741.5)[#741.12(.01)]    QA OCCURRENCE FINDINGS(#741.6)[20, #741.01(4), #741.017(1)]
QA OCCURRENCE ACTION(#741.7)[#741.15(.01)]    QA OCCURRENCE SEVERITY OF OUTCOME(#741.8)[19, #741.01(6), #741.017(2)]
QA OCCURRENCE MEDICAL TEAM(#741.93)[7, #741.025(.01)]    QA OCCURRENCE COMMITTEE(#741.97)[#741.017(.01)]    
Registration 3 PATIENT MOVEMENT(#405)[.02]    FACILITY TREATING SPECIALTY(#45.7)[6]    PATIENT(#2)[.01]    
Kernel 2 SERVICE/SECTION(#49)[5, #741.01(.03), #741.024(.02), #741.025(.02), #741.026(.02)]    NEW PERSON(#200)[8, 9, #741.01(.02), #741.024(.01)]    
Quality Assurance Integration 1 QA AUDIT(#740.5)[27]    
Scheduling 1 HOSPITAL LOCATION(#44)[4, #741.026(.01)]    

Fields, Total: 29

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

  • LAST EDITED:  JAN 03, 1990
  • HELP-PROMPT:  Enter a patient who has met one of the screens.
  • DESCRIPTION:  
    Select a patient who has met one of the screens. A patient may be selected by: Name, SSN, Last four digits of SSN, or Last initial and last four digits of SSN.
  • DELETE TEST:  1,0)= S QADL=1 I 0
  • CROSS-REFERENCE:  741^B
    1)= S ^QA(741,"B",$E(X,1,30),DA)=""
    2)= K ^QA(741,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  741^AA1^MUMPS
    1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(3)=$P(QA,"^",3) S:(QA(3)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),QA(3),X,DA)="" K QA
    2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(3)=$P(QA,"^",3) K:(QA(3)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),QA(3),X,DA) K QA
  • CROSS-REFERENCE:  741^AOCID^MUMPS
    1)= D ^QAOSOCID
    2)= D KILL^QAOSOCID
  • CROSS-REFERENCE:  ^^TRIGGER^741^11
    1)= X ^DD(741,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(741,.01,1,4,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    1.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(741,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(741,.01,1,4,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
    2.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= STATUS=""
    CREATE VALUE)= "0"
    DELETE CONDITION)= STATUS=""
    DELETE VALUE)= "0"
    FIELD)= STATUS
.02 ASSOCIATED ADMISSION 0;2 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""^"",2)=1,$P(QA(1),""^"",3)=+QA(2),$P(QA(2),""^"",3)\1'<(QA(1)\1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Enter the MAS admission movement associated with this patient.
  • DESCRIPTION:  
    This field contains the MAS admission movement associated with this occurrence.
  • SCREEN:  S DIC("S")="S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""^"",2)=1,$P(QA(1),""^"",3)=+QA(2),$P(QA(2),""^"",3)\1'<(QA(1)\1)"
  • EXPLANATION:  You may select this patient's admission movements whose dates are less than or equal to the occurrence date.
1 DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  OCT 02, 1991
  • HELP-PROMPT:  Enter the date/(time) of the occurrence
  • DESCRIPTION:  
    This is the date the occurrence took place. For auto enrolled occurrences it is the date that this occurrence was picked up by auto enroll.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741^C
    1)= S ^QA(741,"C",$E(X,1,30),DA)=""
    2)= K ^QA(741,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  741^AA2^MUMPS
    1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(1)=$P(QA,"^") S:(QA(1)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),X,QA(1),DA)="" K QA
    2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(1)=$P(QA,"^") K:(QA(1)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),X,QA(1),DA) K QA
  • CROSS-REFERENCE:  741^AOCID2^MUMPS
    1)= D ^QAOSOCID
    2)= D KILL^QAOSOCID
  • CROSS-REFERENCE:  741^ATED^MUMPS
    1)= S X1=$P(^QA(741,DA,0),"^",14),(QAQAX,X2)=X I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P(^QA(741,DA,0),"^",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q
    2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),"^",15),QAQADICT=741,QAQAFLD=15 D ENKILL^QAQAXREF S $P(^QA(741,DA,0),"^",15)="" S X=QAQAX Q
  • CROSS-REFERENCE:  741^AED^MUMPS
    1)= D ENLAPSO^QAOSLAPS
    2)= Q
2 OCCURRENCE IDENTIFIER 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  AUG 10, 1993
  • HELP-PROMPT:  Answer must be 7 characters in length.
  • DESCRIPTION:  
    This identifier is computed from the patient's name, SSN, occurrence date and internal entry number in the occurrence screen file.
    UNEDITABLE
  • CROSS-REFERENCE:  741^E
    1)= S ^QA(741,"E",$E(X,1,30),DA)=""
    2)= K ^QA(741,"E",$E(X,1,30),DA)
3 SCREEN SCRN;1 POINTER TO QA OCCURRENCE SCREEN CRITERIA FILE (#741.1)
************************REQUIRED FIELD************************
QA OCCURRENCE SCREEN CRITERIA(#741.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",4)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 28, 1991
  • HELP-PROMPT:  Enter the screen that describes this occurrence.
  • DESCRIPTION:  
    This is the screen that best describes this patient's occurrence.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",4)'=1"
  • EXPLANATION:  Only National and Local screens may be selected.
  • CROSS-REFERENCE:  741^D
    1)= S ^QA(741,"D",$E(X,1,30),DA)=""
    2)= K ^QA(741,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  741^AA3^MUMPS
    1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA(1)=$P(QA,"^"),QA(3)=$P(QA,"^",3) S:(QA(1)]"")&(QA(3)]"") ^QA(741,"AA",X,QA(3),QA(1),DA)="" K QA
    2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA(1)=$P(QA,"^"),QA(3)=$P(QA,"^",3) K:(QA(1)]"")&(QA(3)]"") ^QA(741,"AA",X,QA(3),QA(1),DA) K QA
4 WARD/CLINIC 0;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="S QA=$P(^(0),""^"",3) I QA=""W""!(QA=""C"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 23, 1990
  • HELP-PROMPT:  Enter the ward/clinic the occurrence took place on.
  • DESCRIPTION:  
    This is the ward/clinic of the occurrence as defined by the Occurrence Screen circular.
  • SCREEN:  S DIC("S")="S QA=$P(^(0),""^"",3) I QA=""W""!(QA=""C"")"
  • EXPLANATION:  Select the ward/clinic on which the occurrence took place.
5 SERVICE 0;6 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  MAY 24, 1989
  • HELP-PROMPT:  Enter the service associated with this occurrence.
  • DESCRIPTION:  
    This is the service associated with this occurrence.
6 TREATING SPECIALTY/BEDSECTION 0;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  MAY 24, 1989
  • HELP-PROMPT:  Enter the treating specialty associated with this occurrence.
  • DESCRIPTION:  
    This is the treating specialty associated with this occurrence.
7 MEDICAL TEAM 0;8 POINTER TO QA OCCURRENCE MEDICAL TEAM FILE (#741.93) QA OCCURRENCE MEDICAL TEAM(#741.93)

  • LAST EDITED:  MAY 24, 1989
  • HELP-PROMPT:  Enter the medical team associated with this occurrence.
  • DESCRIPTION:  
    This is the medical team associated with this occurrence.
8 ATTENDING PHYSICIAN 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 13, 1993
  • HELP-PROMPT:  Enter the patient's attending physician.
  • DESCRIPTION:  
    This is the patient's attending physician.
9 RESIDENT/PROVIDER 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 13, 1993
  • HELP-PROMPT:  Enter the patient's resident/provider.
  • DESCRIPTION:  
    This is the patient's resident/provider.
10 REVIEWER REVR;0 POINTER Multiple #741.01 741.01

  • DESCRIPTION:  
    This is where the reviewer data for Clinical, Peer, and Management reviews is entered or changed.
  • IDENTIFIED BY:  NAME(#.02)[R]
    "WRITE.03": S %I=Y,Y=$S('$D(^(0)):"",$D(^DIC(49,+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
11 STATUS 0;11 SET
  • '0' FOR OPEN;
  • '1' FOR CLOSED;
  • '2' FOR DELETED;

  • LAST EDITED:  AUG 18, 1989
  • HELP-PROMPT:  Enter the status of this occurrence.
  • DESCRIPTION:  This is the status of this occurrence record. Occurrences are automatically marked as open when they are first entered into the system. When a final disposition date is entered they are marked as closed. An occurrence
    may be marked as deleted at any time by using the delete occurrence screen record option in the manager menu.
  • NOTES:  TRIGGERED by the QA PATIENT field of the QA OCCURRENCE SCREEN File
    TRIGGERED by the FINAL DISPOSITION DATE field of the QA OCCURRENCE SCREEN File
  • CROSS-REFERENCE:  741^AD
    1)= S ^QA(741,"AD",$E(X,1,30),DA)=""
    2)= K ^QA(741,"AD",$E(X,1,30),DA)
12 PEER DUE DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 06, 1989
  • HELP-PROMPT:  Enter the date by which the peer review is due.
  • DESCRIPTION:  
    This is the date all peer reviews should be completed by. It is computed by adding the peer review days entry in the parameters file to the date the clinical review was completed.
    UNEDITABLE
13 MANAGEMENT DUE DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 06, 1989
  • HELP-PROMPT:  Enter the date by which the management review is due.
  • DESCRIPTION:  
    This is the date by which all management reviews should be completed. It is computed by adding the management review days entry from the parameters file to the date the clinical review was completed.
    UNEDITABLE
14 FINAL DISPOSITION DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EXP",%DT(0)=$P(^QA(741,D0,0),"^",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
  • LAST EDITED:  JAN 06, 1993
  • HELP-PROMPT:  Please enter the date of the final disposition.
  • DESCRIPTION:  
    This is the date of the final disposition. Only the last final disposition is tracked. Some options allow this date to be entered manually, while others automatically store the current date.
  • EXECUTABLE HELP:  D EN2^QAOSDDUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741^AC^MUMPS
    1)= S (QAQAX,X1)=X,X2=$P(^QA(741,DA,0),"^",3) I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P(^QA(741,DA,0),"^",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q
    2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),"^",15),QAQADICT=741,QAQAFLD=15 D ENKILL^QAQAXREF S $P(^QA(741,DA,0),"^",15)="" S X=QAQAX K QAQAX Q
  • CROSS-REFERENCE:  ^^TRIGGER^741^11
    1)= X ^DD(741,14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(741,14,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)="OPEN"
    1.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(741,14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(741,14,1,2,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)="CLOSED"
    2.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= STATUS="OPEN"
    CREATE VALUE)= "1"
    DELETE CONDITION)= STATUS="CLOSED"
    DELETE VALUE)= "0"
    FIELD)= STATUS
15 TOTAL ELAPSED DAYS 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 25, 1989
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of days between the occurrence date and the final disposition date.
16 FINAL DISPOSITION REACHED BY 0;16 POINTER TO QA OCCURRENCE REVIEW LEVEL FILE (#741.2) QA OCCURRENCE REVIEW LEVEL(#741.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)<5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 13, 1992
  • HELP-PROMPT:  Enter the review level that reached the final disposition.
  • DESCRIPTION:  
    This field tracks which review level entered a final disposition. Some options allow data to be entered manually while others automatically store the data.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)<5"
  • EXPLANATION:  Only Clinical, Peer, Management and Committee are selectable.
17 COMMITTEE CMTE;0 POINTER Multiple #741.017 741.017

  • DESCRIPTION:  
    This is where all data on committee reviews is stored.
18 *DATE VALIDATED/CONFIRMED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EXP",%DT(0)=$P(^QA(741,D0,0),"^",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
  • LAST EDITED:  JAN 06, 1993
  • HELP-PROMPT:  Enter the date this occurrence was validated/confirmed.
  • DESCRIPTION:  
    This is the date the occurrence was validated/confirmed.
  • EXECUTABLE HELP:  D EN2^QAOSDDUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741^AVAL
    1)= S ^QA(741,"AVAL",$E(X,1,30),DA)=""
    2)= K ^QA(741,"AVAL",$E(X,1,30),DA)
19 SEVERITY OF OUTCOME 0;18 POINTER TO QA OCCURRENCE SEVERITY OF OUTCOME FILE (#741.8) QA OCCURRENCE SEVERITY OF OUTCOME(#741.8)

  • OUTPUT TRANSFORM:  S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),"^")_" "_$P(^(0),"^",2)
  • LAST EDITED:  MAR 15, 1990
  • HELP-PROMPT:  Enter the severity of outcome.
  • DESCRIPTION:  
    This is the severity of outcome for the occurrence.
20 *QUALITY OF CARE SCALE 0;19 POINTER TO QA OCCURRENCE FINDINGS FILE (#741.6) QA OCCURRENCE FINDINGS(#741.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^QA(741.6,+Y,0),""^"",3)[""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),"^")_" "_$P(^(0),"^",2)
  • LAST EDITED:  OCT 13, 1992
  • HELP-PROMPT:  Enter the quality of care.
  • DESCRIPTION:  
    This is the validated/confirmed quality of care.
  • SCREEN:  S DIC("S")="I $P(^QA(741.6,+Y,0),""^"",3)[""V"""
  • EXPLANATION:  Select only those levels of care allowed for validation/confirmation.
21 *VALIDATED/CONFIRMED 0;20 SET
  • '1' FOR EQUIPMENT PROBLEMS;
  • '2' FOR SYSTEM PROBLEMS;
  • '3' FOR EQUIPMENT & SYSTEM PROBLEMS;

  • LAST EDITED:  OCT 13, 1992
  • HELP-PROMPT:  Enter the appropriate validation/confirmation code.
  • DESCRIPTION:  
    This is the type of problem that led to this occurrence.
22 *VALIDATION COMMENT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>187!($L(X)<1) X
  • LAST EDITED:  OCT 13, 1992
  • HELP-PROMPT:  Answer must be 1-187 characters in length.
  • DESCRIPTION:  
    Enter any comment regarding the validation of this occurrence.
24 PEER ATTRIBUTION (INDIVIDUAL) ATRI;0 POINTER Multiple #741.024 741.024

  • DESCRIPTION:  
    This is where the occurrence is attributed to the individuals involved in this patient's care.
25 PEER ATTRIBUTION (MED TEAM) ATRT;0 POINTER Multiple #741.025 741.025

  • DESCRIPTION:  
    This is where the medical team attribution data is stored.
26 PEER ATTRIBUTION (HOSP LOC) ATRL;0 POINTER Multiple #741.026 741.026

  • DESCRIPTION:  
    This is where the data is stored for the attribution to hospital location.
27 AUDIT AUDIT;1 POINTER TO QA AUDIT FILE (#740.5) QA AUDIT(#740.5)

  • LAST EDITED:  JUL 03, 1991
  • HELP-PROMPT:  Enter the audit file pointer.
  • DESCRIPTION:  
    This is a pointer to the audit file entry for this occurrence screen record. The audit file contains data on what was done to this record and when it was done.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  741^AUDIT^MUMPS
    1)= Q
    2)= N QAUDIT S QAUDIT("FILE")=741,QAUDIT("DA")=DA D:$D(QADL) ^QAQADLAU K QADL Q
28 RECORD CREATION DATE 0;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 1992
  • HELP-PROMPT:  Enter the date this record was entered into the Occurrence Screen file.
  • DESCRIPTION:  
    This field is automatically set to TODAY whenever a new record is entered into this file. The record creation date is used by auto enroll to count the occurrences that are entered manually.
  • CROSS-REFERENCE:  741^ARCD
    1)= S ^QA(741,"ARCD",$E(X,1,30),DA)=""
    2)= K ^QA(741,"ARCD",$E(X,1,30),DA)

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #159
  • QUALITY IMPROVEMENT CHECKLIST
    		•
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All