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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMP 2658 printed Apr 09, 2024@21:20:50 Page 2
FSCLMP ;SLC/STAFF-NOIS List Manager Protocol ;5/7/97 15:25
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
EDIT(TAG,ACCESS) ; from protocol menu on list templates FSC EDIT SINGLE CALL and FSC EDIT MULTIPLE CALLS
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("EDIT "_TAG,DUZ)
+3 Begin DoDot:1
+4 IF TAG="NEW"
DO NEW^FSCEL
QUIT
+5 IF TAG="OTHER"
DO OTHER^FSCLMPO
QUIT
+6 IF TAG="FORMAT"
DO STYLE^FSCLMPC
QUIT
+7 IF TAG="DUPLICATE"
DO DUP^FSCED
QUIT
+8 IF TAG="EDIT"
DO EDIT^FSCLMPE
QUIT
+9 IF TAG="STATUS"
DO STATUS^FSCLMPES
QUIT
+10 IF TAG="NOTE"
DO NOTE^FSCEN
QUIT
+11 IF TAG="CLOSE"
DO RES^FSCLMPE1
QUIT
+12 IF TAG="NEXT"
DO NEXT^FSCLMPCC
QUIT
+13 IF TAG="PREV"
DO PREV^FSCLMPCC
QUIT
+14 IF TAG="GOTO"
DO GOTO^FSCLMPCC
QUIT
+15 IF TAG="NOTIFY"
DO NOTIFY^FSCLMPN
QUIT
End DoDot:1
+16 QUIT
+17 ;
HIDDEN(TAG,ACCESS) ; from hidden protocol menu on list templates
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("HIDDEN "_TAG,DUZ)
+3 IF TAG="PRINT TEXT"
DO PT^FSCRU
QUIT
+4 IF TAG="PRINT SCREEN"
DO PS^FSCRU
QUIT
+5 IF TAG="USER"
DO USER^FSCLMPO
QUIT
+6 IF TAG="DEFINE LIST"
DO DL^FSCLMPO
QUIT
+7 IF TAG="INSTALLS"
DO IN^FSCSTUR
QUIT
+8 IF TAG="EXIT"
DO EXIT^FSCLMPO
QUIT
+9 QUIT
+10 ;
INSTALLS(TAG,ACCESS) ; from protocol menu on list template FSC INSTALLS
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("INSTALLS "_TAG,DUZ)
+3 Begin DoDot:1
+4 IF TAG="PACKAGE"
DO PACK^FSCSTUR
QUIT
+5 IF TAG="PATCH"
DO PATCH^FSCSTUP
QUIT
End DoDot:1
+6 SET VALMBG=1
+7 QUIT
LIST(TAG,ACCESS) ; from protocol menu on list template FSC LIST CALLS
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("LIST "_TAG,DUZ)
+3 IF TAG="NEW"
DO NEW^FSCEL
QUIT
+4 IF TAG="EDIT"
DO LC^FSCLMPE
QUIT
+5 IF TAG="VIEW"
DO LC^FSCLMPD
QUIT
+6 IF TAG="BATCH"
DO BLIST^FSCEB
QUIT
+7 IF TAG="QUERY"
DO QUERY^FSCLMPQQ
QUIT
+8 IF TAG="SELECT"
DO SELECT^FSCLMPQS
QUIT
+9 IF TAG="ADD"
DO ADD^FSCLMPQA
QUIT
+10 IF TAG="REMOVE"
DO REMOVE^FSCLMPQR
QUIT
+11 IF TAG="CHANGE"
DO LIST^FSCLMPC
QUIT
+12 IF TAG="SORT"
DO SORT^FSCLMPOS
QUIT
+13 IF TAG="SAVE"
DO ASLIST^FSCLMPS
QUIT
+14 IF TAG="NOTIFY"
DO NOTIFYL^FSCLMPN
QUIT
+15 QUIT
+16 ;
MODIFY(TAG,ACCESS) ; from protocol menu on list template FSC MODIFY LISTS
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("MODIFY "_TAG,DUZ)
+3 Begin DoDot:1
+4 IF TAG="NEW"
DO DEFINE^FSCLD
QUIT
+5 IF TAG="REBUILD"
DO LIST^FSCLMPD
QUIT
+6 IF TAG="EDIT"
DO RALL^FSCLDR
QUIT
+7 IF TAG="QUERY"
DO LD^FSCLMPE
QUIT
+8 IF TAG="CHANGE"
DO LD^FSCLMPC
QUIT
+9 IF TAG="SAVE"
DO ASLD^FSCLMPS
QUIT
End DoDot:1
+10 SET VALMBG=1
+11 QUIT
+12 ;
VIEW(TAG,ACCESS) ; from protocol menu on list template FSC VIEW CALLS
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO SETUP^FSCLMPU("VIEW "_TAG,DUZ)
+3 IF TAG="NEW"
DO NEW^FSCEL
QUIT
+4 IF TAG="FORMAT"
DO VIEW^FSCLMPC
QUIT
+5 IF TAG="EDIT"
DO VC^FSCLMPE
QUIT
+6 IF TAG="BATCH"
DO BVIEW^FSCEB
QUIT
+7 IF TAG="GOTO"
DO VC^FSCLMPC
QUIT
+8 IF TAG="NOTIFY"
DO NOTIFY^FSCLMPN
QUIT
+9 QUIT
