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

Package: Quality Assurance

QI OCCURRENCE(#9002167)-->9002167.01

Sub-Field: 9002167.01


Information

Parent File Name Number Package
QI OCCURRENCE(#9002167) REVIEW STAGE 9002167.01 Quality Assurance

Details

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO QI REVIEW STAGE FILE (#9002168.7) QI REVIEW STAGE(#9002168.7)

  • LAST EDITED:  AUG 10, 1992
  • HELP-PROMPT:  To add ANOTHER Peer review, enter "PEER" in quotes.
  • CROSS-REFERENCE:  9002167.01^B
    1)= S ^AQAOC(DA(1),"REV","B",$E(X,1,30),DA)=""
    2)= K ^AQAOC(DA(1),"REV","B",$E(X,1,30),DA)
    3)= REGULAR 'B' XREF OF REVIEW STAGE SUBFILE
.011 POTENTIAL FOR ADVERSE OUTCOME 0;11 POINTER TO QI LEVEL FILE (#9002169.3) QI LEVEL(#9002169.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,2)
  • LAST EDITED:  APR 01, 1993
  • SCREEN:  S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,2)'="""""
  • EXPLANATION:  CHOOSE ACTIVE RISK OUTCOMES ONLY
  • EXECUTABLE HELP:  D RISK^AQAOHOCC
.02 REVIEWER 0;2 VARIABLE POINTER
************************REQUIRED FIELD************************
NEW PERSON(#200)  QI TEAM(#9002169.1)  

  • LAST EDITED:  DEC 24, 1992
  • EXECUTABLE HELP:  D REVR^AQAOHOCC
.03 QI TEAM 0;3 POINTER TO QI TEAM FILE (#9002169.1) QI TEAM(#9002169.1)

  • LAST EDITED:  JUL 27, 1993
.04 REVIEW DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Enter the DATE the review was performed.
  • CROSS-REFERENCE:  9002167.01^AC
    1)= S ^AQAOC(DA(1),"REV","AC",$E(X,1,30),DA)=""
    2)= K ^AQAOC(DA(1),"REV","AC",$E(X,1,30),DA)
    3)= TO SORT REVIEWS BY DATE
    Xref used to list reviews by review date for a particular occurrence.
.05 FINDING 0;5 POINTER TO QI FINDINGS FILE (#9002168.8)
************************REQUIRED FIELD************************
QI FINDINGS(#9002168.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(AQAORLX),$P(^AQAO(8,Y,0),U,3)[AQAORLX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 10, 1992
  • HELP-PROMPT:  Enter the reviewer's or committee's finding for this occurrence.
  • SCREEN:  S DIC("S")="I $D(AQAORLX),$P(^AQAO(8,Y,0),U,3)[AQAORLX"
  • EXPLANATION:  Enter only those Findings DESIGNATED for this review stage.
.06 ADVERSE OUTCOME OF OCCURRENCE 0;6 POINTER TO QI LEVEL FILE (#9002169.3) QI LEVEL(#9002169.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:Y]"" Y=$P(^AQAO1(3,Y,0),U)_" "_$P(^(0),U,4)
  • LAST EDITED:  DEC 02, 1992
  • SCREEN:  S DIC("S")="I $P(^AQAO1(3,Y,0),U,3)="""",$P(^(0),U,4)'="""""
  • EXPLANATION:  CHOOSE ACTIVE OCCURRENCE OUTCOMES ONLY
  • EXECUTABLE HELP:  D OUTCOME^AQAOHOCC
.07 ACTION 0;7 POINTER TO QI ACTION FILE (#9002168.6)
************************REQUIRED FIELD************************
QI ACTION(#9002168.6)

  • INPUT TRANSFORM:  S DIC("S")="I $D(AQAORLX),$P(^AQAO(6,Y,0),U,3)[AQAORLX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 02, 1992
  • HELP-PROMPT:  Enter the Action RECOMMENDED by the reviewer or committee.
  • SCREEN:  S DIC("S")="I $D(AQAORLX),$P(^AQAO(6,Y,0),U,3)[AQAORLX"
  • EXPLANATION:  Enter only those Actions DESIGNATED for this review stage.
.09 REFERRED TO 0;9 VARIABLE POINTER
************************REQUIRED FIELD************************
QI TEAM(#9002169.1)  QI USER(#9002168.9)  

  • LAST EDITED:  APR 22, 1994
  • CROSS-REFERENCE:  9002167.01^AXMB3^MUMPS
    1)= I '$D(DIU(0)) D REVIEW^AQAOBUL
    2)= Q
    3)= SENDS BULLETIN
    This cross-reference sends a bulletin to the person the occurrence cases has been referred to.  If the referral is to a QI team, no bulletin is sent.
1 REVIEW COMMENTS COMMENT;0 WORD-PROCESSING #9002167.11
2 ADDITIONAL REFERRALS ADDRV;0 VARIABLE POINTER Multiple #9002167.12 9002167.12

  • LAST EDITED:  NOV 24, 1993
Info |  Details |  All