source: WorldVistAEHR/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEMAN.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1EEOEMAN ;HISC/JWR - EEO Manager options routine ;Apr 20, 1995
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3 ;;
4SYSPAR ;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
14EDINF ;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
23ACKNO 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
41TEST 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
56KILL K XMY,EEOC,XMTEXT,XMSUB
Note: See TracBrowser for help on using the repository browser.