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 |  All
Print Page as PDF
Global: ^AQAO(5

Package: Quality Assurance

Global: ^AQAO(5


Information

FileMan FileNo FileMan Filename Package
9002168.5 QI ACTION PLAN Quality Assurance

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Quality Assurance 24 AQAOAPA    AQAOAPC    AQAOCHK    AQAOCHK4    AQAOCID    AQAOPC51    AQAOPC54    AQAOSEC
AQAOT07    AQAOT15    AQAOT151    AQAOT152    AQAOT54    AQAOT61    AQAOT62    AQAOT66
AQAOT73    AQAOT74    AQAOT76    AQAOT77    AQAOX851    AQAOX852    AQAOX853    AQAOX854

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Quality Assurance 13 AQAOAPA    AQAOAPC    AQAOPA1    AQAOPA2    AQAOPA3    AQAOPA4    AQAOPA5    AQAOPA6
AQAOPC54    AQAOT07    AQAOT15    AQAOT151    AQAOT152    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Quality Assurance 3 QI INDICATORS(#9002168.2)[.14]    QI ACTION(#9002168.6)[.02, .15]    QI TEAM(#9002169.1)[#9002168.52(.01)]    
Kernel 1 NEW PERSON(#200)[.08, .11]    
Utility Tables 1 LOCATION(#9999999.06)[.12]    

Fields, Total: 20

Field # Name Loc Type Details
.01 ACTION NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  AUG 12, 1992
  • HELP-PROMPT:  Computer generated number based on facility, fiscal year, & counter.
    UNEDITABLE
  • CROSS-REFERENCE:  9002168.5^B
    1)= S ^AQAO(5,"B",$E(X,1,30),DA)=""
    2)= K ^AQAO(5,"B",$E(X,1,30),DA)
    3)= REGULAR 'B' XREF
.02 ACTION CATEGORY 0;2 POINTER TO QI ACTION FILE (#9002168.6)
************************REQUIRED FIELD************************
QI ACTION(#9002168.6)

  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  This aids in grouping Action Plans for sorting purposes.
.03 IMPLEMENTATION DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 11, 1992
  • HELP-PROMPT:  ENTER THE DATE THE PLAN WAS IMPLEMENTED.
.04 PROPOSED REVIEW DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 14, 1992
  • HELP-PROMPT:  ENTER THE PROPOSED DATE TO REVIEW THE EFFECTIVENESS OF THIS PLAN.
.05 PLAN STATUS 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR AWAITING IMPLEMENTATION;
  • '2' FOR IMPLEMENTED;
  • '3' FOR REVIEWED-EFFECTIVE CHANGE;
  • '4' FOR REVIEWED-PARTIALLY EFFECTIVE;
  • '5' FOR REVIEWED-INEFFECTIVE CHANGE;
  • '9' FOR DELETED;

  • LAST EDITED:  DEC 14, 1992
  • HELP-PROMPT:  What is the plan's current status?
  • CROSS-REFERENCE:  9002168.5^AC
    1)= S ^AQAO(5,"AC",$E(X,1,30),DA)=""
    2)= K ^AQAO(5,"AC",$E(X,1,30),DA)
    3)= ACTION PLANS BY STATUS DESIGNATION
    Used to find all action plans by a particular status.
.06 CLOSE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 16, 1992
  • HELP-PROMPT:  ENTER THE DATE THE EVALUATION OF THIS PLAN WAS COMPLETED.
.07 NEW ACTION PLAN NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JUN 11, 1992
  • EXECUTABLE HELP:  D NEWNUM^AQAOHAPL
.08 ENTERED BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 11, 1992
.09 ENTERED ON 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 11, 1992
  • HELP-PROMPT:  Not seen by user.
.11 CLOSED OUT BY 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 16, 1992
  • HELP-PROMPT:  ENTER THE AUTHOR OF THE EVALUATION REPORT
.12 RPMS SITE 0;12 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  AUG 05, 1992
.13 DELETION REASON 0;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 06, 1992
  • HELP-PROMPT:  Enter a short (up to 30 characters) reason the plan has been deleted.
.14 INDICATOR 0;14 POINTER TO QI INDICATORS FILE (#9002168.2)
************************REQUIRED FIELD************************
QI INDICATORS(#9002168.2)

  • LAST EDITED:  SEP 15, 1992
  • HELP-PROMPT:  LINK this Action Plan to the Clinical Indicator to which it relates.
  • CROSS-REFERENCE:  9002168.5^C
    1)= S ^AQAO(5,"C",$E(X,1,30),DA)=""
    2)= K ^AQAO(5,"C",$E(X,1,30),DA)
    3)= ALLOWS LOOKUP BY INDICATOR
    An action plan can be selected by action number or by indicator.
.15 NEXT STEP 0;15 POINTER TO QI ACTION FILE (#9002168.6) QI ACTION(#9002168.6)

  • LAST EDITED:  APR 06, 1993
  • HELP-PROMPT:  What is the next step in this QI cycle?
1 ACTION TAKEN SUMM;0 WORD-PROCESSING #9002168.51

  • LAST EDITED:  DEC 15, 1993
2 IMPLEMENTATION TEAMS TEAM;0 POINTER Multiple #9002168.52 9002168.52
3 PERFORMANCE MEASUREMENTS EVAL;0 WORD-PROCESSING #9002168.53

  • LAST EDITED:  DEC 15, 1993
4 ACTION ASSESSMENT REPORT RPT;0 WORD-PROCESSING #9002168.54

  • LAST EDITED:  DEC 15, 1993
5 INDICATOR ASSESSMENT REPORT IND;0 WORD-PROCESSING #9002168.55
99 FACILITY COMPUTED

  • MUMPS CODE:  S X=$S('$D(DUZ(2)):"",DUZ(2)=0:"",1:$P(^DIC(4,DUZ(2),0),U))
  • ALGORITHM:  S X=$S('$D(DUZ(2)):"",DUZ(2)=0:"",1:$P(^DIC(4,DUZ(2),0),U))
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All