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

Package: IHS Changes To Lab

Routine: BLRRLMP


Information

BLRRLMP ; cmi/anch/maw - BLR Read Reference Lab into ^INTHU ;

Source Information

Source file <BLRRLMP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 NOW^%DTC  FILE^DICN  ^DIR  
Kernel 2 ^%ZISC  ($$LIST,$$MV,$$OPEN)^%ZISH  
IHS Changes To Lab 1 ($$LOG,$$LOGM)^BLRRLU  
IHS Support HL7 Interfaces 1 $$CHK^BHLBCK  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
CRLF(BLRLST,RFLG) ;-- parse by carriage return line feed
LC(BLRLST,RFLG) ;-- parse specifically for labcorp
MOVE(DIR,FN,OPS,SDIR) ;-- move files to storage directory
CR(BLRLST,RFLG) ;-- parse message by CR only
EOJ ;-- kill variables and quit
REDO(BLRRLI) ; EP -- redo the import
STUFF ;-- stuff the information into ^INTHU
READ(BLRRLI) ;-- read the file in
MAIN ;-- this is the main routine driver
LIST(DIR,LST) ;-- get a list of files in the directory

External References

Name Field # of Occurrence
NOW^%DTC STUFF+1
^%ZISC MAIN+1, LC+2, LC+15, CRLF+2, CRLF+14, CR+2, CR+17
$$LIST^%ZISH READ+13, LIST+1
$$MV^%ZISH MOVE+1
$$OPEN^%ZISH LC+5, CRLF+5, CR+5
$$CHK^BHLBCK MAIN+3
$$LOG^BLRRLU LC+13, CRLF+12, CR+15
$$LOGM^BLRRLU STUFF+13
FILE^DICN STUFF+11
^DIR REDO+16
EN^XBVK EOJ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Reference Lab not defined in BLR MASTER CONTROL File"
  • Line Location: READ+5
Function Call: WRITE
  • Prompt: !!,"Now reading in reference lab file from directory "_BLRDIR
  • Line Location: READ+12
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: LC+6
Function Call: READ
  • Timeout: DTIME
  • Variable: BLRT
  • Line Location: LC+8
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: CRLF+6
Function Call: READ
  • Timeout: DTIME
  • Variable: BLRT
  • Line Location: CRLF+8
Function Call: WRITE
  • Prompt: !,"Error Opening Device"
  • Line Location: CR+6
Function Call: READ
  • Timeout: DTIME
  • Variable: BLRT
  • Line Location: CR+7
Function Call: WRITE
  • Prompt: !,"Reference Lab not defined in BLR MASTER CONTROL File"
  • Line Location: REDO+5
Function Call: WRITE
  • Prompt: !,"No Files in the directory, goodbye"
  • Line Location: REDO+12
Function Call: WRITE
  • Prompt: !,BLRLSDA_" - "_$G(BLRLST(BLRLSDA))
  • Line Location: REDO+14
Function Call: WRITE
  • Prompt: !!,"Now reading in reference lab file "_BLRFNM_" from directory "_BLRSDIR
  • Line Location: REDO+23
Routine Call
  • DIR
  • Line Location:
    • REDO+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INTHU - [#4001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 READ+9, REDO+9
^BLRRL - [#9009026] READ+6, READ+7, READ+8, READ+10, READ+16, REDO+6, REDO+7, REDO+8, REDO+10, REDO+25
^BLRRL($J EOJ+2!
^BLRSITE - [#9009029] READ+2, REDO+2
^INLHSCH STUFF+17*
^INRHD("B" STUFF+3
^INTHU - [#4001] STUFF+15*, STUFF+16*
^TMP("BLRRL" MAIN+2!, LC+10!, LC+11*, LC+19!, CRLF+10*, CRLF+18!, CR+12!, CR+13*, CR+21!, STUFF+14
, STUFF+15

Label References

Name Line Occurrences
$$LIST REDO+11
CR READ+16, REDO+25
CRLF READ+17, REDO+26
EOJ MAIN+5, REDO+25, REDO+26
LC READ+14, READ+15
MOVE LC+18, CRLF+17, CR+20
READ MAIN+4
STUFF LC+10, LC+14, CRLF+13, CR+12, CR+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STUFF+1
>> BLRDA STUFF+14*, STUFF+15, STUFF+16
>> BLRDEST STUFF+3*, STUFF+9
>> BLRDIR READ+7*, READ+12, READ+13, LC+5, LC+18, CRLF+5, CRLF+17, CR+5, CR+20, REDO+7*
>> BLRDTM STUFF+1*, STUFF+8
>> BLRFDA LC+1*, LC+3, CRLF+1*, CRLF+3, CR+1*, CR+3
>> BLRFILES REDO+25, REDO+26
>> BLRFILES( REDO+21*
>> BLRFLI REDO+19*, REDO+20, REDO+21
>> BLRFLST READ+13*, REDO+11*, REDO+12, REDO+15, REDO+19
>> BLRFNM LC+3*, LC+4, LC+5, LC+13, LC+18, CRLF+3*, CRLF+4, CRLF+5, CRLF+12, CRLF+17
, CR+3*, CR+4, CR+5, CR+15, CR+20, STUFF+13, REDO+20*, REDO+21, REDO+23
>> BLRFNMI REDO+18*, REDO+19
>> BLRFST READ+10*, READ+13, REDO+10*, REDO+11
>> BLRH STUFF+2*, STUFF+17
>> BLRI REDO+19*
>> BLRIO STUFF+5*, STUFF+9
>> BLRLMSG LC+13*, CRLF+12*, CR+15*
>> BLRLSDA REDO+13*, REDO+14
>> BLRLSMSG STUFF+13*
BLRLST READ+13, READ+14, READ+15, READ+16, READ+17, LC~, CRLF~, CR~, REDO+24!, LIST+1
BLRLST( LC+1, LC+3, CRLF+1, CRLF+3, CR+1, CR+3, REDO+13, REDO+14, REDO+20
BLRLST("" LIST+2
>> BLRMVMSG MOVE+1*
>> BLROPS READ+9*, LC+18, CRLF+17, CR+20, REDO+9*
>> BLRPRIO STUFF+6*, STUFF+10, STUFF+17
>> BLRRL READ+2*, READ+3, READ+6, READ+7, READ+8, READ+10, READ+16, REDO+2*, REDO+3, REDO+6
, REDO+7, REDO+8, REDO+10, REDO+25
BLRRLI READ~, READ+2, REDO~, REDO+2
>> BLRRLNM READ+6*, READ+14, READ+15, STUFF+3, REDO+6*
>> BLRSDIR READ+8*, LC+18, CRLF+17, CR+20, REDO+8*, REDO+11, REDO+23
>> BLRSTAT STUFF+4*, STUFF+9
>> BLRT LC+8*, LC+9, LC+10, LC+11, CRLF+8*, CRLF+9, CRLF+10, CR+7*, CR+9, CR+10
, CR+11, CR+12, CR+13
>> BLRUIF STUFF+12*, STUFF+13, STUFF+15, STUFF+16, STUFF+17
>> BLRY MAIN+3*
>> CNTR LC+7*, LC+10*, LC+11, LC+12*, CRLF+7*, CRLF+10, CRLF+11*, CR+8*, CR+12*, CR+13
, CR+14*
DD STUFF+7!
>> DIC STUFF+8*
>> DIC("DR" STUFF+9*, STUFF+10*
>> DIC(0 STUFF+8*
DIR MOVE~, MOVE+1, LIST~, LIST+1
DIR("A" REDO+15*
DIR(0 REDO+15*
>> DIRUT REDO+17
DO STUFF+7!
DTIME LC+8, CRLF+8, CR+7
DUZ LC+13, CRLF+12, CR+15
DUZ(2 MAIN+4
FN MOVE~, MOVE+1
>> I LC+8*, CRLF+8*, CR+7*
IO LC+8, CRLF+8, CR+7
>> J CR+10*, CR+11, CR+12, CR+13
LST LIST~, LIST+1
OPS MOVE~
RFLG LC~, LC+16, CRLF~, CRLF+15, CR~, CR+18
SDIR MOVE~, MOVE+1
U READ+2, READ+6, READ+7, READ+8, READ+9, READ+10, READ+16, REDO+2, REDO+6, REDO+7
, REDO+8, REDO+9, REDO+10, REDO+25
>> X STUFF+8*
>> Y LC+5*, LC+6, CRLF+5*, CRLF+6, CR+5*, CR+6, STUFF+12, REDO+18, LIST+1*
>> ZTQUEUED READ+4, READ+11, LC+6, LC+17, CRLF+6, CRLF+16, CR+6, CR+19, REDO+4, REDO+22
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