source:
WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPRE38.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 413 bytes |
Line | |
---|---|
1 | PSSPRE38 ;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 |
7 | TIME ; |
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.