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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VSITKIL

Package: PCE Patient Care Encounter

Routine: VSITKIL


Information

VSITKIL ;ISL/ARS,JVS - NON INTERACTIVE CHECK DEPENDENT ENTRY COUNT ;May 17, 2017@12:01

Source Information

Source file <VSITKIL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
PCE Patient Care Encounter 2 ($$LOCK,UNLOCK)^PXLOCK  $$DEC^VSITKIL  
VA FileMan 1 (,IX)^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
PCE Patient Care Encounter 5 PXAPIDEL  PXCEVFI2  PXICLN9B  PXUTLSTP  VSITKIL  
Scheduling 3 SDCODEL  SDES2CANCELAPPT  SDESCANAPPT2  

Entry Points

Name Comments DBIA/ICR reference
KILL(VSITKDFN) ; ENTER THE VSIT YOU WANT CHECKED SET VSITKDFN=IEN
; VSITKDFN = Vsit Ien REQUIRED
  • ICR #1909
    • Status: Active
    • Usage: Controlled Subscription
    XIT ;exit
    DOC ; This routine checks the dependent entry count of the VISIT file for
    ; accuracy. If it is not correct it is replaced with a correct count
    ; The count is determined by scanning each of the VISIT related
    ; files for entries that point to that VISIT. A count is incremented
    ; each time a "hit" is made.
    ; The user can enter the visit IEN and if there is not any entries
    ; pointing to the entry it is deleted. (not logically but totally)
    DEC(VISIT,VISUAL) ;Test looking through DD to find fields pointing to the visit entries.
    ; VISIT=Visit ien to looked up and counted
    ; VISUAL= Set to 1 if you want and interactive display of what is found
    REF ;Look for all of the regular cross references and other
    REG ;Look for regular cross references
    QUE ;CHECK OUT CROSS REFERENCE
    COUNT(NPX,UPPER) ;COUNT ENTRIES IN FILES AND SUB-FILES
    COMP ;COMPARE DEC WITH WHAT UTILITY SAYS

    External References

    Name Field # of Occurrence
    ^DIK KILL+24
    IX^DIK KILL+19
    $$LOCK^PXLOCK KILL+7
    UNLOCK^PXLOCK KILL+9, KILL+26, KILL+28
    $$DEC^VSITKIL KILL+12, COMP+9, COMP+14

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"COUNT= "
    • Line Location: DEC+16
    Function Call: WRITE
    • Prompt: !!,"BAD COUNTS "_CNT
    • Line Location: COMP+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^AUPNVSIT - [#9000010] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] KILL+9, KILL+11, KILL+13*, KILL+15, KILL+16*, COMP+7, COMP+8
    ^DD( REG+3, REG+4, REG+5, QUE+5
    ^DD(9000010 DEC+10, DEC+12
    ^XTMP("AUPNVSIT" KILL+6

    Label References

    Name Line Occurrences
    $$COUNT QUE+12, COUNT+4
    QUE DEC+14
    REF DEC+14
    REG REF+4
    XIT KILL+5, KILL+6, KILL+8, KILL+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CNT COMP+4~, COMP+6*, COMP+13*, COMP+15
    COUNT DEC+6~, DEC+17, QUE+2*, QUE+12*
    DA KILL+17*, KILL+20!, KILL+23*, KILL+25!
    DEC COMP+4~, COMP+8*, COMP+10, COMP+11, COMP+12
    DEC1 COMP+4~, COMP+9*, COMP+10, COMP+11, COMP+12, COMP+14*
    DIK KILL+3~, KILL+18*, KILL+20!, KILL+22*, KILL+25!
    DR KILL+20!
    DUZ KILL+7, KILL+9, KILL+26, KILL+28
    ERROR KILL+3~, KILL+7
    FIELD DEC+6~, DEC+11*, DEC+12*, DEC+13, REF+3*, REG+3, REG+4, REG+5, REG+6, REG+7
    , QUE+2*
    FILE DEC+6~, DEC+9*, DEC+10*, DEC+12, DEC+13, REF+2*, REF+3, REG+3, REG+4, REG+5
    , REG+6, REG+7, QUE+2*, QUE+3*, QUE+4
    GET DEC+6~, REG+5*, REG+6, QUE+4*, QUE+5
    KYRON COMP+4~, COMP+7*, COMP+8, COMP+9, COMP+12, COMP+14
    LEVEL COUNT+1~, COUNT+3*, COUNT+4, COUNT+5
    LOCK KILL+3~, KILL+7*, KILL+8
    NPX COUNT~, COUNT+2*, COUNT+3, COUNT+4, COUNT+5
    PIECE DEC+6~, QUE+7*, QUE+8, QUE+9
    PX DEC+6~, QUE+11*, QUE+12
    REF DEC+6~, QUE+5*, QUE+6, QUE+7
    SNDPIECE DEC+6~, QUE+8*, QUE+11
    STOP DEC+6~, REG+2*, REG+6*
    SUB DEC+6~, REG+4*, REG+5, REG+6, QUE+4*
    TOTAL COUNT+1~, COUNT+4*, COUNT+5*, COUNT+6
    U KILL+11, KILL+13, KILL+15, KILL+16, REG+6, QUE+5, COMP+8
    UPPER COUNT~, COUNT+2
    VAUGHN DEC+6~, QUE+9*, QUE+10
    VDD DEC+7~, REF+5!
    VDD( DEC+13*, REF+2, REF+3
    VDDN DEC+7~, DEC+15!
    VDDN( REG+3*, REG+7*
    VDDR DEC+7~, DEC+15!
    VDDR( REG+6*, QUE+3, QUE+4
    VISIT DEC~
    VISUAL DEC~, DEC+16, COUNT+5
    VSITKDEC KILL+3~, KILL+11*, KILL+13*
    VSITKDFN KILL~, KILL+5, KILL+6, KILL+7, KILL+9, KILL+11, KILL+12, KILL+13, KILL+15, KILL+16
    , KILL+17, KILL+23, KILL+26, KILL+27!, KILL+28
    VSITKND KILL+3~, KILL+4*, KILL+12*, KILL+13, KILL+15, KILL+21, XIT+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All