source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSENV.m@ 1006

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

initial load of WorldVistAEHR

File size: 275 bytes
Line 
1PSSENV ;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
4START 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.