source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCLMU5.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DVBCLMU5 ;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 ;
9INIT ;
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
25REMOVE(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
32QUIT ;
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.