| 1 | PSXPOST ;BIR/BAB-Post Initialization Routine ;[ 04/08/97 2:06 PM ]
|
|---|
| 2 | ;;2.0;CMOP;;11 Apr 97
|
|---|
| 3 | S XQABT4=$H
|
|---|
| 4 | G:^XMB("NETNAME")?1"CMOP-".E HOST
|
|---|
| 5 | G:^XMB("NETNAME")'?1"CMOP-".E REMOTE
|
|---|
| 6 | Q
|
|---|
| 7 | HOST F FILE=552,552.1,552.2,552.3,552.4,552.5,553,553.1,554,555 S ^DD(FILE,0,"VR")="2.0"
|
|---|
| 8 | ;Setup CMOP INTERFACE and CMOP OPERATIONS file entry
|
|---|
| 9 | S PSX=^XMB("NETNAME")
|
|---|
| 10 | S CMOP=$S($G(PSX)["-L":"LEAVENWORTH",$G(PSX)["-W":"WEST LA",$G(PSX)["-B":"BEDFORD",$G(PSX)["-D":"DALLAS",$G(PSX)["-M":"MURFREESBORO",$G(PSX)["-H":"HINES",1:"UNKNOWN")
|
|---|
| 11 | I $D(^PSX(553,1,0)) G OP
|
|---|
| 12 | S ^PSX(553,1,0)=CMOP_"^1^^9999^5^10^^10000^1^1000"
|
|---|
| 13 | S ^PSX(553,1,"F")="S"
|
|---|
| 14 | S ^PSX(553,1,"P")="S",^PSX(553,1,"S")="S"
|
|---|
| 15 | S ^PSX(553,1,"T")="6^3^30^60"
|
|---|
| 16 | S ^PSX(553,1,"X",0)="^553.01DA^^"
|
|---|
| 17 | S ^PSX(553,"B",CMOP,1)=""
|
|---|
| 18 | OP ;
|
|---|
| 19 | I $D(^PSX(554,1,0)) G EXIT
|
|---|
| 20 | S ^PSX(554,0)="CMOP OPERATIONS^554^1^1",^PSX(554,1,0)=CMOP_"^1^1"
|
|---|
| 21 | S ^PSX(554,"B",CMOP,1)=""
|
|---|
| 22 | G EXIT
|
|---|
| 23 | REMOTE F FILE=550,550.1,550.2 S ^DD(FILE,0,"VR")="2.0"
|
|---|
| 24 | SYS ;Setup CMOP System entry for new sites
|
|---|
| 25 | G:$O(^PSX(550,0)) EXIT
|
|---|
| 26 | S DOM=0 S DOM=$O(^DIC(4.2,"B",^TMP("PSXCMOP",$J),DOM))
|
|---|
| 27 | S PSX1=^TMP("PSXCMOP",$J)
|
|---|
| 28 | I +$G(DOM)=0 D BMES^XPDUTL("Your Kernel Site Parameters File is missing the entry for the your CMOP mailman domain! ")
|
|---|
| 29 | I +$G(DOM)=0 D BMES^XPDUTL("Please contact the Birmingham CIO Field Office!") S XPDABORT=2 Q
|
|---|
| 30 | S PSX=$S($G(PSX1)["-L":"LEAVENWORTH",$G(PSX1)["-B":"BEDFORD",$G(PSX1)["-W":"WEST LA",$G(PSX1)["-D":"DALLAS",$G(PSX1)["-M":"MURFREESBORO",$G(PSX1)["-H":"HINES",1:"UNKNOWN")
|
|---|
| 31 | I PSX["UNK" D BMES^XPDUTL("Unable to determine CMOP setup, contact the Birmingham ISC for assistance.") S XPDABORT=2 G EXIT
|
|---|
| 32 | S ^PSX(550,0)="CMOP SYSTEM^550I^1^1"
|
|---|
| 33 | S ^PSX(550,1,0)=PSX_"^I^H^"_+DOM
|
|---|
| 34 | S ^PSX(550,"B",PSX,1)=""
|
|---|
| 35 | EXIT ; Check resource device
|
|---|
| 36 | I '$O(^%ZISL(3.54,"B","PSX","")) D BMES^XPDUTL("You do not have the PSX Resource device set up.")
|
|---|
| 37 | I D BMES^XPDUTL("Please read the CMOP Pre-Installation instructions for proper setup.")
|
|---|
| 38 | ; Check Mail Group
|
|---|
| 39 | MAIL I '$O(^XMB(3.8,"B","CMOP MANAGERS","")) D BMES^XPDUTL("The Mail Group CMOP MANAGERS must be set up and assigned at least one active user.")
|
|---|
| 40 | K CMOP,DA,DIK,DOM,FILE,X,PSX,PSX1,^TMP("PSXCMOP"),^TMP("PSXDIC"),^TMP("PSXDD"),^TMP("PSXPS"),ZX
|
|---|
| 41 | D BMES^XPDUTL("Initialization complete!!")
|
|---|
| 42 | K X
|
|---|
| 43 | Q
|
|---|
