source: FOIAVistA/tag/r/MEDICINE-MC/MCARDNQ2.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1MCARDNQ2 ;WISC/TJK,JA-SCREEN INPUT - QUESTIONMARKS (PART 2) ;7/9/96 12:09
2 ;;2.3;Medicine;;09/13/1996
3FUNC ;
4 ;JAH don't display commands for option MCRHDELVISIT
5 I $D(MCDSPTYP) Q
6 I $D(MCDID) Q
7 I ('$D(MCMASS)),('$D(MCHELPS2)) Q
8 I '$D(DJTOGGLE) D FUNCC
9 E D FUNCK
10 K MCMASS S MCDID=1
11 Q
12FUNCC ;Display help for Line Entry
13 X DJCP
14 S DJCHO="C" D DISPLAY("LINE") S MCDID=1
15 S @$P(DJJ(V),U,2) X XY
16 Q
17FUNCK ;Display help for Keypad
18 X DJCP S DJCHO="K" D DISPLAY("KEYPAD") S MCDID=1
19 S @$P(DJJ(V),U,2) X XY
20 Q
21DISPLAY(MODE) ;Display help
22 N LOOP,LINE,MODE2
23 S X=0 X ^%ZOSF("RM") ; turn off auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
24 S MODE2=$J(MODE,6)
25 S MODE2=$S(MODE="LINE":" ",1:MODE)
26 X XY W IORVON,DJHIN,MODE2," COMMANDS:",DJLIN,IORVOFF," (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
27 F LOOP=1:1:7 S LINE=$P($T(@MODE+LOOP),";;",2) D
28 .W !,DJHIN,$P(LINE,";",1),DJLIN," -- ",$P(LINE,";",2)," "
29 .W DJHIN,$P(LINE,";",3),DJLIN," -- ",$P(LINE,";",4)
30 S X=+$G(IOM) X ^%ZOSF("RM") ; reset margin/auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
31 Q
32FUNC2 X DJCP
33 W DJHIN X XY W "COMMANDS",DJLIN,!
34 W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
35 W !,"@ -- delete data",?41,"CR -- Go to the next statement"
36 W !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
37 W !,"? -- Help prompt",?41,"?? -- For more information about field"
38 W !,"^C -- Command menu display"
39 W !,"^L -- List current elements"
40 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
41 Q
42LINE ;
43 ;; ^T or PF1;Toggle to Keypad mode ; ?//??;Field help
44 ;; ^C ;Display Commands (current mode) ;<RET>;Next field
45 ;; ^R ;Repaint the screen ; <;Previous field
46 ;; ^D ;Next screen ; ^nn;Go to the 'nn' field
47 ;; ^U ;Previous screen ; @;Delete data
48 ;; ^O ;Turn on/off automatic help; ^;Quit
49 ;; ^H ;Help ; Space bar <RTN>;Recall previous answer
50KEYPAD ;
51 ;;PF1 or ^T;Toggle to Numberpad mode; PF2;Turn on/off auto help
52 ;;KP1 ;Display Commands (current mode) ;KP7;Help
53 ;;KP3 ;Exit ; PF3 or PF4;Field help
54 ;;KP4 ;Go to the 'nn' field ; Up Arrow;Previous field
55 ;;KP5 ;Repaint the screen ; Down Arrow;Next field
56 ;;KP6 ;Recall previous answer ; Right Arrow;Next Screen
57 ;;KP9 ;Delete data ; Left Arrow;Previous Screen
Note: See TracBrowser for help on using the repository browser.