| [613] | 1 | FSCOPT ;SLC/STAFF-NOIS Option Routing ;1/13/98 14:03
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NEW ; from FSCOP
|
|---|
| 5 | N VALMAR
|
|---|
| 6 | W !!
|
|---|
| 7 | D NEW^FSCEL
|
|---|
| 8 | D TMP^FSCOPTU
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | EDIT ; from FSCOP
|
|---|
| 12 | N CALL,OK
|
|---|
| 13 | D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
|
|---|
| 14 | I 'OK Q
|
|---|
| 15 | D SETUP1^FSCOPTU(+CALL)
|
|---|
| 16 | S XQORM("B")="Edit"
|
|---|
| 17 | D EDIT^FSCLM("EVALUES")
|
|---|
| 18 | D CLEANUP^FSCOPTU
|
|---|
| 19 | D TMP^FSCOPTU
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | CLOSE ; from FSCOP
|
|---|
| 23 | N CALL,OK
|
|---|
| 24 | D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK,"I '$P(^(0),U,4)")
|
|---|
| 25 | I 'OK Q
|
|---|
| 26 | D SETUP1^FSCOPTU(+CALL)
|
|---|
| 27 | S XQORM("B")="Close Call"
|
|---|
| 28 | D EDIT^FSCLM("EVALUES")
|
|---|
| 29 | D CLEANUP^FSCOPTU
|
|---|
| 30 | D TMP^FSCOPTU
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | VIEW ; from FSCOP
|
|---|
| 34 | N CALL,DISPLAY,FSCSTYLE,OK,VALMAR K ^TMP("FSC LIST",$J)
|
|---|
| 35 | S FSCLNAME=" ",FSCLNUM=0,FSCL0="",FSCQUERY=1
|
|---|
| 36 | S OK=1 F D Q:'OK
|
|---|
| 37 | .N CALL D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
|
|---|
| 38 | .I 'OK Q
|
|---|
| 39 | .S ^TMP("FSC LIST",$J,+CALL)=""
|
|---|
| 40 | D
|
|---|
| 41 | .I '$O(^TMP("FSC LIST",$J,0)) Q
|
|---|
| 42 | .D EXPAND^FSCUX(.FSCSTYLE,.OK,"DETAILED") I 'OK Q
|
|---|
| 43 | .S FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
|
|---|
| 44 | .S DISPLAY="" I '($D(FSCSTYLE("E"))!$D(FSCSTYLE("T"))) D DISPLAY^FSCRU(.DISPLAY,.OK) I 'OK Q
|
|---|
| 45 | .I DISPLAY="DEVICE" D DEV^FSCRU("","^TMP(""FSC LIST"",$J,","DQ^FSCRUDQ","NOIS Report",.OK) Q
|
|---|
| 46 | .D SETUP^FSCRPTS I $D(VALMQUIT) Q
|
|---|
| 47 | .D VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)
|
|---|
| 48 | D CLEANUP^FSCOPTU
|
|---|
| 49 | D TMP^FSCOPTU
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | LIST ; from FSCOP
|
|---|
| 53 | N FSCEDIT,FSCEXIT,FSCLIMIT,LIST,OK
|
|---|
| 54 | S LIST=$P($$DEFLIST^FSCU(DUZ),U,2)
|
|---|
| 55 | D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
|
|---|
| 56 | I 'OK Q
|
|---|
| 57 | D LIST^FSCLM($P(LIST,U,2))
|
|---|
| 58 | D CLEANUP^FSCOPTU
|
|---|
| 59 | D TMP^FSCOPTU
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | QUERY ; from FSCOP
|
|---|
| 63 | W !!
|
|---|
| 64 | N FSCEDIT,FSCEXIT,FSCLIMIT,OK,VALMAR
|
|---|
| 65 | S FSCLNAME="Temporary List",FSCLNUM=0,OK=1,FSCQUERY=1
|
|---|
| 66 | D BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add")
|
|---|
| 67 | I 'OK Q
|
|---|
| 68 | D LIST^FSCLM(FSCLNAME)
|
|---|
| 69 | D CLEANUP^FSCOPTU
|
|---|
| 70 | D TMP^FSCOPTU
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
| 73 | REPORTS ; from FSCOP
|
|---|
| 74 | D REPORTS^FSCRPTS
|
|---|
| 75 | D CLEANUP^FSCOPTU
|
|---|
| 76 | D TMP^FSCOPTU
|
|---|
| 77 | Q
|
|---|
| 78 | ;
|
|---|
| 79 | FILES ; from FSCOP
|
|---|
| 80 | D FILES^FSCUEDIT
|
|---|
| 81 | D TMP^FSCOPTU
|
|---|
| 82 | Q
|
|---|
| 83 | ;
|
|---|
| 84 | EVENT ; from FSCOP
|
|---|
| 85 | D FILES^FSCUEDS
|
|---|
| 86 | D TMP^FSCOPTU
|
|---|
| 87 | Q
|
|---|
