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

AQAOQT1.m

Go to the documentation of this file. 
  1. AQAOQT1 ; IHS/ORDC/LJF - BRAINSTORMING & MULTIVOTING ;
  1.  ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1.  ;
  1.  ;This rtn is main driver for brainstorming & multivoting tool.
  1.  ;
  1.  D INTRO^AQAOHQIT
  1.  K DIR S DIR(0)="SO^1:GENERAL INFO;2:BRAINSTORMING SESSION;3:MULTIVOTING;4:REPORTS"
  1.  S DIR("?")="Select one the the FUNCTIONS listed or press RETURN to exit"
  1.  S DIR("A")="     Select Option" D ^DIR
  1.  G EXIT:$D(DIRUT),MENU:Y=-1
  1.  ;
  1.  ; >>> call rtn for user's selection
  1.  S AQAOPT=$S(Y=1:"MTG",Y=2:"BRAIN",Y=3:"MULTIV",1:"REPORT")
  1.  D @AQAOPT G MENU
  1.  ;
  1.  ;
  1. EXIT ; >>> eoj
  1.  D ^%ZISC D KILL^AQAOUTIL Q
  1.  ; >>>> END OF MAIN SECTION OF RTN <<<<
  1.  ;
  1.  ;
  1.  ;
  1. MTG ; >>> SUBRTN to enter mtg info <<<
  1.  W !! K DIC S DIC="^AQAO1(8,",DIC(0)="AEMQZL",DLAYGO=9002169
  1.  S DIC("S")=$$DICS D ^DIC K DLAYGO
  1.  Q:$D(DTOUT)  Q:$D(DUOUT)  Q:X=""  Q:Y=-1  S AQAOMTG=+Y
  1.  W !! K DIE S DIE="^AQAO1(8,",DA=AQAOMTG,DR="[AQAO QIT MTG]"
  1.  D ^DIE
  1.  Q
  1.  ;
  1.  ;
  1. BRAIN ;ENTRY POINT >>> SUBRTN for brainstorming session <<<
  1.  W !!?20,"*** BRAINSTORMING SESSION ***"
  1.  ; >>> find meeting entry # and display team and date/time
  1.  I '$D(AQAOMTG) D
  1.  .W !! K DIC S DIC="^AQAO1(8,",DIC("A")="Select SESSION DATE/TIME:  "
  1.  .S DIC(0)="AEMZQ",DIC("S")=$$DICS D ^DIC I Y>0 S AQAOMTG=+Y
  1.  I '$D(AQAOMTG) W !!,"NO SESSION SELECTED" D MTG Q:'$D(AQAOMTG)
  1.  W !!?2,"QI TEAM:  ",$P(^AQAO1(1,$P(^AQAO1(8,AQAOMTG,0),U,2),0),U)
  1.  W !,"DATE/TIME:  " S Y=$P(^AQAO1(8,AQAOMTG,0),U) X ^DD("DD") W Y
  1.  W !?4,"TOPIC:  ",$P(^AQAO1(8,AQAOMTG,0),U,3)
  1.  ;
  1.  ; >>> choose next action; call SUBRTNS
  1. CHOOSE K DIR S DIR("A")="     Select NEXT ACTION"
  1.  S DIR(0)="SO^1:ADD IDEAS;2:LIST IDEAS;3:CATEGORIZE IDEAS;4:EDIT/DELETE IDEAS"
  1.  D ^DIR Q:$D(DIRUT)
  1.  S AQAOPT1=$S(Y=1:"IDEAS",Y=2:"LIST",Y=3:"CATEGORY",1:"EDIT")
  1.  S AQAOPT1=AQAOPT1_"^AQAOQT11" D @AQAOPT1 G CHOOSE
  1.  ;
  1.  ;
  1. MULTIV ; >>> SUBRTN to handle multivoting session <<<
  1.  K AQAOAR1 W !!?20,"*** MULTIVOTING SESSION ***"
  1.  ; >>> find meeting entry # and display team and date/time
  1.  I '$D(AQAOMTG) D
  1.  .W !! K DIC S DIC="^AQAO1(8,",DIC("A")="Select SESSION DATE/TIME:  "
  1.  .S DIC(0)="AEMZQ",DIC("S")=$$DICS D ^DIC I Y>0 S AQAOMTG=+Y
  1.  I '$D(AQAOMTG) D  Q:'$D(AQAOMTG)
  1.  .W !!,"NO BRAINSTORMING SESSION SELECTED" D MTG
  1.  ;
  1.  W !!?2,"QI TEAM:  ",$P(^AQAO1(1,$P(^AQAO1(8,AQAOMTG,0),U,2),0),U)
  1.  W !,"DATE/TIME:  " S Y=$P(^AQAO1(8,AQAOMTG,0),U) X ^DD("DD") W Y
  1.  W !?4,"TOPIC:  ",$P(^AQAO1(8,AQAOMTG,0),U,3)
  1.  I '$O(^AQAO1(7,"AC",AQAOMTG,0)) W !!,"NO IDEAS ENTERED!",!! Q
  1.  ;
  1.  ;  choose next action; call SUBRTNS
  1. CHOOSE1 K DIR S DIR("A")="     Select NEXT ACTION"
  1.  S DIR(0)="SO^1:LIST CATEGORIES;2:VOTE;3:VIEW VOTING RESULTS"
  1.  D ^DIR Q:$D(DIRUT)
  1.  S AQAOPT1=$S(Y=1:"LIST",Y=2:"VOTE",1:"RESULTS")
  1.  S AQAOPT1=AQAOPT1_"^AQAOQT12" D @AQAOPT1 G CHOOSE1
  1.  ;
  1.  ;
  1. REPORT ; >>> SUBRTN to print results of brainstorming session <<<
  1.  W @IOF,!?20,"*** REPORT RESULTS OF BRAINSTORMING SESSION ***"
  1.  ;  find meeting entry # and display team and date/time
  1.  I '$D(AQAOMTG) W !! K DIC S DIC="^AQAO1(8,",DIC("A")="Select SESSION DATE/TIME:  ",DIC(0)="AEMZQ",DIC("S")=$$DICS D ^DIC I Y>0 S AQAOMTG=+Y
  1.  I '$D(AQAOMTG) W !!,"NO SESSION SELECTED" D MTG Q:'$D(AQAOMTG)
  1.  W !!?2,"QI TEAM:  ",$P(^AQAO1(1,$P(^AQAO1(8,AQAOMTG,0),U,2),0),U)
  1.  W !,"DATE/TIME:  " S Y=$P(^AQAO1(8,AQAOMTG,0),U) X ^DD("DD") W Y
  1.  W !?4,"TOPIC:  ",$P(^AQAO1(8,AQAOMTG,0),U,3)
  1.  ;
  1.  ;  choose next action; call SUBRTNS
  1. CHOOSE2 K DIR S DIR("A")="     Select REPORT TYPE"
  1.  S DIR(0)="SO^1:MULTIVOTING RESULTS ONLY;2:FULL REPORT ON BRAINSTORMING SESSION"
  1.  D ^DIR Q:$D(DIRUT)
  1.  S AQAOPT1=$S(Y=1:"RESULTS",1:"FULL")_"^AQAOQT13"
  1.  ;
  1. DEV ;ENTRY POINT  get print device
  1.  W !! S %ZIS="QP" D ^%ZIS Q:POP
  1.  I '$D(IO("Q")) U IO D @AQAOPT1 Q
  1.  K IO("Q") S ZTRTN=AQAOPT1,ZTDESC="QI TOOLS REPORT"
  1.  F I="AQAOPT1","AQAOMTG" S ZTSAVE(I)=""
  1.  D ^%ZTLOAD K ZTSK D ^%ZISC
  1.  Q
  1.  ;
  1. DICS() ;EXTR VAR to set dic(s) on brainstorm session lookup
  1.  ;sessions are secured by membership in QI teams
  1.  N X
  1.  S X="I ($P(AQAOUA(""USER""),U,6)[""Q"")!($D(^AQAO(9,DUZ,""TM"",""B"",$P(^AQAO1(8,Y,0),U,2))))"
  1.  Q X