|
Last change
on this file since 649 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
