Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EEOEEDIE

EEOEEDIE.m

Go to the documentation of this file.
  1. EEOEEDIE ;HISC/JWR - BREAKS DOWN "DR" STRINGS, AND HOLDS DATA FOR TRANSMISSION ;11/23/92 10:03
  1. ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
  1. ENTER ;Entry point, breaks down 'DR' strings, prepares a pre-edit session array of data from file 785
  1. K EEOEE S ^XTMP("EEOX",0)=DT+5_"^"_DT
  1. S EEOEE("DIE")=$S(+DIE:DIE,1:+$P(@(DIE_"0)"),"^",2)),EEOEE("DA")=DA,EEOEE("DR")=DR
  1. F AEE=1:1 S BEE=$P(EEOEE("DR"),";",AEE) Q:BEE="" D
  1. .I '(+BEE) S EEOEE("DR")=$P(EEOEE("DR"),";",1,AEE-1)_$S(AEE=1:"",1:";")_$P(EEOEE("DR"),";",AEE+1,AEE+999),AEE=AEE-1
  1. .I BEE[":" S CEE=$P(EEOEE("DR"),";",AEE),EEOEE("DR")=$P(EEOEE("DR"),";",1,AEE-1)_$S(AEE=1:"",1:";")_$P(BEE,":",1)_";"_$P(EEOEE("DR"),";",AEE+1,AEE+999) S DEE=$P(BEE,":",1) F S DEE=$O(^DD(785,DEE)) Q:DEE'>0 Q:DEE>$P(BEE,":",2) D
  1. ..S:'$D(EEOEE("TEST",DEE)) EEOEE("DR")=$P(EEOEE("DR"),";",1,AEE)_";"_DEE_";"_$P(EEOEE("DR"),";",AEE+1,AEE+999),EEOEE("TEST",DEE)=""
  1. F AEE=1:1 S BEE=$P(EEOEE("DR"),";",AEE) Q:BEE="" S EEOEE("TEST",+BEE)=""
  1. S EEOEE("ARRAY")="BEFORE" D ARRAY
  1. D DIE
  1. AFTER ;Sets up an array of the data after the edit session and looks for changes from prior to the edit session
  1. S EEOEE("ARRAY")="AFTER" D ARRAY
  1. S AEE="" F S AEE=$O(EEOEE("BEFORE",785,EEOEE("DA"),AEE)) Q:AEE="" D
  1. .I AEE>6&(AEE<12) D MUCMP Q
  1. .F BEE=1:1 S DEE=$P(EEOEE("BEFORE",785,EEOEE("DA"),AEE),"^",BEE) Q:$P(EEOEE("BEFORE",785,EEOEE("DA"),AEE),"^",BEE-1,999)=""&($P(EEOEE("AFTER",785,EEOEE("DA"),AEE),"^",BEE-1,999)="") S EEE=$P(EEOEE("AFTER",785,EEOEE("DA"),AEE),"^",BEE) D TEST
  1. K EEOEE Q
  1. SAVE ;Marks those records to be transmitted by the tasked option
  1. Q:'$D(DA)!($G(FYI)=$G(DA)) I $P($G(^EEO(785,DA,1)),U,3)>0 S DR="62///X",FYI=DA D ^DIE Q
  1. Q
  1. NEW ;Lookup on complaint
  1. D ^DIC Q:Y'>0 Q:DIC(0)'["L" N Y Q
  1. ARRAY ;Sets up before and after edit arrays to check for changed data
  1. S AEE="" F S AEE=$O(EEOEE("TEST",AEE)) Q:AEE="" D
  1. .Q:'$D(^DD(785,AEE,0))
  1. .S LEE=^DD(785,AEE,0) Q:$P(LEE,"^",2)["C" S NEE=$P(LEE,"^",4),PEE=$P(NEE,";",2),NEE=$P(NEE,";",1) I PEE=0 D MULT Q
  1. .S $P(EEOEE(EEOEE("ARRAY"),785,EEOEE("DA"),NEE),"^",PEE)=$P($G(^EEO(785,EEOEE("DA"),NEE)),"^",PEE)
  1. Q
  1. DIE ;The call to ^DIE
  1. N EEOEE D ^DIE Q
  1. MULT ;Makes multiples into test arrays during edits (like 'ARRAY' entry pt.)
  1. I '$D(^EEO(785,EEOEE("DA"),NEE,0)) S EEOEE(EEOEE("ARRAY"),785,EEOEE("DA"),NEE,1)="" Q
  1. S EEOG=0 F S EEOG=$O(^EEO(785,EEOEE("DA"),NEE,EEOG)) Q:EEOG'>0 D
  1. .S EEOEE(EEOEE("ARRAY"),785,EEOEE("DA"),NEE,EEOG)=$G(^EEO(785,EEOEE("DA"),NEE,EEOG,0))
  1. Q
  1. TEST ;Test to determine if data has been changed
  1. I DEE=EEE Q
  1. I DEE'="",EEE="" D
  1. .I AEE>6&(AEE<12) S:BEE=1 $P(^XTMP("EEOX",EEOEE("DA"),AEE,VEE),U,BEE)="@"_DEE D SAVE S:BEE'=1 $P(^XTMP("EEOX",EEOEE("DA"),AEE,VEE),U,BEE)="@" Q
  1. .E S X="@" S $P(^XTMP("EEOX",EEOEE("DA"),AEE),U,BEE)="@" D SAVE Q
  1. I DEE'=EEE S X=EEE D SAVE Q
  1. Q
  1. MUCMP ;Puts multipes data into variables to be tested for changed data
  1. S VEE=0 F S VEE=$O(EEOEE("BEFORE",785,EEOEE("DA"),AEE,VEE)) Q:VEE="" D
  1. .F BEE=1:1 S DEE=$P(EEOEE("BEFORE",785,EEOEE("DA"),AEE,VEE),"^",BEE) Q:$P(EEOEE("BEFORE",785,EEOEE("DA"),AEE,VEE),"^",BEE-1,999)=""&($P($G(EEOEE("AFTER",785,EEOEE("DA"),AEE,VEE)),"^",BEE-1,999)="") D
  1. ..S EEE=$P($G(EEOEE("AFTER",785,EEOEE("DA"),AEE,VEE)),"^",BEE) D TEST
  1. .K EEOEE("AFTER",785,EEOEE("DA"),AEE,VEE)
  1. ADD I $O(EEOEE("AFTER",785,EEOEE("DA"),AEE,0))>0 D SAVE Q