source: WorldVistAEHR/trunk/r/CMOP-PSX/PSX41PRE.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1PSX41PRE ;BHAM/PDW-ENVIRONMENTAL PRE CHECK ;10/17/2002
2 ;;2.0;CMOP;**41**;11 Apr 97
3EN ;
4 I ^XMB("NETNAME")?1"CMOP-".E Q
5 I '$$PATCH^XPDUTL("PSO*7.0*126") S XPDQUIT=1 W !,"PSO*7.0*126 is required to be installed" H 5 Q
6 D SET I $G(PSXER) S XPDQUIT=1
7 I PSXSYS,$P(^PSX(550,+PSXSYS,0),"^",3)'="H" W !,"A transmission is in progress,try later." S XPDQUIT=1
8 I $D(^PSX(550,"AT")) W !!,"NON-CS Auto transmissions are scheduled. Please unschedule all transmissions." S XPDQUIT=1
9 I $D(^PSX(550,"ATC")) W !!,"CS Auto transmissions are scheduled. Please unschedule all transmissions." S XPDQUIT=1
10 ;
11 I $D(^PSX(550.2,"AQ")) W !!,"The CMOP TRANSMISSION file #550.2 has entries that have a 'CREATED' status.",!,"Please consult the patch documentation on how to clear this problem." S XPDQUIT=1
12 I $G(XPDQUIT) D
13 . W !!!,"The above problem(s) need to be addressed and resolved prior to",!,"PSX*2*41 being able to be installed.",!!
14 . K DIR S DIR(0)="E",DIR("A")="<cr> - Continue" D ^DIR K DIR
15 I $$PATCH^XPDUTL("PSX*2.0*41"),$G(XPDQUIT) D
16 . W !!!,"Patch PSX*2*41 has been previously installed."
17 . W !!,"If PSX*2*41 HAS NOT BEEN backed out you may proceed."
18 . W !!,"If PSX*2*41 HAS BEEN backed out the problems need to be fixed",!,"before it is installed again.",!!
19 . K DIR S DIR(0)="Y",DIR("B")="N",DIR("A")="Do you wish to proceed with this PSX*2*41 installation " D ^DIR
20 . I Y=1 K XPDQUIT
21 Q
22SET ; this is code from SET^PSXSYS
23 S PSXSYS=0 Q:'$D(^PSX(550,"C"))
24 S (S1,DA)=$$KSP^XUPARAM("INST"),DIC="4",DIQ(0)="IE",DR=".01;99"
25 S DIQ="PSXUTIL" D EN^DIQ1 S S3=$G(PSXUTIL(4,S1,99,"I")),S2=$G(PSXUTIL(4,S1,.01,"E")) K DA,DIC,DIQ(0),DR
26 S PSXSYS=+$O(^PSX(550,"C",""))_"^"_$G(S3)_"^"_$G(S2)
27 I $G(S3)="" S PSXER=1 W !,"I can't seem to find your site # in the INSTITUTION file. Please call the National Help Desk and report the problem."
28 K S3,S2,S1,PSXUTIL
29 Q
Note: See TracBrowser for help on using the repository browser.