| 1 | EEOIPOST ;HISC/DAD - EEO POST INIT ;11/9/92 12:07
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | PARMS ; Edit UPLINK SERVER PARAMETERS file (#789.5)
|
|---|
| 5 | S EEODA=+$O(^EEO(789.5,0))
|
|---|
| 6 | I EEODA'>0 D
|
|---|
| 7 | AGAIN . K DIC S DIC="^EEO(789.5,",DIC(0)="AELMNQ",DLAYGO=789.5
|
|---|
| 8 | . W !!,"Setting up the UPLINK SERVER PARAMETERS Station Number",!!
|
|---|
| 9 | . S DIC("A")="Select STATION NUMBER: "
|
|---|
| 10 | . W ! D ^DIC
|
|---|
| 11 | . I Y'>0 D G AGAIN
|
|---|
| 12 | .. W !!?5,"You must enter your STATION NUMBER at this time !!"
|
|---|
| 13 | .. Q
|
|---|
| 14 | . S EEOSTA=$P($G(^DIC(4,$P(Y,"^",2),99)),"^",6) I EEOSTA="" S $P(^DIC(4,$P(Y,"^",2),99),"^",6)=$P(Y,"^",2),EEOSTA=$P(Y,"^",2)
|
|---|
| 15 | . I $P(Y,"^",2)'=EEOSTA D ERROR
|
|---|
| 16 | . D DOM Q
|
|---|
| 17 | E G EXIT
|
|---|
| 18 | Q
|
|---|
| 19 | DOM W !!,"Setting up the UPLINK SERVER PARAMETERS Domain"
|
|---|
| 20 | S CHICAGO(0)="ISC-CHICAGO.VA.GOV"
|
|---|
| 21 | S CHICAGO=+$O(^DIC(4.2,"B",CHICAGO(0),0))
|
|---|
| 22 | I $P($G(^DIC(4.2,CHICAGO,0)),"^")'=CHICAGO(0) D G EXIT
|
|---|
| 23 | . W !!?5,"The ",CHICAGO(0)," domain was not found !!"
|
|---|
| 24 | . W !!?5,"Please verify your domain file entry for ",CHICAGO(0),"."
|
|---|
| 25 | . W !?5,"Contact your support ISC for assistance. Once the entry has"
|
|---|
| 26 | . W !?5,"been corrected you may restart the post-init at PARMS^EEOIPOST."
|
|---|
| 27 | . Q
|
|---|
| 28 | K DR S DIE="^EEO(789.5,",DR="1////"_CHICAGO,DA=+Y
|
|---|
| 29 | D ^DIE
|
|---|
| 30 | K DR S DIE="^DIC(4.2,",DR="5.5////"_14000,DA=+CHICAGO
|
|---|
| 31 | W !?5,"and its STATION number."
|
|---|
| 32 | D ^DIE
|
|---|
| 33 | ;
|
|---|
| 34 | MAILGRP ;Setup the required EEO mail groups
|
|---|
| 35 | W !!,"Setting up the EEO mail groups",!
|
|---|
| 36 | F EEO=1:1 S X=$P($T(GROUP+EEO),";;",2) Q:X="" D
|
|---|
| 37 | . S MAILGRP=$P(X,"^"),TYPE=$P(X,"^",2)
|
|---|
| 38 | . S ENROLL=$P(X,"^",3),RESTRICT=$P(X,"^",4)
|
|---|
| 39 | . W !?5,MAILGRP
|
|---|
| 40 | . S EEODA=+$O(^XMB(3.8,"B",MAILGRP,0))
|
|---|
| 41 | . I EEODA'>0 D
|
|---|
| 42 | .. K DD,DIC,DINUM,DO
|
|---|
| 43 | .. S DIC="^XMB(3.8,",DIC(0)="LM",DLAYGO=3.8,X=MAILGRP
|
|---|
| 44 | .. D FILE^DICN
|
|---|
| 45 | .. S EEODA=+Y
|
|---|
| 46 | .. Q
|
|---|
| 47 | . K DR S DIE="^XMB(3.8,",DA=EEODA
|
|---|
| 48 | . S DR="4////"_TYPE_";7////"_ENROLL_";10////"_RESTRICT
|
|---|
| 49 | . D ^DIE
|
|---|
| 50 | . Q
|
|---|
| 51 | W !!,"For each mail group, AT A MINIMUM, there should be one appropriate active user",!,"entered. The UPLINK PROBS group should contain at least one IRM person. In",!,"addition, XQSERVER must also have one active user."
|
|---|
| 52 | W !!,"Task the option EEO TASKED UPLINK BULLETIN to run nightly. This option will",!,"transmit updated information to the central data base.",!!
|
|---|
| 53 | EXIT ;Clean up and quit
|
|---|
| 54 | K CHICAGO,DA,DD,DIC,DIE,DINUM,DLAYGO,DO,DR,EEOSTA
|
|---|
| 55 | K EEO,EEODA,ENROLL,MAILGRP,RESTRICT,TYPE,X,Y
|
|---|
| 56 | D ^EEOIPOS2
|
|---|
| 57 | Q
|
|---|
| 58 | ERROR W !!,*7,*7,"Your Reporting Station "_EEOSTA_" does not match "_$P(^DIC(4,$P(Y,"^",2),0),"^",1),!,EEOSTA_" is associated with "_$P(^DIC(4,EEOSTA,0),"^",1),*7,*7,!,"The post init will stop for you to correct the Reporting station."
|
|---|
| 59 | W !,"To restart the Post init D PARMS^EEOIPOST to finish.",!!
|
|---|
| 60 | S DIK="^EEO(789.5,",DA=+Y D ^DIK K DIK,DA,Y
|
|---|
| 61 | Q
|
|---|
| 62 | GROUP ;;EEO Mail Group Name ^ Type ^ Allow Self Enrollment ^ Restrictions
|
|---|
| 63 | ;;UPLINK_DATA_SERVER^PU^n^0
|
|---|
