source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSENV.m@ 1076

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

initial load of FOIAVistA 6/30/08 version
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.