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

Package: IHS Support HL7 Interfaces

Routine: BHLCHRI


Information

BHLCHRI ; cmi/anch/maw - BHL Read CHR data into ^INTHU ;

Source Information

Source file <BHLCHRI.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
IHS Support HL7 Interfaces 2 $$CHK^BHLBCK  COMPILE^BHLU  
Kernel 2 ^%ZISC  ($$LIST,$$MV,$$OPEN)^%ZISH  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
REDO(BHLRLI) ;EP - redo the import
MOVE(DIR,FN,OPS,SDIR) ;-- move files to storage directory
EOJ ;-- kill variables and quit
LOG(FNM,TYP,USER)
NOW() ;-- get now
SITE ;EP - setup the site parameters in BHL HL7 PARAMETER file
READ(BHLCHRI) ;-- read the file in
CRLF(BHLLST,RFLG) ;-- parse by carriage return line feed
STUFF ;-- stuff the information into ^INTHU
CR(BHLLST,RFLG) ;-- parse message by CR only
LC(BHLLST,RFLG) ;-- parse
MAIN ;-- this is the main routine driver
LIST(DIR,LST) ;-- get a list of files in the directory
LOGM(FNM,ENT)

External References

Name Field # of Occurrence
NOW^%DTC STUFF+1, NOW+1
^%ZISC MAIN+2, LC+2, LC+14, CRLF+2, CRLF+13, CR+2, CR+16
$$LIST^%ZISH READ+16, LIST+1
$$MV^%ZISH MOVE+1
$$OPEN^%ZISH LC+4, CRLF+4, CR+4
$$CHK^BHLBCK MAIN+4
COMPILE^BHLU SITE+14
^DIC SITE+5
FILE^DICN STUFF+11, LOG+11, LOGM+8, LOGM+15
^DIE LOG+4, SITE+9
^DIR REDO+19
EN^XBVK EOJ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CHR Parameters not Defined in BCH SITE PARAMETER File"
  • Line Location: READ+12
Function Call: WRITE
  • Prompt: !!,"Now reading in CHR file from directory "_BHLDIR
  • Line Location: READ+15
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: LC+5
Function Call: READ
  • Timeout: DTIME
  • Variable: BHLT
  • Line Location: LC+7
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: CRLF+5
Function Call: READ
  • Timeout: DTIME
  • Variable: BHLT
  • Line Location: CRLF+7
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: CR+5
Function Call: READ
  • Timeout: DTIME
  • Variable: BHLT
  • Line Location: CR+6
Function Call: WRITE
  • Prompt: !,"CHR Parameters not Defined in BCH SITE PARAMETER File"
  • Line Location: REDO+12
Function Call: WRITE
  • Prompt: !,"No Files in the directory, goodbye"
  • Line Location: REDO+15
Function Call: WRITE
  • Prompt: !,BHLLSDA_" - "_$G(BHLLST(BHLLSDA))
  • Line Location: REDO+17
Function Call: WRITE
  • Prompt: !!,"Now reading in CHR file "_BHLFNM_" from directory "_BHLSDIR
  • Line Location: REDO+26
Function Call: WRITE
  • Prompt: !,"Now setting up CHR HL7 lab parameters.."
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !!,"Now activating CHR Interface.."
  • Line Location: SITE+13
Routine Call
  • DIE
  • Line Location:
    • LOG+4
    • SITE+9
Routine Call
  • DIC
  • Line Location:
    • SITE+5
Routine Call
  • DIR
  • Line Location:
    • REDO+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INTHU - [#4001] Classic Fileman Calls
^BCHSITE - [#90002.31] Classic Fileman Calls
^BCHLOG - [#90002.99] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHLOG("B" LOG+1, LOG+2, LOGM+1
^BCHSITE - [#90002.31] READ+6, READ+8, REDO+6, REDO+8
^BCHSITE("B" READ+3, REDO+3
^BHLRL($J EOJ+2!
^DD(90002.99 LOGM+7, LOGM+14
^INLHSCH STUFF+18*
^INRHD("B" STUFF+3
^INTHL7M("B" SITE+11
^INTHU - [#4001] STUFF+15*, STUFF+16*
^TMP("BHLRL" MAIN+3!, LC+9!, LC+10*, LC+15!, CRLF+9*, CRLF+14!, CR+11!, CR+12*, CR+17!, STUFF+14
, STUFF+15

Label References

Name Line Occurrences
$$LIST REDO+14
$$LOG LC+12, CRLF+11, CR+14
$$LOGM STUFF+13
$$NOW LOG+3, LOG+9
CR REDO+28
EOJ MAIN+6, REDO+28
LC READ+18
READ MAIN+5
STUFF LC+9, LC+13, CRLF+12, CR+11, CR+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STUFF+1, NOW+2
>> BHLCHR READ+3*, READ+4, READ+5, READ+6, READ+8, REDO+3*, REDO+4, REDO+5, REDO+6, REDO+8
BHLCHRI READ~, READ+3, REDO+3
>> BHLDA STUFF+14*, STUFF+15, STUFF+16
>> BHLDEST STUFF+3*, STUFF+9
BHLDIR READ+2~, READ+6*, READ+7, READ+15, READ+16, LC+4, CRLF+4, CR+4, REDO+2~, REDO+6*
, REDO+7, REDO+14
>> BHLDTM STUFF+1*, STUFF+8
>> BHLFDA LC+1*, LC+3, CRLF+1*, CRLF+3, CR+1*, CR+3
>> BHLFILES REDO+28
>> BHLFILES( REDO+24*
BHLFLG READ+2~, READ+4*, READ+7*, READ+9*, READ+10, REDO+2~, REDO+4*, REDO+7*, REDO+9*, REDO+10
>> BHLFLI REDO+22*, REDO+23, REDO+24
BHLFLST READ+2~, READ+16*, REDO+2~, REDO+14*, REDO+15, REDO+18, REDO+22
>> BHLFNM LC+3*, LC+4, LC+12, CRLF+3*, CRLF+4, CRLF+11, CR+3*, CR+4, CR+14, STUFF+13
, REDO+23*, REDO+24, REDO+26
>> BHLFNMI REDO+21*, REDO+22
BHLFST READ+2~, READ+8*, READ+9, READ+13*, READ+16, REDO+2~, REDO+8*, REDO+9, REDO+13*, REDO+14
>> BHLH STUFF+2*, STUFF+18
>> BHLI REDO+22*
>> BHLIO STUFF+5*, STUFF+9
>> BHLLDA LOGM+10*, LOGM+13
>> BHLLGI LOG+1, LOG+2*, LOG+3, LOGM+1*, LOGM+2, LOGM+5, LOGM+12
>> BHLLLGI LOGM+3, LOGM+9*, LOGM+16*, LOGM+17
>> BHLLMSG LC+12*, CRLF+11*, CR+14*
>> BHLLSDA REDO+16*, REDO+17
>> BHLLSMSG STUFF+13*
BHLLST READ+2~, READ+16, READ+18, LC~, CRLF~, CR~, REDO+2~, REDO+27!, LIST+1
BHLLST( LC+1, LC+3, CRLF+1, CRLF+3, CR+1, CR+3, REDO+16, REDO+17, REDO+23
BHLLST("" LIST+2
>> BHLMSG SITE+11*, SITE+12, SITE+14
>> BHLMVMSG MOVE+1*
>> BHLPRIO STUFF+6*, STUFF+10, STUFF+18
BHLRL SITE+1~, SITE+6*, SITE+7, SITE+8
BHLRLI REDO~
>> BHLSDIR REDO+26
>> BHLSTAT STUFF+4*, STUFF+9
>> BHLT LC+7*, LC+8, LC+9, LC+10, CRLF+7*, CRLF+8, CRLF+9, CR+6*, CR+8, CR+9
, CR+10, CR+11, CR+12
>> BHLUIF STUFF+12*, STUFF+13, STUFF+15, STUFF+16, STUFF+18
BHLY MAIN+1~, MAIN+4*
>> CNTR LC+6*, LC+9*, LC+10, LC+11*, CRLF+6*, CRLF+9, CRLF+10*, CR+7*, CR+11*, CR+12
, CR+13*
DA LOG+3*, SITE+8*, SITE+10!
DA(1 LOGM+5*, LOGM+6, LOGM+12*, LOGM+13
DD STUFF+7!, LOG+7!, LOGM+4!, LOGM+11!
DIC STUFF+8*, LOG+7!, LOG+8*, LOG+12!, LOGM+4!, LOGM+6*, LOGM+11!, LOGM+13*, SITE+3*, SITE+8
, SITE+10!
DIC("A" SITE+4*
DIC("DR" STUFF+9*, STUFF+10*, LOG+9*
DIC("P" LOGM+7*, LOGM+14*
DIC(0 STUFF+8*, LOG+8*, LOGM+6*, LOGM+13*, SITE+3*
DIE LOG+3*, LOG+5!, SITE+8*, SITE+10!
DIR MOVE~, MOVE+1, LIST~, LIST+1
DIR("A" REDO+18*
DIR(0 REDO+18*
>> DIRUT REDO+20
DO STUFF+7!, LOG+7!, LOGM+4!, LOGM+11!
DR LOG+3*, SITE+8*, SITE+10!
DTIME LC+7, CRLF+7, CR+6
DUZ LC+12, CRLF+11, CR+14
DUZ(2 MAIN+5
ENT LOGM~, LOGM+3, LOGM+6
ENT( LOGM+10
ENT("" LOGM+3
FN MOVE~, MOVE+1
FNM LOG~, LOG+1, LOG+2, LOG+10, LOGM~, LOGM+1
>> I LC+7*, CRLF+7*, CR+6*
IO LC+7, CRLF+7, CR+6
>> J CR+9*, CR+10, CR+11, CR+12
LST LIST~, LIST+1
OPS MOVE~
RFLG LC~, CRLF~, CR~
SDIR MOVE~, MOVE+1
TYP LOG~
U READ+6, READ+8, REDO+6, REDO+8, LOGM+7, LOGM+14
USER LOG~, LOG+3, LOG+9
>> X STUFF+8*, LOG+10*, LOGM+6*, LOGM+13*
>> Y LC+4*, LC+5, CRLF+4*, CRLF+5, CR+4*, CR+5, STUFF+12, REDO+21, LIST+1*, LOG+13
, LOGM+9, LOGM+16, SITE+6
>> ZTQUEUED READ+11, READ+14, LC+5, CRLF+5, CR+5, REDO+11, REDO+25
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