| 1 | EEOENF ;HISC/JWR - Informal complaint edit/manipulation routine ;Apr 20, 1995
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;**1,2,5**;Apr 27, 1995
|
|---|
| 3 | D ^EEOEOSE
|
|---|
| 4 | EN S DIC("S")="I $$SCREEN^EEOEOSE(Y)"
|
|---|
| 5 | K DO,DD,D0 S DIC="^EEO(785,",DIC(0)="AELMQZ"
|
|---|
| 6 | S DIC("A")="Select NAME: "
|
|---|
| 7 | S DLAYGO=785 D ^DIC Q:X="^"!(X="") S EEOY=Y,DA=+Y,DIE=785
|
|---|
| 8 | I $TR($G(^EEO(785,DA,4)),"^")'="" D MSG^EEOEOE2 W ! G EN
|
|---|
| 9 | I $P(Y,U,3)=1 S DR="98///"_DUZ_";14///"_DUZ_";2///"_EEOYSPTR D ^DIE
|
|---|
| 10 | E I '$D(^EEO(785.5,+EEOY)) K DR S EEOFF=785,EEOCTF=785.5 D GATHER
|
|---|
| 11 | K DR D CASENO^EEOEOSE
|
|---|
| 12 | S (DLAYGO,DIE)=785.5,(DA,DINUM)=+EEOY
|
|---|
| 13 | D DRS S EEOFF=785.5,EEOCTF=785 D GATHER,FORMAL^EEOEOE2
|
|---|
| 14 | D COUNTER K EEOY,DIC,DR,DIE,DLAYGO,CN,EEO2,EEOF,EEOINF W ! G EN
|
|---|
| 15 | GATHER ;
|
|---|
| 16 | Q:$P($G(^EEO(EEOFF,+EEOY,1)),U,3)>0!($P($G(^EEO(EEOCTF,+EEOY,1)),U,3)>0)
|
|---|
| 17 | F EEO=0,1,5,6 S EEOF(EEO)=$G(^EEO(EEOCTF,+EEOY,EEO))
|
|---|
| 18 | F EEO=0,1,5,6 S EEOINF(EEO)=$G(^EEO(EEOFF,+EEOY,EEO))
|
|---|
| 19 | F EEO=8,9,10 I $D(^EEO(EEOCTF,+EEOY,EEO)) S EEO1=0 F S EEO1=$O(^(EEO,EEO1)) Q:EEO1'>0 D
|
|---|
| 20 | .S EEOF(EEO,EEO1)=$G(^EEO(EEOCTF,+EEOY,EEO,EEO1,0))
|
|---|
| 21 | F EEO=8,9,10 I $D(^EEO(EEOFF,+EEOY,EEO)) S EEO1=0 F S EEO1=$O(^EEO(EEOFF,+EEOY,EEO,EEO1)) Q:EEO1'>0 D
|
|---|
| 22 | .S EEOINF(EEO,EEO1)=$G(^EEO(EEOFF,+EEOY,EEO,EEO1,0))
|
|---|
| 23 | F EEO=0,1,5,6 D
|
|---|
| 24 | .Q:$G(EEOINF(EEO))=$G(EEOF(EEO))
|
|---|
| 25 | .F CN=1:1:35 D
|
|---|
| 26 | ..Q:$P(EEOINF(EEO),U,CN)=$P(EEOF(EEO),U,CN)
|
|---|
| 27 | ..Q:'$D(^DD(785,"GL",EEO,CN))
|
|---|
| 28 | ..S FLD=$O(^DD(785,"GL",EEO,CN,"")) Q:'$D(^DD(EEOFF,FLD))
|
|---|
| 29 | ..S DR=FLD_"///"_$S($P(EEOINF(EEO),U,CN)]"":"/"_$P(EEOINF(EEO),U,CN),1:"@") D DIE
|
|---|
| 30 | D MULT Q
|
|---|
| 31 | DIE Q:$G(DR)="" S DIE=EEOCTF,DA=+EEOY D ^DIE K DR Q
|
|---|
| 32 | MULT ; wipe out multiples and reset based on new values
|
|---|
| 33 | F EEO=8,9,10 D
|
|---|
| 34 | . K ^EEO(EEOCTF,+EEOY,EEO)
|
|---|
| 35 | . N %X,%Y
|
|---|
| 36 | . S %X="^EEO(EEOFF,+EEOY,EEO,",%Y="^EEO(EEOCTF,+EEOY,EEO,"
|
|---|
| 37 | . D %XY^%RCR
|
|---|
| 38 | Q
|
|---|
| 39 | MULT01 ;
|
|---|
| 40 | S MFILE=$S(EEO=8:785.2,EEO=10:786,EEO=9:785.1,1:"")
|
|---|
| 41 | S EEOMU=$P(^EEO(MFILE,$P(EEOINF(EEO,EEO2),U),0),U)
|
|---|
| 42 | Q
|
|---|
| 43 | DRS ;
|
|---|
| 44 | S DR="I $G(^EEO(785,DA,""SEC""))'>0 S Y=.01;98////"_DUZ_";14////"_DUZ_";.01///"_$P(EEOY,U,2)_";1.3///"_EEOZ_";2///"_EEOYSPTR D ^DIE K DR
|
|---|
| 45 | S DR=".01;14;.05:.091;5;6.5;6;8;I X="""" S Y=14.5;9:13;14.5;14.7;15.7;I X="""" S Y=16.05;15.9;16.05;16.07;15.5;15;18.5;17.5;19;61;60.5;60;16.5;16.7",DIE=785
|
|---|
| 46 | I $G(EEOCOUNS)'>0&($P($G(^EEO(785,D0,1)),U,3)>0) D STATE
|
|---|
| 47 | I $G(EEOCOUNS)>0!($P($G(^EEO(785,D0,1)),U,3)'>0) D DRS1
|
|---|
| 48 | DIEDR D ^DIE K DR,DIE,EEOFF,EEOCFT,EEOMU Q
|
|---|
| 49 | DRS1 ;Entry point to update informal complaint file (785.5)
|
|---|
| 50 | S DIE=785.5,DR=".01;14;.05:.091;5;6.5;6;8;I X="""" S Y=14.5;9:13;14.5;14.7;15.7;I X="""" S Y=16.05;15.9;16.05;16.07;15.5;15;18.5;17.5;19;61;60.5;60;16.5;16.7"
|
|---|
| 51 | Q
|
|---|
| 52 | COUNTER ;
|
|---|
| 53 | Q:'$D(^EEO(785.5)) Q:'$D(^(785.5,"ANODE"))
|
|---|
| 54 | S EEOIEN=$O(^EEO(785.5,"ANODE","")),(EOIEN,EONUM)=0
|
|---|
| 55 | F S EOIEN=$O(^EEO(785.5,"ANODE",EOIEN)) Q:EOIEN'>0 D
|
|---|
| 56 | . S EONUM=EONUM+1 Q
|
|---|
| 57 | S:EONUM'>0 (EONUM,EEOIEN)=""
|
|---|
| 58 | S $P(^EEO(785.5,0),U,3)=EEOIEN,$P(^(0),U,4)=EONUM
|
|---|
| 59 | K EEOIEN,EOIEN,EONUM Q
|
|---|
| 60 | STATE ;
|
|---|
| 61 | S $P(EEO9NF,"*",79)=""
|
|---|
| 62 | W !!,EEO9NF,!,"This complaint is now formal, further edits will not be reflected on the",!,"Complaint Intake Form (FORM 0210).",!,EEO9NF,!! K EEO9NF
|
|---|
