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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACDCLN

Package: Alcohol Chemical Dependency

Routine: ACDCLN


Information

ACDCLN ;IHS/ADC/EDE/KML - UTILITY TO CLEAN BROKEN LINKS IN DB;

Source Information

Source file <ACDCLN.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 (,ENALL)^DIK  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Alcohol Chemical Dependency 3 ACDDFAC  ACDPURG  ACDVSAVE  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP
D ;Check link files first
EN1 ;EP skip re-indexing
VDEL ;Delete unreferenced visit
V1 ;
V ;Delete visits in ^ACDVIS last

External References

Name Field # of Occurrence
^DIK VDEL+1, D+3, D+4, D+9
ENALL^DIK EN+4, EN+5, EN+6, EN+7, EN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Re-indexing files now.....",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!!!!,"Cleaning up entries from the CDMIS visit file that are not being"
  • Line Location: V+1
Function Call: WRITE
  • Prompt: !,"referenced."
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !,"Total of ",ACDCNT," visits deleted."
  • Line Location: V+4
Function Call: WRITE
  • Prompt: !,"Entry ",ACDVISP," is unreferenced...deleting now."
  • Line Location: V1+5
Function Call: WRITE
  • Prompt: !,"Now cleaning up incomplete data links..."
  • Line Location: D+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+11
Function Call: WRITE
  • Prompt: !,"Total of ",ACDCNT," entries deleted."
  • Line Location: D+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDIIF - [#9002170] Classic Fileman Calls
^ACDTDC - [#9002171] Classic Fileman Calls
^ACDCS - [#9002172] Classic Fileman Calls
^ACDVIS - [#9002172.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS - [#9002172] D+5, D+7, D+8
^ACDCS("C" EN+6!, V1+4
^ACDIIF - [#9002170] D+3
^ACDIIF("C" EN+4!, V1+2
^ACDTDC - [#9002171] D+4
^ACDTDC("C" EN+5!, V1+3
^ACDVIS - [#9002172.1] V+3, D+3, D+4, D+7
^ACDVIS("B" EN+7!
^ACDVIS("C" EN+8!

Label References

Name Line Occurrences
D EN1+4
V1 V+3
VDEL V1+5

Naked Globals

Name Field # of Occurrence
^( D+3, D+4, D+5
^("BWP" D+3, D+4, D+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACD80 V+5!
ACDCNT V+3*, V+4, V+5!, VDEL+2*, D+1*, D+3*, D+4*, D+9*, D+12
ACDDA V+5!
ACDDO V+5!, D+3*, D+4*, D+5*, D+7, D+8, D+9
ACDOK V+5!, V1+1*, V1+2*, V1+3*, V1+4*, V1+5
ACDVISP V+3*, V+5!, V1+2, V1+3, V1+4, V1+5, VDEL+1, D+3*, D+4*, D+5*
, D+7
>> D D+6*, D+7*, D+8*, D+9
DA V+5!, VDEL+1*, D+3*, D+4*, D+9*
DIK EN+4*, EN+5*, EN+6*, EN+7*, EN+8*, V+5!, VDEL+1*, D+3*, D+4*, D+9*
DIK(1 EN+4*, EN+5*, EN+6*, EN+7*, EN+8*
U D+8
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 |  Naked Globals |  Local Variables |  All