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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MDHL7U3

Package: Clinical Procedures

Routine: MDHL7U3


Information

MDHL7U3 ;HOIFO/WAA - Utilities for CP to process HL7 messages ;02/17/10 15:59

Source Information

Source file <MDHL7U3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 3 NOW^%DTC  $$FIND1^DIC  $$GET1^DIQ  
Clinical Procedures 2 $$MG^MDHL7U2  CPTLEX^MDRPCWU  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Health Level Seven 1 DELBODY^HLUOPT2  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 SENDMSG^XMXAPI  

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

Package Total Caller Graph
Clinical Procedures 7 MDHL7A  MDPURGE  MDRPCOT  MDRPCOTH  MDRPCW  MDRPCW1  MDWCAN  

Entry Points

Name Comments DBIA/ICR reference
HL7CHK(MDD702) ; Check to see of there is an entry in 703.1 for a patient.
XVERT(MDA,MDB) ; Strip out blank Lines
PURGE(MDD7031) ;
; This sub-routine will delete HL7 772 Message text after a message
; been processed by Imaging.
PHY(X,MDIEN) ; Add the doc who did the exam to the report
CPTICD(X,MDIEN) ; Break out CPT and ICD9 codes
FILECD(MDIEN,CODE,TYPE) ; fILE THE DATA
ADD(MDIEN,TYPE,LINE,CNT) ;
; Create an entry in the .1 node
MSGIEN(MDHLIENS,MDHLREST) ; Return the message as definded in MDHLIENS to the array in MDHLREST
; Only TCP type messages
; input: MDHLIENS= the intern entry number of the message in ^HLMA
; MDHLREST = the return array that will contain the whole HL7 message
; output: return "1^Message complete" if message was successful, "0^reason" if failed.
CICNV(MDIEN,RETURN) ; This subroutine will read the data in 703.1 and return the results
PROCESS(MDIEN,NODE,TYPE,ARRAY) ; This will process the data for each
NOTICE(SUBJECT,TXT,DEVIEN,DUZ) ; This will fire off a mail message to the Indicated mail group saying that a study was deleted
ALERT(MDSIEN) ; This is to send an e-mail to the main device mail group that a study has been deleted

External References

Name Field # of Occurrence
NOW^%DTC ADD+8, ALERT+1
$$FIND1^DIC NOTICE+6
$$GET1^DIQ NOTICE+7, ALERT+2, ALERT+4, ALERT+10, ALERT+11, ALERT+12, ALERT+13, ALERT+14, ALERT+15, ALERT+16
, ALERT+17
DELBODY^HLUOPT2 PURGE+5
$$ICDDATA^ICDXCODE PROCESS+6
$$CPT^ICPTCOD PROCESS+7
$$MG^MDHL7U2 NOTICE+6
CPTLEX^MDRPCWU PROCESS+24
$$FMTE^XLFDT ALERT+5, ALERT+11, ALERT+16
SENDMSG^XMXAPI NOTICE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^XMB(3.8 - [#3.8] FIND1^DIC,  GET1^DIQ
^MDD(702 - [#702] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] MSGIEN+13, MSGIEN+21, MSGIEN+23
^HLMA - [#773] MSGIEN+10, MSGIEN+11, MSGIEN+15
^MDD(702 - [#702] HL7CHK+5
^MDD(703.1 - [#703.1] HL7CHK+6, HL7CHK+8, PURGE+3, PURGE+4, PURGE+6*, ADD+3, ADD+6*, ADD+7*, ADD+9*, CICNV+7
, CICNV+10, CICNV+11, CICNV+12, PROCESS+3, PROCESS+4, PROCESS+6
^MDS(702.09 - [#702.09] NOTICE+5
^TMP("MDLEX" PROCESS+25, PROCESS+27, PROCESS+29
^TMP($J XVERT+3, XVERT+6, XVERT+7, XVERT+12*, XVERT+16*
^XMB("NETNAME" NOTICE+8

Label References

Name Line Occurrences
ADD PHY+8, FILECD+7
FILECD CPTICD+3, CPTICD+4
PROCESS CICNV+13, CICNV+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILECD+5, ALERT+5
AR PROCESS+1~, PROCESS+6*, PROCESS+7*, PROCESS+9, PROCESS+10, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
, PROCESS+21, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42
ARRAY CICNV+13, CICNV+14, CICNV+17, PROCESS~
ARRAY( PROCESS+9*, PROCESS+15*, PROCESS+16*, PROCESS+17*, PROCESS+18*, PROCESS+19*, PROCESS+37*, PROCESS+38*, PROCESS+39*, PROCESS+40*
, PROCESS+42*
ARRAY(0 CICNV+6*, PROCESS+45*
ARRAY(1 PROCESS+45
ARRAY(2 PROCESS+45
>> BODY(1 ALERT+3*
>> BODY(10 ALERT+12*
>> BODY(11 ALERT+13*
>> BODY(12 ALERT+14*
>> BODY(13 ALERT+15*
>> BODY(14 ALERT+16*
>> BODY(2 ALERT+4*
>> BODY(3 ALERT+5*
>> BODY(4 ALERT+6*
>> BODY(5 ALERT+7*
>> BODY(6 ALERT+8*
>> BODY(7 ALERT+9*
>> BODY(8 ALERT+10*
>> BODY(9 ALERT+11*
CNT XVERT+4~, XVERT+5*, XVERT+12, XVERT+15*, XVERT+16, FILECD+1~, FILECD+2*, FILECD+4, FILECD+5, FILECD+6
, FILECD+7, ADD~, PROCESS+1~, PROCESS+2*, PROCESS+3*, PROCESS+4, PROCESS+36
CNT2 XVERT+4~, XVERT+11*, XVERT+12, XVERT+17*
CODE FILECD~, FILECD+2, FILECD+4, PROCESS+1~, PROCESS+4*, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+24
CONT PROCESS+1~, PROCESS+2*, PROCESS+8*, PROCESS+9, PROCESS+14
CPT CPTICD+1~, CPTICD+3*
CPTCNT PROCESS+22~, PROCESS+26*, PROCESS+27*, PROCESS+29
DESC PROCESS+11~, PROCESS+13*, PROCESS+18, PROCESS+22~, PROCESS+26*, PROCESS+27, PROCESS+31*, PROCESS+33*, PROCESS+40
DEVIEN NOTICE~, NOTICE+4, ALERT+17*
DUZ NOTICE~, NOTICE+11, ALERT+4
FLG XVERT+4~, XVERT+5*, XVERT+9*, XVERT+10, XVERT+14, XVERT+17*, CICNV+2~, CICNV+3*, CICNV+7*, CICNV+10
I XVERT+4~, XVERT+5*, XVERT+6*, XVERT+7, FILECD+1~, FILECD+4*, PROCESS+14*, PROCESS+15, PROCESS+16, PROCESS+17
, PROCESS+18, PROCESS+19, PROCESS+36*, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42
ICD CPTICD+1~, CPTICD+4*
IN PROCESS+11~, PROCESS+12*, PROCESS+22~, PROCESS+23*
INST NOTICE+2~, NOTICE+4*, NOTICE+5
LEX PROCESS+22~, PROCESS+24
LINE PHY+3~, PHY+5*, PHY+6*, PHY+7*, PHY+8, FILECD+1~, FILECD+3*, FILECD+7, ADD~, ADD+9
, PROCESS+28~, PROCESS+29*, PROCESS+30, PROCESS+31
LINE( FILECD+4*, FILECD+5*
LINE1 PHY+3~, PHY+4*, PHY+5, PHY+6, PHY+7
LN PROCESS+11~, PROCESS+22~
LOC PROCESS+1~
MDA XVERT~, XVERT+1, XVERT+3, XVERT+6, XVERT+7
MDB XVERT~, XVERT+2, XVERT+12, XVERT+16
MDD702 HL7CHK~, HL7CHK+5, HL7CHK+6, HL7CHK+8
MDD7031 PURGE~, PURGE+3, PURGE+4, PURGE+6
>> MDD772 PURGE+4*, PURGE+5
MDHLCNT MSGIEN+6~, MSGIEN+7*, MSGIEN+17*, MSGIEN+18*, MSGIEN+22*, MSGIEN+23, MSGIEN+25
MDHLI MSGIEN+6~, MSGIEN+7*, MSGIEN+20*, MSGIEN+21*, MSGIEN+23
MDHLIEN MSGIEN+6~, MSGIEN+11*, MSGIEN+12, MSGIEN+13, MSGIEN+21, MSGIEN+23
MDHLIENS MSGIEN~, MSGIEN+8, MSGIEN+10, MSGIEN+11, MSGIEN+15
MDHLREST MSGIEN~, MSGIEN+9, MSGIEN+17, MSGIEN+18, MSGIEN+23
MDHLZ MSGIEN+6~, MSGIEN+15*, MSGIEN+16, MSGIEN+17
MDIEN PHY~, PHY+8, CPTICD~, CPTICD+2, CPTICD+3, CPTICD+4, FILECD~, FILECD+7, ADD~, ADD+3
, ADD+6, ADD+7, ADD+9, CICNV~, CICNV+4, CICNV+7, CICNV+10, CICNV+11, CICNV+12, CICNV+13
, CICNV+14, PROCESS~, PROCESS+3, PROCESS+4, PROCESS+6
MDSIEN ALERT~, ALERT+2, ALERT+9, ALERT+10, ALERT+11, ALERT+12, ALERT+13, ALERT+14, ALERT+15, ALERT+16
, ALERT+17
MG NOTICE+2~, NOTICE+3*, NOTICE+5*, NOTICE+6*, NOTICE+7*, NOTICE+8
N NOTICE+2~
NODE XVERT+4~, XVERT+7*, XVERT+8*, XVERT+9, XVERT+12, XVERT+16, ADD+2~, ADD+3*, ADD+4*, ADD+5*
, ADD+6, ADD+7, ADD+9, CICNV+2~, CICNV+9*, CICNV+11*, CICNV+12, CICNV+13, CICNV+14, PROCESS~
, PROCESS+3, PROCESS+4
RESULT FILECD+1~, FILECD+4*
RET MSGIEN+6~, MSGIEN+7*, MSGIEN+8*, MSGIEN+9*, MSGIEN+10*, MSGIEN+12*, MSGIEN+13*, MSGIEN+16*, MSGIEN+25*, MSGIEN+26*
, MSGIEN+27
RETURN CICNV~, CICNV+5, CICNV+17
SUBJECT NOTICE~, NOTICE+10, ALERT+2*
TP PROCESS+1~, PROCESS+6*, PROCESS+7*, PROCESS+15, PROCESS+37
TXT NOTICE~
TYPE FILECD~, FILECD+7, ADD~, ADD+7, CICNV+12*, CICNV+13, CICNV+14, PROCESS~, PROCESS+6, PROCESS+7
U PURGE+4, PURGE+6, MSGIEN+11
X HL7CHK+1~, HL7CHK+2*, HL7CHK+5*, HL7CHK+8*, HL7CHK+10, PHY~, PHY+4, CPTICD~, CPTICD+3, CPTICD+4
, ADD+2~, PROCESS+1~, PROCESS+6*, PROCESS+7*, PROCESS+12, PROCESS+13, PROCESS+16, PROCESS+17, PROCESS+23, PROCESS+38
, PROCESS+39, NOTICE+2~
XMBODY NOTICE+2~, NOTICE+9*, NOTICE+11
XMDUZ NOTICE+2~
>> XMINSTR NOTICE+11
>> XMINSTR("FROM" NOTICE+8*
XMSUBJ NOTICE+2~, NOTICE+10*, NOTICE+11
XMTO NOTICE+2~, NOTICE+8*, NOTICE+11
Y HL7CHK+4~, HL7CHK+7*, HL7CHK+8*, FILECD+1~, FILECD+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All