|
Last change
on this file since 770 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
533 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSXSTP ;BIR/BAB-Stop Interface ;[ 04/08/97 2:06 PM ]
|
|---|
| 2 | ;;2.0;CMOP;;11 Apr 97
|
|---|
| 3 | ;Called from PSXJOB
|
|---|
| 4 | Q
|
|---|
| 5 | EN ;Enter here to set status to stopped (stop interface)
|
|---|
| 6 | ;K LOG,PSXONE S LOG(1)="STP Stopping the interface now!",$G(XCNT),ZCNT)=$G(DUZ)_" STOP INTERFACE DETECTED. ^"_$H,ZCNT=ZCNT+1 D LOG^PSXUTL
|
|---|
| 7 | K LOG,PSXONE S LOG(1)="STP Stopping the interface now!"
|
|---|
| 8 | ;Wait for PSXJOB to release lock
|
|---|
| 9 | WAIT L +^PSX(553,1,"S"):3 E W "." G WAIT
|
|---|
| 10 | S ^PSX(553,1,"S")="S" W !!,"Stopping the interface..." S ZTREQ="@"
|
|---|
| 11 | W "Done!"
|
|---|
| 12 | L -^PSX(553,1,"S")
|
|---|
| 13 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
