source: WorldVistAEHR/trunk/r/CMOP-PSX/PSXDUAL.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.6 KB
RevLine 
[613]1PSXDUAL ;BIR/HTW - Host Interface Startup ;Compiled 1998-12-05 11:25AM for M/WNT [ 02/16/99 10:15 AM ]
2 ;;2.0;CMOP;**17**;11 Apr 97
3 K PSXONE
4 S PSXQRY=$P($G(^PSX(553,1,"Q")),"^")
5 I (PSXQRY="S")!(PSXQRY="") W !,"The Query Interface is stopped!!",! G QUERY
6 I PSXQRY="R" W !,"The Query Interface is already running!!",!
7 S DIR("A")="Do you want to Stop the Query",DIR("B")="NO"
8 S DIR(0)="SB^Y:YES;N:NO",DIR("?")="The Query interface is running. Answer Yes to stop it."
9 D ^DIR K DIR G:$D(DIRUT) EXIT
10 K DIR I "Yy"[$E(Y) S ^PSX(553,1,"Q")="S" G EXIT
11 Q
12QUERY S DIR("A")="Do you want to Start the Query",DIR("B")="YES"
13 S DIR(0)="SB^Y:YES;N:NO",DIR("?")="The Query interface is stopped. Answer Yes to start it."
14 D ^DIR K DIR G:$D(DIRUT) EXIT
15 I "Nn"[$E(Y) G EXIT
16 I "Yy"[$E(Y) S ^PSX(553,1,"Q")="R"
17 S ZTIO="CMOPQ",ZTRTN="EN^PSXDUAL",ZTDTH=$H,ZTDESC="CMOP Query" D ^%ZTLOAD
18 I $D(ZTSK) W !,"JOB QUEUED ",ZTSK
19 G EXIT
20 Q
21EN S:'$D(^PSX(553,1,"X",0)) ^PSX(553,1,"X",0)="^553.01DA^^"
22 S TERM=13,SOH=1,STX=2,ETB=23,ETX=3,EOT=4,ENQ=5,NAK=21,ACK=16
23 S PSXABORT=0,ZCNT=1 D NOW^%DTC S XCNT=% K %
24SETPAR ;Set parameters (TIMERS,LINE BID,RETRIES)
25 S PSXPAR0=$G(^PSX(553,1,0)),PSXPART=$G(^PSX(553,1,"T"))
26 S PSXDLTA=$P(PSXPART,"^"),PSXDLTB=$P(PSXPART,"^",2)
27 S PSXDLTD=$P(PSXPART,"^",3),PSXDLTE=$P(PSXPART,"^",4)
28 S PSXTRYM=$P(PSXPAR0,"^",6),PSXTRYL=$P(PSXPAR0,"^",5)
29 S PSXQRYA=1
30 ;change PSXVNDR to be the vendor system name, change the set on the MSH,BHS,QRD to use this variable
31 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)
32 D FLUSH1^PSXUTL
33 G ^PSXYQRY
34EXIT K PSXQRY Q
Note: See TracBrowser for help on using the repository browser.