- 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 Jan 18, 2025@03:19:21 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