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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SRHLVORU

Package: Surgery

Routine: SRHLVORU


Information

SRHLVORU ;B'HAM ISC/DLR - Surgery Interface Receiver of ORU message ; [ 05/06/98 7:14 AM ]

Source Information

Source file <SRHLVORU.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 3 OBR^SRHLVUI  (NTE,OBX)^SRHLVUI2  (ERR,MSA)^SRHLVUO  
Health Level Seven 2 $$FMNAME^HLFNC  EN^HLTRANS  
VA FileMan 2 ^DIC  ^DIE  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SRHLVUI  SRHLVUI2  

Entry Points

Name Comments DBIA/ICR reference
REC
EXIT ;
PICK ;check routine for segment entry point
MSH ;process the MSH segment
PID ;process PID segment
OBX ;OBX segments processing
NTE ;NTE segment processing
DSC
OBR ;OBR segment processing
CHECK(IEN) ;check for valid receivable segments in file 133.2 (Surgery Interface)
REPORT(HLMID) ;creates discrepancy report to be mailed to SR HL7 mailgroup
SET(ECODE,OBR,OBX,SRHLX) ;sets up discrepancy global

External References

Name Field # of Occurrence
^DIC EXIT+7
^DIE REC+6, OBX+1, NTE+1, OBR+1
$$FMNAME^HLFNC PID+2
EN^HLTRANS EXIT+6
OBR^SRHLVUI OBX+1, OBR+14
NTE^SRHLVUI2 NTE+2
OBX^SRHLVUI2 OBX+1
ERR^SRHLVUO EXIT+3
MSA^SRHLVUO EXIT+2
^XMD REPORT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DR ",DR
  • Line Location: OBX+1
Function Call: WRITE
  • Prompt: !,"OBR DR",DR
  • Line Location: OBR+1
Routine Call
  • DIC
  • Line Location:
    • EXIT+7
Routine Call
  • DIE
  • Line Location:
    • REC+6
    • OBX+1
    • NTE+1
    • OBR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("B" PID+3
^DPT("SSN" PID+4
^HL(772 - [#772] REC+5
^SRF - [#130] OBR+8, OBR+9
^SRO(133.2 - [#133.2] OBR+6, OBR+12, CHECK+2
^TMP("SRHL" REC+3!, EXIT+7, PID+6*, SET+1*

Label References

Name Line Occurrences
$$CHECK OBR+11, OBR+14
@( PICK+1
PICK REC+5
REPORT EXIT+7
SET OBR+6

Naked Globals

Name Field # of Occurrence
^(0 REC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CASE OBR+2~, OBR+7*, OBR+8, OBR+9, OBR+12
CDFN OBR+2~, OBR+9*
>> DA OBR+12*
DFN REC~, PID+3*, PID+5, PID+6, OBR+9
DFN1 REC~, PID+4*, PID+5, PID+6, OBR+9
DIC EXIT+7!*
DIE REC+6!, OBR+1!, OBR+12*
DO REC+6!, OBX+1!, NTE+1!, OBR+1!
DR REC+6!, OBX+1!, NTE+1!, OBR+1!
ECODE SET~, SET+1
HLCOMP REC~, MSH+2*, OBR+5
>> HLDA REC+5
>> HLECH MSH+1*, MSH+2
>> HLERR REC+5, REC+6, EXIT+2, EXIT+3, EXIT+4, EXIT+5, PICK+2*, PID+5*, OBX+1, NTE+1
, NTE+2, OBR+1, OBR+5*, OBR+7*, OBR+8*, OBR+9*, OBR+14
>> HLFS MSH+1*, MSH+3, PID+2, OBR+5, OBR+7, SET+1
HLMID EXIT+7, REPORT~, REPORT+1
>> HLMTN EXIT+1*
HLREP REC~, MSH+2*
>> HLSDT EXIT+1*
HLSUB REC~, MSH+2*
I PID+1~, PID+3*
ID OBR+2~, OBR+5*, OBR+6
IEN OBR+2~, OBR+6*, OBR+11, OBR+12, OBR+14, CHECK~, CHECK+1, CHECK+2
II REC~, REC+5*
>> MSG REC+5*, MSH+1, MSH+3, PID+2, OBX+1, NTE+2, OBR+5, OBR+7, OBR+14
OBR OBX+1, NTE+2, OBR+6, OBR+14*, SET~, SET+1
OBX SET~, SET+1
PAT PID+1~, PID+2*, PID+3, PID+6
QOBR REC~, REC+1*, REC+6, OBX+1, NTE+1, NTE+2, OBR+1, OBR+3*, OBR+11*
SG REC~, REC+5*, PICK+1, PICK+2
SRERR REC~, EXIT+3
SRHLX REC~, REC+3*, PID+6*, OBR+6, SET~, SET+1*
SRI REC~, EXIT+1*, EXIT+2, EXIT+3
>> SRNOCON REC+4*
>> SRTN OBR+12*
SSN REC~, PID+1~, PID+2*, PID+4, PID+6
TYPE REC~, PICK+2, MSH+3*
U OBR+9, OBR+12, CHECK+2
>> UPDATE REC+2*, OBX+1*
>> X EXIT+7*
>> XMSUB REPORT+1*
>> XMTEXT REPORT+3*
>> XMY("G.SRHL D ISCREPANCY" , REPORT+2*
>> Y EXIT+7

Marked Items

Name Field # of Occurrence
$T(@SG PICK+1, PICK+2
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 |  Naked Globals |  Local Variables |  Marked Items  | All