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

Package: IHS Support HL7 Interfaces

Routine: BHLU


Information

BHLU ; cmi/flag/maw - BHL Utilities ; [ 04/19/2004 10:42 AM ]

Source Information

Source file <BHLU.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  
IHS Generic Interface System 2 EN^INHSGZ  ^INMPORT  
Kernel 2 ^%ZISC  $$OPEN^%ZISH  
IHS Support HL7 Interfaces 1 $$CHK^BHLBCK  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
IHS Support HL7 Interfaces 15 BHL3MS  BHLCHRI  BHLEVENT  BHLIN1I  BHLLPST  BHLORCI  BHLRLABI  BHLRLABL  
BHLRLABN  BHLRLABQ  BHLRLABR  BHLRLABS  BHLRLABT  BHLRLABU  BHLZV1I  
IHS Changes To Lab 4 BLRPRE34  BLRRLU  BLRRLXP  BLRRPOST  
Data Warehouse Export System 3 BDW10P3  BDW10P4  BDW10P5  
IHS Generic Interface System 2 INHSG  INMPORT  
IHS Immunizations Interface 1 BYIMPORT  
IHS Lab LOINC Surveillance 1 BLSLX  

Entry Points

Name Comments DBIA/ICR reference
LPINTHU(BHLUIEN)
ST(ST) ;-- transform into state
DIE ;-- generic DIE call from BHL package
CHAR ;-- set field sep and encoding characters for a message
MPORT ;EP - run the import package utility
FK ;EP - kill fileman variables
SENDFILE(FNM,SDIR,IP,PASS) ;EP - this will trigger a send via the sendto command, sendto.pl must exist
HFSRL(DEST,BHLHDIR,BHLHFNM) ;EP - export from this destination
CHARUP(BHLMIEN) ;EP - update field sep and enc chars for hl7
DIE4 ;-- generic DIE call from BHL package
DIC(BHLFL,BHLVAL) ;EP - generic dic call
COMPILEP(NS)
EOJ ;-- kill variables and quit
COMPILE(MSG)
CHKDOB(BHLDOBC)
DIEM ;-- generic die call for multiples
HFSDW ;-- callable from Data Warehouse
RLINTHU(BHLUIEN)
HFS(BHLHFSN,BHLUIEN)
STUFFO(DEST,STOR)
HFSA(DEST,BHLHDIR,BHLHFNM) ;EP - export from this destination
CHKPAT(BHLPT,BHLDUZ)

External References

Name Field # of Occurrence
NOW^%DTC STUFFO+1
^%ZISC HFS+11, HFSDW+10, HFSRL+9
$$OPEN^%ZISH HFS+1, HFSDW+4, HFSRL+3
$$CHK^BHLBCK HFSDW+2, HFSRL+2
^DIC DIC+1, CHAR+3
FILE^DICN STUFFO+11, STUFFO+19
^DIE DIE+5, DIE4+5, DIEM+2
EN^INHSGZ COMPILE+1, COMPILEP+5
^INMPORT MPORT+8
$$VAL^XBDIQ1 ST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: BHLXR
  • Line Location: HFS+6
Function Call: WRITE
  • Prompt: BHLXR_"~"
  • Line Location: HFS+7
Function Call: WRITE
  • Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"|CR|"),!
  • Line Location: HFS+10
Function Call: WRITE
  • Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"|CR|"),!
  • Line Location: LPINTHU+2
Function Call: WRITE
  • Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"|CR|"),$C(13,10)
  • Line Location: RLINTHU+2
Function Call: WRITE
  • Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"|CR|"),$C(10)
  • Line Location: RLINTHU+3
Function Call: WRITE
  • Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"|CR|"),!
  • Line Location: RLINTHU+4
Function Call: WRITE
  • Prompt: !,"Global ^INXPORT missing, please restore and run MPORT^BHLU"
  • Line Location: MPORT+2
Function Call: WRITE
  • Prompt: !,"Importing GIS "_$G(BHLIT)_" Supplement "_$G(BHLIPK)
  • Line Location: MPORT+6
Function Call: WRITE
  • Prompt: ", developing site "_$G(BHLIST)
  • Line Location: MPORT+7
Function Call: WRITE
  • Prompt: !,"Finished Importing GIS Supplement "
  • Line Location: MPORT+9
Routine Call
  • DIE
  • Line Location:
    • DIE+5
    • DIE4+5
    • DIEM+2
Routine Call
  • DIC
  • Line Location:
    • DIC+1
    • CHAR+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT("D" CHKPAT+2, CHKPAT+3
^AUTTSITE(1 SENDFILE+1
^DD(4001 STUFFO+16
^DPT - [#2] CHKDOB+1, CHKDOB+3
^INLHDEST( HFSDW+3, HFSDW+6, HFSDW+7, HFSDW+9!, HFSRL+5, HFSRL+6, HFSRL+8!, STUFFO+21*
^INRHD("B" STUFFO+3
^INTHL7M - [#4011] CHARUP+1, CHARUP+2*, CHARUP+3*, CHARUP+4*
^INTHL7M("B" COMPILEP+1, COMPILEP+3
^INTHU - [#4001] HFS+4, HFS+5, HFS+9, HFS+10, LPINTHU+1, LPINTHU+2, RLINTHU+1, RLINTHU+4, STUFFO+20!
^INXPORT( MPORT+4, MPORT+5
^INXPORT("" MPORT+1, MPORT+3

Label References

Name Line Occurrences
CHARUP CHAR+6
LPINTHU HFSDW+8
RLINTHU HFSRL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STUFFO+1
>> BHL("MSG" CHAR+5*, CHAR+6
>> BHLDOB CHKDOB+2
>> BHLDOB2 CHKDOB+1*, CHKDOB+2
BHLDOBC CHKDOB~, CHKDOB+1, CHKDOB+3, CHKDOB+5
BHLDUZ CHKPAT~, CHKPAT+1*, CHKPAT+3
>> BHLEFL DIE+6*, DIE4+6*, DIEM+3*
>> BHLERCD DIE+6*, DIE4+6*, DIEM+3*, CHKDOB+2*, CHKDOB+4*
>> BHLERR DIE+6, DIE4+6, DIEM+3, CHKDOB+2, CHKDOB+4
BHLFL DIE+4, DIE+6, DIE4+4, DIE4+6, DIEM+1, DIC~, DIC+1
>> BHLFL2 DIEM+3
>> BHLFLD DIE+4, DIE4+4, DIEM+1, DIEM+3*
>> BHLH HFSDW+6*, HFSDW+7, HFSDW+9, HFSRL+5*, HFSRL+6, HFSRL+8
BHLHDIR HFSA~, HFSDW+4, HFSRL~, HFSRL+3
BHLHFNM HFSA~, HFSDW+4, HFSRL~, HFSRL+3
BHLHFSN HFS~, HFS+1
BHLIPK MPORT+5*, MPORT+6, MPORT+10!
BHLIST MPORT+4*, MPORT+5, MPORT+7, MPORT+10!
BHLIT MPORT+3*, MPORT+4, MPORT+5, MPORT+6, MPORT+10!
>> BHLJOB HFSDW+1*, HFSDW+2, HFSRL+1*, HFSRL+2
BHLMIEN CHARUP~, CHARUP+1, CHARUP+2, CHARUP+3, CHARUP+4
>> BHLMSTD HFS+1, HFS+3, HFS+8
>> BHLNDA COMPILEP+1*, COMPILEP+2, COMPILEP+3
>> BHLNIEN COMPILEP+3*, COMPILEP+4
>> BHLOPS SENDFILE+1*, SENDFILE+3, SENDFILE+5
>> BHLPAT CHKPAT+2, CHKPAT+3*, CHKPAT+4, CHKDOB+2*, CHKDOB+4*, CHKDOB+5*, CHKDOB+6
BHLPT CHKPAT~, CHKPAT+2, CHKPAT+3
>> BHLSEND SENDFILE+3*, SENDFILE+4, SENDFILE+5*, SENDFILE+7
>> BHLSEX CHKDOB+4
>> BHLSEX2 CHKDOB+3*, CHKDOB+4
>> BHLU HFSDW+7*, HFSDW+8, HFSDW+9, HFSRL+6*, HFSRL+7, HFSRL+8
>> BHLUDA HFS+4*, HFS+5, HFS+9*, HFS+10, LPINTHU+1*, LPINTHU+2, RLINTHU+1*, RLINTHU+4
BHLUIEN HFS~, HFS+4, HFS+5, HFS+9, HFS+10, LPINTHU~, LPINTHU+1, LPINTHU+2, RLINTHU~, RLINTHU+1
, RLINTHU+4
BHLVAL DIE+2*, DIE+3, DIE+4, DIE4+2*, DIE4+3, DIE4+4, DIEM+1, DIC~, DIC+1
>> BHLVAL2 DIEM+1
>> BHLX DIE+4, DIE4+4, DIEM+1
>> BHLXDA CHKPAT+2*, CHKPAT+3, STUFFO+13*, STUFFO+17
>> BHLXDEST STUFFO+3*, STUFFO+9, STUFFO+21
>> BHLXDTM STUFFO+1*, STUFFO+8
>> BHLXH STUFFO+2*, STUFFO+21
>> BHLXIO STUFFO+5*, STUFFO+9
>> BHLXPRIO STUFFO+6*, STUFFO+10, STUFFO+21
>> BHLXR HFS+5*, HFS+6, HFS+7
>> BHLXSTAT STUFFO+4*, STUFFO+9
>> BHLXUIF STUFFO+12*, STUFFO+15, STUFFO+17, STUFFO+20, STUFFO+21
>> BHLY DIC+2*, DIC+3, HFSDW+2*, HFSRL+2*
>> BHLYDA CHKPAT+3*
>> DA DIE+4*, DIE4+4*, DIEM+1*
>> DA(1 DIEM+1*, STUFFO+17*
DD FK+1!, STUFFO+7!, STUFFO+14!
DEST HFSA~, HFSDW+3, HFSDW+6, HFSDW+7, HFSDW+9, HFSRL~, HFSRL+5, HFSRL+6, HFSRL+8, STUFFO~
, STUFFO+3
DIC DIC+1*, FK+1!, CHAR+1*, STUFFO+8*, STUFFO+14!, STUFFO+15*
DIC("A" CHAR+2*
DIC("DR" STUFFO+9*, STUFFO+10*
DIC("P" STUFFO+16*
DIC(0 DIC+1*, CHAR+1*, STUFFO+8*, STUFFO+15*
DIE DIE+1!, DIE+4*, DIE+7!, DIE4+1!, DIE4+4*, DIE4+7!, DIEM+1*, DIEM+4!, FK+1!
DIR FK+1!
DO FK+1!, STUFFO+7!, STUFFO+14!
DR DIE+1!, DIE+4*, DIE+7!, DIE4+1!, DIE4+4*, DIE4+7!, DIEM+1*, DIEM+4!, FK+1!
DUZ(2 CHKPAT+1
FNM SENDFILE~, SENDFILE+3, SENDFILE+5
>> INGALL COMPILE+1*, COMPILEP+4*
IO HFS+2, LPINTHU+2, RLINTHU+4
IP SENDFILE~, SENDFILE+3, SENDFILE+5
MSG COMPILE~, COMPILE+1
NS COMPILEP~, COMPILEP+2
>> NST ST+2*, ST+3
PASS SENDFILE~, SENDFILE+2, SENDFILE+5
SDIR SENDFILE~, SENDFILE+3, SENDFILE+5
ST ST~, ST+1, ST+2
STOR STUFFO~, STUFFO+13, STUFFO+17
U CHKDOB+1, CHKDOB+3, CHARUP+1, CHARUP+4, SENDFILE+1
>> X DIC+1*, SENDFILE+4*, SENDFILE+7*, STUFFO+8*, STUFFO+17*, STUFFO+18
Y DIE+6, DIE4+6, DIEM+3, DIC+2, FK+1!, CHAR+4, CHAR+5, COMPILE+1*, COMPILEP+4*, HFS+1*
, HFSDW+4*, HFSDW+5, HFSRL+3*, HFSRL+4, STUFFO+12
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