Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls