Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XQH1

XQH1.m

Go to the documentation of this file.
XQH1 ;ISC-SF.SEA/JLI - HELP PROCESSOR (Continuation) ;6/2/92  14:23 ;5/13/93  11:33 AM [ 04/02/2003   8:29 AM ]
 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
 ;;8.0;KERNEL;;Jul 10, 1995
 Q
INIT S XQDONE=0,XQDSH="",$P(XQDSH,"-",79)="-",XQHY=-1
 I '$D(IOF) S IOP="" D ^%ZIS K IOP
 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)
 Q
WAIT S Y=1,DIR(0)="E" D:IOST["C-" ^DIR S:'Y XQDONE=1 W @IOF Q
HDR 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
 Q
OUT 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
 Q