source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCVW2.m@ 724

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1DVBCVW2 ;ALB/CMM LIST MANAGER PROTOCOL DRIVER ;17FEB92
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4 ;List Manager -display for exams and chapter/introductions
5EN() ;
6 I VWQRY<2 Q
7 I '$D(QUIT)!(QUIT="Y") Q
8 I $D(DVBCSPR) G LEAVE^DVBCPGD
9 S VALMBG=1
10 ;
11 ;vwqry reference query number
12 ;vwdoc reference doc number
13 ;vwline reference line, default=1
14 ;
15 I $D(QUIT) D EN^VALM("DVBA C VIEW EXAMS")
16 Q
17 ;
18INIT ; set up the doc to be viewed based on parameters
19 I '$D(QUIT)!(VWQRY<2) Q
20 I QUIT="Y" Q
21 S DVBCVAR="^TMP"
22 S VALMAR=VALMAR_"(""DVBCVIEW"",$J,"_VWQRY_","_VWDOC_")"
23 I $D(DVBCFLG) D CALLIT^DVBCPG1
24 ;
25 S VWLINE=1,VALMBG=VWLINE
26 ;
27 ; get number of lines in doc from 0 node
28 S VALMCNT=$P($G(@VALMAR@(0)),"^",4)
29 I VALMCNT<1 Q
30 ;
31 Q
32 ;
33HEADER ; HEADER FOR LIST MANAGER DISPLAY
34 Q
35 ;
36EXIT ;CLEAN UP
37 ; set line to NULL so if user reopens doc it will be recalc'ed
38 I $D(DVBCSPR) Q
39 S VWLINE="",VALMBG=1
40 ; if normal exit, then leave dvbcvw2
41 S VALMBCK="R"
42 I '$D(QUIT) Q
43 I $D(QUIT) D REMOVE^DVBCLMU5(VWQRY)
44 K ^TMP("DVBC,",$J,VWQRY),^TMP("DVBCVIEW",$J,VWQRY)
45 S VWQRY=VWQRY-1,DVBCHLD="DVBCVIEW,"_$J_","_VWQRY
46 I VWQRY>1 S VALMCNT=$P(^TMP("DVBCVIEW",$J,VWQRY,VWDOC,0),"^",4)
47 I VWQRY<3 K DVBCJMP,DVBCTEMP
48 S QUIT="Y"
49 S DVBCCT="Y"
50 Q
51 ;
52EXPAND ;EXPAND ACTION
53 Q
54HELP ;DISPLAY HELP
55 N OFFSET,TEXT
56 D CLEAR^VALM1
57 W !,"*** The function keys F9 for 'Print List' and F12 for 'Super Quit' ***"
58 W !,"*** are available. ***"
59 F OFFSET=1:1 S TEXT=$P($T(HELPTXT+OFFSET),";;",2,78) Q:TEXT="$END" D
60 .I (TEXT="$PAUSE") D PAUSE^VALM1 Q:('Y) W !
61 .W:'(TEXT="$PAUSE") !,TEXT
62 D PAUSE^VALM1
63 S VALMBCK="R"
64 K Y
65 Q
66HELPTXT ;TEXT FOR HELP
67 ;;
68 ;;Available Options Are:
69 ;;
70 ;; NX - Next Screen - Scroll down one screen
71 ;; BU - Previous Screen - Scroll up one screen
72 ;; UP - Up a Line - Scroll up one line
73 ;; DN - Down a Line - Scroll down one line
74 ;; FS - First Screen - Go to top of list
75 ;; LS - Last Screen - Go to bottom of list
76 ;; RE - Refresh Screen - Repaint the screen
77 ;; PS - Print Screen - Print the current screen
78 ;; PL - Print List - Print Exam or Chapter/Introduction displayed
79 ;; AD - Auto Display(On/Off) - Turn on/off displaying of available actions
80 ;; QU - Quit - Exit display screen
81 ;; SQ - Super Quit - Exit Completely to Menu Option
82 ;; JMP - Jump to New Exam - Select a New Exam to View
83 ;;$END
84 ;
85 ;
86KEYSET ;this sets up the print and super quit function keys
87 S XQORM("XLATE","F12")="SQ"
88 S XQORM("XLATE","F9")="PL"
89 Q
Note: See TracBrowser for help on using the repository browser.