source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPRE38.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 413 bytes
Line 
1PSSPRE38 ;BIR/RTR-Pre init routine ;04/03/00
2 ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
3 ;
4 N PSSSYS
5 S PSSSYS=+$O(^PS(59.7,0))
6 I $P($G(^PS(59.7,PSSSYS,80)),"^",3)'=3 W !!,"Dosage conversion is not complete, cannot install!",! S XPDABORT=2 Q
7TIME ;
8 N PSSTIMEZ
9 K ^XTMP("PSSTIMEX")
10 S X1=DT,X2=+30 D C^%DTC S PSSTIMEZ=$G(X)
11 S ^XTMP("PSSTIMEX",0)=PSSTIMEZ_"^"_DT
12 D NOW^%DTC S ^XTMP("PSSTIMEX","START")=%
13 Q
Note: See TracBrowser for help on using the repository browser.