MCARDNQ2 ;WISC/TJK,JA-SCREEN INPUT - QUESTIONMARKS (PART 2) ;7/9/96 12:09
;;2.3;Medicine;;09/13/1996
FUNC ;
;JAH don't display commands for option MCRHDELVISIT
I $D(MCDSPTYP) Q
I $D(MCDID) Q
I ('$D(MCMASS)),('$D(MCHELPS2)) Q
I '$D(DJTOGGLE) D FUNCC
E D FUNCK
K MCMASS S MCDID=1
Q
FUNCC ;Display help for Line Entry
X DJCP
S DJCHO="C" D DISPLAY("LINE") S MCDID=1
S @$P(DJJ(V),U,2) X XY
Q
FUNCK ;Display help for Keypad
X DJCP S DJCHO="K" D DISPLAY("KEYPAD") S MCDID=1
S @$P(DJJ(V),U,2) X XY
Q
DISPLAY(MODE) ;Display help
N LOOP,LINE,MODE2
S X=0 X ^%ZOSF("RM") ; turn off auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
S MODE2=$J(MODE,6)
S MODE2=$S(MODE="LINE":" ",1:MODE)
X XY W IORVON,DJHIN,MODE2," COMMANDS:",DJLIN,IORVOFF," (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
F LOOP=1:1:7 S LINE=$P($T(@MODE+LOOP),";;",2) D
.W !,DJHIN,$P(LINE,";",1),DJLIN," -- ",$P(LINE,";",2)," "
.W DJHIN,$P(LINE,";",3),DJLIN," -- ",$P(LINE,";",4)
S X=+$G(IOM) X ^%ZOSF("RM") ; reset margin/auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
Q
FUNC2 X DJCP
W DJHIN X XY W "COMMANDS",DJLIN,!
W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
W !,"@ -- delete data",?41,"CR -- Go to the next statement"
W !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
W !,"? -- Help prompt",?41,"?? -- For more information about field"
W !,"^C -- Command menu display"
W !,"^L -- List current elements"
W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
Q
LINE ;
;; ^T or PF1;Toggle to Keypad mode ; ?//??;Field help
;; ^C ;Display Commands (current mode) ;<RET>Next field
;; ^R ;Repaint the screen ; <Previous field
;; ^D ;Next screen ; ^nn;Go to the 'nn' field
;; ^U ;Previous screen ; @;Delete data
;; ^O ;Turn on/off automatic help; ^;Quit
;; ^H ;Help ; Space bar <RTN>Recall previous answer
KEYPAD ;
;;PF1 or ^T;Toggle to Numberpad mode; PF2;Turn on/off auto help
;;KP1 ;Display Commands (current mode) ;KP7;Help
;;KP3 ;Exit ; PF3 or PF4;Field help
;;KP4 ;Go to the 'nn' field ; Up Arrow;Previous field
;;KP5 ;Repaint the screen ; Down Arrow;Next field
;;KP6 ;Recall previous answer ; Right Arrow;Next Screen
;;KP9 ;Delete data ; Left Arrow;Previous Screen
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARDNQ2 2564 printed Oct 16, 2024@18:13:19 Page 2
MCARDNQ2 ;WISC/TJK,JA-SCREEN INPUT - QUESTIONMARKS (PART 2) ;7/9/96 12:09
+1 ;;2.3;Medicine;;09/13/1996
FUNC ;
+1 ;JAH don't display commands for option MCRHDELVISIT
+2 IF $DATA(MCDSPTYP)
QUIT
+3 IF $DATA(MCDID)
QUIT
+4 IF ('$DATA(MCMASS))
IF ('$DATA(MCHELPS2))
QUIT
+5 IF '$DATA(DJTOGGLE)
DO FUNCC
+6 IF '$TEST
DO FUNCK
+7 KILL MCMASS
SET MCDID=1
+8 QUIT
FUNCC ;Display help for Line Entry
+1 XECUTE DJCP
+2 SET DJCHO="C"
DO DISPLAY("LINE")
SET MCDID=1
+3 SET @$PIECE(DJJ(V),U,2)
XECUTE XY
+4 QUIT
FUNCK ;Display help for Keypad
+1 XECUTE DJCP
SET DJCHO="K"
DO DISPLAY("KEYPAD")
SET MCDID=1
+2 SET @$PIECE(DJJ(V),U,2)
XECUTE XY
+3 QUIT
DISPLAY(MODE) ;Display help
+1 NEW LOOP,LINE,MODE2
+2 ; turn off auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
SET X=0
XECUTE ^%ZOSF("RM")
+3 SET MODE2=$JUSTIFY(MODE,6)
+4 SET MODE2=$SELECT(MODE="LINE":" ",1:MODE)
+5 XECUTE XY
WRITE IORVON,DJHIN,MODE2," COMMANDS:",DJLIN,IORVOFF," (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
+6 FOR LOOP=1:1:7
SET LINE=$PIECE($TEXT(@MODE+LOOP),";;",2)
Begin DoDot:1
+7 WRITE !,DJHIN,$PIECE(LINE,";",1),DJLIN," -- ",$PIECE(LINE,";",2)," "
+8 WRITE DJHIN,$PIECE(LINE,";",3),DJLIN," -- ",$PIECE(LINE,";",4)
End DoDot:1
+9 ; reset margin/auto wrap ; REW added since MSM count escape sequences (some of the time!!!)
SET X=+$GET(IOM)
XECUTE ^%ZOSF("RM")
+10 QUIT
FUNC2 XECUTE DJCP
+1 WRITE DJHIN
XECUTE XY
WRITE "COMMANDS",DJLIN,!
+2 WRITE "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
+3 WRITE !,"@ -- delete data",?41,"CR -- Go to the next statement"
+4 WRITE !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
+5 WRITE !,"? -- Help prompt",?41,"?? -- For more information about field"
+6 WRITE !,"^C -- Command menu display"
+7 WRITE !,"^L -- List current elements"
+8 WRITE !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
+9 QUIT
LINE ;
+1 ;; ^T or PF1;Toggle to Keypad mode ; ?//??;Field help
+2 ;; ^C ;Display Commands (current mode) ;<RET>Next field
+3 ;; ^R ;Repaint the screen ; <Previous field
+4 ;; ^D ;Next screen ; ^nn;Go to the 'nn' field
+5 ;; ^U ;Previous screen ; @;Delete data
+6 ;; ^O ;Turn on/off automatic help; ^;Quit
+7 ;; ^H ;Help ; Space bar <RTN>Recall previous answer
KEYPAD ;
+1 ;;PF1 or ^T;Toggle to Numberpad mode; PF2;Turn on/off auto help
+2 ;;KP1 ;Display Commands (current mode) ;KP7;Help
+3 ;;KP3 ;Exit ; PF3 or PF4;Field help
+4 ;;KP4 ;Go to the 'nn' field ; Up Arrow;Previous field
+5 ;;KP5 ;Repaint the screen ; Down Arrow;Next field
+6 ;;KP6 ;Recall previous answer ; Right Arrow;Next Screen
+7 ;;KP9 ;Delete data ; Left Arrow;Previous Screen
