| 1 | PSOEN145 ;BIR/RTR-Patch 145 Environment check routine ;08/15/03
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**145,268**;DEC 1997;Build 9
|
|---|
| 3 | Q:'XPDENV
|
|---|
| 4 | N X1,X2,Y
|
|---|
| 5 | L +^XTMP("SDPSO145"):$S(+$G(^DD("DILOCKTM"))>0:+^DD("DILOCKTM"),1:3) I '$T W !!,"Cannot load this build, someone else is either installing it now,",!,"or the Post-Init for this build is currently running from another install.",! S XPDABORT=2 Q
|
|---|
| 6 | I $G(^XTMP("SDPSO145","PSOTINIT")) W !!,"Cannot load this build, the Post-Init has already been",!,"queued by another process.",! S XPDABORT=2 L -^XTMP("SDPSO145") Q
|
|---|
| 7 | W !,"This build contains a post-install that will populate the TPB ELIGIBILITY",!,"(#52.91) File, and the TPB INSTITUTION LETTERS (#52.92) File.",!
|
|---|
| 8 | K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")="Queue the Post-Install to run at what Date@Time: "
|
|---|
| 9 | D ^%DT K %DT I $D(DTOUT)!(Y<0) W !!,"Cannot install patch without queuing the post-install, install aborted!",! S XPDABORT=2 L -^XTMP("SDPSO145") Q
|
|---|
| 10 | S ^XTMP("SDPSO145","PSOTINIT")=Y
|
|---|
| 11 | S X1=DT,X2=+60 D C^%DTC S ^XTMP("SDPSO145",0)=$G(X)_"^"_DT
|
|---|
| 12 | L -^XTMP("SDPSO145")
|
|---|
| 13 | Q
|
|---|
| 14 | TEST ;
|
|---|
| 15 | Q:'$G(XPDENV)
|
|---|
| 16 | W !,"This build contains a post-install that will populate the TPB ELIGIBILITY",!,"(#52.91) File, and the TPB INSTITUTION LETTERS (#52.92) File.",!
|
|---|
| 17 | K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")="Queue the Post-Install to run at what Date@Time: "
|
|---|
| 18 | D ^%DT K %DT I $D(DTOUT)!(Y<0) W !!,"Cannot install patch without queuing the post-install, install aborted!",! S XPDABORT=2 Q
|
|---|
| 19 | S @XPDGREF@("PSOPINIT")=Y
|
|---|
| 20 | Q
|
|---|
