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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DIAUTL

Package: VA FileMan

Routine: DIAUTL


Information

DIAUTL ;GFT/MSC - UTILITIES TO TURN ON AND TO ANALYZE FILEMAN AUDITS;18MAR2016

Source Information

Source file <DIAUTL.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 14 ^%DT  NOW^%DTC  BLD^DIALOG  P^DICATTA  DT^DICRW  ^DIE  EN2^DIKZ  $$FNO^DILIBF  
CLOSE^DIO4  EN1^DIP  $$ROOT^DIQGU  ^DIR  IN^DIU0  ($$DATE,IJ)^DIUTL  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Registration 8 DG53726A  DG712PST  DG737PRE  DG837PST  DG876PST  DG902PST  DG944PST  DGNDSU  
Lab Service 4 LR425  LRJSAU  LRJSAU60  LRJSMLA1  
VA FileMan 4 DIAU  DINIT220  DIQG  DIQGQ  
PCE Patient Care Encounter 3 PXKMAIN  PXVRPC4  PXVRPC8  
Scheduling 3 SDB  SDNACT  SDREACT  
DSS Extracts 2 ECXPHVE  ECXPROEE  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^%DT D+2
    NOW^%DTC CHANGED+8
    ^%ZIS DISP+2
    BLD^DIALOG TURNONDD+2, TURNONDD+4, TURNON+3, 202
    P^DICATTA DDAUDIT+6
    DT^DICRW TURNON+5
    ^DIE ON+6
    EN2^DIKZ ON+8
    $$FNO^DILIBF GET+4
    CLOSE^DIO4 DISP+9
    EN1^DIP DISP+7
    $$ROOT^DIQGU FLDSINC+7
    ^DIR DISP+8
    IN^DIU0 ON+7
    $$DATE^DIUTL DDHD
    IJ^DIUTL DDAUDIT+3

    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
    • Timeout: DTIME
    • Variable: Y
    • 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
    Routine Call
    • DIALOG
    • Line Location:
      • TURNONDD+2
      • TURNONDD+4
      • TURNON+3
      • 202
    Routine Call
    • DIE
    • Line Location:
      • ON+6
    Routine Call
    • %ZIS
    • Line Location:
      • DISP+2
    Routine Call
    • DIR
    • Line Location:
      • DISP+8

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( TURNONDD+5*, TURNON+6, ON+1, ON+8, LOF+3, VALUE+3, RANGE, DD, L+2
    ^DD(0 DDAUDIT+4
    ^DDA - [#.6] DISP+3
    ^DIA - [#1.1] CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+15, LOF+6, E, E+1, VALUE+5, PRIOR+2, GET+5
    , SUBFILES, SUBFILES+1, L, L+3, D
    ^DIC - [#1] TURNONDD+4, DDHD, CHANGED+6

    Label References

    Name Line Occurrences
    $$D DIA+4, DIA+5
    $$DD FLDSINC+7
    $$FLDSINC TURNON+6, CHANGED+13, E
    202 FLDSINC+5, FLDSINC+7
    DDAUDIT ON+7
    DDHD DISP+4
    E LOF+4, LOF+6
    GOT FLDSINC+8
    L GET+5, SUBFILES+1
    LOF FIRST+1
    ON TURNON+6
    PRIOR VALUE+4
    Q GET+5, L+2
    RANGE FLDSINC+8
    TURNON ON+3
    VALUE DATE+1, USER+1

    Naked Globals

    Name Field # of Occurrence
    ^( RANGE+1, D+1
    ^("DIK" ON+8
    ^("UP" VALUE+3
    ^(0 ON+2, E+2, L+1, L+2
    ^(2 PRIOR+2
    ^(4.1 E+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % CHANGED+8, DDAUDIT+1~
    %D DDAUDIT+1~
    %DT D+2~*
    %I CHANGED+3~
    %T DDAUDIT+1~
    A0 DDAUDIT~, DDAUDIT+4*
    A1 DDAUDIT~, DDAUDIT+5!
    A2 DDAUDIT~, DDAUDIT+5
    ARRAY CHANGED~, CHANGED+4, CHANGED+12, CHANGED+15
    B GET+3~
    B0 DDAUDIT~, DDAUDIT+3
    B3 DDAUDIT+1~
    BY DISP+1~, DISP+5*
    C GET+3~, L+2*
    D TURNON+1~, ON+2*, ON+3, CHANGED+3~, CHANGED+10*, CHANGED+11, CHANGED+15, VALUE+5*, GET+3~, GET+4*
    , GET+5, SUBFILES*, SUBFILES+1, L, L+2
    D0 TURNON+1~, VALUE+2
    DA TURNON+1~, ON+4*, ON+5, FLDSINC+7, GET~, GET+4, DDAUDIT~
    DA(1 ON+4*
    DAT GET+3~, L+1*, L+3, L+5, L+6, L+7, DIA~, DIA+4
    DATE GET~, L+3, L+6
    >> DC DISP1+1, DISP1+2*
    DDA DDAUDIT+1~
    DDB DISP~, DISP+3, DDHD
    DDHD DISP+1~, DDHD*, DDHD+1
    DDIO DISP+1~, DISP+2*
    DDIOST DISP+1~, DISP+2*, DISP+8, DISP1+1
    DDTOUT DISP+1~, DISP+3, DISP+8*, DISP1+1*
    DENTRY LOF~, LOF+1*, LOF+3*, LOF+5*, LOF+6*, E
    DHD DISP+1~
    DI TURNON+1~
    DIA DISP+1~, DISP+3*, DISP+5, DDHD
    DIACMP VALUE+1~, VALUE+4
    DIACMP( VALUE+5
    DIAUGOT FLDSINC+3~, FLDSINC+4*, FLDSINC+8, RANGE+2*, RANGE+4*
    DIAUTLEX DIA~, D
    DIAUTLF FLDSINC~, FLDSINC+1, RANGE+3
    DIC DISP+1~, DISP+5*, TURNON+1~
    >> DICMX VALUE+5
    DIE TURNON+1~, ON+4*
    DIEZS TURNON+1~, TURNON+4*
    DIFIELD TURNON+1~, TURNON+6*, ON+1, ON+4, ON+7
    DIFILE TURNONDD~, TURNONDD+3, TURNONDD+4, TURNONDD+5, TURNON~, TURNON+4, TURNON+6, ON+1, ON+4, ON+7
    , ON+8
    DIFIXPT DISP+1~*
    DIFIXPTH DISP+1~
    DILAST LOF~, LOF+1*, LOF+7, E, E+3*, E+4*
    DIMODE TURNONDD~, TURNONDD+1!*, TURNONDD+2, TURNONDD+5, TURNON~, TURNON+2!*, TURNON+3, ON+1, ON+3, ON+4
    , ON+5, ON+7
    DIOBEG DISP+1~, DISP+6*
    DIOEND DISP+1~, DISP+6*
    DIOLD ON~, ON+1*, ON+7
    DIOSL DISP+1~, DISP+6*
    DIQGCP FLDSINC+3~, FLDSINC+4*
    DIQGDD FLDSINC+3~, FLDSINC+4*, FLDSINC+7
    DIQGR FIRST~, LAST~, LOF+3, LOF+6, E, E+1, FLDSINC~, FLDSINC+5, FLDSINC+6, FLDSINC+7*
    DIQGXDC FLDSINC+3~, FLDSINC+4*, RANGE
    DIQGXDD FLDSINC+3~, FLDSINC+6*, RANGE+1
    DIQGXDF FLDSINC+3~, FLDSINC+8*, RANGE+3
    DIQGXDI FLDSINC+3~, FLDSINC+8*
    DIQGXDN FLDSINC+3~, FLDSINC+8*, RANGE*, RANGE+1*, RANGE+2, RANGE+3
    DIQUIET TURNON+1~, TURNON+4*
    DIR DISP+8~
    DIR(0 DISP+8*
    DIRUT DISP+8~
    >> DN DISP1+1*
    DQ TURNON+1~
    DR TURNON+1~, ON+4*, FLDSINC~, FLDSINC+1, FLDSINC+2, FLDSINC+8, RANGE
    DT DISP+5, DDAUDIT+2
    DTIME DISP1+1
    DUZ DDAUDIT+2
    E CHANGED+3~, CHANGED+11*, CHANGED+12, CHANGED+13, CHANGED+15, LOF~, E*, E+1, PRIOR+1~, PRIOR+2*
    , GET+3~, GET+5*, SUBFILES*, SUBFILES+1*, L, L+3, L+5, L+7
    END CHANGED~, CHANGED+8*, CHANGED+9
    ENTRY FIRST~, LAST~, LOF+1, LOF+2, LOF+3, LOF+5, LOF+6, E, VALUE+1~, VALUE+2*
    , VALUE+3*, VALUE+4, PRIOR~, PRIOR+2
    F CHANGED+3~, CHANGED+13*, CHANGED+15, LOF~, LOF+3*, VALUE+3*, GET+3~, GET+4*, GET+5, L+1*
    , L+2*, L+3, L+4, L+5, L+7
    FIELD DATE~, DATE+1, USER~, USER+1, VALUE~, VALUE+3*, VALUE+4, PRIOR~, PRIOR+2, GET~
    , L+4
    FIL GET~, GET+4, L+4
    FILE CHANGED~, CHANGED+6, CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+13, CHANGED+15, DATE~, DATE+1, USER~
    , USER+1, VALUE~, VALUE+3*, VALUE+4, VALUE+5, PRIOR~, PRIOR+2, GET+3~, GET+4*, GET+5
    , SUBFILES, SUBFILES+1, L, L+1, L+3, DIA~, D
    FLAGS CHANGED~, CHANGED+5*, CHANGED+12, CHANGED+14, CHANGED+15
    FLD GET+3~, L+1*, L+2*, L+3, L+4, L+5, L+7
    FLDS DISP+5*, TURNON~, TURNON+6, CHANGED~, CHANGED+13, FIRST~, LAST~, E
    FR DISP+1~, DISP+3*
    GLO CHANGED+3~, CHANGED+6*, CHANGED+14
    I VALUE+1~, VALUE+3*, L+1*, L+2*, L+3, L+5, L+7, DDAUDIT+1~
    IO DISP+2, DISP+4, DISP+9
    IOF DISP+4, DISP+9
    ION DISP+2
    IOSL DISP+6
    IOST DISP+2
    J DDAUDIT+1~
    L DISP+1~, DISP+5*, LOF~, E+2*, E+3, E+4
    LOF FIRST+1~*, LAST+1~*, E, E+3, E+4
    ON D~, D+1
    OUT PRIOR~
    OUT( PRIOR+2*
    POP DISP+1~, DISP+2
    S D+1~*, D+3*
    START CHANGED~, CHANGED+7*, CHANGED+9
    T CHANGED+3~, CHANGED+9*, CHANGED+10, GET+3~, L+2*
    TMP GET~, GET+2, GET+4, GET+5, L+3, L+5, L+7
    TO DISP+1~, DISP+5*
    TU VALUE~, VALUE+5
    U DDHD, ON+2, CHANGED+11, CHANGED+13, E, E+1, E+2, VALUE+5, PRIOR+2, L
    , L+1, L+2, L+3, L+5, L+7, D, D+3, DDAUDIT+4
    X TURNON+1~, VALUE+5*, VALUE+6*, FLDSINC+5~, FLDSINC+7~, DD~, 202, DIA~, DIA+4, D*
    , D+1, D+4
    X(1 FLDSINC+5*, FLDSINC+7*
    Y DISP1+1*, D+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All