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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACDPIMP

Package: Alcohol Chemical Dependency

Routine: ACDPIMP


Information

ACDPIMP ;IHS/ADC/EDE/KML - UNIX or DOS IMPORT 10:08;

Source Information

Source file <ACDPIMP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Alcohol Chemical Dependency 3 EN^ACDPIMP1  EN^ACDPXMD  ERROR^ACDWUTL  
Kernel 2 ^%ZISC  ($$DEL,$$LIST,$$OPEN,OPEN)^%ZISH  
VA Fileman 2 YN^DICN  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP
F ;File import from
XMD ;Audit trail
K ;kill variables
IN ;Read in from the imported file to build ^ACDPTMP
L1 ;Open file to read from
PASS ;Skip when user tries to import their own extract
DIR ;Ask user for directory

External References

Name Field # of Occurrence
^%ZISC IN+3, PASS+2
$$DEL^%ZISH PASS+4
$$LIST^%ZISH F+3
$$OPEN^%ZISH L1+1
OPEN^%ZISH EN+4
EN^ACDPIMP1 DIR+13, F+20
EN^ACDPXMD XMD+1
ERROR^ACDWUTL F+3, PASS+4
YN^DICN DIR+21
^DIR DIR+4, F+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"But you need to first install patch 25 of Kernel 7"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+3
Function Call: WRITE
  • Prompt: !!,*7,*7,"Facilities have no need to import data."
  • Line Location: DIR+10
Function Call: WRITE
  • Prompt: !!,*7,*7,"But an incomplete import exists due to a corrupt location table.",!,"I will try again to complete the import..."
  • Line Location: DIR+13
Function Call: WRITE
  • Prompt: !!,*7,*7,"It appears an import is presently running."
  • Line Location: DIR+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIR+19
Function Call: WRITE
  • Prompt: !!,"It is advisable to capture the upcomming terminal screens to a printer.",!,"Please open a log file or turn on 'PRINT SCREEN'."
  • Line Location: DIR+20
Function Call: WRITE
  • Prompt: !!,"Ok to Continue: "
  • Line Location: DIR+21
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: DIR+21
Function Call: WRITE
  • Prompt: !!,*7,*7,"No CDMIS import files found in ",ACDIR
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !,"Job terminated....."
  • Line Location: F+5
Function Call: WRITE
  • Prompt: !,I," ",ACDF(I)
  • Line Location: F+9
Function Call: WRITE
  • Prompt: !
  • Line Location: F+11
Function Call: WRITE
  • Prompt: !!,"No data for update",!
  • Line Location: F+19
Function Call: WRITE
  • Prompt: !!!!,"Now updating CDMIS files with imported data....."
  • Line Location: F+20
Function Call: WRITE
  • Prompt: !!!!?20,"Finished........."
  • Line Location: F+21
Function Call: WRITE
  • Prompt: !,"Error code: ",Y," detected."
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !!!,"Now importing data from file: ",ACDFNA
  • Line Location: IN+1
Function Call: WRITE
  • Prompt: !,"Not an Import file...I will skip it"
  • Line Location: IN+3
Function Call: WRITE
  • Prompt: !,"FACILITY: ",ACDHEAD(2)
  • Line Location: IN+4
Function Call: READ
  • Timeout: DTIME,ACD(2):DTIME
  • Variable: ACD(1)
  • Line Location: IN+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: IN+9
Function Call: WRITE
  • Prompt: !,"Deleting ",ACDFNA," from your system now..."
  • Line Location: PASS+3
Function Call: WRITE
  • Prompt: !,"No Updating has occurred for this file."
  • Line Location: PASS+5
Routine Call
  • DIR
  • Line Location:
    • DIR+4
    • F+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDP1TMP DIR+13
^ACDPTMP DIR+16, DIR+17!
^AUTTSITE(1 DIR+1

Label References

Name Line Occurrences
K DIR+5, DIR+10, DIR+13, DIR+16, DIR+21, F+5, F+13, F+22, L1+1
L1 F+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DIR+21*
%X K+3!
%Y K+3!
ACD K+2!
ACD(1 IN+7*, IN+8
ACD(2 IN+7*, IN+8
>> ACD6DIG DIR+10
ACDA K+3!
ACDBWP K+2!
ACDCS K+2!
ACDDA K+2!
ACDDUZ K+2!
ACDF F+2!, F+3, K+2!
ACDF( F+9, F+18
ACDF(0 F+4
ACDFNA F+18*, L1+1, IN+1, PASS+3, PASS+4, XMD+1, K+2!
ACDHEAD XMD+1, K+2!
ACDHEAD( IN+2*
ACDHEAD(2 IN+4, IN+5
ACDHEAD(4 IN+3, IN+5
ACDI F+18*, K+2!
ACDIFC F+17*, F+19, IN+6*, K+1!
ACDIIF K+2!
ACDIOP K+2!
ACDIR DIR+6*, F+3, F+4, L1+1, PASS+4, K+3!
ACDLINE K+2!
ACDLIST F+14*, F+18, K+2!
ACDMSG K+3!
ACDN F+9*, F+10, K+2!
ACDNODE IN+5*, K+2!
ACDOWN F+18!, PASS+5
ACDPG K+2!
ACDRNG K+2!
ACDRUG K+2!
ACDTDC K+2!
ACDUSER K+2!
ACDV K+2!
DIC K+3!
DIK K+3!
DIR DIR+4!, K+2!
DIR("A" DIR+2*, F+10*
DIR("B" DIR+1*
DIR(0 DIR+2*, F+10*
>> DIRUT DIR+5, F+13
DTIME IN+2, IN+7
>> I F+9*, IN+2*
IO IN+2, IN+7
IO(0 IN+1, IN+3, IN+4, IN+9, PASS+5
IOF DIR+19
U DIR+1, IN+3, IN+5
>> X DIR+6
XMDUZ K+3!
XMY K+2!
XMZ K+3!
>> Y F+3*, F+14, L1+1*, PASS+4*

Marked Items

Name Field # of Occurrence
$T(OPEN^%ZISH EN+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All