| [613] | 1 | QAPUTIL ;557/THM-SURVEY GENERATOR UTILITIES [ 06/02/95 11:36 AM ]
|
|---|
| 2 | ;;2.0;Survey Generator;;Jun 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | SCREEN ;screen parameters
|
|---|
| 5 | S IOP="HOME" D ^%ZIS,DT^DICRW K IOP
|
|---|
| 6 | D ENS^%ZISS S RVON=IORVON,RVOFF=IORVOFF,CEOP=IOEDEOP,BLDON=IOINHI,BLDOFF=IOINLOW,TOPBOT=IOSTBM,IOTM=8,IOBM=24,$P(SPACE," ",85)="" D KILL^%ZISS
|
|---|
| 7 | ;I IOST?1"C-VT100"!(IOST?1"C-VT320"),TOPBOT]""
|
|---|
| 8 | W:TOPBOT]"" @TOPBOT
|
|---|
| 9 | S QAPBAR="W RVON,?(80-$L(QAPHDR)\2),QAPHDR,$E(SPACE,$X,77),RVOFF,!"
|
|---|
| 10 | S CLEOP="S DX=0,DY=4 X IOXY W CEOP,!" ;leaves header intact
|
|---|
| 11 | S CLEOP1="S DX=0,DY=QLINE X IOXY W CEOP,!" ;resets input line on ?
|
|---|
| 12 | Q ;kill variables via calling program
|
|---|
| 13 | ;
|
|---|
| 14 | EXIT ;package-wide variable kill; used by most programs
|
|---|
| 15 | D ^%ZISC I IOST?1"C-VT100"!(IOST?1"C-VT320") S IOTM=1,IOBM=24 W @TOPBOT,@IOF,!
|
|---|
| 16 | X ^%ZOSF("EON") K ^TMP($J)
|
|---|
| 17 | K %,%DT,%ZIS,%X,%Y,%Z,ACTION,ANS,ANSDA,ANSTEXT,ANSTYPE,ANSW,BANNER,BNKOFF,BNKON,C,CEOP,CHOICE,CLEOP,CLEOP1,CNT,CNTA,CQUES,CURSTAT,D,DO,D1,DA,DAX,DD,DELETE,DEMDTA,DEMO,DEMOG,DEMQUES,DEMTYPE,DI,DIC,DIC,DIE,DIF,DIFQ,DIK,DINUM,DIR
|
|---|
| 18 | K DIRUT,QAPQN,DISP,DISYS,DIU,DLAYGO,DO,DQ,DR,DTA,DTOUT,DUOUT,DX,DY,EDIT,EXIT,FILEDA,FILENAME,FILENUM,FIND,GRADIENT,I,IFN,INCMSG,INCREM,INSERT,IOTM,IOBM,IOP,LINE,LORD,LPART,LQUES,MSSG,MSSG0,NINCREM,NLINE,NOPEN,NSRVDA,QAPXX
|
|---|
| 19 | K NUM,NWNAM,ODEMOG,OSRVDA,OSRVNAM,OSRVQDA,OUT,PART,PART1,PASSWORD,PASSX,PCNT,PG,POP,PQUES,PRESPON,QA,QANS,QAP,QAPBAR,QAPCNT,QAPDATE,QAPEDTR,QAPFILE,QAPHD,QAPHDR,QAPNAME,QAPOUT,QAPSURV,QAPX,QLINE,QNAME,QNUM,QUES,QUES1,QUIT,QY,QZ
|
|---|
| 20 | K REM,RESUME,RVOFF,RVON,S,DISYS,SITE,SORT,SORTTXT,SPACE,SS,STOP,SUBJ,SURVEY,SVST,SVSTAT,SVYNAME,TITLE,TOF,TOPBOT,TOTANS,TOTPART,USER,USERPRT,X,XX,Y,YY,ZTDESC,ZTIO,ZTQUEUED,ZTRTN,ZTSAVE,ZTSK,BANNER1,DMAN,DEMERR
|
|---|
| 21 | K RESPONDA,RESPCNT,J,D0,D1,DEMPTR,DANS,SQUEST,CCNT,SCNT,ICNT,QAPNOANS,BLDON,BLDOFF,CNTPG,CREATE,MSGSKP,QAPDUZ,QNUMANS,STATUS,XCNT,ANSX,LFTLBL,RGTLBL,LSTNUM,INP,INP1,QCNT,QUESCNT,BYPASS,BLANKS,DEML,DEMVAL,QUEST,RESPD,WPPRT
|
|---|
| 22 | K BLANKNA,BYPASSNA,CODE,DEMONAME,DQUES,FILEPTR,MEANING,OWNER,QAPSELCT,VERS,XDA,XMTEXT,DSTOP,FSTOP,XMSUB,SVYSITE,NEWDA,NEWDA1,SVYNAME,AUTHED,NEWNAME,ONFILE,XMZ,XCNP,XCM,NEWREC,XMDUZ,XMMG,DMANMSTR,%I,LASTDATE
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | INSTRUCT K OUT
|
|---|
| 26 | I '$D(BANNER),IOST?1"C-".E D BAN
|
|---|
| 27 | W !,"Description:",!! F NLINE=0:0 S NLINE=$O(^QA(748,SURVEY,2,NLINE)) Q:NLINE=""!($D(OUT)) S X=^QA(748,SURVEY,2,NLINE,0) W X,! I IOST?1"C-".E,$Y>(IOSL-6) W !!,"Press RETURN to continue " R ANS:DTIME S:'$T!(ANS[U) OUT=1 Q:$D(OUT) D BAN
|
|---|
| 28 | W !!,"Instructions:",!! F NLINE=0:0 S NLINE=$O(^QA(748,SURVEY,4,NLINE)) Q:NLINE=""!($D(OUT)) S X=^QA(748,SURVEY,4,NLINE,0) W X,! I IOST?1"C-".E,$Y>(IOSL-6) W !!,"Press RETURN to continue " R ANS:DTIME S:'$T!(ANS[U) OUT=1 Q:$D(OUT) D BAN
|
|---|
| 29 | I $D(OUT) K ANS Q
|
|---|
| 30 | W !,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" X:$D(TOF) TOF I $D(QAPOUT),QAPOUT=1 Q
|
|---|
| 31 | W ! X:$D(TOF) TOF I $D(QAPOUT),QAPOUT=1 Q
|
|---|
| 32 | W ! X:$D(TOF) TOF I $D(QAPOUT),QAPOUT=1 Q
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | BAN I '$D(BANNER),IOST?1"C-".E W @IOF,! S QAPHDR="Survey Title: "_TITLE X QAPBAR S QAPHDR="Instructions" X QAPBAR W !
|
|---|
| 36 | I $D(BANNER) D HDR^QAPPT1
|
|---|
| 37 | Q
|
|---|
