source: FOIAVistA/tag/r/CMOP-PSX/PSXSTP.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 533 bytes
Line 
1PSXSTP ;BIR/BAB-Stop Interface ;[ 04/08/97 2:06 PM ]
2 ;;2.0;CMOP;;11 Apr 97
3 ;Called from PSXJOB
4 Q
5EN ;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
9WAIT 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.