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

Package: Alcohol Chemical Dependency

Routine: ACDPURG


Information

ACDPURG ;IHS/ADC/EDE/KML - PURGE DAT OVER 3 YEARS OLD;

Source Information

Source file <ACDPURG.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 (C,NOW)^%DTC  YN^DICN  ^DIK  
Alcohol Chemical Dependency 2 EN1^ACDCLN  $$DD^ACDFUNC  

Entry Points

Name Comments DBIA/ICR reference
K ;
EN ;EP

External References

Name Field # of Occurrence
C^%DTC EN+16
NOW^%DTC EN+16
EN1^ACDCLN EN+24
$$DD^ACDFUNC EN+16, EN+19
YN^DICN EN+21
^DIK EN+23, EN+26, EN+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,*7,"Headquarters may not purge data."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,*7,"Area's may not purge data."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"I will purge data older than ",$$DD^ACDFUNC(ACDTO)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,$P(^DIC(4,DA,0),U)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"OK to continue"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!,"First let me break the Visit Links....."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"Now purging old prevention data"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !!,"Now purging old intervention data"
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDPD - [#9002170.7] Classic Fileman Calls
^ACDVIS - [#9002172.1] Classic Fileman Calls
^ACDINTV - [#9002173.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDINTV - [#9002173.5] EN+28
^ACDINTV("B" EN+28
^ACDINTV("C" EN+12
^ACDPD - [#9002170.7] EN+26
^ACDPD("B" EN+26
^ACDPD("C" EN+11
^ACDVIS - [#9002172.1] EN+23
^ACDVIS("B" EN+23
^ACDVIS("C" EN+10
^DIC(4 - [#4] EN+2, EN+19

Label References

Name Line Occurrences
K EN+6, EN+7, EN+13, EN+21

Naked Globals

Name Field # of Occurrence
^("BWP" EN+23
^(0 EN+26, EN+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+21*
>> ACD6DIG EN+6, EN+7
ACDAT EN+23*, EN+26*, EN+28*, K+2!
>> ACDDA EN+10*, EN+11*, EN+12*
ACDFR K+1!
ACDPGM EN+9!, K+1!
ACDPGM( EN+10*, EN+11*, EN+12*, EN+19, EN+23, EN+26, EN+28
ACDPGM(0 EN+13
ACDTO EN+16*, EN+19, EN+23, EN+26, EN+28, K+1!
DA EN+19*, EN+23*, EN+26*, EN+28*, K+1!
DIC K+1!
DIK EN+23*, EN+26*, EN+28*, K+1!
DT EN+16*
DUZ(2 EN+2
IOF EN+2
U EN+2, EN+19, EN+26, EN+28
>> X EN+16
>> X1 EN+16*
>> X2 EN+16*
Y K+1!
Info |  Source |  Call 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