XQH1.m

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

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 ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

 +3        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