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 ---[H[J[2J[HEEOEMAN 2969 printed Oct 16, 2024@17:51:49 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
