XQH1 ;ISC-SF.SEA/JLI - HELP PROCESSOR (Continuation) ;6/2/92 14:23 ;5/13/93 11:33 AM
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQH1 708 printed Oct 16, 2024@18:06:29 Page 2
XQH1 ;ISC-SF.SEA/JLI - HELP PROCESSOR (Continuation) ;6/2/92 14:23 ;5/13/93 11:33 AM
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 QUIT
INIT SET XQDONE=0
SET XQDSH=""
SET $PIECE(XQDSH,"-",79)="-"
SET XQHY=-1
+1 IF '$DATA(IOF)
SET IOP=""
DO ^%ZIS
KILL IOP
+2 SET I=""
SET IORV="""["""
SET IORVX="""]"""
IF $DATA(IOST(0))
IF $DATA(^%ZIS(2,IOST(0),5))
SET I=^(5)
if $LENGTH($PIECE(I,U,4))
SET IORV=$PIECE(I,U,4)
if $LENGTH($PIECE(I,U,5))
SET IORVX=$PIECE(I,U,5)
+3 QUIT
WAIT SET Y=1
SET DIR(0)="E"
if IOST["C-"
DO ^DIR
if 'Y
SET XQDONE=1
WRITE @IOF
QUIT
HDR SET %XQI=80-$LENGTH(XQHF)\2
WRITE @IOF
if $DATA(^DIC(9.2,+XQHY,10.1))
XECUTE ^(10.1)
SET X=0
XECUTE ^%ZOSF("RM")
WRITE ?%XQI,XQHF
+1 QUIT
OUT KILL 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
+1 QUIT
