EEOIPOST ;HISC/DAD - EEO POST INIT ;11/9/92 12:07
;;2.0;EEO Complaint Tracking;;Apr 27, 1995
;
PARMS ; Edit UPLINK SERVER PARAMETERS file (#789.5)
S EEODA=+$O(^EEO(789.5,0))
I EEODA'>0 D
AGAIN . K DIC S DIC="^EEO(789.5,",DIC(0)="AELMNQ",DLAYGO=789.5
. W !!,"Setting up the UPLINK SERVER PARAMETERS Station Number",!!
. S DIC("A")="Select STATION NUMBER: "
. W ! D ^DIC
. I Y'>0 D G AGAIN
.. W !!?5,"You must enter your STATION NUMBER at this time !!"
.. Q
. 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)
. I $P(Y,"^",2)'=EEOSTA D ERROR
. D DOM Q
E G EXIT
Q
DOM W !!,"Setting up the UPLINK SERVER PARAMETERS Domain"
S CHICAGO(0)="ISC-CHICAGO.DOMAIN.EXT"
S CHICAGO=+$O(^DIC(4.2,"B",CHICAGO(0),0))
I $P($G(^DIC(4.2,CHICAGO,0)),"^")'=CHICAGO(0) D G EXIT
. W !!?5,"The ",CHICAGO(0)," domain was not found !!"
. W !!?5,"Please verify your domain file entry for ",CHICAGO(0),"."
. W !?5,"Contact your support ISC for assistance. Once the entry has"
. W !?5,"been corrected you may restart the post-init at PARMS^EEOIPOST."
. Q
K DR S DIE="^EEO(789.5,",DR="1////"_CHICAGO,DA=+Y
D ^DIE
K DR S DIE="^DIC(4.2,",DR="5.5////"_14000,DA=+CHICAGO
W !?5,"and its STATION number."
D ^DIE
;
MAILGRP ;Setup the required EEO mail groups
W !!,"Setting up the EEO mail groups",!
F EEO=1:1 S X=$P($T(GROUP+EEO),";;",2) Q:X="" D
. S MAILGRP=$P(X,"^"),TYPE=$P(X,"^",2)
. S ENROLL=$P(X,"^",3),RESTRICT=$P(X,"^",4)
. W !?5,MAILGRP
. S EEODA=+$O(^XMB(3.8,"B",MAILGRP,0))
. I EEODA'>0 D
.. K DD,DIC,DINUM,DO
.. S DIC="^XMB(3.8,",DIC(0)="LM",DLAYGO=3.8,X=MAILGRP
.. D FILE^DICN
.. S EEODA=+Y
.. Q
. K DR S DIE="^XMB(3.8,",DA=EEODA
. S DR="4////"_TYPE_";7////"_ENROLL_";10////"_RESTRICT
. D ^DIE
. Q
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."
W !!,"Task the option EEO TASKED UPLINK BULLETIN to run nightly. This option will",!,"transmit updated information to the central data base.",!!
EXIT ;Clean up and quit
K CHICAGO,DA,DD,DIC,DIE,DINUM,DLAYGO,DO,DR,EEOSTA
K EEO,EEODA,ENROLL,MAILGRP,RESTRICT,TYPE,X,Y
D ^EEOIPOS2
Q
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."
W !,"To restart the Post init D PARMS^EEOIPOST to finish.",!!
S DIK="^EEO(789.5,",DA=+Y D ^DIK K DIK,DA,Y
Q
GROUP ;;EEO Mail Group Name ^ Type ^ Allow Self Enrollment ^ Restrictions
;;UPLINK_DATA_SERVER^PU^n^0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOIPOST 2817 printed Dec 13, 2024@01:51:14 Page 2
EEOIPOST ;HISC/DAD - EEO POST INIT ;11/9/92 12:07
+1 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
+2 ;
PARMS ; Edit UPLINK SERVER PARAMETERS file (#789.5)
+1 SET EEODA=+$ORDER(^EEO(789.5,0))
+2 IF EEODA'>0
Begin DoDot:1
AGAIN KILL DIC
SET DIC="^EEO(789.5,"
SET DIC(0)="AELMNQ"
SET DLAYGO=789.5
+1 WRITE !!,"Setting up the UPLINK SERVER PARAMETERS Station Number",!!
+2 SET DIC("A")="Select STATION NUMBER: "
+3 WRITE !
DO ^DIC
+4 IF Y'>0
Begin DoDot:2
+5 WRITE !!?5,"You must enter your STATION NUMBER at this time !!"
+6 QUIT
End DoDot:2
GOTO AGAIN
+7 SET EEOSTA=$PIECE($GET(^DIC(4,$PIECE(Y,"^",2),99)),"^",6)
IF EEOSTA=""
SET $PIECE(^DIC(4,$PIECE(Y,"^",2),99),"^",6)=$PIECE(Y,"^",2)
SET EEOSTA=$PIECE(Y,"^",2)
+8 IF $PIECE(Y,"^",2)'=EEOSTA
DO ERROR
+9 DO DOM
QUIT
End DoDot:1
+10 IF '$TEST
GOTO EXIT
+11 QUIT
DOM WRITE !!,"Setting up the UPLINK SERVER PARAMETERS Domain"
+1 SET CHICAGO(0)="ISC-CHICAGO.DOMAIN.EXT"
+2 SET CHICAGO=+$ORDER(^DIC(4.2,"B",CHICAGO(0),0))
+3 IF $PIECE($GET(^DIC(4.2,CHICAGO,0)),"^")'=CHICAGO(0)
Begin DoDot:1
+4 WRITE !!?5,"The ",CHICAGO(0)," domain was not found !!"
+5 WRITE !!?5,"Please verify your domain file entry for ",CHICAGO(0),"."
+6 WRITE !?5,"Contact your support ISC for assistance. Once the entry has"
+7 WRITE !?5,"been corrected you may restart the post-init at PARMS^EEOIPOST."
+8 QUIT
End DoDot:1
GOTO EXIT
+9 KILL DR
SET DIE="^EEO(789.5,"
SET DR="1////"_CHICAGO
SET DA=+Y
+10 DO ^DIE
+11 KILL DR
SET DIE="^DIC(4.2,"
SET DR="5.5////"_14000
SET DA=+CHICAGO
+12 WRITE !?5,"and its STATION number."
+13 DO ^DIE
+14 ;
MAILGRP ;Setup the required EEO mail groups
+1 WRITE !!,"Setting up the EEO mail groups",!
+2 FOR EEO=1:1
SET X=$PIECE($TEXT(GROUP+EEO),";;",2)
if X=""
QUIT
Begin DoDot:1
+3 SET MAILGRP=$PIECE(X,"^")
SET TYPE=$PIECE(X,"^",2)
+4 SET ENROLL=$PIECE(X,"^",3)
SET RESTRICT=$PIECE(X,"^",4)
+5 WRITE !?5,MAILGRP
+6 SET EEODA=+$ORDER(^XMB(3.8,"B",MAILGRP,0))
+7 IF EEODA'>0
Begin DoDot:2
+8 KILL DD,DIC,DINUM,DO
+9 SET DIC="^XMB(3.8,"
SET DIC(0)="LM"
SET DLAYGO=3.8
SET X=MAILGRP
+10 DO FILE^DICN
+11 SET EEODA=+Y
+12 QUIT
End DoDot:2
+13 KILL DR
SET DIE="^XMB(3.8,"
SET DA=EEODA
+14 SET DR="4////"_TYPE_";7////"_ENROLL_";10////"_RESTRICT
+15 DO ^DIE
+16 QUIT
End DoDot:1
+17 WRITE !!,"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."
+18 WRITE !!,"Task the option EEO TASKED UPLINK BULLETIN to run nightly. This option will",!,"transmit updated information to the central data base.",!!
EXIT ;Clean up and quit
+1 KILL CHICAGO,DA,DD,DIC,DIE,DINUM,DLAYGO,DO,DR,EEOSTA
+2 KILL EEO,EEODA,ENROLL,MAILGRP,RESTRICT,TYPE,X,Y
+3 DO ^EEOIPOS2
+4 QUIT
ERROR WRITE !!,*7,*7,"Your Reporting Station "_EEOSTA_" does not match "_$PIECE(^DIC(4,$PIECE(Y,"^",2),0),"^",1),!,EEOSTA_" is associated with "_$PIECE(^DIC(4,EEOSTA,0),"^",1),*7,*7,!,"The post init will stop for you to correct the Reporting station.
"
+1 WRITE !,"To restart the Post init D PARMS^EEOIPOST to finish.",!!
+2 SET DIK="^EEO(789.5,"
SET DA=+Y
DO ^DIK
KILL DIK,DA,Y
+3 QUIT
GROUP ;;EEO Mail Group Name ^ Type ^ Allow Self Enrollment ^ Restrictions
+1 ;;UPLINK_DATA_SERVER^PU^n^0
