INHI.m

INHI ;FRW ; 8 Jan 96 10:38; Edit WP fields using CR

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

 ;COPYRIGHT 1991-2000 SAIC

 ;

EDSCR(INDA) ;Edit script

 ;INDA - IEN

 K ^DIJU($J,"DWW")

 W @IOF

 W "SCRIPT: ",$P($G(^INRHS(INDA,0)),U,1),!,"SCRIPT TEXT:",!

 D ^DWWA("^INRHS(INDA,1)",0,2,80,20,10,1)

REED D ^DWWA("^INRHS(INDA,1)",0,2,80,20,1,1)

 S %=$$YN^UTSRD("OK to file? ;1") I '% K ^DIJU($J,"DWW") D CLEAR^DW Q

 ;IF NOT OK THEN 

 ;   ASK IF WANT TO CONTINUE EDITTING

 ;   IF WANT TO CONTINUE EDITTING THEN

 ;       GOTO REED

 ;   IF NOT WANT TO EDIT THEN

 ;       QUIT

 K ^INRHS(INDA,1)

 D WP^DWEF

 K ^DIJU($J,"DWW")

 D CLEAR^DW

 Q

 ;

EDMES(INDA) ;Edit message text

 K ^DIJU($J,"DWW")

 W @IOF

 W !,"Message Text:",!

 D ^DWWA("^INTHU(INDA,3)",0,2,80,20,10,1)

REEDM D ^DWWA("^INTHU(INDA,3)",0,2,80,20,1,1)

 S %=$$YN^UTSRD("OK to file? ;1") I '% K ^DIJU($J,"DWW"),DWFILE D CLEAR^DW Q

 ;IF NOT OK THEN 

 ;   ASK IF WANT TO CONTINUE EDITTING

 ;   IF WANT TO CONTINUE EDITTING THEN

 ;       GOTO REED

 ;   IF NOT WANT TO EDIT THEN

 ;       QUIT

 K ^INTHU(INDA,3)

 D WP^DWEF

 K ^DIJU($J,"DWW")

 D CLEAR^DW

 S DWFILE=1

 Q

 ;

INHI      ;FRW ; 8 Jan 96 10:38; Edit WP fields using CR

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

EDSCR(INDA) ;Edit script

 +1       ;INDA - IEN

 +2        KILL ^DIJU($JOB,"DWW")

 +3        WRITE @IOF

 +4        WRITE "SCRIPT: ",$PIECE($GET(^INRHS(INDA,0)),U,1),!,"SCRIPT TEXT:",!

 +5        DO ^DWWA("^INRHS(INDA,1)",0,2,80,20,10,1)

REED       DO ^DWWA("^INRHS(INDA,1)",0,2,80,20,1,1)

 +1        SET %=$$YN^UTSRD("OK to file? ;1")

           IF '%

               KILL ^DIJU($JOB,"DWW")

               DO CLEAR^DW

               QUIT 

 +2       ;IF NOT OK THEN 

 +3       ;   ASK IF WANT TO CONTINUE EDITTING

 +4       ;   IF WANT TO CONTINUE EDITTING THEN

 +5       ;       GOTO REED

 +6       ;   IF NOT WANT TO EDIT THEN

 +7       ;       QUIT

 +8        KILL ^INRHS(INDA,1)

 +9        DO WP^DWEF

 +10       KILL ^DIJU($JOB,"DWW")

 +11       DO CLEAR^DW

 +12       QUIT 

 +13      ;

EDMES(INDA) ;Edit message text

 +1        KILL ^DIJU($JOB,"DWW")

 +2        WRITE @IOF

 +3        WRITE !,"Message Text:",!

 +4        DO ^DWWA("^INTHU(INDA,3)",0,2,80,20,10,1)

REEDM      DO ^DWWA("^INTHU(INDA,3)",0,2,80,20,1,1)

 +1        SET %=$$YN^UTSRD("OK to file? ;1")

           IF '%

               KILL ^DIJU($JOB,"DWW"),DWFILE

               DO CLEAR^DW

               QUIT 

 +2       ;IF NOT OK THEN 

 +3       ;   ASK IF WANT TO CONTINUE EDITTING

 +4       ;   IF WANT TO CONTINUE EDITTING THEN

 +5       ;       GOTO REED

 +6       ;   IF NOT WANT TO EDIT THEN

 +7       ;       QUIT

 +8        KILL ^INTHU(INDA,3)

 +9        DO WP^DWEF

 +10       KILL ^DIJU($JOB,"DWW")

 +11       DO CLEAR^DW

 +12       SET DWFILE=1

 +13       QUIT 

 +14      ;