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

Package: VA FileMan

Routine: DIUTL


Information

DIUTL ;GFT/GFT - TIMSON'S UTILITIES;24JAN2013

Source Information

Source file <DIUTL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 8 NOW^%DTC  YN^DICN  DEPEND^DIDGFTPT  $$FMTE^DILIBF  $$GET1^DIQ  EN^DIVR  ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 33

Package Total Caller Graph
VA FileMan 29 DDD  DIAU  DIAUTL  DIC1  DIC2  DICATT22  DICATTA  DICATTD  
DICATTD6  DICATTDD  DICATTDE  DICATTDK  DICATTUD  DICOMP  DIDH1  DIDU  
DIG  DIH  DIL  DIQ  DIQG  DIR1  DIR2  DIU0  
DIVR  DIVRPTR  DIX  ^DIA  ^DIAR(1.11  
National Drug File 1 ^PSNDF(50.68  
Pharmacy Data Management 1 ^PS(51.7  
Scheduling 1 ^SDEC(409.86  
Toolkit 1 XINDX51  

Entry Points

Name Comments DBIA/ICR reference
NAKED(DIUTLREF) ;The argument is evaluated and returned, while keeping the naked reference as it was!
DATE(Y) ;**CCO/NI RETURN A DATE
NOWINT() ;INTERNAL VERSION OF NOW
NOW() ;EXTERNAL NOW
WP(DIRF,DIWL,DIWR,DIWPUT) ;Write out WP field (if any) stored at DIRF, or put it in DIWPUT array
QWP
IJ(N) ;build I & J arrays given subfile number N
0
DIVR(DI,DIFLD) ;verify
CHKPT(DIFILE,DIDA,DIUTLMSG,DIFLG) ;check if any entries points to this entry(DIDA) in file (DIFILE)
  • ICR #6876
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    NOW^%DTC NOWINT+2
    YN^DICN DIVR+10
    DEPEND^DIDGFTPT CHKPT+11
    $$FMTE^DILIBF DATE+2
    $$GET1^DIQ CHKPT+12
    EN^DIVR DIVR+13
    ^DIWP WP+4
    ^DIWW WP+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"SINCE YOU HAVE CHANGED THE FIELD DEFINITION,",!,"EXISTING '",$P(^(0),U),"' DATA WILL NOW BE CHECKED FOR INCONSISTENCIES",!,"OK"
    • Line Location: DIVR+9

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 0+1, 0+2, 0+3, DIVR+2!, DIVR+6
    ^DIC - [#1] 0, CHKPT+7, CHKPT+15
    ^TMP("DIUTL" CHKPT+8!, CHKPT+10, CHKPT+14, CHKPT+16, CHKPT+19, CHKPT+22!
    ^UTILITY("DIVR" DIVR+2!
    ^UTILITY($J WP+2!, WP+6

    Label References

    Name Line Occurrences
    $$DATE NOW+1
    $$NOWINT NOW+1
    0 0+6
    IJ DIVR+3
    QWP WP+4

    Naked Globals

    Name Field # of Occurrence
    ^( WP+4
    ^("GL" 0
    ^(0 NAKED+3, DIVR+6, DIVR+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % NOWINT+1~, NOWINT+2, DIVR+10*
    %D NOWINT+1~
    %H NOWINT+1~
    %I NOWINT+1~
    %M NOWINT+1~
    %Y NOWINT+1~
    A IJ+1~, 0+1*, 0+2, 0+3, 0+6, DIVR+1~, DIVR+5*
    A1 WP+1~, WP+4*
    C CHKPT+9~, CHKPT+17*, CHKPT+19*
    D WP+1~, WP+4*
    DA DIVR+1~, DIVR+5*
    DDC DIVR+1~, DIVR+6*
    DI DIVR~, DIVR+3, DIVR+5, DIVR+6, DIVR+13
    DICL DIVR+1~
    DIDA CHKPT~, CHKPT+6, CHKPT+11, CHKPT+12, CHKPT+14, CHKPT+16, CHKPT+19
    DIFILE CHKPT~, CHKPT+6, CHKPT+7, CHKPT+11, CHKPT+12, CHKPT+14, CHKPT+16, CHKPT+19
    DIFLD DIVR~, DIVR+5, DIVR+6, DIVR+13
    DIFLG CHKPT~, CHKPT+10*, CHKPT+17
    DIOEND QWP+1!
    DIRF WP~, WP+4
    DIUTLMSG CHKPT~, CHKPT+6, CHKPT+8, CHKPT+10, CHKPT+17, CHKPT+19
    DIUTLNKD NAKED+1~, NAKED+2*, NAKED+3*, NAKED+6
    DIUTLREF NAKED~, NAKED+4, NAKED+5
    DIVZ DIVR+1~
    DIW WP+1~
    DIWF WP+1~, WP+3*
    DIWI WP+1~
    DIWL WP~, WP+3*
    DIWPUT WP~, WP+3, WP+5, WP+6
    DIWR WP~, WP+3*
    DIWT WP+1~
    DIWTC WP+1~
    DIWX WP+1~
    DN WP+1~, WP+4, QWP
    DQI DIVR+1~
    DR DIVR+1~, DIVR+6*, DIVR+7, DIVR+8
    GFTIEN CHKPT+9~
    GFTRCR CHKPT+9~
    I WP+1~, IJ+1!, 0+2*, 0+3*, 0+4*, 0+6, DIVR+1~, CHKPT+9~, CHKPT+13*, CHKPT+14*
    , CHKPT+15, CHKPT+16, CHKPT+17, CHKPT+19
    I( 0+5*
    I(0 0*, DIVR+4
    I(1 0+6*
    IOM WP+3*
    J IJ+1!, 0+5*, DIVR+1~, CHKPT+9~, CHKPT+15*, CHKPT+16*, CHKPT+17, CHKPT+19
    J( 0+5*
    J("" DIVR+5
    J(0 IJ+2*, 0, 0+1, 0+2, 0+6*
    L CHKPT+9~, CHKPT+18*, CHKPT+19*
    N IJ~, IJ+2*, 0+5, 0+6*, DIVR+1~
    PUT CHKPT+9~
    Q DIVR+1~, DIVR+5*
    S DIVR+1~, DIVR+5*
    T DIVR+1~, DIVR+8*
    U WP+4, 0+3, DIVR+2, DIVR+6, DIVR+9, CHKPT+15
    V DIVR+1~, DIVR+5*
    W DIVR+1~
    X NOWINT+1~, NOW+1~*, WP+1~, WP+4*, CHKPT+9~, CHKPT+10*, CHKPT+11, CHKPT+12*
    Y DATE~, DATE+2, DIVR+1~, CHKPT+9~, CHKPT+15*, CHKPT+17
    Y(0 DIVR+6*
    Z WP+1~, DIVR+1~, DIVR+6*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All