source: FOIAVistA/trunk/r/SURVEY_GENERATOR-QAP/QAPPART.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.1 KB
Line 
1QAPPART ;557/THM-COUNT NUMBER OF SURVEY PARTICIPANTS [ 02/16/95 8:26 AM ]
2 ;;2.0;Survey Generator;;Jun 20, 1995
3 ;
4 D SCREEN^QAPUTIL
5EN W @IOF,! S QAPHDR="Count Survey Participants" X QAPBAR
6 K DIC S DIC("S")="I $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 survey: " W ! D ^DIC G:X=""!(X[U) EXIT S SURVEY=+Y,SUBJ=Y(0,0) K DIC("S")
8 S (ICNT,SCNT,CCNT)=0
9 F X=0:0 S X=$O(^QA(748.3,"B",SURVEY,X)) Q:X="" DO
10 .I $P(^QA(748.3,X,0),U,3)="c" S CCNT=CCNT+1
11 .I $P(^QA(748.3,X,0),U,3)="s" S SCNT=SCNT+1
12 .I $P(^QA(748.3,X,0),U,3)="i" S ICNT=ICNT+1
13 S QLINE=3 X CLEOP1 W !!,"Survey: ",SUBJ,!
14 I CCNT=0 S CCNT="no"
15 I SCNT=0 S SCNT="no"
16 I ICNT=0 S ICNT="no"
17 W !!,"Currently, there ",$S(CCNT=1:"is",1:"are")," ",CCNT," completed ",$S(CCNT=1:"response",1:"responses"),".",!
18 W ?17,$S(SCNT=1:"is ",1:"are "),SCNT," suspended ",$S(SCNT=1:"response",1:"responses"),".",!
19 W ?17,$S(ICNT=1:"is ",1:"are "),ICNT," ",$S(ICNT=1:"response",1:"responses")," in progress.",!
20 W !!,"Press RETURN to continue " R ANS:DTIME I $T G EN
21 ;
22EXIT G EXIT^QAPUTIL
Note: See TracBrowser for help on using the repository browser.