Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AQAOHOCC

AQAOHOCC.m

Go to the documentation of this file. 
  1. AQAOHOCC ; IHS/ORDC/LJF - HELP TEXT FOR OCCURRENCES ;
  1.  ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1.  ;
  1.  ;This rtn contains entry points for introductory text on options
  1.  ;and help text on data fields for occurrence data entry.
  1.  ;
  1. INTRO ;ENTRY POINT to print intro text to occurrence data entry
  1.  ;  called by entry action for option AQAO PRIMARY REVIEW
  1.  W @IOF,!!?20,"ENTER/EDIT OCCURRENCE RECORD",!!
  1.  W !?5,"Use this option to ADD NEW OCCURRENCES, to EDIT AN OPEN"
  1.  W !?5,"OCCURRENCE you have already entered, or to CREATE occurrences"
  1.  W !?5,"from a VISIT file SEARCH TEMPLATE.  For an new entry, you are"
  1.  W !?5,"asked to enter the patient's name, occurrence date, and the"
  1.  W !?5,"indicator linked to this occurrence.  Other BASIC DATA ITEMS "
  1.  W !?5,"include the patient's visit date, a case summary, diagnosis, "
  1.  W !?5,"procedures, providers, and review criteria.  Enter ONLY what is"
  1.  W !?5,"useful for your review.  Once basic data has been entered, you"
  1.  W !?5,"can enter the INITIAL REVIEW of this occurrence.  This is the"
  1.  W !?5,"clinical review or the first peer review.  For all subsequent"
  1.  W !?5,"reviews, choose the 'Enter/Edit Occurrence REVIEWS' option."
  1.  W !! Q
  1.  ;
  1.  ;
  1. VISIT ;ENTRY POINT for visit field help text; called by xecute help
  1.  W !!,"Enter the VISIT DATE related to this occurrence.  For an "
  1.  W !,"inpatient stay, enter the ADMISSION DATE.  If unknown, you can"
  1.  W !,"just hit <return> BUT the occurrence will not be linked to PCC.",!
  1.  Q
  1.  ;
  1.  ;
  1. CSUM ;ENTRY POINT for case summary field; called by xecute help
  1.  W !!,"Enter a SUMMARY of this occurrence case.  You can be as BRIEF"
  1.  W !,"or as DETAILED as your needs require.  Remember, this is for"
  1.  W !,"information only; you cannot search on data in this summary."
  1.  W ! Q
  1.  ;
  1.  ;
  1. REVR ;ENTRY POINT for initial reviewer field; called by xecute help
  1.  W !!,"Enter the person who PERFORMED this review.  The person CANNOT"
  1.  W !,"be listed as a provider for this occurrence."
  1.  W !! Q
  1.  ;
  1.  ;
  1. EXC ;ENTRY POINT for exception field; called by xecute help
  1.  W !!,"If this occurrence does NOT need to be reviewed based on"
  1.  W !,"DEFINED CRITERIA, please enter the exception here.  This"
  1.  W !,"will be used most often for occurrences automatically entered"
  1.  W !,"by the computer, such as Readmissions with an exception perhaps"
  1.  W !,"of 'Scheduled Readmission'.  Be sure to enter the appropriate"
  1.  W !,"finding, such as 'Exception to Criteria'."
  1.  W ! Q
  1.  ;
  1.  ;
  1. STAGES ;ENTRY POINT for intro text on option List Review Stages
  1.  ;called by entry action of AQAO 
  1.  W @IOF,!!?20,"DESCRIPTIONS OF EACH REVIEW STAGE",!!
  1.  W !!?5,"Use this option to familiarize yourself with the various"
  1.  W !?5,"Review Stages in the Occurrence Review Process.  This report"
  1.  W !?5,"list each stage and give you a brief definition of the stage."
  1.  W !! Q
  1.  ;
  1.  ;
  1. RISK ;ENTRY POINT for help text on Risk of Adverse Outcome fields
  1.  ;  called by xecute help
  1.  W !!?5,"This is the expected RISK LEVEL of the activity associated"
  1.  W !?5,"with this occurrence.  The levels as defined by your facility"
  1.  W !?5,"are as follows:",!
  1.  N X,Y S X=0 F  S X=$O(^AQAO1(3,X)) Q:X'=+X  D
  1.  .Q:'$D(^AQAO1(3,X,0))  S Y=^(0)
  1.  .W !?5,$P(Y,U),?15,$P(Y,U,2)
  1.  W !! Q
  1.  ;
  1.  ;
  1. OUTCOME ;ENTRY POINT for help text on occ outcome fields
  1.  ;called by xecute help
  1.  W !!?5,"This is the actual SEVERITY LEVEL associated with this"
  1.  W !?5,"occurrence.  The levels as defined by your facility are as"
  1.  W !?5,"follows:",!
  1.  N X,Y S X=0 F  S X=$O(^AQAO1(3,X)) Q:X'=+X  D
  1.  .Q:'$D(^AQAO1(3,X,0))  S Y=^(0)
  1.  .W !?5,$P(Y,U),?15,$P(Y,U,4)
  1.  W !! Q
  1.  ;
  1.  ;
  1. ULTIMATE ;ENTRY POINT for help text on ultimate outcome level fields
  1.  ;  called by xecute help
  1.  W !!?5,"This is the patient's ULTIMATE OUTCOME, which may or may not"
  1.  W !?5,"have been affected by this occurrence.  The levels as defined"
  1.  W !?5,"by your facility are as follows:",!
  1.  N X,Y S X=0 F  S X=$O(^AQAO1(3,X)) Q:X'=+X  D
  1.  .Q:'$D(^AQAO1(3,X,0))  S Y=^(0)
  1.  .W !?5,$P(Y,U),?15,$P(Y,U,5)
  1.  W !! Q
  1.  ;
  1.  ;
  1. PRVLVL ;ENTRY POINT for help text on provider's performance level
  1.  ;  called by xecute help
  1.  W !!?5,"Please enter this provider's PERFORMANCE LEVEL for this"
  1.  W !?5,"occurrence.  The levels as defined by your facility are as"
  1.  W !?5,"follows:",!
  1.  N X,Y S X=0 F  S X=$O(^AQAO1(3,X)) Q:X'=+X  D
  1.  .Q:'$D(^AQAO1(3,X,0))  S Y=^(0)
  1.  .W !?5,$P(Y,U),?15,$P(Y,U,6)
  1.  W !! Q
  1.  ;
  1.  ;
  1. VHELP ;EP; visit help called by DIR("?") in AQAOENTR
  1.  ;lists up to the last 15 visits for a patient
  1.  N AQAOARV,AQAO9DT,AQAOCNT,Y
  1.  S (AQAOCNT,AQAO9DT)=0
  1.  F  S AQAO9DT=$O(^AUPNVSIT("AA",AQAOPAT,AQAO9DT)) Q:AQAO9DT=""  Q:AQAOCNT=15  D
  1.  .S Y=9999999-$P(AQAO9DT,".") X ^DD("DD")
  1.  .S AQAOCNT=AQAOCNT+1,AQAOARV(AQAOCNT)=Y
  1.  W !!,"Please type in the VISIT DATE that corresponds to this occurrence."
  1.  W !,"Here is a list of this patient's last ",AQAOCNT," visits:"
  1.  W "  (15 maximum)",!
  1.  S Y=0 F  S Y=$O(AQAOARV(Y)) Q:Y=""  W !?5,AQAOARV(Y)
  1.  Q