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: DIAUTL

Package: VA FileMan

Routine: DIAUTL


Information

DIAUTL ;GFT/MSC - UTILITIES TO TURN ON AND TO ANALYZE FILEMAN AUDITS; May 01, 2023@08:35:32

Source Information

Source file <DIAUTL.m>

Entry Points

Name Comments DBIA/ICR reference
TURNONDD(DIFILE,DIMODE) ;Turn on DATA DICTIONARY AUDITING --THIS IS NOW A NO-OP, BECAUSE WE AUDIT ALL DD CHANGES IN FILE .6!!!!
DISP(DDB) ;DISPLAY DD CHANGES FROM ^DDA SINCE DATE 'DDB'
DISP1 ;CALLED FROM ^UTILITY($J,1) TO HOLD LONG PRINTOUT FROM A SINGLE FILE'S DATA DICTIONARY AUDIT
DDHD
TURNON(DIFILE,FLDS,DIMODE,DICOND) ;Turn on AUDITING
  • ICR #4397
    • Status: Active
    • Usage: Supported
    ON
    CHANGED(FILE,FLDS,FLAGS,ARRAY,START,END) ;
  • ICR #4397
    • Status: Active
    • Usage: Supported
    FIRST(DIQGR,ENTRY,FLDS) ;
    LAST(DIQGR,ENTRY,FLDS) ;returns DATE^USER who most recently touched any of the FLDS in ENTRY in File DIQGR
  • ICR #4397
    • Status: Active
    • Usage: Supported
    LOF
    E
    DATE(FILE,FIELD) ;
    USER(FILE,FIELD) ;
    VALUE(FILE,FIELD,TU) ;FILE' can be SubFile
    PRIOR(FILE,ENTRY,FIELD,OUT) ;
    FLDSINC(DIQGR,DR,DIAUTLF) ;is DIAUTLF within DR? -- from 'DIQGQ' routine
    NOGOT
    RANGE
    GOT
    DD(X)
    202
    GET(FIL,DA,DATE,TMP,FIELD) ;BUILD 'TMP' ARRAY AS OF DATE
    SUBFILES
    L
    Q
    DIA(DAT,FILE,X,DIAUTLEX) ;FROM DIQG AND DIQGQ
    D(ON)
    DDAUDIT(B0,DA,A0,A1,A2) ;B0=File or SubFile, DA=Field, A0=Attribute #, A1=Old value, A2=New value

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DISP+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISP+8
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DISP+9
    Function Call: READ
    • Variable: Y
    • Timeout: DTIME
    • Line Location: DISP1+1
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: DISP1+1
    Function Call: WRITE
    • Prompt: #
    • Condition for execution: $Y
    • Line Location: DISP1+1
    Function Call: WRITE
    • Prompt: DDHD,!
    • Line Location: DDHD+1
    Function Call: WRITE
    • Prompt: "FIELD ATTRIBUTE USER NUMBER",!
    • Line Location: DDHD+2
    Function Call: WRITE
    • Prompt: "------------------------------------------------------------------------------",!
    • Line Location: DDHD+3
    Info |  Source |  Entry Points |  Interaction Calls