| 1 | DVBCVW2 ;ALB/CMM LIST MANAGER PROTOCOL DRIVER ;17FEB92
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;List Manager -display for exams and chapter/introductions
|
|---|
| 5 | EN() ;
|
|---|
| 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 | ;
|
|---|
| 18 | INIT ; 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 | ;
|
|---|
| 33 | HEADER ; HEADER FOR LIST MANAGER DISPLAY
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | EXIT ;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 | ;
|
|---|
| 52 | EXPAND ;EXPAND ACTION
|
|---|
| 53 | Q
|
|---|
| 54 | HELP ;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
|
|---|
| 66 | HELPTXT ;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 | ;
|
|---|
| 86 | KEYSET ;this sets up the print and super quit function keys
|
|---|
| 87 | S XQORM("XLATE","F12")="SQ"
|
|---|
| 88 | S XQORM("XLATE","F9")="PL"
|
|---|
| 89 | Q
|
|---|
