EEOEMAN.m

EEOEMAN ;HISC/JWR - EEO Manager options routine ;Apr 20, 1995

 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995

 ;;

SYSPAR ;Entry point for editing system parameters

 W !! S DIR(0)="SAO^1:Reassign Counselor Security;2:Edit Default EEO Officer"

 S DIR("A")="Selection: "

 S DIR("A",1)="Choose One of the Following:",DIR("A",1.5)=" "

 S DIR("A",2)="   1  Reassign Counselor Security",DIR("A",3)="   2  Edit Default EEO Officer",DIR("A",4)=" " D ^DIR Q:Y["^"

 Q:Y<1  I Y'>1 D SECOP^EEOUTIL G SYSPAR

 W !!,"       Enter/Edit EEO Officer Information",!!

 S DIE=789.5,DR="3",DA=1 D ^DIE

 I $G(X)>0 W !!,"The Default EEO Officer is Now:  ",$P($G(^VA(200,X,0)),U),!!

 Q:X=""  G SYSPAR

EDINF ;Managers entry point to edit counselor information (file 785.5)

 W !!,"       Enter/Edit Counselor Information for a Formal Complaint",!!

 K DO,DD,D0 S DIC="^EEO(785.5,",DIC(0)="AEMQZ"

 S DIC("A")="Select NAME: "

 D ^DIC Q:X="^"!(X="")  S EEOY=Y,DA=+Y,DIE=785

 S DIE=785.5,(DA,DINUM)=+EEOY

 D DRS1^EEOENF

 K EEOY,DIC,DR,DIE,DLAYGO,CN,EEO2,EEOF,EEOINF W ! G EDINF

 Q

ACKNO Q:'$D(EEOC)

 S Y=DT D DD^%DT S EEODT=Y

 S CN="" S CN=$O(EEOC(CN)),EEOOF=$P(^VA(200,$P(EEOC(CN),U,2),0),U)

 S $P(EEOMRK," ",18)="",$P(EEOMRK,"=",42)=""

 F CNU=1,5,6,11,13,14,15 S TMP("EEOACK",$J,CNU)=" "

 F CNY=2,4 S TMP("EEOACK",$J,CNY)=EEOMRK

 K EEOMRK S $P(EEOMRK," ",18)="***** EEO DATA BASE SECURITY UPDATE *****",TMP("EEOACK",$J,3)=EEOMRK

 S TMP("EEOACK",$J,8)="                 DATE/TIME OF UPDATE:      "_EEODT

 S TMP("EEOACK",$J,9)="                 USER MAKING CHANGE:       "_EEOOF

 S TMP("EEOACK",$J,10)="                 Reassignment of counselor security"

 S TMP("EEOACK",$J,12)="THIS UPDATE AFFECTED THE FOLLOWING CASE(S):  ",CNO=16

 S (CNO,CNQ)=0 F  S CNQ=$O(EEOC(CNQ)) Q:CNQ'>0  D

 .S CNO=CNO+1,TMP("EEOACK",$J,CNU)="  "_(CNO)_")  "_$P($G(^EEO(785,CNQ,5)),U,6),CNU=CNU+1 D TEST

 K EEOMRK

 S XMTEXT="TMP(""EEOACK"",$J,"

 S XMY("G.UPLINK_DATA_SERVER")=""

 S XMSUB="EEO COMPLAINT STATUS CHANGE NOTIFICATION"

 S XMDUZ=.5 D ^XMD Q

TEST S (EEOCUR,EEOPREV,EEOOF)=""

 S Y=$P(EEOC(CNQ),U,4) D DD^%DT S EEOFOR=Y

 S:$P(EEOC(CNQ),U,6)>0 EEOCUR=$P(^VA(200,$P(EEOC(CNQ),U,6),0),U)

 S:$P(EEOC(CNQ),U,7)>0 EEOPREV=$P(^VA(200,$P(EEOC(CNQ),U,7),0),U)

 I $P(EEOC(CNQ),U,5)'>0 D

 .S TMP("EEOACK",$J,CNU)="         Deleted Date of Formal Complaint: "_EEOFOR

 .S TMP("EEOACK",$J,CNU+1)="         Counselor Currently Assigned:      "_EEOCUR

 .S TMP("EEOACK",$J,CNU+2)="    * The couselor may now edit informal information for this case"

 .S TMP("EEOACK",$J,CNU+3)=" ",CNU=CNU+4,EEOPT=0

 I $P(EEOC(CNQ),U,5)=1 S EEOCUR=$P(EEOC(CNQ),U,6),EEOPREV=EEOFOR D

 .S TMP("EEOACK",$J,CNU)="         Previously Assigned Counselor: "_EEOFOR

 .S TMP("EEOACK",$J,CNU+1)="         Counselor Currently Assigned:  "_EEOCUR

 .S TMP("EEOACK",$J,CNU+2)=" ",CNU=CNU+3,EEOPT=0

 ;S:EEOCUR'="" XMY(EEOCUR)="" S:EEOPREV'="" XMY(EEOPREV)=""

 K EEOPREV,EEOCUR,EEOFOR Q

KILL K XMY,EEOC,XMTEXT,XMSUB

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EEOEMAN   2969     printed  Apr 09, 2024@20:56:08                                                                                                                                                                                                     Page 2

EEOEMAN   ;HISC/JWR - EEO Manager options routine ;Apr 20, 1995

 +1       ;;2.0;EEO Complaint Tracking;;Apr 27, 1995

 +2       ;;

SYSPAR    ;Entry point for editing system parameters

 +1        WRITE !!

           SET DIR(0)="SAO^1:Reassign Counselor Security;2:Edit Default EEO Officer"

 +2        SET DIR("A")="Selection: "

 +3        SET DIR("A",1)="Choose One of the Following:"

           SET DIR("A",1.5)=" "

 +4        SET DIR("A",2)="   1  Reassign Counselor Security"

           SET DIR("A",3)="   2  Edit Default EEO Officer"

           SET DIR("A",4)=" "

           DO ^DIR

           if Y["^"

               QUIT 

 +5        if Y<1

               QUIT 

           IF Y'>1

               DO SECOP^EEOUTIL

               GOTO SYSPAR

 +6        WRITE !!,"       Enter/Edit EEO Officer Information",!!

 +7        SET DIE=789.5

           SET DR="3"

           SET DA=1

           DO ^DIE

 +8        IF $GET(X)>0

               WRITE !!,"The Default EEO Officer is Now:  ",$PIECE($GET(^VA(200,X,0)),U),!!

 +9        if X=""

               QUIT 

           GOTO SYSPAR

EDINF     ;Managers entry point to edit counselor information (file 785.5)

 +1        WRITE !!,"       Enter/Edit Counselor Information for a Formal Complaint",!!

 +2        KILL DO,DD,D0

           SET DIC="^EEO(785.5,"

           SET DIC(0)="AEMQZ"

 +3        SET DIC("A")="Select NAME: "

 +4        DO ^DIC

           if X="^"!(X="")

               QUIT 

           SET EEOY=Y

           SET DA=+Y

           SET DIE=785

 +5        SET DIE=785.5

           SET (DA,DINUM)=+EEOY

 +6        DO DRS1^EEOENF

 +7        KILL EEOY,DIC,DR,DIE,DLAYGO,CN,EEO2,EEOF,EEOINF

           WRITE !

           GOTO EDINF

 +8        QUIT 

ACKNO      if '$DATA(EEOC)

               QUIT 

 +1        SET Y=DT

           DO DD^%DT

           SET EEODT=Y

 +2        SET CN=""

           SET CN=$ORDER(EEOC(CN))

           SET EEOOF=$PIECE(^VA(200,$PIECE(EEOC(CN),U,2),0),U)

 +3        SET $PIECE(EEOMRK," ",18)=""

           SET $PIECE(EEOMRK,"=",42)=""

 +4        FOR CNU=1,5,6,11,13,14,15

               SET TMP("EEOACK",$JOB,CNU)=" "

 +5        FOR CNY=2,4

               SET TMP("EEOACK",$JOB,CNY)=EEOMRK

 +6        KILL EEOMRK

           SET $PIECE(EEOMRK," ",18)="***** EEO DATA BASE SECURITY UPDATE *****"

           SET TMP("EEOACK",$JOB,3)=EEOMRK

 +7        SET TMP("EEOACK",$JOB,8)="                 DATE/TIME OF UPDATE:      "_EEODT

 +8        SET TMP("EEOACK",$JOB,9)="                 USER MAKING CHANGE:       "_EEOOF

 +9        SET TMP("EEOACK",$JOB,10)="                 Reassignment of counselor security"

 +10       SET TMP("EEOACK",$JOB,12)="THIS UPDATE AFFECTED THE FOLLOWING CASE(S):  "

           SET CNO=16

 +11       SET (CNO,CNQ)=0

           FOR 

               SET CNQ=$ORDER(EEOC(CNQ))

               if CNQ'>0

                   QUIT 

               Begin DoDot:1

 +12               SET CNO=CNO+1

                   SET TMP("EEOACK",$JOB,CNU)="  "_(CNO)_")  "_$PIECE($GET(^EEO(785,CNQ,5)),U,6)

                   SET CNU=CNU+1

                   DO TEST

               End DoDot:1

 +13       KILL EEOMRK

 +14       SET XMTEXT="TMP(""EEOACK"",$J,"

 +15       SET XMY("G.UPLINK_DATA_SERVER")=""

 +16       SET XMSUB="EEO COMPLAINT STATUS CHANGE NOTIFICATION"

 +17       SET XMDUZ=.5

           DO ^XMD

           QUIT 

TEST       SET (EEOCUR,EEOPREV,EEOOF)=""

 +1        SET Y=$PIECE(EEOC(CNQ),U,4)

           DO DD^%DT

           SET EEOFOR=Y

 +2        if $PIECE(EEOC(CNQ),U,6)>0

               SET EEOCUR=$PIECE(^VA(200,$PIECE(EEOC(CNQ),U,6),0),U)

 +3        if $PIECE(EEOC(CNQ),U,7)>0

               SET EEOPREV=$PIECE(^VA(200,$PIECE(EEOC(CNQ),U,7),0),U)

 +4        IF $PIECE(EEOC(CNQ),U,5)'>0

               Begin DoDot:1

 +5                SET TMP("EEOACK",$JOB,CNU)="         Deleted Date of Formal Complaint: "_EEOFOR

 +6                SET TMP("EEOACK",$JOB,CNU+1)="         Counselor Currently Assigned:      "_EEOCUR

 +7                SET TMP("EEOACK",$JOB,CNU+2)="    * The couselor may now edit informal information for this case"

 +8                SET TMP("EEOACK",$JOB,CNU+3)=" "

                   SET CNU=CNU+4

                   SET EEOPT=0

               End DoDot:1

 +9        IF $PIECE(EEOC(CNQ),U,5)=1

               SET EEOCUR=$PIECE(EEOC(CNQ),U,6)

               SET EEOPREV=EEOFOR

               Begin DoDot:1

 +10               SET TMP("EEOACK",$JOB,CNU)="         Previously Assigned Counselor: "_EEOFOR

 +11               SET TMP("EEOACK",$JOB,CNU+1)="         Counselor Currently Assigned:  "_EEOCUR

 +12               SET TMP("EEOACK",$JOB,CNU+2)=" "

                   SET CNU=CNU+3

                   SET EEOPT=0

               End DoDot:1

 +13      ;S:EEOCUR'="" XMY(EEOCUR)="" S:EEOPREV'="" XMY(EEOPREV)=""

 +14       KILL EEOPREV,EEOCUR,EEOFOR

           QUIT 

KILL       KILL XMY,EEOC,XMTEXT,XMSUB