source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMP.m@ 701

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1FSCLMP ;SLC/STAFF-NOIS List Manager Protocol ;5/7/97 15:25
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4EDIT(TAG,ACCESS) ; from protocol menu on list templates FSC EDIT SINGLE CALL and FSC EDIT MULTIPLE CALLS
5 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
6 D SETUP^FSCLMPU("EDIT "_TAG,DUZ)
7 D
8 .I TAG="NEW" D NEW^FSCEL Q
9 .I TAG="OTHER" D OTHER^FSCLMPO Q
10 .I TAG="FORMAT" D STYLE^FSCLMPC Q
11 .I TAG="DUPLICATE" D DUP^FSCED Q
12 .I TAG="EDIT" D EDIT^FSCLMPE Q
13 .I TAG="STATUS" D STATUS^FSCLMPES Q
14 .I TAG="NOTE" D NOTE^FSCEN Q
15 .I TAG="CLOSE" D RES^FSCLMPE1 Q
16 .I TAG="NEXT" D NEXT^FSCLMPCC Q
17 .I TAG="PREV" D PREV^FSCLMPCC Q
18 .I TAG="GOTO" D GOTO^FSCLMPCC Q
19 .I TAG="NOTIFY" D NOTIFY^FSCLMPN Q
20 Q
21 ;
22HIDDEN(TAG,ACCESS) ; from hidden protocol menu on list templates
23 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
24 D SETUP^FSCLMPU("HIDDEN "_TAG,DUZ)
25 I TAG="PRINT TEXT" D PT^FSCRU Q
26 I TAG="PRINT SCREEN" D PS^FSCRU Q
27 I TAG="USER" D USER^FSCLMPO Q
28 I TAG="DEFINE LIST" D DL^FSCLMPO Q
29 I TAG="INSTALLS" D IN^FSCSTUR Q
30 I TAG="EXIT" D EXIT^FSCLMPO Q
31 Q
32 ;
33INSTALLS(TAG,ACCESS) ; from protocol menu on list template FSC INSTALLS
34 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
35 D SETUP^FSCLMPU("INSTALLS "_TAG,DUZ)
36 D
37 .I TAG="PACKAGE" D PACK^FSCSTUR Q
38 .I TAG="PATCH" D PATCH^FSCSTUP Q
39 S VALMBG=1
40 Q
41LIST(TAG,ACCESS) ; from protocol menu on list template FSC LIST CALLS
42 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
43 D SETUP^FSCLMPU("LIST "_TAG,DUZ)
44 I TAG="NEW" D NEW^FSCEL Q
45 I TAG="EDIT" D LC^FSCLMPE Q
46 I TAG="VIEW" D LC^FSCLMPD Q
47 I TAG="BATCH" D BLIST^FSCEB Q
48 I TAG="QUERY" D QUERY^FSCLMPQQ Q
49 I TAG="SELECT" D SELECT^FSCLMPQS Q
50 I TAG="ADD" D ADD^FSCLMPQA Q
51 I TAG="REMOVE" D REMOVE^FSCLMPQR Q
52 I TAG="CHANGE" D LIST^FSCLMPC Q
53 I TAG="SORT" D SORT^FSCLMPOS Q
54 I TAG="SAVE" D ASLIST^FSCLMPS Q
55 I TAG="NOTIFY" D NOTIFYL^FSCLMPN Q
56 Q
57 ;
58MODIFY(TAG,ACCESS) ; from protocol menu on list template FSC MODIFY LISTS
59 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
60 D SETUP^FSCLMPU("MODIFY "_TAG,DUZ)
61 D
62 .I TAG="NEW" D DEFINE^FSCLD Q
63 .I TAG="REBUILD" D LIST^FSCLMPD Q
64 .I TAG="EDIT" D RALL^FSCLDR Q
65 .I TAG="QUERY" D LD^FSCLMPE Q
66 .I TAG="CHANGE" D LD^FSCLMPC Q
67 .I TAG="SAVE" D ASLD^FSCLMPS Q
68 S VALMBG=1
69 Q
70 ;
71VIEW(TAG,ACCESS) ; from protocol menu on list template FSC VIEW CALLS
72 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
73 D SETUP^FSCLMPU("VIEW "_TAG,DUZ)
74 I TAG="NEW" D NEW^FSCEL Q
75 I TAG="FORMAT" D VIEW^FSCLMPC Q
76 I TAG="EDIT" D VC^FSCLMPE Q
77 I TAG="BATCH" D BVIEW^FSCEB Q
78 I TAG="GOTO" D VC^FSCLMPC Q
79 I TAG="NOTIFY" D NOTIFY^FSCLMPN Q
80 Q
Note: See TracBrowser for help on using the repository browser.