- 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 Feb 18, 2025@23:32:07 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
