PSXDUAL.m

PSXDUAL ;BIR/HTW - Host Interface Startup ;Compiled 1998-12-05 11:25AM for M/WNT [ 02/16/99  10:15 AM ]

 ;;2.0;CMOP;**17**;11 Apr 97

 K PSXONE

 S PSXQRY=$P($G(^PSX(553,1,"Q")),"^")

 I (PSXQRY="S")!(PSXQRY="") W !,"The Query Interface is stopped!!",! G QUERY

 I PSXQRY="R" W !,"The Query Interface is already running!!",!

 S DIR("A")="Do you want to Stop the Query",DIR("B")="NO"

 S DIR(0)="SB^Y:YES;N:NO",DIR("?")="The Query interface is running. Answer Yes to stop it."

 D ^DIR K DIR G:$D(DIRUT) EXIT

 K DIR I "Yy"[$E(Y) S ^PSX(553,1,"Q")="S" G EXIT

 Q

QUERY S DIR("A")="Do you want to Start the Query",DIR("B")="YES"

 S DIR(0)="SB^Y:YES;N:NO",DIR("?")="The Query interface is stopped. Answer Yes to start it."

 D ^DIR K DIR G:$D(DIRUT) EXIT

 I "Nn"[$E(Y) G EXIT

 I "Yy"[$E(Y) S ^PSX(553,1,"Q")="R"

 S ZTIO="CMOPQ",ZTRTN="EN^PSXDUAL",ZTDTH=$H,ZTDESC="CMOP Query" D ^%ZTLOAD

 I $D(ZTSK) W !,"JOB QUEUED ",ZTSK

 G EXIT

 Q

EN S:'$D(^PSX(553,1,"X",0)) ^PSX(553,1,"X",0)="^553.01DA^^"

 S TERM=13,SOH=1,STX=2,ETB=23,ETX=3,EOT=4,ENQ=5,NAK=21,ACK=16

 S PSXABORT=0,ZCNT=1 D NOW^%DTC S XCNT=% K %

SETPAR ;Set parameters (TIMERS,LINE BID,RETRIES)

 S PSXPAR0=$G(^PSX(553,1,0)),PSXPART=$G(^PSX(553,1,"T"))

 S PSXDLTA=$P(PSXPART,"^"),PSXDLTB=$P(PSXPART,"^",2)

 S PSXDLTD=$P(PSXPART,"^",3),PSXDLTE=$P(PSXPART,"^",4)

 S PSXTRYM=$P(PSXPAR0,"^",6),PSXTRYL=$P(PSXPAR0,"^",5)

 S PSXQRYA=1

 ;change PSXVNDR to be the vendor system name, change the set on the MSH,BHS,QRD to use this variable

 S PSXVNDR=$S(^PSX(553,1,0)["MURF":2,^PSX(553,1,0)["HIN":2,^PSX(553,1,0)["CHAR":2,^PSX(553,1,0)["LEAV":1,1:0)

 D FLUSH1^PSXUTL

 G ^PSXYQRY

EXIT K PSXQRY Q

PSXDUAL   ;BIR/HTW - Host Interface Startup ;Compiled 1998-12-05 11:25AM for M/WNT [ 02/16/99  10:15 AM ]

 +1       ;;2.0;CMOP;**17**;11 Apr 97

 +2        KILL PSXONE

 +3        SET PSXQRY=$PIECE($GET(^PSX(553,1,"Q")),"^")

 +4        IF (PSXQRY="S")!(PSXQRY="")

               WRITE !,"The Query Interface is stopped!!",!

               GOTO QUERY

 +5        IF PSXQRY="R"

               WRITE !,"The Query Interface is already running!!",!

 +6        SET DIR("A")="Do you want to Stop the Query"

           SET DIR("B")="NO"

 +7        SET DIR(0)="SB^Y:YES;N:NO"

           SET DIR("?")="The Query interface is running. Answer Yes to stop it."

 +8        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               GOTO EXIT

 +9        KILL DIR

           IF "Yy"[$EXTRACT(Y)

               SET ^PSX(553,1,"Q")="S"

               GOTO EXIT

 +10       QUIT 

QUERY      SET DIR("A")="Do you want to Start the Query"

           SET DIR("B")="YES"

 +1        SET DIR(0)="SB^Y:YES;N:NO"

           SET DIR("?")="The Query interface is stopped. Answer Yes to start it."

 +2        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               GOTO EXIT

 +3        IF "Nn"[$EXTRACT(Y)

               GOTO EXIT

 +4        IF "Yy"[$EXTRACT(Y)

               SET ^PSX(553,1,"Q")="R"

 +5        SET ZTIO="CMOPQ"

           SET ZTRTN="EN^PSXDUAL"

           SET ZTDTH=$HOROLOG

           SET ZTDESC="CMOP Query"

           DO ^%ZTLOAD

 +6        IF $DATA(ZTSK)

               WRITE !,"JOB QUEUED ",ZTSK

 +7        GOTO EXIT

 +8        QUIT 

EN         IF '$DATA(^PSX(553,1,"X",0))

               SET ^PSX(553,1,"X",0)="^553.01DA^^"

 +1        SET TERM=13

           SET SOH=1

           SET STX=2

           SET ETB=23

           SET ETX=3

           SET EOT=4

           SET ENQ=5

           SET NAK=21

           SET ACK=16

 +2        SET PSXABORT=0

           SET ZCNT=1

           DO NOW^%DTC

           SET XCNT=%

           KILL %

SETPAR    ;Set parameters (TIMERS,LINE BID,RETRIES)

 +1        SET PSXPAR0=$GET(^PSX(553,1,0))

           SET PSXPART=$GET(^PSX(553,1,"T"))

 +2        SET PSXDLTA=$PIECE(PSXPART,"^")

           SET PSXDLTB=$PIECE(PSXPART,"^",2)

 +3        SET PSXDLTD=$PIECE(PSXPART,"^",3)

           SET PSXDLTE=$PIECE(PSXPART,"^",4)

 +4        SET PSXTRYM=$PIECE(PSXPAR0,"^",6)

           SET PSXTRYL=$PIECE(PSXPAR0,"^",5)

 +5        SET PSXQRYA=1

 +6       ;change PSXVNDR to be the vendor system name, change the set on the MSH,BHS,QRD to use this variable

 +7        SET PSXVNDR=$SELECT(^PSX(553,1,0)["MURF":2,^PSX(553,1,0)["HIN":2,^PSX(553,1,0)["CHAR":2,^PSX(553,1,0)["LEAV":1,1:0)

 +8        DO FLUSH1^PSXUTL

 +9        GOTO ^PSXYQRY

EXIT       KILL PSXQRY

           QUIT