INHDIFPK.m

INHDIFPK ;MTM; 12 Apr 94 15:03; difrom/package file utilities

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;

HELP(D000,SUB,PTR) ;  Help logic for PACKAGE file.

 N D,DIC,DIX,DS,DZ,Y I $D(DWD)>9 S DIC("IOSL")=6

 S DIC="^DIC(9.4,D000,"""_SUB_""",",DIC(0)="EQZ",X="?" D ^DIC

 Q:$G(PTR)=""

 S Y=$$YN^UTSRD("Want more help? ;1;") Q:'Y

 S X="??",DIC=PTR D ^DIC

 Q

LOOKUP(DIC,X,Y,XQY) ;  Lookup logic for PACKAGE file.

 N DIX,DS S DIC(0)="EQZ" I $D(DWD)>9 S DIC("IOSL")=6

 K XQY,Y D ^DIC I Y<0 K X Q

 S X=$P(Y(0),U),XQY(0)=Y(0)

 Q

YN ;  Yes/No reader for installing inits.

 W $G(%A),"? "

Y ;

 W $P("YES// ^NO// ",U,%) S %1=%

RX R %Y:$S($G(DTIME):DTIME,1:300) E  S DTOUT=1,%Y=U W *7

 S:%Y]""!'% %=$A(%Y),%=$S(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)

 I '%,%Y'?."?" W *7,"??",!?4,"Answer 'YES' or 'NO': " G RX

 I '% D YNHELP S %=%1 W ! G YN

 W:$X>73 ! W $P("  (YES)^  (NO)",U,%) K %1,%A,%H Q

YNHELP I $G(%H)="" W !?4,"Sorry, no help available." Q

 I $E(%H)=U X $P(%H,U,2,999) Q

 W !?4,%H

INHDIFPK  ;MTM; 12 Apr 94 15:03; difrom/package file utilities

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

HELP(D000,SUB,PTR) ;  Help logic for PACKAGE file.

 +1        NEW D,DIC,DIX,DS,DZ,Y

           IF $DATA(DWD)>9

               SET DIC("IOSL")=6

 +2        SET DIC="^DIC(9.4,D000,"""_SUB_""","

           SET DIC(0)="EQZ"

           SET X="?"

           DO ^DIC

 +3        IF $GET(PTR)=""

               QUIT 

 +4        SET Y=$$YN^UTSRD("Want more help? ;1;")

           IF 'Y

               QUIT 

 +5        SET X="??"

           SET DIC=PTR

           DO ^DIC

 +6        QUIT 

LOOKUP(DIC,X,Y,XQY) ;  Lookup logic for PACKAGE file.

 +1        NEW DIX,DS

           SET DIC(0)="EQZ"

           IF $DATA(DWD)>9

               SET DIC("IOSL")=6

 +2        KILL XQY,Y

           DO ^DIC

           IF Y<0

               KILL X

               QUIT 

 +3        SET X=$PIECE(Y(0),U)

           SET XQY(0)=Y(0)

 +4        QUIT 

YN        ;  Yes/No reader for installing inits.

 +1        WRITE $GET(%A),"? "

Y         ;

 +1        WRITE $PIECE("YES// ^NO// ",U,%)

           SET %1=%

RX         READ %Y:$SELECT($GET(DTIME):DTIME,1:300)

          IF '$TEST

               SET DTOUT=1

               SET %Y=U

               WRITE *7

 +1        IF %Y]""!'%

               SET %=$ASCII(%Y)

               SET %=$SELECT(%=89:1,%=121:1,%=78:2,%=110:2,%=94:-1,1:0)

 +2        IF '%

               IF %Y'?."?"

                   WRITE *7,"??",!?4,"Answer 'YES' or 'NO': "

                   GOTO RX

 +3        IF '%

               DO YNHELP

               SET %=%1

               WRITE !

               GOTO YN

 +4        IF $X>73

               WRITE !

           WRITE $PIECE("  (YES)^  (NO)",U,%)

           KILL %1,%A,%H

           QUIT 

YNHELP     IF $GET(%H)=""

               WRITE !?4,"Sorry, no help available."

               QUIT 

 +1        IF $EXTRACT(%H)=U

               XECUTE $PIECE(%H,U,2,999)

               QUIT 

 +2        WRITE !?4,%H