source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPE.m@ 789

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

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1FSCLMPE ;SLC/STAFF-NOIS List Manager Protocol Edit ;5/17/98 22:26
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LC ; from FSCLMP
5 I '@VALMAR W !,"No calls to Edit.",! H 2 Q
6 N CHOICE,DEFAULT,OK
7 S CHOICE="1-"_+@VALMAR,DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
8 I $O(^TMP("FSC SELECT",$J,"EVALUES",0)) D EDIT^FSCLM("EVALUES")
9 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
10 Q
11 ;
12VC ; from FSCLMP
13 N CHOICE,DEFAULT,OK,OLDFMT K OLDFMT
14 S CHOICE=$G(^TMP("FSC SELECT",$J,"VVALUES")),DEFAULT=CHOICE D SELECT^FSCUL(CHOICE,"",DEFAULT,"EVALUES",.OK)
15 I $O(^TMP("FSC SELECT",$J,"EVALUES",0)) M OLDFMT=FSCFMT K FSCEDIT,FSCFMT D EDIT^FSCLM("EVALUES")
16 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
17 K FSCFMT M FSCFMT=OLDFMT I '$G(FSCEXIT),$G(FSCEDIT) D ENTRY^FSCLMV,HEADER^FSCLMV
18 Q
19 ;
20EDIT ; from FSCLMP
21 N DIR,X,Y K DIR
22 S DIR(0)="SAMO^BASIC:BASIC;DUPLICATE:DUPLICATE;PERSONAL:PERSONAL;WORKLOAD:WORKLOAD;ALL:ALL"
23 S DIR("A")="Select (B)asic, (A)ll, (W)orkload, (P)ersonal, or (D)uplicate: "
24 S DIR("?",1)="Enter BASIC to edit the module, specialist, and priority."
25 ;S DIR("?",2)="Enter DESCRIPTION to edit the request description."
26 S DIR("?",2)="Enter ALL to edit all of the entry information on the call. Note: The"
27 S DIR("?",3)="location and date opened cannot be edited (you may cancel a call by"
28 S DIR("?",4)="changing its status to cancelled)."
29 S DIR("?",5)="Enter WORKLOAD to edit workload."
30 S DIR("?",6)="Enter PERSONAL to edit personal fields on this call."
31 S DIR("?",7)="Enter DUPLICATE to associate this call with another call."
32 S DIR("?")="^D HELP^FSCU(.DIR)"
33 S DIR("??")="FSC U1 NOIS"
34 D ^DIR K DIR
35 I $D(DIRUT) Q
36 I Y="BASIC" D BASIC^FSCLMPE1 Q
37 I Y="DESCRIPTION" D DESC^FSCLMPE1 Q
38 I Y="WORKLOAD" D WKLD^FSCLMPE1 Q
39 I Y="ALL" D ALL^FSCLMPE1 Q
40 I Y="DUPLICATE" D PRIMARY^FSCLMPEA Q
41 I Y="PERSONAL" D PFIELDS^FSCLMPE1 Q
42 Q
43 ;
44LD ; from FSCLMP
45 I '$$CHECK^FSCLMPM(FSCLNUM,DUZ) W !,"You cannot edit this list.",$C(7) H 2 Q
46 I "AM"'[$P(^FSC("LIST",FSCLNUM,0),U,3) W !,"This list does not use a query definition.",$C(7) H 2 Q
47 I '($D(@VALMAR)#2) S @VALMAR="" D INSERT^FSCLMPM Q
48 N DIR,X,Y K DIR
49 S DIR(0)="SAMO^REPLACE:REPLACE;EDIT:EDIT;INSERT:INSERT;DELETE:DELETE"
50 S DIR("A")="Select (E)dit a line, (I)nsert lines, (D)elete lines, or (R)eplace all: "
51 S DIR("?",1)="Enter EDIT to replace a single line in the definition."
52 S DIR("?",2)="Enter INSERT to add additional lines after a selected line."
53 S DIR("?",3)="Enter DELETE to delete one or more lines."
54 S DIR("?",4)="Enter REPLACE to enter a new query definition."
55 S DIR("?")="^D HELP^FSCU(.DIR)"
56 S DIR("??")="FSC U1 NOIS"
57 D ^DIR K DIR
58 I $D(DIRUT) Q
59 I Y="EDIT" D EDIT^FSCLMPM Q
60 I Y="INSERT" D INSERT^FSCLMPM Q
61 I Y="DELETE" D DELETE^FSCLMPM Q
62 I Y="REPLACE" D Q
63 .N CHOICE,CNT,DEF,DESC,LINE,NEWDEF,NEWLINE,OK,PREOP,QDESC K DEF,DESC,NEWDEF,QDESC ; not scoped
64 .D REPLACE^FSCLDR(FSCLNAME,FSCLNUM)
65 Q
Note: See TracBrowser for help on using the repository browser.