source:
FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSENV.m@
1746
Last change on this file since 1746 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.