Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XM8P52

Package: MailMan

Routine: XM8P52


Information

XM8P52 ;BP/BDT - set locks for options; Feb 21, 2024@07:35:55

Source Information

Source file <XM8P52.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 TURNON^DIAUTL  FILE^DIE  

Entry Points

Name Comments DBIA/ICR reference
POST ; Post rouitne for XM*8*52
BACKOUT ; backout patch section. This wil be rollback the original data before the patch.
SETAUDTS ; set AUDIT for FILES/FIELDS
SETAUDT(XUFILE,XUFIELD,KFL) ;set Audit for a field
BACKOUTF ; backout Audit fields
PRINTFLS ;backing up patch data for the listed AUDIT files/fields
PRINTFL(XUFILE,XUFIELDS) ;backing up patch data for a AUDIT single file/fields
FILES ; List files and field to set AUDIT
SETLOCKS(XULOCK) ; set LOCK for OPTIONS
SETLOCK(XUOP,XULOCK) ; set LOCK for OPTION
LISTLOCKS ;
LISTLOCK(XUOP) ; LOCK for OPTION
OPTIONS ; lock for options

External References

Name Field # of Occurrence
TURNON^DIAUTL SETAUDT+7
FILE^DIE SETLOCK+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"FILE: ",?8,XUFILE,?15," FIELD :",XUFIELD
  • Line Location: PRINTFL+3
Function Call: WRITE
  • Prompt: ?30,"AUDIT SET: ",$G(^DD(XUFILE,XUFIELD,"AUDIT"),"n")
  • Line Location: PRINTFL+4
Function Call: WRITE
  • Prompt: !,XUOP," ",?32,$P($G(^DIC(19,XUIEN,0)),"^",6)
  • Line Location: LISTLOCK+6
Routine Call
  • DIE
  • Line Location:
    • SETLOCK+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( SETAUDT+6, PRINTFL+4
^DIC(19 - [#19] SETLOCK+4, LISTLOCK+4, LISTLOCK+6
^XTMP("XM52 MAILMAN PATCH FILES" SETAUDTS+2!, SETAUDT+6*, BACKOUTF+2!, SETLOCKS+2!, LISTLOCKS+2!

Label References

Name Line Occurrences
BACKOUTF BACKOUT+1
LISTLOCK LISTLOCKS+6
PRINTFL PRINTFLS+3
SETAUDT SETAUDTS+4, BACKOUTF+4
SETAUDTS POST+1
SETLOCK SETLOCKS+6
SETLOCKS POST+2, BACKOUT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
FDA SETLOCK+8!
FDA(19 SETLOCK+8*
IENS SETLOCK+1~, SETLOCK+6*, SETLOCK+8, LISTLOCK+1~
KFL SETAUDT~, SETAUDT+7
XUF SETAUDT+4~, SETAUDT+5*, SETAUDT+6, SETAUDT+7
XUFIELD SETAUDT~, SETAUDT+5, PRINTFL+2*, PRINTFL+3, PRINTFL+4
XUFIELDS PRINTFL~, PRINTFL+2
XUFILE SETAUDTS+3*, SETAUDTS+4, SETAUDT~, SETAUDT+6, SETAUDT+7, BACKOUTF+3*, BACKOUTF+4, PRINTFLS+1~, PRINTFLS+2*, PRINTFLS+3
, PRINTFL~, PRINTFL+3, PRINTFL+4
XUI SETAUDTS+1~*, SETAUDTS+3*, SETAUDT+4~*, SETAUDT+5*, BACKOUTF+1~*, BACKOUTF+3*, PRINTFLS+1~*, PRINTFLS+2*, PRINTFL+1~, PRINTFL+2*
, SETLOCKS+1~*, SETLOCKS+3*, LISTLOCKS+1~*, LISTLOCKS+3*
XUIEN SETLOCK+1~, SETLOCK+2*, SETLOCK+4*, SETLOCK+5, SETLOCK+6, LISTLOCK+1~, LISTLOCK+2*, LISTLOCK+4*, LISTLOCK+5, LISTLOCK+6
XULOCK SETLOCKS~, SETLOCKS+6, SETLOCK~, SETLOCK+7*, SETLOCK+8
XUOP SETLOCK~, SETLOCK+2*, SETLOCK+3, SETLOCK+4, LISTLOCK~, LISTLOCK+2*, LISTLOCK+3, LISTLOCK+4, LISTLOCK+6
XUOPTION SETLOCKS+1~, SETLOCKS+3*, SETLOCKS+4*, SETLOCKS+5*, SETLOCKS+6, LISTLOCKS+1~, LISTLOCKS+3*, LISTLOCKS+4*, LISTLOCKS+5*, LISTLOCKS+6
XUY SETAUDT+4~, PRINTFLS+1~, PRINTFL+1~*

Marked Items

Name Field # of Occurrence
$T(FILES+XUI SETAUDTS+3, BACKOUTF+3, PRINTFLS+2
$T(OPTIONS+XUI SETLOCKS+3, LISTLOCKS+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All