source: FOIAVistA/tag/r/DENTAL-DEN/DENTDNQ2.m@ 668

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1DENTDNQ2 ;WASH ISC/TJK,JA-SCREEN INPUT-QUESTIONMARKS (PART 2) ;8/28/92 12:26
2 ;;1.2;DENTAL;***15**;Oct 08, 1992
3FUNC X DJCP
4 W DJHIN X XY W "COMMANDS",DJLIN,!
5 W "^ -- Quit",?41,"@ -- Delete data"
6 W !,"^nn -- Go to the 'nn' statement",?41,"CR -- Go to the next statement"
7 W !,"^C -- Command menu display",?41,"< -- Go to previous statement"
8 W !,"^R -- Repaint Screen",?41,"?? -- For more information about field"
9 W !," -- Space bar, recall previous answer",?41," ? -- Information about field"
10 W !,"^D -- Down page",?41,"^U -- Up page"
11 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
12 Q
13FUNC2 X DJCP
14 W DJHIN X XY W "COMMANDS",DJLIN,!
15 W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
16 W !,"@ -- delete data",?41,"CR -- Go to the next statement"
17 W !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
18 W !,"? -- Help prompt",?41,"?? -- For more information about field"
19 W !,"^C -- Command menu display"
20 W !,"^L -- List current elements"
21 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
22 Q
Note: See TracBrowser for help on using the repository browser.