Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Line | |
---|
1 | DVBCLMU5 ;ALB/CMM LIST MANAGER PROTOCOLS ;11/12/93
|
---|
2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
3 | ;
|
---|
4 | ;Jumping to a new exam from within the view screen Protocol
|
---|
5 | ;Super Quit Protocol
|
---|
6 | ;Removal of previously viewed screens that have been disgarded
|
---|
7 | ;
|
---|
8 | ;
|
---|
9 | INIT ;
|
---|
10 | ;JUMP PROTOCOL
|
---|
11 | I VWQRY>5 W !,"Can't jump again until you close another screen." S VALMBCK="R" D PAUSE^VALM1 Q
|
---|
12 | I DVBAC="O" W !,"CAN'T JUMP FROM AN OVERVIEW" S VALMBCK="R" D PAUSE^VALM1 Q
|
---|
13 | S DVBCJMP="Y",QUIT="N"
|
---|
14 | S DVBCCNT=DVBCCNT+1,VWQRY=VWQRY+1,DVBCHLD="DVBCVIEW,"_$J_","_VWQRY
|
---|
15 | D A^DVBCPGD
|
---|
16 | I '$D(QUIT) Q
|
---|
17 | I $D(DVBCSPR) G EXIT3^DVBCPGD1
|
---|
18 | I QUIT'="Y" S DVBCTEMP="Y"
|
---|
19 | I QUIT="Y" S DVBCCNT=DVBCCNT-1
|
---|
20 | I VWQRY>1 S VALMBCK="R"
|
---|
21 | I VWQRY<2 S VWQRY=2,DVBCHLD="DVBCVIEW,"_$J_","_VWQRY,DVBCCNT=1,TQUIT="Y"
|
---|
22 | I DVBCCNT<3 K DVBCJMP
|
---|
23 | S VALMBG=1,VWLINE=1
|
---|
24 | Q
|
---|
25 | REMOVE(TQRY) ;
|
---|
26 | ;REMOVES ALL REMAINING WINDOWS
|
---|
27 | N WORD
|
---|
28 | I '$D(^TMP("DVBCVIEW,"_$J_","_TQRY)) Q
|
---|
29 | K ^TMP("DVBCVIEW",$J,TQRY)
|
---|
30 | F S WORD=$O(^TMP("DVBC",$J,"~"_TQRY)) Q:WORD="" K ^TMP("DVBC",$J,WORD),^TMP("DVBC",$J,TQRY)
|
---|
31 | Q
|
---|
32 | QUIT ;
|
---|
33 | ;SUPER QUIT PROTOCOL
|
---|
34 | N HOLD
|
---|
35 | S DVBCSPR="Y",HOLD=VWQRY
|
---|
36 | F Q:HOLD=1 D
|
---|
37 | .D REMOVE(HOLD)
|
---|
38 | .S HOLD=HOLD-1
|
---|
39 | S VWQRY=0
|
---|
40 | S QUIT="Y"
|
---|
41 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.