source:
WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSENV.m@
861
Last change on this file since 861 was 613, checked in by , 15 years ago | |
---|---|
File size: 275 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PSSENV ;BIR/WRT-Option Delete environment check routine ; 09/09/97 15:15 |
2 | ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97 | |
3 | ; ENVIRONMENTAL CHECK ROUTINE-OPTION DELETE | |
4 | START I '$D(^PS(59.7,1,49.99)) S XPDQUIT=1 Q | |
5 | I $D(^PS(59.7,1,49.99)),$P(^PS(59.7,1,49.99),"^",1)<7.0 S XPDQUIT=1 Q |
Note:
See TracBrowser
for help on using the repository browser.