Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
413 bytes
|
Rev | Line | |
---|
[613] | 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.