source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSHELP.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 627 bytes
Line 
1YSHELP ;SLC/DKG-FM WORD PROCESSOR INSTRUCTIONS ; 10/7/88 08:25 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 S (IOP,E1)=0 D ^%ZIS W @IOF,!!?10,"INFORMATION ABOUT WORD PROCESSOR PARAMETERS AND COMMANDS",!!
4 K IOP D ^%ZIS G:POP CLN S T=$S(IOST["P-":2,IOST["C-":1,1:1),P1=$S(IOST["P-":10,IOST["C-":4,1:1) U IO D FF
5 F K1=4:1 G:E1 CLN G:'$D(^YTX(1,1,K1)) CLN D WLN
6 Q
7WLN ;
8 I $Y+P1>IOSL D WAIT Q:E1 D FF
9 W !?8,^YTX(1,1,K1,0) Q
10FF ;
11 W !,@IOF F J=1:1:T W !
12 W ?25,"WORD PROCESSOR INSTRUCTIONS",! Q
13WAIT ;
14 Q:IOST?1"P".E
15 N DTOUT,DUOUT,DIRUT
16 S DIR(0)="E" D ^DIR K DIR Q:'$D(DIRUT)
17 S E1=$D(DIRUT)
18 Q
19CLN ;
20 K A,E1,J,K1,P1,T D ^%ZISC Q
Note: See TracBrowser for help on using the repository browser.