source:
FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSENV.m@
794
| Last change on this file since 794 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 275 bytes | |
| Line | |
|---|---|
| 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.
