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 | |
---|
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.