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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: MDCADT

Package: Clinical Procedures

Routine: MDCADT


Information

MDCADT ;HINES OIFO/DP/BJ/TJ - HL7 Build ADT Axx Messages;10 Aug 2007

Source Information

Source file <MDCADT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Clinical Procedures 3 EN^MDCEVN  EN^MDCPID  EN^MDCPV1  
Health Level Seven 2 $$GETAPP^HLCS2  $$HLDATE^HLFNC  
VA FileMan 2 NOW^%DTC  $$EZBLD^DIALOG  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Clinical Procedures 8 MDCA01  MDCA02  MDCA03  MDCA08  MDCA11  MDCA12  MDCA13  MDCPMESQ  

Entry Points

Name Comments DBIA/ICR reference
PV1 ; PV1 - Patient Visit - required or empty
BLDMSG(KEY,VFLAG,OUT,MSHP,MDCEVN) ;
EVN ; EVN - Event Type with EVN.7.1 - required
PID ; PID - Patient Identification - required
VALID ;HL7 MESSAGE BUILDER
; Creates HL7 V2.4 "Axx Type" message
; stolen from GMVVDEF1
; segments returned will fall into 1 of four categories
; Case 1 = simple unsubscripted variable e.g. SEG="IN1^Blue Cross.....^^"
; Case 2 = single segment, 2 or more nodes e.g. SEG="PD1^Smith,John...^^"
; SEG(1)="3505 94ST^....^^"
; Case 3 = Multiple segments, 1 node each e.g. SEG(1,0)="NK1^Smith,Mary^2...^^"
; SEG(2,0)="NK1^Smith,Joey^3...^^"
; Case 4 = Multiple segments, 1 or more nodes e.g. SEG(1,0)="ZCL^ data ...^^"
; SEG(1,0,1)="^ more data ...^^"
; SEG(1,0,2)="^ end of data ...^^"
; SEG(2,0)="ZCL^ all of segment ^^"
; SEG(3,0)="ZCL^ another segment ^^"
; SEG(3,0,1)=" etc., etc. ^^"
; I $D(SEG)=1 Case 1
; I $D(SEG)=11 Case 2
; I $D(SEG)=10 Case 3 or 4
MAILERR ; mail error notification to g.developers
SAVE ;
ERR(MDCERR) ;
; Input: MDCERR - Error message.

External References

Name Field # of Occurrence
NOW^%DTC MAILERR+2
$$EZBLD^DIALOG BLDMSG+30, BLDMSG+37, EVN+4, PID+4, PV1+4
$$GETAPP^HLCS2 MAILERR+4
$$HLDATE^HLFNC MAILERR+3
EN^MDCEVN EVN+1
EN^MDCPID PID+1
EN^MDCPV1 PV1+1
^XMD MAILERR+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BLDMSG+35
^MDC(704.005 - [#704.005] BLDMSG+24
^TMP("HLS" BLDMSG+19!, SAVE+14!*

Label References

Name Line Occurrences
ERR BLDMSG+31, BLDMSG+38, EVN+1, EVN+5, PID+1, PID+5, PV1+1, PV1+5
MAILERR ERR+4
SAVE EVN+6, PID+6, PV1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAILERR+1~, MAILERR+3
>> ARRAY BLDMSG+21*, SAVE+3, SAVE+10, SAVE+15*
>> DFN BLDMSG+34*, BLDMSG+35, BLDMSG+36, PID+1, PID+3, PV1+3
EV BLDMSG+15~
>> HL("SAN" MAILERR+4
HL7DATE MAILERR+1~, MAILERR+3*
I SAVE+5~, SAVE+6*, SAVE+7, SAVE+8*, SAVE+10
IENS BLDMSG+17, ERR+2~, ERR+3*
IENSSAVE BLDMSG+14~, BLDMSG+17*, ERR+3
KEY BLDMSG~, BLDMSG+18, BLDMSG+24, BLDMSG+29, MAILERR+8
MDCDATA BLDMSG+24*, BLDMSG+28, PV1+1, PV1+9!
MDCDATA(0 BLDMSG+34
MDCERAY BLDMSG+15~, BLDMSG+30, BLDMSG+37
MDCERAY(1 BLDMSG+29*, BLDMSG+36*
MDCERR BLDMSG+15~, BLDMSG+30*, BLDMSG+31, BLDMSG+37*, BLDMSG+38, EVN+1, EVN+4*, EVN+5, PID+1, PID+4*
, PID+5, PV1+1, PV1+4*, PV1+5, ERR~, MAILERR+10
MDCEVN BLDMSG~, EVN+1, MAILERR+8
MDCIEN BLDMSG+15~, BLDMSG+18*, EVN+1, EVN+3, PV1+3, ERR+3
MDCMAIL BLDMSG+14~
MDCMAIL(1 MAILERR+10*
MDCPARM EVN+4, PID+4, PV1+4, ERR+6!
MDCPARM( PV1+3*
MDCPARM(1 EVN+3*, PID+3*, PV1+3*
MDCPARM(2 EVN+3*, PID+3*
MDCPARM(3 EVN+3*, PID+3*, PV1+3*
MDCS BLDMSG+15~, BLDMSG+18*, SAVE+2*, SAVE+9*
MDCSEG BLDMSG+15~, EVN+1, EVN+2, PID+1, PID+2, PV1+1, PV1+2, SAVE+1, SAVE+3, SAVE+4
, SAVE+11!
MDCSEG( SAVE+8, SAVE+10
MDCSITE PV1+9!
MSHP BLDMSG~
OUT BLDMSG~, BLDMSG+19!, ERR+6!
OUT("HLS" SAVE+14!
PARAM PV1+9!
RECEIVER MAILERR+1~, MAILERR+4*, MAILERR+5*, MAILERR+7
TARGET BLDMSG+14~, BLDMSG+21*, BLDMSG+28, BLDMSG+35, EVN+1, EVN+2, PID+1, PID+2, PV1+1, PV1+2
, PV1+10, SAVE+13, SAVE+15*
U BLDMSG+34, SAVE+13, SAVE+15, MAILERR+5
VFLAG BLDMSG~
XMDUZ MAILERR+1~, MAILERR+6*
XMSUB MAILERR+1~, MAILERR+8*
XMTEXT MAILERR+1~, MAILERR+9*
XMY MAILERR+1~
XMY( MAILERR+7*
ZTSTOP ERR+2~, ERR+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All