| 1 | EEOEMAN ;HISC/JWR - EEO Manager options routine ;Apr 20, 1995
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | SYSPAR ;Entry point for editing system parameters
|
|---|
| 5 | W !! S DIR(0)="SAO^1:Reassign Counselor Security;2:Edit Default EEO Officer"
|
|---|
| 6 | S DIR("A")="Selection: "
|
|---|
| 7 | S DIR("A",1)="Choose One of the Following:",DIR("A",1.5)=" "
|
|---|
| 8 | S DIR("A",2)=" 1 Reassign Counselor Security",DIR("A",3)=" 2 Edit Default EEO Officer",DIR("A",4)=" " D ^DIR Q:Y["^"
|
|---|
| 9 | Q:Y<1 I Y'>1 D SECOP^EEOUTIL G SYSPAR
|
|---|
| 10 | W !!," Enter/Edit EEO Officer Information",!!
|
|---|
| 11 | S DIE=789.5,DR="3",DA=1 D ^DIE
|
|---|
| 12 | I $G(X)>0 W !!,"The Default EEO Officer is Now: ",$P($G(^VA(200,X,0)),U),!!
|
|---|
| 13 | Q:X="" G SYSPAR
|
|---|
| 14 | EDINF ;Managers entry point to edit counselor information (file 785.5)
|
|---|
| 15 | W !!," Enter/Edit Counselor Information for a Formal Complaint",!!
|
|---|
| 16 | K DO,DD,D0 S DIC="^EEO(785.5,",DIC(0)="AEMQZ"
|
|---|
| 17 | S DIC("A")="Select NAME: "
|
|---|
| 18 | D ^DIC Q:X="^"!(X="") S EEOY=Y,DA=+Y,DIE=785
|
|---|
| 19 | S DIE=785.5,(DA,DINUM)=+EEOY
|
|---|
| 20 | D DRS1^EEOENF
|
|---|
| 21 | K EEOY,DIC,DR,DIE,DLAYGO,CN,EEO2,EEOF,EEOINF W ! G EDINF
|
|---|
| 22 | Q
|
|---|
| 23 | ACKNO Q:'$D(EEOC)
|
|---|
| 24 | S Y=DT D DD^%DT S EEODT=Y
|
|---|
| 25 | S CN="" S CN=$O(EEOC(CN)),EEOOF=$P(^VA(200,$P(EEOC(CN),U,2),0),U)
|
|---|
| 26 | S $P(EEOMRK," ",18)="",$P(EEOMRK,"=",42)=""
|
|---|
| 27 | F CNU=1,5,6,11,13,14,15 S TMP("EEOACK",$J,CNU)=" "
|
|---|
| 28 | F CNY=2,4 S TMP("EEOACK",$J,CNY)=EEOMRK
|
|---|
| 29 | K EEOMRK S $P(EEOMRK," ",18)="***** EEO DATA BASE SECURITY UPDATE *****",TMP("EEOACK",$J,3)=EEOMRK
|
|---|
| 30 | S TMP("EEOACK",$J,8)=" DATE/TIME OF UPDATE: "_EEODT
|
|---|
| 31 | S TMP("EEOACK",$J,9)=" USER MAKING CHANGE: "_EEOOF
|
|---|
| 32 | S TMP("EEOACK",$J,10)=" Reassignment of counselor security"
|
|---|
| 33 | S TMP("EEOACK",$J,12)="THIS UPDATE AFFECTED THE FOLLOWING CASE(S): ",CNO=16
|
|---|
| 34 | S (CNO,CNQ)=0 F S CNQ=$O(EEOC(CNQ)) Q:CNQ'>0 D
|
|---|
| 35 | .S CNO=CNO+1,TMP("EEOACK",$J,CNU)=" "_(CNO)_") "_$P($G(^EEO(785,CNQ,5)),U,6),CNU=CNU+1 D TEST
|
|---|
| 36 | K EEOMRK
|
|---|
| 37 | S XMTEXT="TMP(""EEOACK"",$J,"
|
|---|
| 38 | S XMY("G.UPLINK_DATA_SERVER")=""
|
|---|
| 39 | S XMSUB="EEO COMPLAINT STATUS CHANGE NOTIFICATION"
|
|---|
| 40 | S XMDUZ=.5 D ^XMD Q
|
|---|
| 41 | TEST S (EEOCUR,EEOPREV,EEOOF)=""
|
|---|
| 42 | S Y=$P(EEOC(CNQ),U,4) D DD^%DT S EEOFOR=Y
|
|---|
| 43 | S:$P(EEOC(CNQ),U,6)>0 EEOCUR=$P(^VA(200,$P(EEOC(CNQ),U,6),0),U)
|
|---|
| 44 | S:$P(EEOC(CNQ),U,7)>0 EEOPREV=$P(^VA(200,$P(EEOC(CNQ),U,7),0),U)
|
|---|
| 45 | I $P(EEOC(CNQ),U,5)'>0 D
|
|---|
| 46 | .S TMP("EEOACK",$J,CNU)=" Deleted Date of Formal Complaint: "_EEOFOR
|
|---|
| 47 | .S TMP("EEOACK",$J,CNU+1)=" Counselor Currently Assigned: "_EEOCUR
|
|---|
| 48 | .S TMP("EEOACK",$J,CNU+2)=" * The couselor may now edit informal information for this case"
|
|---|
| 49 | .S TMP("EEOACK",$J,CNU+3)=" ",CNU=CNU+4,EEOPT=0
|
|---|
| 50 | I $P(EEOC(CNQ),U,5)=1 S EEOCUR=$P(EEOC(CNQ),U,6),EEOPREV=EEOFOR D
|
|---|
| 51 | .S TMP("EEOACK",$J,CNU)=" Previously Assigned Counselor: "_EEOFOR
|
|---|
| 52 | .S TMP("EEOACK",$J,CNU+1)=" Counselor Currently Assigned: "_EEOCUR
|
|---|
| 53 | .S TMP("EEOACK",$J,CNU+2)=" ",CNU=CNU+3,EEOPT=0
|
|---|
| 54 | ;S:EEOCUR'="" XMY(EEOCUR)="" S:EEOPREV'="" XMY(EEOPREV)=""
|
|---|
| 55 | K EEOPREV,EEOCUR,EEOFOR Q
|
|---|
| 56 | KILL K XMY,EEOC,XMTEXT,XMSUB
|
|---|
