- EEOEOE2 ;HISC/JWR - Station Edit routine ;11/9/92 11:12
- ;;2.0;EEO Complaint Tracking;**1**;Apr 27, 1995
- SEC ;Sets up security variables
- D ^EEOEOSE I FAIL Q
- STATION ;Enter/edit station EEO information.
- S EEOYQ="Enter/edit station EEO information.",EDIT=1
- S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y)"
- S (DIC,DIE)="^EEO(785,",DLAYGO=785,DIC("A")="Select NAME: "
- S (EEODIC(0),DIC(0))=$S(XQY0["Informal":"AEFLQM",1:"AEFQM")
- W !!,EEOYQ
- K Y,DA D NEW^EEOEEDIE
- ENT ;I $P(Y,U,3)=1,$D(DUZ) S EEONAME=$P($G(^VA(200,DUZ,0)),U),(EEOY,DA)=+Y,DR="14///"_EEONAME_";98///"_DUZ,DIC(0)="L" D ^DIE S Y=EEOY
- I Y=""!(Y<0) K DA,DR,DLAYGO Q
- S DIC(0)=EEODIC(0),(DA,EDA)=+Y L +^EEO(785,EDA):0 I '$T W *7,!!,"ANOTHER PERSON IS EDITING THIS RECORD" K DA,EDA G STATION
- D CASENO^EEOEOSE
- I $D(^EEO(785,DA,4)) I $P(^EEO(785,DA,4),U)'="" D MSG G ELK
- I $D(^EEO(785,DA,12)) I $P(^EEO(785,DA,12),U,2)'="" D DMSG G ELK
- I XQY0["Investigation" D DR2,^EEOEEDIE G ELK
- I XQY0["Formal" D DR1,^EEOEEDIE,CASENO^EEOEOSE G ELK
- ELK ;Unlocks edited file and returns to selection prompt
- L -^EEO(785,EDA)
- G STATION
- DR1 ;DR for Enter/Edit Formal Complaint Info
- S DR="S EEOC1=$P($G(^EEO(785,DA,1)),U,3);16;D SAVE^EEOEOE2;14;16.3;16.75;20;15.3;I X="""" S Y=21;15.4;21:23;24;26;41;40.5;40.6;1.2;23.5;44;45;46.2;I X="""" S Y=46.5;71;46.4;I X="""" S Y=46.5;71.5;46.5;47;I X="""" S Y="""";72"
- Q
- DR2 ;DR for Enter/Edit Investigator Information
- S DR="29;27.5;32" K EEOTYPE
- S DR(2,785.03)="1;D TYPE^EEOUTIL1;2//^S X=EEOTYPE;B I EEOTYPE'[""RETI"" S Y=4;7;4"
- DR3 Q
- MSG ;Comes here if case closed
- W !!,?3,*7,"***** This case has been closed. Editing is not allowed. ***** " Q
- DMSG W !!,?3,*7,"***** This case has been deleted *****",!
- Q
- FORMAL ;Entry for counselor to change status of complaint to formal
- ;Q:$G(EEOCOUNS)'>0
- Q:$P($G(^EEO(785,D0,1)),U,3)>0
- W !!! S DIR("A",1)=" Do you want to change the Status of this Complaint to Formal?",DIR("A",2)=" Note that once changed you may not be able to further edit some Informal ",DIR("A")=" Change to Formal Status ",DIR("A",3)=" "
- S DIR("A",3)=" information and will not be able to access this complaint through the ",DIR("A",4)=" counselor's edit options.",DIR("A",5)=" "
- S DIR(0)="Y^AO",DIR("B")="NO" D ^DIR
- I Y=1 S DR="16;S EEOYI=X I X="""" S Y="""";62///X",(DIC,DIE)=785,DA=D0,DIC(0)="AMNQZ" D ^DIE,CASENO^EEOEOSE K DR S DR="16////"_EEOYI,DIE=785.5 D ^DIE
- K DIE,DIR,DIC,DR Q
- SAVE S EEOC2=$P($G(^EEO(785,DA,1)),U,3)
- I $G(EEOC1)>0&(EEOC2="") S EEOC(DA)=DA_"^"_DUZ_"^"_DT_"^"_EEOC1_"^^"_+^EEO(785,DA,1)
- K EEOC1,EEOC2 Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOEOE2 2591 printed Feb 18, 2025@23:17:26 Page 2
- EEOEOE2 ;HISC/JWR - Station Edit routine ;11/9/92 11:12
- +1 ;;2.0;EEO Complaint Tracking;**1**;Apr 27, 1995
- SEC ;Sets up security variables
- +1 DO ^EEOEOSE
- IF FAIL
- QUIT
- STATION ;Enter/edit station EEO information.
- +1 SET EEOYQ="Enter/edit station EEO information."
- SET EDIT=1
- +2 SET (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y)"
- +3 SET (DIC,DIE)="^EEO(785,"
- SET DLAYGO=785
- SET DIC("A")="Select NAME: "
- +4 SET (EEODIC(0),DIC(0))=$SELECT(XQY0["Informal":"AEFLQM",1:"AEFQM")
- +5 WRITE !!,EEOYQ
- +6 KILL Y,DA
- DO NEW^EEOEEDIE
- ENT ;I $P(Y,U,3)=1,$D(DUZ) S EEONAME=$P($G(^VA(200,DUZ,0)),U),(EEOY,DA)=+Y,DR="14///"_EEONAME_";98///"_DUZ,DIC(0)="L" D ^DIE S Y=EEOY
- +1 IF Y=""!(Y<0)
- KILL DA,DR,DLAYGO
- QUIT
- +2 SET DIC(0)=EEODIC(0)
- SET (DA,EDA)=+Y
- LOCK +^EEO(785,EDA):0
- IF '$TEST
- WRITE *7,!!,"ANOTHER PERSON IS EDITING THIS RECORD"
- KILL DA,EDA
- GOTO STATION
- +3 DO CASENO^EEOEOSE
- +4 IF $DATA(^EEO(785,DA,4))
- IF $PIECE(^EEO(785,DA,4),U)'=""
- DO MSG
- GOTO ELK
- +5 IF $DATA(^EEO(785,DA,12))
- IF $PIECE(^EEO(785,DA,12),U,2)'=""
- DO DMSG
- GOTO ELK
- +6 IF XQY0["Investigation"
- DO DR2
- DO ^EEOEEDIE
- GOTO ELK
- +7 IF XQY0["Formal"
- DO DR1
- DO ^EEOEEDIE
- DO CASENO^EEOEOSE
- GOTO ELK
- ELK ;Unlocks edited file and returns to selection prompt
- +1 LOCK -^EEO(785,EDA)
- +2 GOTO STATION
- DR1 ;DR for Enter/Edit Formal Complaint Info
- +1 SET DR="S EEOC1=$P($G(^EEO(785,DA,1)),U,3);16;D SAVE^EEOEOE2;14;16.3;16.75;20;15.3;I X="""" S Y=21;15.4;21:23;24;26;41;40.5;40.6;1.2;23.5;44;45;46.2;I X="""" S Y=46.5;71;46.4;I X="""" S Y=46.5;71.5;46.5;47;I X="""" S Y="""";72"
- +2 QUIT
- DR2 ;DR for Enter/Edit Investigator Information
- +1 SET DR="29;27.5;32"
- KILL EEOTYPE
- +2 SET DR(2,785.03)="1;D TYPE^EEOUTIL1;2//^S X=EEOTYPE;B I EEOTYPE'[""RETI"" S Y=4;7;4"
- DR3 QUIT
- MSG ;Comes here if case closed
- +1 WRITE !!,?3,*7,"***** This case has been closed. Editing is not allowed. ***** "
- QUIT
- DMSG WRITE !!,?3,*7,"***** This case has been deleted *****",!
- +1 QUIT
- FORMAL ;Entry for counselor to change status of complaint to formal
- +1 ;Q:$G(EEOCOUNS)'>0
- +2 if $PIECE($GET(^EEO(785,D0,1)),U,3)>0
- QUIT
- +3 WRITE !!!
- SET DIR("A",1)=" Do you want to change the Status of this Complaint to Formal?"
- SET DIR("A",2)=" Note that once changed you may not be able to further edit some Informal "
- SET DIR("A")=" Change to Formal Status "
- SET DIR("A",3)=" "
- +4 SET DIR("A",3)=" information and will not be able to access this complaint through the "
- SET DIR("A",4)=" counselor's edit options."
- SET DIR("A",5)=" "
- +5 SET DIR(0)="Y^AO"
- SET DIR("B")="NO"
- DO ^DIR
- +6 IF Y=1
- SET DR="16;S EEOYI=X I X="""" S Y="""";62///X"
- SET (DIC,DIE)=785
- SET DA=D0
- SET DIC(0)="AMNQZ"
- DO ^DIE
- DO CASENO^EEOEOSE
- KILL DR
- SET DR="16////"_EEOYI
- SET DIE=785.5
- DO ^DIE
- +7 KILL DIE,DIR,DIC,DR
- QUIT
- SAVE SET EEOC2=$PIECE($GET(^EEO(785,DA,1)),U,3)
- +1 IF $GET(EEOC1)>0&(EEOC2="")
- SET EEOC(DA)=DA_"^"_DUZ_"^"_DT_"^"_EEOC1_"^^"_+^EEO(785,DA,1)
- +2 KILL EEOC1,EEOC2
- QUIT