[613] | 1 | FSCLMP ;SLC/STAFF-NOIS List Manager Protocol ;5/7/97 15:25
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | EDIT(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 | ;
|
---|
| 22 | HIDDEN(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 | ;
|
---|
| 33 | INSTALLS(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
|
---|
| 41 | LIST(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 | ;
|
---|
| 58 | MODIFY(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 | ;
|
---|
| 71 | VIEW(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
|
---|