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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call