1 | QAQAHOC1 ;HISC/DAD-AD HOC REPORTS: SORT/PRINT SELECTION ;3/23/94 12:22
|
---|
2 | ;;1.7;QM Integration Module;**1**;07/25/1995
|
---|
3 | ENASK ; *** Prompt user for sort/print fields
|
---|
4 | S QAQNEXT=0 I QAQSEQ>QAQMAXOP(QAQTYPE) W !!?3,"Maximum of ",QAQMAXOP(QAQTYPE)," ",QAQTYPE(0)," fields reached. ",*7 R QA:QAQDTIME S QAQNEXT=1 Q
|
---|
5 | S X=$S($G(QAQMHDR)]"":$E(QAQMHDR,1,45)_" ",1:"")_"Ad Hoc Report Generator"
|
---|
6 | W @IOF I $G(QAQMHDR)'="@" S Y=$L(X),X(1)="",$P(X(1),"=",70-Y/2)=" ",X(2)=" ",$P(X(2),"=",70-Y/2)="" W " ",X(1),X,X(2)
|
---|
7 | D LIST W !!?3,QAQTYPE(1)," selection # ",QAQSEQ," : " R QAQSELOP:DTIME S:'$T QAQSELOP="^"
|
---|
8 | I (QAQSEQ=1)&(QAQSELOP="") D G:QAQNONE=2 ENASK Q:QAQNEXT
|
---|
9 | NOTHING . S QAQNONE=2
|
---|
10 | . W *7,!!?3,"You have not selected any "
|
---|
11 | . W $S(QAQNUMOP("S")'>0:"sort or ",1:""),"print categories !!"
|
---|
12 | . W !?3,"Do you wish to exit the program"
|
---|
13 | . S %=1 D YN^DICN S QAQNONE=% I '% W !!?5,QAQYESNO G NOTHING
|
---|
14 | . Q:%=2
|
---|
15 | . S (QAQNEXT,QAQQUIT)=1 W !!?3,"No report will be produced." Q:%=-1
|
---|
16 | MACOUT . Q:QAQMOUTP'>0
|
---|
17 | . W !!?3,"You previously asked for macro output, do you still want it"
|
---|
18 | . S %=2 D YN^DICN I '% W !!?5,QAQYESNO G MACOUT
|
---|
19 | . D:%=1 EN2^QAQAHOC4
|
---|
20 | . Q
|
---|
21 | S:QAQSELOP="" QAQNEXT=1 S:$E(QAQSELOP)="^" (QAQNEXT,QAQQUIT)=1 Q:QAQNEXT!QAQQUIT
|
---|
22 | I $E(QAQSELOP)="[" D ^QAQAHOC3,HELP:QAQSELOP=-1 Q:QAQNEXT G:QAQMLOAD'>0 ENASK S QAQNEXT=1 Q
|
---|
23 | I QAQSELOP["," D S QAQNEXT='QAQAGIN Q:QAQNEXT G ENASK
|
---|
24 | . S QAQAGIN=0,QAQLIST=QAQSELOP
|
---|
25 | . I QAQSEQ>1 D S QAQAGIN=1 Q
|
---|
26 | .. W !!?3,QAQTYPE(1)," lists may only be entered at the"
|
---|
27 | .. W " first ",QAQTYPE(0)," selection prompt !! ",*7 R QA:QAQDTIME
|
---|
28 | .. Q
|
---|
29 | . I $L(QAQLIST,",")>QAQMAXOP(QAQTYPE) D S QAQAGIN=1 Q
|
---|
30 | .. W !!?3,"Too many ",QAQTYPE(0)," fields chosen !! ",*7 R QA:QAQDTIME
|
---|
31 | .. Q
|
---|
32 | . F QAQLST=1:1:$L(QAQSELOP,",") D Q:QAQAGIN
|
---|
33 | .. S QAQSELOP=$P(QAQLIST,",",QAQLST),QAQSEQ=QAQLST D CHECK
|
---|
34 | .. Q
|
---|
35 | . S QAQSEQ=QAQSEQ+1 Q:'QAQAGIN
|
---|
36 | . I QAQTYPE="S" K QAQBEGIN,QAQEND
|
---|
37 | . K QAQCHOSN,QAQOPTN(QAQTYPE) S QAQSEQ=1
|
---|
38 | . Q
|
---|
39 | S (QAQAGIN,QAQLST)=0 D CHECK G:QAQAGIN ENASK
|
---|
40 | Q
|
---|
41 | CHECK ; *** Check user's input
|
---|
42 | S QAQPREFX(0)=$S(QAQTYPE="S":"+-!#@'",1:"&!+#") D FIX^QAQAHOC2
|
---|
43 | S QAQPREFX(QAQTYPE,QAQSEQ)=QAQPREFX,QAQSUFFX(QAQTYPE,QAQSEQ)=QAQSUFFX
|
---|
44 | I QAQTYPE="P",$L(QAQPREFX)>1 S (QAQSELOP,QAQPREFX)=""
|
---|
45 | I QAQLST'>0 W " ",$P($G(QAQMENU(+QAQSELOP)),"^",2)
|
---|
46 | E W:QAQTYPE="S" !!?3,"Sort by: ",$P($G(QAQMENU(+QAQSELOP)),"^",2)
|
---|
47 | I $S(QAQSELOP<1:1,QAQSELOP>QAQMMAX:1,QAQSELOP'?1.N:1,$D(QAQMENU(QAQSELOP))[0:1,1:0) D HELP S QAQAGIN=1 Q
|
---|
48 | I $D(QAQCHOSN(QAQSELOP))#2 D S QAQAGIN=1 Q
|
---|
49 | . W *7,!!?3,"You have already chosen item ",QAQSELOP,", "
|
---|
50 | . W $P(QAQMENU(QAQSELOP),"^",2),","
|
---|
51 | . W !?3,"as a ",QAQTYPE(0)," field !! Please re-enter your selection. "
|
---|
52 | . R QA:QAQDTIME
|
---|
53 | . Q
|
---|
54 | I QAQTYPE="S",QAQMENU(QAQSELOP)'>0 W !!?3,"You are not allowed to sort by ",$P(QAQMENU(QAQSELOP),"^",2)," !! ",*7 R QA:QAQDTIME S QAQAGIN=1 Q
|
---|
55 | I QAQTYPE="S" S QAQDIR(0)=$P(QAQMENU(QAQSELOP),"^",4,99) D ^QAQAHOC2 I QAQQUIT!QAQNEXT S (QAQQUIT,QAQNEXT)=0 S QAQAGIN=1 Q
|
---|
56 | S X=$P(QAQMENU(QAQSELOP),"^",3),X=$P(X,"~")_QAQPREFX_$P(X,"~",2)
|
---|
57 | S X(0)=$P(X,";"),X(1)=$P($P(X,";"""),";",2,99),X("T")=$P(X,";""",2)
|
---|
58 | S QAQSUFFX(1)=$P(QAQSUFFX,";"""),QAQSUFFX("T")=$P(QAQSUFFX,";""",2)
|
---|
59 | S QAQ=X(0)_$S(QAQSUFFX(1)]"":QAQSUFFX(1),X(1)]"":";"_X(1),1:"")
|
---|
60 | S X=QAQ_$S(QAQSUFFX("T")]"":";"""_QAQSUFFX("T"),X("T")]"":";"""_X("T"),1:"")
|
---|
61 | S QAQOPTN(QAQTYPE,QAQSEQ,QAQSELOP)=X,QAQCHOSN(QAQSELOP)=""
|
---|
62 | Q
|
---|
63 | LIST ; *** Display the sort/print menus
|
---|
64 | W ! S QAQ=$Y,QAQMMAX(0)=QAQMMAX#2+QAQMMAX\2
|
---|
65 | F QA=1:1:QAQMMAX(0) S QAI=QA,QAQTAB=0 D S QAI=QA+QAQMMAX(0),QAQTAB=40 D I $Y>(IOSL+QAQ-4) S QAQ=$Y K DIR S DIR(0)="E" D ^DIR K DIR Q:Y'>0
|
---|
66 | . Q:$D(QAQMENU(QAI))[0
|
---|
67 | . W:QAQTAB=0 ! W ?QAQTAB,$S(QAQTYPE="P"!QAQMENU(QAI):$J(QAI,2),1:" ")
|
---|
68 | . W $S($D(QAQCHOSN(QAI)):" * ",1:" "),$P(QAQMENU(QAI),"^",2)
|
---|
69 | . Q
|
---|
70 | Q
|
---|
71 | HELP ; *** Display the sort/print help screens
|
---|
72 | I $E(QAQSELOP)'="?" W " ??",*7,!
|
---|
73 | E W @IOF
|
---|
74 | W !,"Select the ",$S(QAQSEQ=1:$S(QAQTYPE="S":"major",1:"first"),1:"next")," data element to ",$S(QAQTYPE="S":"sort by",1:"print"),". Maximum of ",QAQMAXOP(QAQTYPE)," ",QAQTYPE(0)," fields allowed."
|
---|
75 | W !,QAQBLURB,$S(QAQSEQ>1:", * means already chosen",1:""),".",!
|
---|
76 | D:$E(QAQSELOP)="?" EN^QAQAHOCH($S(QAQTYPE="S":"H1",1:"H2"))
|
---|
77 | R QA:(2*QAQDTIME)
|
---|
78 | Q
|
---|