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

Package: Alcohol Chemical Dependency

Routine: ACDRESET


Information

ACDRESET ;IHS/ADC/EDE/KML - EXTRACT RESET BY DATE RANGE;

Source Information

Source file <ACDRESET.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 3 DIE^ACDFMC  $$DD^ACDFUNC  D^ACDWRQ  
VA Fileman 2 ^DIC  YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
K ;
EN ;EP
PRV ;

External References

Name Field # of Occurrence
DIE^ACDFMC EN1+20, EN1+21, EN1+22, EN1+23, PRV+5
$$DD^ACDFUNC EN1+11, EN1+12
D^ACDWRQ EN1+9
^DIC EN1+6
YN^DICN EN1+2, EN1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,@IOF,"I will reset all CDMIS extract flags between the to: and from:",!,"dates you give me. Once the extract flags are reset for the records, the",!,"records may be re-extracted for transmission to the AREA or HQ."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,*7,*7,"WARNING.....",!,"THIS MAY CAUSE DUPLICATED ENTRIES IN THE AREA/HQ MACHINE..",!,"COORDINATE THE EXTRACT RESET WITH THE AREA/HEADQUARTERS.."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Answer yes to reset extract flags for 'ALL' programs."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"If you answer yes, I will show you a list of programs found."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Answer no, and you may then select individual programs."
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!!,"Resetting Extract flags for all CDMIS visit/prevention data"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !!,"from: ",$$DD^ACDFUNC(ACDFR)," through: "
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: $$DD^ACDFUNC(ACDTO),!!,"for Program(s): "
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,$P(^DIC(4,DA,0),U)
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !!,"OK to continue"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !!,"Extract flags being re-initialized for VISIT DATA"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !!,"Extract flags being re-initialized for PREVENTION DATA"
  • Line Location: PRV+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRV+5
Routine Call
  • DIC
  • Line Location:
    • EN1+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDIIF - [#9002170] Classic Fileman Calls
^ACDPD - [#9002170.7] 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("C" EN1+23
^ACDIIF("C" EN1+21
^ACDPD - [#9002170.7] PRV+3, PRV+4
^ACDPD("B" PRV+2
^ACDTDC("C" EN1+22
^ACDVIS - [#9002172.1] EN1+17, EN1+18, EN1+19
^ACDVIS("B" EN1+16
^ACDVIS("C" EN1+2
^DIC(4 - [#4] EN1+13

Label References

Name Line Occurrences
EN1 EN1+5
K EN1+7, EN1+9, EN1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+2*, EN1+3, EN1+4, EN1+5, EN1+6, EN1+14*, K+1!
ACD EN1+16*, PRV+2*, K+1!
>> ACDBWP PRV+4*
ACDDA EN1+2*, EN1+21*, EN1+22*, EN1+23*, K+1!
ACDFR EN1+11, EN1+16, PRV+2, K+1!
ACDPGM EN1+1!, K+1!
ACDPGM( EN1+2*, EN1+6*, EN1+13, EN1+19, PRV+4
ACDPGM(0 EN1+7
ACDQUIT EN1+9!
ACDTO EN1+12, EN1+16, PRV+2, K+1!
ACDV EN1+16*, EN1+17, EN1+18, EN1+19, EN1+20, EN1+21, EN1+22, EN1+23, PRV+2*, PRV+3
, PRV+4, PRV+5, K+1!
DA EN1+13*, EN1+20*, EN1+21*, EN1+22*, EN1+23*, PRV+5*, K+1!
>> DIC EN1+6*
>> DIC("A" EN1+6*
>> DIC(0 EN1+6*
DIE EN1+20*, EN1+21*, EN1+22*, EN1+23*, PRV+5*, K+1!
DR EN1+20*, EN1+21*, EN1+22*, EN1+23*, PRV+5*, K+1!
IOF EN+1
U EN1+13, PRV+4
X K+1!
Y EN1+6, 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 |  Local Variables |  All