Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Rev | Line | |
---|
[613] | 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.