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

Package: Alcohol Chemical Dependency

Routine: ACDDIK


Information

ACDDIK ;IHS/ADC/EDE/KML - DELETE A VISIT ENTRY FROM VISIT FILES;

Source Information

Source file <ACDDIK.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIK  ^DIR  
Alcohol Chemical Dependency 1 PAUSE^ACDDEU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Alcohol Chemical Dependency 2 ACDDE  ACDDIC  

Entry Points

Name Comments DBIA/ICR reference
AUTO ;EP for time out
K ;
EN ;EP for user interaction
YN ;

External References

Name Field # of Occurrence
PAUSE^ACDDEU AUTO+17
^DIC EN+7
^DIK AUTO+10, AUTO+12, AUTO+13, AUTO+14
^DIR YN+4

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: !,"Visit Records to Delete are: THOSE NOT EXTRACTED."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"DELETING CDMIS VISIT RECORDS...",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,ACD80
  • Line Location: AUTO+8
Function Call: WRITE
  • Prompt: " No action taken..."
  • Line Location: AUTO+9
Function Call: WRITE
  • Prompt: !,"** INCOMPLETE or INCORRECT ** VISIT LINK deleted from Visit file."
  • Line Location: AUTO+11
Function Call: WRITE
  • Prompt: !,*7,*7,"** INCOMPLETE or INCORRECT ** VISIT LINK deleted from Init/Info/Fu file."
  • Line Location: AUTO+12
Function Call: WRITE
  • Prompt: !,*7,*7,"** INCOMPLETE or INCORRECT ** VISIT LINK deleted from Tran/Dis/Close file."
  • Line Location: AUTO+13
Function Call: WRITE
  • Prompt: !,*7,*7,"** INCOMPLETE or INCORRECT ** VISIT LINK deleted from Client Service file."
  • Line Location: AUTO+14
Function Call: WRITE
  • Prompt: !,ACD80
  • Line Location: AUTO+15
Function Call: WRITE
  • Prompt: !!," Visit deletion complete...."
  • Line Location: AUTO+16
Routine Call
  • DIC
  • Line Location:
    • EN+7
Routine Call
  • DIR
  • Line Location:
    • YN+4

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("C" AUTO+14
^ACDIIF("C" AUTO+12
^ACDTDC("C" AUTO+13
^DIC(4 - [#4] EN+2

Label References

Name Line Occurrences
K EN+7, AUTO+9, AUTO+18
YN AUTO+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K+1!
ACD80 AUTO+8*, AUTO+15, K+1!
ACDDA AUTO+12*, AUTO+13*, AUTO+14*, K+1!
>> ACDOK AUTO+9, YN+2*, YN+5*
>> ACDTOUT YN+2
ACDVISP EN+7*, AUTO+6, AUTO+10, AUTO+12, AUTO+13, AUTO+14, K+1!
DA AUTO+10*, AUTO+12*, AUTO+13*, AUTO+14*, YN+4!, K+1!
DIC EN+7*, K+1!
DIC("S" EN+6*
DIC(0 EN+7*
DIK AUTO+10*, AUTO+12*, AUTO+13*, AUTO+14*, K+1!
DIR YN+4!
DIR("A" YN+4*
DIR("B" YN+4*
DIR(0 YN+4*
>> DTOUT YN+2
DUZ(2 EN+2
IOF EN+2
U EN+2
>> Y EN+7, YN+5
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 |  Local Variables |  All