| 1 | FSCLMPE ;SLC/STAFF-NOIS List Manager Protocol Edit ;5/17/98 22:26
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LC ; 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 | ;
|
|---|
| 12 | VC ; 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 | ;
|
|---|
| 20 | EDIT ; 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 | ;
|
|---|
| 44 | LD ; 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
|
|---|
