PSSPRE38.m

PSSPRE38 ;BIR/RTR-Pre init routine ;04/03/00

 ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97

 ;

 N PSSSYS

 S PSSSYS=+$O(^PS(59.7,0))

 I $P($G(^PS(59.7,PSSSYS,80)),"^",3)'=3 W !!,"Dosage conversion is not complete, cannot install!",! S XPDABORT=2 Q

TIME ;

 N PSSTIMEZ

 K ^XTMP("PSSTIMEX")

 S X1=DT,X2=+30 D C^%DTC S PSSTIMEZ=$G(X)

 S ^XTMP("PSSTIMEX",0)=PSSTIMEZ_"^"_DT

 D NOW^%DTC S ^XTMP("PSSTIMEX","START")=%

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSPRE38   426     printed  Apr 09, 2024@21:32:57                                                                                                                                                                                                     Page 2

PSSPRE38  ;BIR/RTR-Pre init routine ;04/03/00

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97

 +2       ;

 +3        NEW PSSSYS

 +4        SET PSSSYS=+$ORDER(^PS(59.7,0))

 +5        IF $PIECE($GET(^PS(59.7,PSSSYS,80)),"^",3)'=3

               WRITE !!,"Dosage conversion is not complete, cannot install!",!

               SET XPDABORT=2

               QUIT 

TIME      ;

 +1        NEW PSSTIMEZ

 +2        KILL ^XTMP("PSSTIMEX")

 +3        SET X1=DT

           SET X2=+30

           DO C^%DTC

           SET PSSTIMEZ=$GET(X)

 +4        SET ^XTMP("PSSTIMEX",0)=PSSTIMEZ_"^"_DT

 +5        DO NOW^%DTC

           SET ^XTMP("PSSTIMEX","START")=%

 +6        QUIT