AQAOQT13 ; IHS/ORDC/LJF - BRAINSTORMING REPORTS SUBRTNS ;
;;1.01;QAI MANAGEMENT;;OCT 05, 1995
;
;This rtn contains entry points for the reports function.
;
RESULTS ;ENTRY POINT >> SUBRTN to print multivoting results <<
;called by AQAOQT1
D INIT^AQAOUTIL
S AQAORNG=$P(^AQAO1(8,AQAOMTG,0),U,2),AQAORNG=$P(^AQAO1(1,AQAORNG,0),U)
S Y=$P(^AQAO1(8,AQAOMTG,0),U) X ^DD("DD") S AQAORNG=AQAORNG_" - "_Y
S AQAOTY="MULTIVOTING RESULTS FOR "_$P(^AQAO1(8,AQAOMTG,0),U,3)
D HEADING^AQAOUTIL W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
;
; >> gather results
LOOP S AQAOY=0 K AQAOCNT
F S AQAOY=$O(^AQAO1(7,"AC",AQAOMTG,AQAOY)) Q:AQAOY="" D
.Q:'$O(^AQAO1(7,AQAOY,"MV",0)) S X=^AQAO1(7,AQAOY,0)
.S AQAOCAT=$S($P(X,U,3)]"":$P(X,U,3),1:$P(X,U))
.S AQAOX=0
.F S AQAOX=$O(^AQAO1(7,AQAOY,"MV",AQAOX)) Q:AQAOX'=+AQAOX D
..Q:'$D(^AQAO1(7,AQAOY,"MV",AQAOX,0)) S AQAOS=^(0)
..S AQAOUSN=$P(AQAOS,U) ;voter name
..S AQAOCNT(AQAOCAT)=$G(AQAOCNT(AQAOCAT))+$P(AQAOS,U,2) ;total count
..S AQAOCNT(AQAOCAT,AQAOUSN)=$P(AQAOS,U,2) ;count by voter
;
; >> print results
S AQAOCAT=0
F S AQAOCAT=$O(AQAOCNT(AQAOCAT)) Q:AQAOCAT="" Q:AQAOSTOP=U D
.W !!,AQAOCAT
.S AQAOUSN=0 F S AQAOUSN=$O(AQAOCNT(AQAOCAT,AQAOUSN)) Q:AQAOUSN="" D
..W !?15,AQAOUSN,?55,$J(AQAOCNT(AQAOCAT,AQAOUSN),3)
..I $Y>(IOSL-4) D
...D NEWPG^AQAOUTIL Q:AQAOSTOP=U
...W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
.W !?55,"______",!?55,$J(AQAOCNT(AQAOCAT),3)
I IOST["C-" D
.W ! K DIR S DIR(0)="E"
.S DIR("A")="Press RETURN when ready to continue" D ^DIR
D ^%ZISC I $D(ZTQUEUED) D KILL^AQAOUTIL
Q
; >> END OF RESULTS SUBRTN <<
;
;
FULL ;ENTRY POINT >> SUBRTN to print full report <<
;called by AQAOQT1
D INIT^AQAOUTIL
S AQAORNG=$P(^AQAO1(8,AQAOMTG,0),U,2),AQAORNG=$P(^AQAO1(1,AQAORNG,0),U)
S Y=$P(^AQAO1(8,AQAOMTG,0),U) X ^DD("DD") S AQAORNG=AQAORNG_" - "_Y
S AQAOTY="BRAINSTORMING REPORT FOR "_$P(^AQAO1(8,AQAOMTG,0),U,3)
D HEADING^AQAOUTIL W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
;
W !,"MINUTES: " K ^UTILITY("DIQ1",$J)
S DIC=9002169.8,DR="1",DA=AQAOMTG D EN^DIQ1
K ^UTILITY($J,"W") S AQAOX=0
F S AQAOX=$O(^UTILITY("DIQ1",$J,9002169.8,AQAOMTG,1,AQAOX)) Q:AQAOX="" D
.S X=^UTILITY("DIQ1",$J,9002169.8,AQAOMTG,1,AQAOX)
.S DIWL=10,DIWR=75,DIWF="WB4" D ^DIWP
D ^DIWW
;
I $Y>(IOSL-4) D Q:AQAOSTOP=U
.D NEWPG^AQAOUTIL Q:AQAOSTOP=U
.W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
W !!,"MEMBERS IN ATTENDANCE: " S AQAOX=0
F S AQAOX=$O(^AQAO1(8,AQAOMTG,"MEM",AQAOX)) Q:AQAOX'=+AQAOX Q:AQAOSTOP=U D
.Q:'$D(^AQAO1(8,AQAOMTG,"MEM",AQAOX,0)) S AQAOS=^(0)
.W ?25,$P(^VA(200,+AQAOS,0),U) S X=$P(AQAOS,U,2)
.W ?55,$S(X="L":"LEADER",X="F":"FACILITATOR",1:"MEMBER"),!
.I $Y>(IOSL-4) D
..D NEWPG^AQAOUTIL Q:AQAOSTOP=U
..W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
;
W !!,"BRAINSTORMING IDEAS AND CATEGORIES:"
S AQAOX=0
MORE F S AQAOX=$O(^AQAO1(7,"AC",AQAOMTG,AQAOX)) Q:AQAOX="" Q:AQAOSTOP=U D
.W !?5,$P(^AQAO1(7,AQAOX,0),U),?40,$P(^(0),U,3)
.I $Y>(IOSL-4) D
..D NEWPG^AQAOUTIL Q:AQAOSTOP=U
..W ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
;
W !!,"MULTIVOTING RESULTS:"
D LOOP ;print multivoting results
D ^%ZISC I $D(ZTQUEUED) D KILL^AQAOUTIL
Q
; >> END OF FULL SUBRTN <<
AQAOQT13 ; IHS/ORDC/LJF - BRAINSTORMING REPORTS SUBRTNS ;
+1 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
+2 ;
+3 ;This rtn contains entry points for the reports function.
+4 ;
RESULTS ;ENTRY POINT >> SUBRTN to print multivoting results <<
+1 ;called by AQAOQT1
+2 DO INIT^AQAOUTIL
+3 SET AQAORNG=$PIECE(^AQAO1(8,AQAOMTG,0),U,2)
SET AQAORNG=$PIECE(^AQAO1(1,AQAORNG,0),U)
+4 SET Y=$PIECE(^AQAO1(8,AQAOMTG,0),U)
XECUTE ^DD("DD")
SET AQAORNG=AQAORNG_" - "_Y
+5 SET AQAOTY="MULTIVOTING RESULTS FOR "_$PIECE(^AQAO1(8,AQAOMTG,0),U,3)
+6 DO HEADING^AQAOUTIL
WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
+7 ;
+8 ; >> gather results
LOOP SET AQAOY=0
KILL AQAOCNT
+1 FOR
SET AQAOY=$ORDER(^AQAO1(7,"AC",AQAOMTG,AQAOY))
IF AQAOY=""
QUIT
Begin DoDot:1
+2 IF '$ORDER(^AQAO1(7,AQAOY,"MV",0))
QUIT
SET X=^AQAO1(7,AQAOY,0)
+3 SET AQAOCAT=$SELECT($PIECE(X,U,3)]"":$PIECE(X,U,3),1:$PIECE(X,U))
+4 SET AQAOX=0
+5 FOR
SET AQAOX=$ORDER(^AQAO1(7,AQAOY,"MV",AQAOX))
IF AQAOX'=+AQAOX
QUIT
Begin DoDot:2
+6 IF '$DATA(^AQAO1(7,AQAOY,"MV",AQAOX,0))
QUIT
SET AQAOS=^(0)
+7 ;voter name
SET AQAOUSN=$PIECE(AQAOS,U)
+8 ;total count
SET AQAOCNT(AQAOCAT)=$GET(AQAOCNT(AQAOCAT))+$PIECE(AQAOS,U,2)
+9 ;count by voter
SET AQAOCNT(AQAOCAT,AQAOUSN)=$PIECE(AQAOS,U,2)
End DoDot:2
End DoDot:1
+10 ;
+11 ; >> print results
+12 SET AQAOCAT=0
+13 FOR
SET AQAOCAT=$ORDER(AQAOCNT(AQAOCAT))
IF AQAOCAT=""
QUIT
IF AQAOSTOP=U
QUIT
Begin DoDot:1
+14 WRITE !!,AQAOCAT
+15 SET AQAOUSN=0
FOR
SET AQAOUSN=$ORDER(AQAOCNT(AQAOCAT,AQAOUSN))
IF AQAOUSN=""
QUIT
Begin DoDot:2
+16 WRITE !?15,AQAOUSN,?55,$JUSTIFY(AQAOCNT(AQAOCAT,AQAOUSN),3)
+17 IF $Y>(IOSL-4)
Begin DoDot:3
+18 DO NEWPG^AQAOUTIL
IF AQAOSTOP=U
QUIT
+19 WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
End DoDot:3
End DoDot:2
+20 WRITE !?55,"______",!?55,$JUSTIFY(AQAOCNT(AQAOCAT),3)
End DoDot:1
+21 IF IOST["C-"
Begin DoDot:1
+22 WRITE !
KILL DIR
SET DIR(0)="E"
+23 SET DIR("A")="Press RETURN when ready to continue"
DO ^DIR
End DoDot:1
+24 DO ^%ZISC
IF $DATA(ZTQUEUED)
DO KILL^AQAOUTIL
+25 QUIT
+26 ; >> END OF RESULTS SUBRTN <<
+27 ;
+28 ;
FULL ;ENTRY POINT >> SUBRTN to print full report <<
+1 ;called by AQAOQT1
+2 DO INIT^AQAOUTIL
+3 SET AQAORNG=$PIECE(^AQAO1(8,AQAOMTG,0),U,2)
SET AQAORNG=$PIECE(^AQAO1(1,AQAORNG,0),U)
+4 SET Y=$PIECE(^AQAO1(8,AQAOMTG,0),U)
XECUTE ^DD("DD")
SET AQAORNG=AQAORNG_" - "_Y
+5 SET AQAOTY="BRAINSTORMING REPORT FOR "_$PIECE(^AQAO1(8,AQAOMTG,0),U,3)
+6 DO HEADING^AQAOUTIL
WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
+7 ;
+8 WRITE !,"MINUTES: "
KILL ^UTILITY("DIQ1",$JOB)
+9 SET DIC=9002169.8
SET DR="1"
SET DA=AQAOMTG
DO EN^DIQ1
+10 KILL ^UTILITY($JOB,"W")
SET AQAOX=0
+11 FOR
SET AQAOX=$ORDER(^UTILITY("DIQ1",$JOB,9002169.8,AQAOMTG,1,AQAOX))
IF AQAOX=""
QUIT
Begin DoDot:1
+12 SET X=^UTILITY("DIQ1",$JOB,9002169.8,AQAOMTG,1,AQAOX)
+13 SET DIWL=10
SET DIWR=75
SET DIWF="WB4"
DO ^DIWP
End DoDot:1
+14 DO ^DIWW
+15 ;
+16 IF $Y>(IOSL-4)
Begin DoDot:1
+17 DO NEWPG^AQAOUTIL
IF AQAOSTOP=U
QUIT
+18 WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
End DoDot:1
IF AQAOSTOP=U
QUIT
+19 WRITE !!,"MEMBERS IN ATTENDANCE: "
SET AQAOX=0
+20 FOR
SET AQAOX=$ORDER(^AQAO1(8,AQAOMTG,"MEM",AQAOX))
IF AQAOX'=+AQAOX
QUIT
IF AQAOSTOP=U
QUIT
Begin DoDot:1
+21 IF '$DATA(^AQAO1(8,AQAOMTG,"MEM",AQAOX,0))
QUIT
SET AQAOS=^(0)
+22 WRITE ?25,$PIECE(^VA(200,+AQAOS,0),U)
SET X=$PIECE(AQAOS,U,2)
+23 WRITE ?55,$SELECT(X="L":"LEADER",X="F":"FACILITATOR",1:"MEMBER"),!
+24 IF $Y>(IOSL-4)
Begin DoDot:2
+25 DO NEWPG^AQAOUTIL
IF AQAOSTOP=U
QUIT
+26 WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
End DoDot:2
End DoDot:1
+27 ;
+28 WRITE !!,"BRAINSTORMING IDEAS AND CATEGORIES:"
+29 SET AQAOX=0
MORE FOR
SET AQAOX=$ORDER(^AQAO1(7,"AC",AQAOMTG,AQAOX))
IF AQAOX=""
QUIT
IF AQAOSTOP=U
QUIT
Begin DoDot:1
+1 WRITE !?5,$PIECE(^AQAO1(7,AQAOX,0),U),?40,$PIECE(^(0),U,3)
+2 IF $Y>(IOSL-4)
Begin DoDot:2
+3 DO NEWPG^AQAOUTIL
IF AQAOSTOP=U
QUIT
+4 WRITE ?AQAOIOMX-$LENGTH(AQAORNG)/2,AQAORNG,!,AQAOLINE,!
End DoDot:2
End DoDot:1
+5 ;
+6 WRITE !!,"MULTIVOTING RESULTS:"
+7 ;print multivoting results
DO LOOP
+8 DO ^%ZISC
IF $DATA(ZTQUEUED)
DO KILL^AQAOUTIL
+9 QUIT
+10 ; >> END OF FULL SUBRTN <<
