Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 741.01

Package: Occurrence Screen

QA OCCURRENCE SCREEN(#741)-->741.01

Sub-Field: 741.01


Information

Parent File Name Number Package
QA OCCURRENCE SCREEN(#741) REVIEWER 741.01 Occurrence Screen

Details

Field # Name Loc Type Details
.01 REVIEW LEVEL 0;1 POINTER TO QA OCCURRENCE REVIEW LEVEL FILE (#741.2) QA OCCURRENCE REVIEW LEVEL(#741.2)

  • INPUT TRANSFORM:  S QA=$O(^QA(741.2,"C",1,0)),DIC("S")="I $P(^(0),""^"",2)'>3&(('$D(^QA(741,DA,""REVR"",""B"",QA))!(+Y'=QA)))" D ^DIC K DIC S DIC=DIE,X=+Y K QA K:Y<0 X
  • LAST EDITED:  OCT 13, 1989
  • HELP-PROMPT:  Enter the level or type of review.
  • DESCRIPTION:  
    This is the type of review being entered or edited. Multiple Peer and Management reviews are allowed, but only one Clinical review may be entered.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)'>3"
  • EXPLANATION:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.01^B
    1)= S ^QA(741,DA(1),"REVR","B",$E(X,1,30),DA)=""
    2)= K ^QA(741,DA(1),"REVR","B",$E(X,1,30),DA)
.02 NAME 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="S QA=$P(^QA(741,DA(1),""REVR"",DA,0),""^""),QA=$P(^QA(741.2,QA,0),""^"",2) I ((QA=1)&($D(^XUSEC(""QAOSCLIN"",+Y))))!(QA>1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 22, 1992
  • HELP-PROMPT:  Enter the name of the reviewer.
  • DESCRIPTION:  
    This is the name of the person who has performed this review.
  • SCREEN:  S DIC("S")="S QA=$P(^QA(741,DA(1),""REVR"",DA,0),""^""),QA=$P(^QA(741.2,QA,0),""^"",2) I ((QA=1)&($D(^XUSEC(""QAOSCLIN"",+Y))))!(QA>1)"
  • EXPLANATION:  Clinical reviewers must hold the Clinical reviewer key to be selectable.
.03 REVIEWING SERVICE 0;10 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • INPUT TRANSFORM:  D EN4^QAOSDDUT
  • LAST EDITED:  OCT 13, 1992
  • HELP-PROMPT:  Enter the service performing this Peer review.
  • DESCRIPTION:  This field is used to enter the service/section that is conducting the Peer review of this occurrence. Once the FINAL PEER REVIEW PER SERVICE field has been answered Y(es) this field may no longer be edited. To change
    the service, change FINAL PEER REVIEW PER SERVICE to N(o); the service may then be edited.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 DATE REVIEW COMPLETED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EXP" S:$D(QAOSD0)#2 %DT(0)=$P(^QA(741,QAOSD0,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 reviewer finished the review.
  • DESCRIPTION:  
    This is the date the reviewer completed the review.
  • EXECUTABLE HELP:  D EN2^QAOSDDUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.01^ALAPSE^MUMPS
    1)= D ENLAPSE^QAOSLAPS
    2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA(1),"REVR",DA,0),"^",8),QAQADICT=741.01,QAQAFLD=8 D ENKILL^QAQAXREF S $P(^QA(741,DA(1),"REVR",DA,0),"^",8)="" S X=QAQAX K QAQAX
  • CROSS-REFERENCE:  741.01^ADUES^MUMPS
    1)= D ENDUES^QAOSLAPS
    2)= S QA("DA")=DA,DA=DA(1),QAQAX=X F QA=12:1:13 N QAQAXREF,QAQADICT,QAQAFLD S X=$P(^QA(741,DA,0),"^",QA),QAQADICT=741,QAQAFLD=QA D ENKILL^QAQAXREF S $P(^QA(741,DA,0),"^",QA)="" I QA=13 S DA=QA("DA"),X=QAQAX K QAQAX
2 REASON FOR EXCEPTION 1;0 POINTER Multiple #741.12 741.12

  • DESCRIPTION:  
    This is where the screen exception data is entered.
3 PRIMARY REASON CLIN REFERRAL 0;4 POINTER TO QA OCCURRENCE CLINICAL REFERRAL FILE (#741.4) QA OCCURRENCE CLINICAL REFERRAL(#741.4)

  • INPUT TRANSFORM:  S DIC("S")="D EN6^QAOSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:+Y(0) Y=$P(^QA(741.4,+Y(0),0),"^")_" "_$S($D(^(2))#2:$P(^(2),"^"),1:"")
  • LAST EDITED:  MAY 01, 1991
  • HELP-PROMPT:  Enter the primary reason for Clinical referral.
  • DESCRIPTION:  
    This is the field the Clinical reviewer enters to describe the primary reason the occurrence was referred to the next level of review.
  • SCREEN:  S DIC("S")="D EN6^QAOSDDUT"
  • EXPLANATION:  Each Screen has its own reasons for referral
4 FINDINGS 0;5 POINTER TO QA OCCURRENCE FINDINGS FILE (#741.6) QA OCCURRENCE FINDINGS(#741.6)

  • INPUT TRANSFORM:  S DIC("S")="D EN8^QAOSDDUT" 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 19, 1992
  • HELP-PROMPT:  Enter the findings of this reviewer.
  • DESCRIPTION:  
    This is the finding of the reviewer at this review level.
  • SCREEN:  S DIC("S")="D EN8^QAOSDDUT"
  • EXPLANATION:  Appropriate Findings determined by Review Level
5 ACTION 2;0 POINTER Multiple #741.15 741.15

  • DESCRIPTION:  
    This is where the action to be taken data is stored.
6 *SEVERITY OF OUTCOME 0;6 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:  OCT 13, 1992
  • HELP-PROMPT:  Enter the severity of outcome for this occurrence.
  • DESCRIPTION:  
    This is the severity of outcome of this occurrence, enter the one that best describes the occurrence.
7 *COMMENTS 0;7 FREE TEXT

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  AUG 31, 1992
  • HELP-PROMPT:  This field is no longer in use, use the word processing comment field.
  • DESCRIPTION:  
    This is where the reviewer may enter a short comment about the occurrence or the review of the occurrence.
  • TECHNICAL DESCR:  
    The data in this field has been moved to field #10 (word processing).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 ELAPSED DAYS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 06, 1989
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the elapsed days from the date of the occurrence to the date the reviewer finished the review.
    UNEDITABLE
9 FINAL PEER REVIEW PER SERVICE 0;9 SET

  • INPUT TRANSFORM:  D EN3^QAOSDDUT
  • LAST EDITED:  AUG 10, 1993
  • HELP-PROMPT:  Enter 'YES' if this is the final review of this occurrence, otherwise 'NO'
  • DESCRIPTION:  This question should be answered Y(es) if the Peer review for this service contains the final findings. If this prompt is answered Y(es) the data from this peer review will be used on the Summary of Occurrence
    Screen (Semi-Annual) report.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.01^AONLY1
    1)= S ^QA(741,DA(1),"REVR","AONLY1",$E(X,1,30),DA)=""
    2)= K ^QA(741,DA(1),"REVR","AONLY1",$E(X,1,30),DA)
10 COMMENTS 3;0 WORD-PROCESSING #741.02

  • DESCRIPTION:  
    This is where the reviewer may enter a comment about the occurrence or the review of the occurrence.
Info |  Details