- 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 Mar 13, 2025@20:55:55 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
