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

Package: Alcohol Chemical Dependency

Routine: ACDVSAVE


Information

ACDVSAVE ;IHS/ADC/EDE/KML - EXTRACT VISIT DATA;

Source Information

Source file <ACDVSAVE.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Alcohol Chemical Dependency 10 EN^ACDCLN  PAUSE^ACDDEU  DIE^ACDFMC  $$DD^ACDFUNC  (EN,EN1)^ACDGLOCK  ^ACDGX5  EN1^ACDV4MES  (CLN,V)^ACDVSAV2  
^ACDVSRV0  D^ACDWRQ  
VA Fileman 2 C^%DTC  YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
CLN ;Make pass to clean incomplete entries
EN ;EP
D ;Ask start/stop date
P ;Bld node
TDC ;Bld node
K ;
L ;Get visit link file
VIS ;Get visits
IIF ;Bld node
T ;Ask transmission mode
; commented out net mail option per Wilbur Woodis
V ;V node
CS ;Bld node

External References

Name Field # of Occurrence
C^%DTC T+13
EN^ACDCLN T+10
PAUSE^ACDDEU VIS+17
DIE^ACDFMC IIF+7, TDC+7, CS+5, P+9
$$DD^ACDFUNC D+4
EN^ACDGLOCK EN+3
EN1^ACDGLOCK K+2
^ACDGX5 VIS+10
EN1^ACDV4MES EN+14
CLN^ACDVSAV2 CLN+1
V^ACDVSAV2 V+1
^ACDVSRV0 VIS+12
D^ACDWRQ D+1
YN^DICN T+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,*7,"Data still exists in the ^ACDV1TMP global due to a",!,"CORRUPT LOCATION FILE. * I MUST STOP *"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,*7,*7,"An extract is presently running."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,*7,*7,"Once a CDMIS DATA RECORD is extracted,",!,"the record may NOT be 'DELETED' or 'EDITED'."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"OK, Headquarters is Archiving",!!,"Be sure to delete the data when the archive is finished."
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"Extracting all CDMIS visit/prevention data",!,"from: ",$$DD^ACDFUNC(ACDFR)," through: ",$$DD^ACDFUNC(ACDTO)
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !!,*7,*7,"You must set domains to send extracted data to."
  • Line Location: T+4
Function Call: WRITE
  • Prompt: !!,*7,*7,"No domains are defined to send the extraction data to.",!,"I cannot continue because of this."
  • Line Location: T+5
Function Call: WRITE
  • Prompt: !!,"OK to continue"
  • Line Location: T+7
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: T+7
Function Call: WRITE
  • Prompt: !!,"Looking for visit data to extract....."
  • Line Location: T+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: VIS+1
Function Call: WRITE
  • Prompt: !!,"Looking for prevention data to extract....."
  • Line Location: VIS+5
Function Call: WRITE
  • Prompt: !!,"No new data found."
  • Line Location: VIS+9
Function Call: WRITE
  • Prompt: !!,"Now deleting the ^ACDVTMP global....."
  • Line Location: VIS+14
Function Call: WRITE
  • Prompt: !,"CDMIS data extraction successfully completed."
  • Line Location: VIS+16
Function Call: WRITE
  • Prompt: "."
  • Line Location: P+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS - [#9002172] L+3, CS+1, CS+3
^ACDCS("C" L+3
^ACDIIF - [#9002170] L+1, IIF+1, IIF+3, IIF+5, IIF+6
^ACDIIF("C" L+1
^ACDPD - [#9002170.7] VIS+6, P+1, P+6, P+8
^ACDPD("B" VIS+6
^ACDTDC - [#9002171] L+2, TDC+1, TDC+3, TDC+5, TDC+6
^ACDTDC("C" L+2
^ACDV1TMP EN+6
^ACDVIS("B" VIS+1
^ACDVTMP( EN+9, EN+10!, VIS+9, VIS+15!, IIF+2, IIF+4*, IIF+5*, IIF+6*, TDC+2, TDC+4*
, TDC+5*, TDC+6*, CS+2, CS+4*, P+7*, P+8*
^ACDVTMP(0 VIS+10*
^AUTTLOC - [#9999999.06] P+4, P+5
^AUTTSITE(1 P+5

Label References

Name Line Occurrences
CLN VIS+2
CS L+3
IIF L+1
K EN+6, EN+9, D+1, T+7, VIS+9, VIS+18
L VIS+1
P VIS+6
TDC L+2
V VIS+1

Naked Globals

Name Field # of Occurrence
^( IIF+5, IIF+6, TDC+5, TDC+6, P+8
^(0 VIS+10*, IIF+5, IIF+6, TDC+5, TDC+6, P+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T+7*
ACD VIS+1*, VIS+6*, K+4!
ACD("CS" CS+3*, CS+4
ACD("IIF" IIF+3*, IIF+4
ACD("P" P+1*, P+2, P+4, P+7, P+8*
ACD("TDC" TDC+3*, TDC+4
>> ACD6DIG EN+15
ACD6PGM P+4*, P+5, K+4!
>> ACDAY P+8*
ACDBWP P+4*, K+4!
ACDDA L+1*, L+2*, L+3*, IIF+1, IIF+3, IIF+4, IIF+5, IIF+6, IIF+7, TDC+1
, TDC+3, TDC+4, TDC+5, TDC+6, TDC+7, CS+1, CS+3, CS+4, CS+5, K+4!
ACDDRUG K+4!
ACDDTF D+2*, VIS+10, K+3!
ACDDTT D+2*, VIS+10, K+3!
ACDFR D+2, D+4, T+13*, VIS+1, VIS+6, K+4!
>> ACDMAIL VIS+10, VIS+12
>> ACDPGM P+2
ACDPOINT IIF+5*, IIF+6*, TDC+5*, TDC+6*, K+4!
ACDQUIT D+1!
ACDRUG IIF+5*, TDC+5*, K+4!
ACDSCND IIF+6*, TDC+6*, K+5!
ACDTIME K+4!
ACDTO D+2, D+4, VIS+1, VIS+6, K+4!
ACDUSER IIF+2, IIF+4, IIF+5, IIF+6, TDC+2, TDC+4, TDC+5, TDC+6, CS+2, CS+4
, P+5*, P+7, P+8, K+4!
ACDV VIS+1*, VIS+6*, L+1, L+2, L+3, IIF+2, IIF+4, IIF+5, IIF+6, TDC+2
, TDC+4, TDC+5, TDC+6, CS+2, CS+4, P+1, P+6, P+7, P+8, P+9
, K+4!
>> ACDVHIT VIS+1
>> DA IIF+7*, TDC+7*, CS+5*, P+9*
>> DIE IIF+7*, TDC+7*, CS+5*, P+9*
>> DR IIF+7*, TDC+7*, CS+5*, P+9*
U VIS+10, IIF+1, TDC+1, CS+1, P+2, P+4, P+5, P+6
>> X T+13
>> X1 T+13*
>> X2 T+13*
>> XBGL VIS+10*
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