INHT.m

INHT ;JSH; 25 Mar 93 12:20;Transaction Type routines 

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

 ;COPYRIGHT 1991-2000 SAIC

 ;

EDT ;Edit a Transaction Type

 K DIC

 W !! S DIC="^INRHT(",DIC(0)="QAELM",DIC("A")="Select Transaction Type: " D ^DIC K DIC Q:Y<0

 I $P(Y,U,3) S $P(^INRHT(+Y,0),U,5)=1

 S DA=+Y,DIE="^INRHT(" D EDIT("INH TRANSACTION TYPE")

 G EDT Q

 ;

POST ;Post-action for In/Out field

 N I I $$VAL^DWRA(4000,.08)="O" D  Q

 . F I=.09,.1,.11 S DWSFLD(I)="",DWSFLD(I,0)=2

 . S DWSFLD(.02,0)=0

 . F I=.06,.07,.12 S DWSFLD(I,0)=0

 I $$VAL^DWRA(4000,.08)="I" D  Q

 . F I=.09,.1,.11 S DWSFLD(I,0)=0

 . F I=.02,.06,.07,.12 S DWSFLD(I,0)=2,DWSFLD(I)=""

 Q

 ;

EDB ;Edit a background process

 K DIC

 W !! S DIC="^INTHPC(",DIC(0)="QAELM",DIC("A")="Select BACKGROUND PROCESS: ",DIC("S")="I Y>2" D ^DIC Q:Y<0

 S DA=+Y,DIE=DIC D EDIT("INH BACKGROUND PROCESS") G EDB

 ;

EDD ;Edit a destination

 K DIC

 W !! S DIC="^INRHD(",DIC(0)="QAELM",DIC("A")="Select INTERFACE DESTINATION: " D ^DIC Q:Y<0

 S DA=+Y,DIE=DIC D EDIT("INH DESTINATION ENTRY AND EDIT") G EDD

 ;

EDSITE ;Edit site parameters

 N DIC,DIE,DA,DLAYGO,DO

 G:$D(^INRHSITE(1,0)) EDSITE1

 I '$D(^XMB(1,1,0)) W !!,*7,"KERNEL SITE PARAMETERS must be initialized first." Q

 S (DIC,DLAYGO)=4002,DIC(0)="L",X=1 D ^DICN

EDSITE1 S DA=1,DIE=4002 D EDIT("INH SITE PARAMETERS") Q

 ;

EMR ;Edit Interface Message Replication entries

 N DIC,DIE,DA,DLAYGO,DO

 W !! S DIC="^INRHR(",DIC(0)="QAELM",DIC("A")="Select transaction type: " D ^DIC Q:Y<0

 S DA=+Y,DIE=DIC D EDIT("INH MESSAGE REP ENTER EDIT") G EMR

 ;

EDIT(%T) ;Perform an edit either using a gallery or input template

 ;%T = gallery/template name

 ;Enter with DIE=global reference of file to edit

 ;DA = entry #

 Q:$G(%T)=""  Q:'$D(DIE)!('$D(DA))

 ;Check to determine if this is an IHS system and the form exists

 I '$$SC^INHUTIL1,$D(^DIST(.403,"B",%T)) D  Q

 .N DDSFILE,DDSPAGE

 .S DDSFILE=DIE,DR="["_$TR(%T,"[]")_"]",DDSPAGE=1

 .D ^DDS

 K DWFILE I $$SC^INHUTIL1,'$P($G(^INRHSITE(1,2)),U,5) S DWN=%T D ^DWC Q

 S DR="["_$TR(%T,"[]")_"]" D ^DIE S DWFILE="" Q

 ;

EDOS ;Edit Interface OS file

 N DIC,DA,DO

 I '$O(^INTHOS(0)) D  Q:DA<1

 . S ^INTHOS(0)=$P(^INTHOS(0),U,1,2)

 . S DIC=.7,DIC(0)="QAEM" D ^DIC K DIC S DA=+Y Q:DA<1

 . S (DLAYGO,DIC)=4002.1,DIC(0)="L",X=+Y D ^DICN K DIC

 S DA=1,DIE="^INTHOS(" D EDIT("INH OPERATING SYSTEM")

 Q

INHT      ;JSH; 25 Mar 93 12:20;Transaction Type routines 

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

EDT       ;Edit a Transaction Type

 +1        KILL DIC

 +2        WRITE !!

           SET DIC="^INRHT("

           SET DIC(0)="QAELM"

           SET DIC("A")="Select Transaction Type: "

           DO ^DIC

           KILL DIC

           IF Y<0

               QUIT 

 +3        IF $PIECE(Y,U,3)

               SET $PIECE(^INRHT(+Y,0),U,5)=1

 +4        SET DA=+Y

           SET DIE="^INRHT("

           DO EDIT("INH TRANSACTION TYPE")

 +5        GOTO EDT

           QUIT 

 +6       ;

POST      ;Post-action for In/Out field

 +1        NEW I

           IF $$VAL^DWRA(4000,.08)="O"

               Begin DoDot:1

 +2                FOR I=.09,.1,.11

                       SET DWSFLD(I)=""

                       SET DWSFLD(I,0)=2

 +3                SET DWSFLD(.02,0)=0

 +4                FOR I=.06,.07,.12

                       SET DWSFLD(I,0)=0

               End DoDot:1

               QUIT 

 +5        IF $$VAL^DWRA(4000,.08)="I"

               Begin DoDot:1

 +6                FOR I=.09,.1,.11

                       SET DWSFLD(I,0)=0

 +7                FOR I=.02,.06,.07,.12

                       SET DWSFLD(I,0)=2

                       SET DWSFLD(I)=""

               End DoDot:1

               QUIT 

 +8        QUIT 

 +9       ;

EDB       ;Edit a background process

 +1        KILL DIC

 +2        WRITE !!

           SET DIC="^INTHPC("

           SET DIC(0)="QAELM"

           SET DIC("A")="Select BACKGROUND PROCESS: "

           SET DIC("S")="I Y>2"

           DO ^DIC

           IF Y<0

               QUIT 

 +3        SET DA=+Y

           SET DIE=DIC

           DO EDIT("INH BACKGROUND PROCESS")

           GOTO EDB

 +4       ;

EDD       ;Edit a destination

 +1        KILL DIC

 +2        WRITE !!

           SET DIC="^INRHD("

           SET DIC(0)="QAELM"

           SET DIC("A")="Select INTERFACE DESTINATION: "

           DO ^DIC

           IF Y<0

               QUIT 

 +3        SET DA=+Y

           SET DIE=DIC

           DO EDIT("INH DESTINATION ENTRY AND EDIT")

           GOTO EDD

 +4       ;

EDSITE    ;Edit site parameters

 +1        NEW DIC,DIE,DA,DLAYGO,DO

 +2        IF $DATA(^INRHSITE(1,0))

               GOTO EDSITE1

 +3        IF '$DATA(^XMB(1,1,0))

               WRITE !!,*7,"KERNEL SITE PARAMETERS must be initialized first."

               QUIT 

 +4        SET (DIC,DLAYGO)=4002

           SET DIC(0)="L"

           SET X=1

           DO ^DICN

EDSITE1    SET DA=1

           SET DIE=4002

           DO EDIT("INH SITE PARAMETERS")

           QUIT 

 +1       ;

EMR       ;Edit Interface Message Replication entries

 +1        NEW DIC,DIE,DA,DLAYGO,DO

 +2        WRITE !!

           SET DIC="^INRHR("

           SET DIC(0)="QAELM"

           SET DIC("A")="Select transaction type: "

           DO ^DIC

           IF Y<0

               QUIT 

 +3        SET DA=+Y

           SET DIE=DIC

           DO EDIT("INH MESSAGE REP ENTER EDIT")

           GOTO EMR

 +4       ;

EDIT(%T)  ;Perform an edit either using a gallery or input template

 +1       ;%T = gallery/template name

 +2       ;Enter with DIE=global reference of file to edit

 +3       ;DA = entry #

 +4        IF $GET(%T)=""

               QUIT 

           IF '$DATA(DIE)!('$DATA(DA))

               QUIT 

 +5       ;Check to determine if this is an IHS system and the form exists

 +6        IF '$$SC^INHUTIL1

               IF $DATA(^DIST(.403,"B",%T))

                   Begin DoDot:1

 +7                    NEW DDSFILE,DDSPAGE

 +8                    SET DDSFILE=DIE

                       SET DR="["_$TRANSLATE(%T,"[]")_"]"

                       SET DDSPAGE=1

 +9                    DO ^DDS

                   End DoDot:1

                   QUIT 

 +10       KILL DWFILE

           IF $$SC^INHUTIL1

               IF '$PIECE($GET(^INRHSITE(1,2)),U,5)

                   SET DWN=%T

                   DO ^DWC

                   QUIT 

 +11       SET DR="["_$TRANSLATE(%T,"[]")_"]"

           DO ^DIE

           SET DWFILE=""

           QUIT 

 +12      ;

EDOS      ;Edit Interface OS file

 +1        NEW DIC,DA,DO

 +2        IF '$ORDER(^INTHOS(0))

               Begin DoDot:1

 +3                SET ^INTHOS(0)=$PIECE(^INTHOS(0),U,1,2)

 +4                SET DIC=.7

                   SET DIC(0)="QAEM"

                   DO ^DIC

                   KILL DIC

                   SET DA=+Y

                   IF DA<1

                       QUIT 

 +5                SET (DLAYGO,DIC)=4002.1

                   SET DIC(0)="L"

                   SET X=+Y

                   DO ^DICN

                   KILL DIC

               End DoDot:1

               IF DA<1

                   QUIT 

 +6        SET DA=1

           SET DIE="^INTHOS("

           DO EDIT("INH OPERATING SYSTEM")

 +7        QUIT