- 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 Feb 18, 2025@23:39:10 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
