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

Package: IHS Support HL7 Interfaces

Routine: BHLBPS


Information

BHLBPS ; IHS/TUCSON/DCP - HL7 RDS Message Processor ;

Source Information

Source file <BHLBPS.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Level Seven 2 ($$FMDATE,$$FMNAME,$$UPPER)^HLFNC  GENACK^HLMA1  
IHS Support HL7 Interfaces 1 ^BHLBPS1  
IHS VA Utilities 1 ^XBKVAR  
MailMan 1 ^XMB  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
INIT ;
END
DISPLAY ; Display result messages (programmer debug mode only)
EOJ ;
Z03 ;
Z02 ;
PID ;
RXD ;
FILING ;
START ; ENTRY POINT from HL7 client protocol
BULLETIN ; Send Error Bulletin
MSH ;
DEBUG ; ENTRY POINT for programmer testing
ACKMSG ;
; transmit acknowledgement message back to sending application if required
ORC ;

External References

Name Field # of Occurrence
^BHLBPS1 FILING+4
^DIR DEBUG+11
$$FMDATE^HLFNC PID+5, RXD+7, Z03+3
$$FMNAME^HLFNC PID+3, ORC+5, Z02+9
$$UPPER^HLFNC DEBUG+52, DEBUG+58
GENACK^HLMA1 ACKMSG+10
^XBKVAR INIT+1
^XMB BULLETIN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MSH is missing"
  • Line Location: DEBUG+15
Function Call: WRITE
  • Prompt: !,"sending application is missing from MSH"
  • Line Location: DEBUG+32
Function Call: WRITE
  • Prompt: !,"receiving application is missing from MSH"
  • Line Location: DEBUG+33
Function Call: WRITE
  • Prompt: !,"message type is missing from MSH"
  • Line Location: DEBUG+34
Function Call: WRITE
  • Prompt: !,"event type is missing from MSH"
  • Line Location: DEBUG+35
Function Call: WRITE
  • Prompt: !,"Invalid Message Type"
  • Line Location: DEBUG+41
Function Call: WRITE
  • Prompt: !,"Invalid Event Type"
  • Line Location: DEBUG+47
Function Call: WRITE
  • Prompt: !,"Invalid Sending Application"
  • Line Location: DEBUG+53
Function Call: WRITE
  • Prompt: !,"Invalid Receiving Application"
  • Line Location: DEBUG+59
Function Call: WRITE
  • Prompt: !,"Invalid Receiving Application"
  • Line Location: DEBUG+61
Function Call: WRITE
  • Prompt: !,"Receiving Application is Inactive"
  • Line Location: DEBUG+62
Function Call: WRITE
  • Prompt: !,"Invalid Event"
  • Line Location: DEBUG+67
Function Call: WRITE
  • Prompt: !,"Invalid Receiving Application for this Event"
  • Line Location: DEBUG+73
Function Call: WRITE
  • Prompt: !,"Processing..."
  • Line Location: DEBUG+75
Function Call: WRITE
  • Prompt: !,"Done"
  • Line Location: DEBUG+83
Function Call: WRITE
  • Prompt: !,"Error Message:",!,?3,$S($G(HLERR)="":"none",1:HLERR)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Error Data:",!,?3,$S($G(BHLEDATA)="":"none",1:BHLEDATA)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"ACK message:"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,?3,"none"
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,?3,HLA("HLA",I)
  • Line Location: DISPLAY+7
Routine Call
  • DIR
  • Line Location:
    • DEBUG+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(771 - [#771] DEBUG+51, DEBUG+52, DEBUG+57, DEBUG+58, DEBUG+60
^HL(771.2 - [#771.2] DEBUG+40
^HL(772 - [#772] DEBUG+14
^HL(779.001 - [#779.001] DEBUG+46
^ORD(101 - [#101] DEBUG+66, DEBUG+72
^TMP("BHLBPS" DEBUG+80!

Label References

Name Line Occurrences
@( START+3
ACKMSG START+4
BULLETIN START+6
DISPLAY START+7
EOJ END, INIT+2
FILING START+4
INIT START+2
START DEBUG+82

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!
%1 DEBUG+9~
%DT DEBUG+9~
%X BULLETIN+3~
%Y BULLETIN+3~
BHLBPS EOJ+1!
BHLBPS( FILING+2
BHLBPS("MED" ORC+3*, ORC+5*, RXD+3*, RXD+5*, RXD+7*, RXD+9*, RXD+11*, RXD+13*, RXD+15*, RXD+17*
, Z02+3*, Z02+5*, Z02+7*, Z02+9*, INIT+5*
BHLBPS("ORC" ORC+1*
BHLBPS("PAT D EMO" , MSH+8*, PID+3*, PID+5*, PID+7*, PID+9*, PID+11*, INIT+7*
BHLBPS("PID" PID+1*
BHLBPS("RXD" RXD+1*
BHLBPS("VISIT" MSH+9*, Z03+3*, Z03+5*, INIT+6*
BHLBPS("Z02" Z02+1*
BHLBPS("Z03" Z03+1*
BHLCS PID+11, ORC+3, ORC+5, RXD+11, RXD+13, Z02+7, Z02+9, EOJ+1!, INIT+10*
BHLDATA START+3*, MSH+3*, MSH+5, MSH+7, PID+3, PID+5, PID+7, PID+9, PID+11, ORC+3
, ORC+5, RXD+3, RXD+5, RXD+7, RXD+9, RXD+11, RXD+13, RXD+15, RXD+17, Z02+3
, Z02+5, Z02+7, Z02+9, Z03+3, Z03+5, EOJ+1!
BHLDBUG ACKMSG+9, BULLETIN+2, DEBUG+81*, DEBUG+84!, DISPLAY+2
BHLEDATA BULLETIN+6, EOJ+1!, DISPLAY+4
BHLERR START+5*, START+6, FILING+2*, FILING+3*, ACKMSG+5, ACKMSG+6, ACKMSG+7, ACKMSG+8, ACKMSG+11*, BULLETIN+5
, EOJ+1!, INIT+4*
BHLFAC MSH+1~, MSH+7*, MSH+8, MSH+9
BHLFS START+3, MSH+3, MSH+7, MSH+8, MSH+9, PID+3, PID+5, PID+7, PID+9, PID+11
, ORC+3, ORC+5, RXD+3, RXD+5, RXD+7, RXD+9, RXD+11, RXD+13, RXD+15, RXD+17
, Z02+3, Z02+5, Z02+7, Z02+9, Z03+3, Z03+5, ACKMSG+7, ACKMSG+8, EOJ+1!, INIT+8*
BHLMSH MSH+5*, EOJ+1!
BHLMSH9 DEBUG+8~, DEBUG+23*, DEBUG+24, DEBUG+25, DEBUG+79!
BHLSAN DEBUG+8~, DEBUG+52*, DEBUG+79!
BHLSEG START+3*, EOJ+1!
D0 EOJ+2!
DA EOJ+2!
DD EOJ+2!
DFN EOJ+2!
DIC EOJ+2!
DIK EOJ+2!
DIR DEBUG+9~
DIR("A" DEBUG+11*
DIR("T" DEBUG+11*
DIR(0 DEBUG+11*
DISYS DEBUG+9~
DO EOJ+2!
DR EOJ+2!
F EOJ+2!
HL DEBUG+8~
HL("ACAT" ACKMSG+3, DEBUG+27*
HL("APAT" ACKMSG+3, ACKMSG+4, ACKMSG+5, ACKMSG+6, DEBUG+28*
HL("ECH" INIT+9, DEBUG+20*, DEBUG+24, DEBUG+25
HL("EID" ACKMSG+10, DEBUG+66*, DEBUG+67, DEBUG+72
HL("EIDS" ACKMSG+10, DEBUG+71*, DEBUG+72*, DEBUG+73
HL("ETN" DEBUG+25*, DEBUG+35, DEBUG+46
HL("ETP" DEBUG+45*, DEBUG+46*, DEBUG+47, DEBUG+66, DEBUG+72
HL("FS" INIT+8, DEBUG+19*, DEBUG+20, DEBUG+21, DEBUG+22, DEBUG+23, DEBUG+26, DEBUG+27, DEBUG+28
HL("MID" ACKMSG+7, DEBUG+26*
HL("MTN" DEBUG+24*, DEBUG+34, DEBUG+40
HL("MTP" DEBUG+39*, DEBUG+40*, DEBUG+41, DEBUG+66, DEBUG+72
HL("RAN" DEBUG+22*, DEBUG+33, DEBUG+52, DEBUG+57, DEBUG+58
HL("RAP" DEBUG+57*, DEBUG+58*, DEBUG+59, DEBUG+60, DEBUG+72
HL("SAN" DEBUG+21*, DEBUG+32, DEBUG+51
HL("SAP" DEBUG+51*, DEBUG+52*, DEBUG+53, DEBUG+66
HLA EOJ+2!, DISPLAY+6
HLA("HLA" ACKMSG+7*, ACKMSG+8*, DISPLAY+7
HLECH PID+3, ORC+5, Z02+9, INIT+9*, INIT+10, DEBUG+8~
HLERR START+5, START+6*, INIT+3!, DISPLAY+3
HLMTIEN BULLETIN+7, DEBUG+8~, DEBUG+12*, DEBUG+14
>> HLMTIENS ACKMSG+10
HLNEXT START+3, DEBUG+8~, DEBUG+78*
HLNODE START+3, DEBUG+8~, DEBUG+14*, DEBUG+15, DEBUG+19, DEBUG+20, DEBUG+21, DEBUG+22, DEBUG+23, DEBUG+26
, DEBUG+27, DEBUG+28, DEBUG+76*
HLQUIT START+3, DEBUG+8~, DEBUG+77*
HLRESLTA ACKMSG+2~, ACKMSG+10, ACKMSG+11
I EOJ+2!, DISPLAY+7~*
IO DEBUG+9~
SEG FILING+1~, FILING+2*
U ACKMSG+11
X BULLETIN+3~, EOJ+2!, DEBUG+8~, DEBUG+9~, DEBUG+58*, DEBUG+72*, DEBUG+79!
X2 DEBUG+8~, DEBUG+60*, DEBUG+61, DEBUG+62, DEBUG+79!
XMB BULLETIN+3~, BULLETIN+4*
XMB(1 BULLETIN+5*
XMB(2 BULLETIN+6*
XMB(3 BULLETIN+7*
XMDT BULLETIN+3~
XMDUZ BULLETIN+3~, BULLETIN+8*
Y EOJ+2!, DEBUG+9~, DEBUG+12
Y1 BULLETIN+3~

Marked Items

Name Field # of Occurrence
$T(@BHLSEG START+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All