- 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 Feb 18, 2025@23:17:23 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