source: WorldVistAEHR/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEOE1.m@ 1582

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1EEOEOE1 ;HISC/CFB/CJM - CLOSE/DELETE;8/20/96
2 ;;2.0;EEO Complaint Tracking;**10**;AUG-20-96
3 ;
4CLOSE ;Close a case
5 S (DIC("A"),EEOYQ)="Close case."
6 S (DIC,DIE)="^EEO(785,",DIC(0)="AEQMZ"
7 S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,Y,1)),U,3)>0!(+$G(^EEO(785,Y,""SEC""))'>0)"
8 S (EEOYDICA,DIC("A"))="Select Complainant: "
9 S DR="48;49" D CALL("CLOSE") G:$G(DA)>0 CLOSE
10 Q
11 ;
12UNDELETE K DR
13UND S DIC("S")="I $P($G(^EEO(785,+Y,12)),U,2)'=""""" S DIC="^EEO(785,"
14 S DIC(0)="AEMQZ",DIC("A")=" Select Complainant to be Undeleted: "
15 S:$G(DR)["48.5" DIC("A")="Another: "
16 S DR="48.5///@",DIE=785 D CALL("UNDELETE") I $G(DA)>0 S $P(^XTMP("EEOX",DA,12),U,2)="@" W !!," Undeleted!!",!! G UND
17 K Y,DIE,DR,DA,DIC Q
18 ;
19DELETE ;Delete a specific EEO case
20 W !!,"** Deleting a complaint does not actually cause its deletion, but does",!,"prevent it from being viewed. It can be undeleted later if necessary. **",!
21 S (DIC("A"),EEOYQ)="Delete a specific EEO case."
22 S (DIC,DIE)="^EEO(785,",DIC(0)="AEQMZ"
23 S (EEOYDICA,DIC("A"))="Select Complainant: "
24 S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,Y,1)),U,3)>0!(+$G(^EEO(785,Y,""SEC""))'>0)"
25 S DR="48.5///D" D CALL("DELETE") I $G(DA)>0 W !!," Deleted!!",!! G DELETE
26 Q
27REOP ;
28 S EEOYQ="Reopen a previously closed case "
29 S (DIC,DIE)="^EEO(785,",DIC(0)="AEQMZ"
30 S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $G(^EEO(785,Y,4))'="""" I $G(^(4))'=""^"""
31 S (EEODICA,DIC("A"))="Select Complainant: "
32 S DR="48///@;49///@" D CALL("REOPEN") I $G(DA)>0 S ^XTMP("EEOX",DA,4)="@^@" G REOP
33 Q
34CALL(ACTION) ;
35 K DA D ^DIC Q:X="^"!("")!($D(DTOUT))
36 S EOY=+Y
37 Q:+Y'>0
38 I (ACTION'="CLOSE")!($G(^EEO(785,+Y,4))="^")!($G(^EEO(785,+Y,4))="") I '$$RUSURE(ACTION) S DA=0 Q
39 S DA=+Y,DR=DR_";62///X"
40 D ^DIE
41 D CASENO^EEOEOSE
42 S ^XTMP("EEOX",0)=DT+5_"^"_DT
43 Q
44 ;
45RUSURE(ACTION) ;asks user for confirmation if ACTION should be taken, returns 0 or 1
46 ;
47 N ANS
48ASK W !!,"Are you sure you want to "_ACTION_" this complaint YES/"
49 S ANS=""
50 R ANS:30
51 I '$T Q 0
52 I ANS="" Q 1
53 I ANS["?" W !!,"Enter YES or NO" G ASK
54 I ANS["^" Q 0
55 I "Yy"[$E(ANS,1) Q 1
56 I "Nn"[$E(ANS,1) Q 0
57 Q 0
Note: See TracBrowser for help on using the repository browser.