source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQH1.m@ 789

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

initial load of WorldVistAEHR

File size: 696 bytes
Line 
1XQH1 ;ISC-SF.SEA/JLI - HELP PROCESSOR (Continuation) ;6/2/92 14:23 ;5/13/93 11:33 AM
2 ;;8.0;KERNEL;;Jul 10, 1995
3 Q
4INIT S XQDONE=0,XQDSH="",$P(XQDSH,"-",79)="-",XQHY=-1
5 I '$D(IOF) S IOP="" D ^%ZIS K IOP
6 S I="",IORV="""[""",IORVX="""]""" I $D(IOST(0)),$D(^%ZIS(2,IOST(0),5)) S I=^(5) S:$L($P(I,U,4)) IORV=$P(I,U,4) S:$L($P(I,U,5)) IORVX=$P(I,U,5)
7 Q
8WAIT S Y=1,DIR(0)="E" D:IOST["C-" ^DIR S:'Y XQDONE=1 W @IOF Q
9HDR S %XQI=80-$L(XQHF)\2 W @IOF X:$D(^DIC(9.2,+XQHY,10.1)) ^(10.1) S X=0 X ^%ZOSF("RM") W ?%XQI,XQHF
10 Q
11OUT K X1,XQAU,XQ3,XQBL,XQDSH,XQH1,XQH2,XQHSL,XQHK,XQHN,XQKY,%XQI,%XQJ,%XQK,XQHS,XQHX,K,XQHR,XQHL,XQHF,XQHP,DIC,I,IORV,IORVX,XQDONE,Y,XQHY,DA,DIE,DR,XQKW,XQKWC,XQL,XQLKW,XQW
12 Q
Note: See TracBrowser for help on using the repository browser.