FSCLMP ;SLC/STAFF-NOIS List Manager Protocol ;5/7/97  15:25
 ;;1.1;NOIS;;Sep 06, 1998
 ;
EDIT(TAG,ACCESS) ; from protocol menu on list templates FSC EDIT SINGLE CALL and FSC EDIT MULTIPLE CALLS
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("EDIT "_TAG,DUZ)
 D
 .I TAG="NEW" D NEW^FSCEL Q
 .I TAG="OTHER" D OTHER^FSCLMPO Q
 .I TAG="FORMAT" D STYLE^FSCLMPC Q
 .I TAG="DUPLICATE" D DUP^FSCED Q
 .I TAG="EDIT" D EDIT^FSCLMPE Q
 .I TAG="STATUS" D STATUS^FSCLMPES Q
 .I TAG="NOTE" D NOTE^FSCEN Q
 .I TAG="CLOSE" D RES^FSCLMPE1 Q
 .I TAG="NEXT" D NEXT^FSCLMPCC Q
 .I TAG="PREV" D PREV^FSCLMPCC Q
 .I TAG="GOTO" D GOTO^FSCLMPCC Q
 .I TAG="NOTIFY" D NOTIFY^FSCLMPN Q
 Q
 ;
HIDDEN(TAG,ACCESS) ; from hidden protocol menu on list templates
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("HIDDEN "_TAG,DUZ)
 I TAG="PRINT TEXT" D PT^FSCRU Q
 I TAG="PRINT SCREEN" D PS^FSCRU Q
 I TAG="USER" D USER^FSCLMPO Q
 I TAG="DEFINE LIST" D DL^FSCLMPO Q
 I TAG="INSTALLS" D IN^FSCSTUR Q
 I TAG="EXIT" D EXIT^FSCLMPO Q
 Q
 ;
INSTALLS(TAG,ACCESS) ; from protocol menu on list template FSC INSTALLS
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("INSTALLS "_TAG,DUZ)
 D
 .I TAG="PACKAGE" D PACK^FSCSTUR Q
 .I TAG="PATCH" D PATCH^FSCSTUP Q
 S VALMBG=1
 Q
LIST(TAG,ACCESS) ; from protocol menu on list template FSC LIST CALLS
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("LIST "_TAG,DUZ)
 I TAG="NEW" D NEW^FSCEL Q
 I TAG="EDIT" D LC^FSCLMPE Q
 I TAG="VIEW" D LC^FSCLMPD Q
 I TAG="BATCH" D BLIST^FSCEB Q
 I TAG="QUERY" D QUERY^FSCLMPQQ Q
 I TAG="SELECT" D SELECT^FSCLMPQS Q
 I TAG="ADD" D ADD^FSCLMPQA Q
 I TAG="REMOVE" D REMOVE^FSCLMPQR Q
 I TAG="CHANGE" D LIST^FSCLMPC Q
 I TAG="SORT" D SORT^FSCLMPOS Q
 I TAG="SAVE" D ASLIST^FSCLMPS Q
 I TAG="NOTIFY" D NOTIFYL^FSCLMPN Q
 Q
 ;
MODIFY(TAG,ACCESS) ; from protocol menu on list template FSC MODIFY LISTS
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("MODIFY "_TAG,DUZ)
 D
 .I TAG="NEW" D DEFINE^FSCLD Q
 .I TAG="REBUILD" D LIST^FSCLMPD Q
 .I TAG="EDIT" D RALL^FSCLDR Q
 .I TAG="QUERY" D LD^FSCLMPE Q
 .I TAG="CHANGE" D LD^FSCLMPC Q
 .I TAG="SAVE" D ASLD^FSCLMPS Q
 S VALMBG=1
 Q
 ;
VIEW(TAG,ACCESS) ; from protocol menu on list template FSC VIEW CALLS
 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
 D SETUP^FSCLMPU("VIEW "_TAG,DUZ)
 I TAG="NEW" D NEW^FSCEL Q
 I TAG="FORMAT" D VIEW^FSCLMPC Q
 I TAG="EDIT" D VC^FSCLMPE Q
 I TAG="BATCH" D BVIEW^FSCEB Q
 I TAG="GOTO" D VC^FSCLMPC Q
 I TAG="NOTIFY" D NOTIFY^FSCLMPN Q
 Q