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

Package: IHS Support HL7 Interfaces

Routine: BHL3MS


Information

BHL3MS ;cmi/flag/maw - BHL Setup 3m Workstations [ 07/05/2002 2:22 PM ]

Source Information

Source file <BHL3MS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
IHS Support HL7 Interfaces 1 COMPILE^BHLU  

Entry Points

Name Comments DBIA/ICR reference
AGAIN() ;-- ask the workstation id
SET
ASK() ;-- ask the workstation id
EOJ ;-- kill variables and quit
READY() ;-- write message and ask for confirmation
ACT(WS) ;-- activate the workstation and interface
MN(MN) ;-- activate the mnemonic
MAIN ;EP - this is the main routine driver

External References

Name Field # of Occurrence
COMPILE^BHLU ACT+45
^DIC ACT+21, ACT+28
FILE^DICN ACT+43
^DIE ACT+17, ACT+34, ACT+36, MN+4
^DIR READY+4, ASK+3, AGAIN+3
^XBFMK EOJ+1
EN^XBVK EOJ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Get IP address and 3m Port, run option again"
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !,"Invalid Workstation Entered"
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !!,"You must know the IP address and 3M port number"
  • Line Location: READY+1
Function Call: WRITE
  • Prompt: !!,"Now setting up the IP address of workstation ID "_WS
  • Line Location: ACT+14
Function Call: WRITE
  • Prompt: !!,"IP Address now set up, continuing with transaction setup..."
  • Line Location: ACT+31
Function Call: WRITE
  • Prompt: !!,"Now compiling the message"
  • Line Location: ACT+44
Function Call: WRITE
  • Prompt: !!,"3M Workstation ID "_WS_" is now ready for use"
  • Line Location: ACT+46
Routine Call
  • DIE
  • Line Location:
    • ACT+17
    • ACT+34
    • ACT+36
    • MN+4
Routine Call
  • DIC
  • Line Location:
    • ACT+21
    • ACT+28
Routine Call
  • DIR
  • Line Location:
    • READY+4
    • ASK+3
    • AGAIN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INRHT - [#4000] Classic Fileman Calls
^APCDTKW - [#9001001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDTKW("B" MN+1
^DD(4004 ACT+19
^DD(4004.03 ACT+27
^DD(4011 ACT+41
^INRHT("B" ACT+4, ACT+6
^INTHL7M("B" ACT+7, ACT+8
^INTHPC - [#4004] ACT+9, ACT+10!, ACT+11*, ACT+12*, ACT+13*
^INTHPC("B" ACT+1

Label References

Name Line Occurrences
$$AGAIN SET+4
$$ASK SET
$$MN SET+2
$$READY MAIN+1
ACT SET+3
EOJ MAIN+4, SET+1, SET+6
SET SET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BHLAN SET+4*, SET+5
>> BHLBP ACT+1*, ACT+9, ACT+10, ACT+11, ACT+12, ACT+13, ACT+16, ACT+20, ACT+26
>> BHLBP0 ACT+9*, ACT+11
>> BHLCONT MAIN+1*, MAIN+2
>> BHLDS ACT+2*, ACT+16, ACT+33
>> BHLIPI ACT+23*, ACT+25, ACT+26
>> BHLMI ACT+7*, ACT+39, ACT+40, ACT+45
>> BHLMII ACT+8*, ACT+45
>> BHLMN SET+2*
>> BHLMNI MN+1*, MN+2, MN+3
>> BHLTT ACT+3*, ACT+4
>> BHLTTI ACT+4*, ACT+32, ACT+42
>> BHLTTP ACT+5*, ACT+6
>> BHLTTPI ACT+6*, ACT+35
>> BHLWS SET*, SET+1, SET+3
>> BHLY ACT+45*
DA ACT+15!, ACT+16*, ACT+24!, ACT+30!, ACT+32*, ACT+35*, ACT+38!, MN+3*, MN+5!
DA(1 ACT+20*, ACT+26*, ACT+40*
DA(2 ACT+26*
DD ACT+38!
DIC ACT+18*, ACT+25*, ACT+30!, ACT+39*
DIC("P" ACT+19*, ACT+27*, ACT+41*
DIC(0 ACT+18*, ACT+39*
DIE ACT+15!, ACT+16*, ACT+18, ACT+30!, ACT+32*, ACT+37!, MN+3*, MN+5!
DIR READY+5!, ASK+5!, AGAIN+5!
DIR("A" READY+2*, ASK+2*, AGAIN+2*
DIR("B" READY+3*
DIR(0 READY+2*, ASK+1*, AGAIN+1*
DO ACT+38!
DR ACT+15!, ACT+16*, ACT+30!, ACT+33*, ACT+35*, MN+3*, MN+5!
MN MN~, MN+1
U ACT+12, ACT+13, ACT+19, ACT+27, ACT+41
WS ACT~, ACT+1, ACT+2, ACT+3, ACT+5, ACT+14, ACT+46
>> X ACT+42*
Y READY+6, ASK+4, ASK+6, AGAIN+4, AGAIN+6, ACT+15!, ACT+22, ACT+23, ACT+29, MN+6
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