source: FOIAVistA/trunk/r/SURVEY_GENERATOR-QAP/QAPSTATS.m@ 1549

Last change on this file since 1549 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1QAPSTATS ;557/THM-SURVEY GENERATOR STATISTICS, PART 1 [ 06/19/95 12:49 PM ]
2 ;;2.0;Survey Generator;;Jun 20, 1995
3 ;
4SCR D SCREEN^QAPUTIL
5EN W @IOF,! S QAPHDR="Survey Statistics" X QAPBAR S QAPHDR="Survey Selection" X QAPBAR
6 K DIC S DIC("S")="I $P(^(0),U,10)'=""c""!($P(^(0),U,5)=DUZ)!($D(^XUSEC(""QAP MANAGER"",DUZ)))!($D(^QA(748,""AB"",DUZ,+Y)))"
7 S DIC="^QA(748,",DIC(0)="AEQMZ",DIC("A")="Select a survey: " D ^DIC K DIC G:X=""!(X[U) EXIT^QAPUTIL
8 S SURVEY=+Y,TITLE=$P(^QA(748,SURVEY,0),U,6)
9 ;
10 W @IOF,! S QAPHDR="Survey Statistics" X QAPBAR S QAPHDR="Survey: "_TITLE X QAPBAR
11BYPASS K %Y X CLEOP W "Do you want to include bypassed questions in the",!,"statistics calculations" S %=2 D YN^DICN G:%<0 EXIT^QAPUTIL S BYPASS=%
12 I $D(%Y),%Y["?" W !!,"Enter Y to print questions skipped by the participants",!,"or No to not print them." H 3 X CLEOP G BYPASS
13 ;
14BYPASSNA K %Y X CLEOP W !!,"Do you want to include 'Not Applicable' responses in the",!,"statistics calculations" S %=2 D YN^DICN G:%<0 EXIT^QAPUTIL S BYPASSNA=%
15 I $D(%Y),%Y["?" W !!,"Enter Y to print responses of 'Not Applicable'",!,"or No to not print them." H 3 G BYPASSNA
16 ;
17WPPRT K %Y X CLEOP W "Do you want to print word processing responses" S %=2 D YN^DICN G:%<0 EXIT^QAPUTIL S WPPRT=%
18 I $D(%Y),%Y["?" W !!,"Enter Y to print word processing questions or No to not print them." H 3 G WPPRT
19 S %ZIS="AEQ",%ZIS("A")="Output device: " W !! D ^%ZIS G:POP EXIT^QAPUTIL
20 I $D(IO("Q")) S ZTREQ="@",ZTIO=ION,ZTRTN="PRINT^QAPSTAT1",ZTDESC="Print "_TITLE_" Survey Statistics" F X="SURVEY","TITLE","BYPASS*","WPPRT" S ZTSAVE(X)=""
21 I D ^%ZTLOAD W:$D(ZTSK) !!,"Queued as task #",ZTSK,!! H 2 K ZTSK G EXIT^QAPUTIL
22 G PRINT^QAPSTAT1
Note: See TracBrowser for help on using the repository browser.