source: FOIAVistA/tag/r/NOIS-FSC/FSCOPT.m@ 719

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1FSCOPT ;SLC/STAFF-NOIS Option Routing ;1/13/98 14:03
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NEW ; from FSCOP
5 N VALMAR
6 W !!
7 D NEW^FSCEL
8 D TMP^FSCOPTU
9 Q
10 ;
11EDIT ; 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 ;
22CLOSE ; 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 ;
33VIEW ; 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 ;
52LIST ; 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 ;
62QUERY ; 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 ;
73REPORTS ; from FSCOP
74 D REPORTS^FSCRPTS
75 D CLEANUP^FSCOPTU
76 D TMP^FSCOPTU
77 Q
78 ;
79FILES ; from FSCOP
80 D FILES^FSCUEDIT
81 D TMP^FSCOPTU
82 Q
83 ;
84EVENT ; from FSCOP
85 D FILES^FSCUEDS
86 D TMP^FSCOPTU
87 Q
Note: See TracBrowser for help on using the repository browser.