Last change
on this file since 761 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
275 bytes
|
Rev | Line | |
---|
[628] | 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.