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

Package: Alcohol Chemical Dependency

Routine: ACDAUTO


Information

ACDAUTO ;IHS/ADC/EDE/KML - auto-create an initial or reopen;

Source Information

Source file <ACDAUTO.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Alcohol Chemical Dependency 2 (DSPHIST,GETVSITS,PAUSE)^ACDDEU  (DIE,FILE)^ACDFMC  
VA Fileman 2 IX1^DIK  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Alcohol Chemical Dependency 2 ACDDE  ACDDIC  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP
FILEV ;File visit into ^ACDVIS
K ;
EN1 ;
IIF ;
FILEIIF ;File entry into ^ACDIIF

External References

Name Field # of Occurrence
DSPHIST^ACDDEU EN1+16, EN1+17
GETVSITS^ACDDEU EN1+16, EN1+17
PAUSE^ACDDEU EN1+16, EN1+17
DIE^ACDFMC FILEV+4
FILE^ACDFMC FILEV+1, FILEIIF+1, FILEIIF+8
IX1^DIK FILEV+5, FILEIIF+9
^DIR EN1+2, EN1+7, EN1+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,ACDLINE,!,*7,*7,*7,"Since you have created a new Transfer/Discharge/Close visit, I can now"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"automatically create an Initial or Re-open visit for you with a new"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"component code/type that you select."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"If you plan to provide future services after discharge you should create an"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Initial for the AFTCARE component."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,ACDLINE
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"OK, no new visit created..."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!!,*7,*7,"An INITIAL visit already exists for this component code.",!,"No new visit created. You may try again."
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !!!,*7,*7,"No INITIAL visit exists for this component code.",!,"No new visit created. You may try again."
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !!,"Filing new entry now...."
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !!,"Finished auto creation..."
  • Line Location: FILEIIF+11
Routine Call
  • DIR
  • Line Location:
    • EN1+2
    • EN1+7
    • EN1+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDIIF - [#9002170] Classic Fileman Calls
^ACDVIS - [#9002172.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDIIF - [#9002170] FILEIIF+2*
^ACDTDC - [#9002171] IIF+2, FILEIIF+6, FILEIIF+7
^ACDTDC("C" IIF+1
^ACDVIS - [#9002172.1] EN1+15, EN1+19, EN1+23, FILEV+2*
^ACDVIS("D" EN1+15

Label References

Name Line Occurrences
EN1 EN1+16, EN1+17
K EN1+4, EN1+7, EN1+11, EN1+16, EN1+17

Naked Globals

Name Field # of Occurrence
^( FILEIIF+6
^("BWP" EN1+15, FILEIIF+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACD("IIF" IIF+4*, IIF+5*, IIF+6*, IIF+7*, IIF+8*, IIF+9*, IIF+10*, IIF+11*, IIF+12*, IIF+13*
, IIF+14*, IIF+15*, IIF+16*, IIF+17*, IIF+18*, IIF+19*, IIF+20*, FILEIIF+1, FILEIIF+2
>> ACD("TDC" IIF+2*, IIF+4, IIF+5, IIF+6, IIF+7, IIF+8, IIF+9, IIF+10, IIF+11, IIF+12
, IIF+13, IIF+14, IIF+15, IIF+16, IIF+17, IIF+18, IIF+19, IIF+20
>> ACD("V" EN1+19*, EN1+20*, EN1+21*, EN1+22*, FILEV+1, FILEV+2
>> ACDBWP FILEV+3*, FILEV+4, FILEV+5, FILEIIF+2, FILEIIF+5
ACDCOMC EN1+8*, EN1+15, EN1+21, K+1!
ACDCOMT EN1+12*, EN1+22, K+1!
ACDCONT EN1+3*, EN1+16, EN1+17, EN1+20, K+1!
ACDDA EN1+15*, IIF+1*, IIF+2, FILEIIF+6, FILEIIF+7, K+1!
>> ACDDFNP EN1+15, FILEIIF+5, FILEIIF+10
>> ACDFHCP FILEIIF+5, FILEIIF+10
>> ACDFPCC FILEIIF+5, FILEIIF+10
ACDIIF FILEIIF+3*, FILEIIF+5, FILEIIF+8, FILEIIF+9, FILEIIF+10, K+1!
ACDLINE EN+4*, EN+5, EN+10, K+1!
ACDMLEV FILEIIF+6*, FILEIIF+7, K+1!
ACDMULT FILEIIF+6*, FILEIIF+7, FILEIIF+8, K+1!
>> ACDN0 EN1+15*
>> ACDPCCL( FILEIIF+5*, FILEIIF+10*
>> ACDPGM EN1+15
ACDPNTR FILEIIF+6*, FILEIIF+8, K+1!
>> ACDVISP EN+3, EN1+15, EN1+19, EN1+23, IIF+1, FILEIIF+10
>> ACDVPGM EN1+23*, FILEV+4
>> DA EN1+15*, FILEV+4*, FILEV+5*, FILEIIF+9*
>> DA(1 FILEIIF+8*
>> DIC FILEV+1*, FILEIIF+1*, FILEIIF+8*
>> DIC("DR" FILEIIF+7*
>> DIC(0 FILEV+1*, FILEIIF+1*, FILEIIF+8*
>> DIE FILEV+4*
>> DIK FILEV+5*, FILEIIF+9*
DIR EN1+7!, EN1+11!
DIR("A" EN1+1*
DIR(0 EN1+2*, EN1+7*, EN1+11*
>> DR FILEV+4*
>> DTOUT EN1+4, EN1+7, EN1+11
DUZ FILEV+4
IOF EN+5
U EN1+15, EN1+20, EN1+21, EN1+22, FILEV+1, IIF+4, IIF+5, IIF+6, IIF+7, IIF+8
, IIF+9, IIF+10, IIF+11, IIF+12, IIF+13, IIF+14, IIF+15, IIF+16, IIF+17, IIF+18
, IIF+19, IIF+20, FILEIIF+1, FILEIIF+7
X EN1+4, EN1+7!, EN1+11!, FILEV+1*, FILEIIF+1*, FILEIIF+8*
Y EN1+3, EN1+4, EN1+7!, EN1+8, EN1+11!, EN1+12, EN1+15*, EN1+16, EN1+17, FILEV+2
, FILEV+3, FILEIIF+2, FILEIIF+3
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