Routine: GMTSMCMA

Information

GMTSMCMA ; WAS/DCB\KER - Medicine 2.2 interface routine ; 02/11/2003 [11/14/03 9:12am]

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
MailMan	3	KILL^XM REMSBMSG^XMA1C ^XMD
Health Level Seven	1	($$FMDATE,$$FMNAME,$$HLDATE,$$HLNAME)^HLFNC
Medicine	1	($$HL7,HL1)^MCORMN
VA Fileman	1	NOW^%DTC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Health Summary	2	GMTSMCPS GMTSMCZZ
Order Entry Results Reporting	1	ORDV08

Entry Points

Name	Comments	DBIA/ICR reference
SLITTER	; This will slit the message in a usable form
SOBX(VALUE)	; Slit the OBX
HSUM(PATID,BDATE,EDATE,OCC,WH,ATYPE)	; Health Summary API	ICR #3967 Status: Active Usage: Private
SPID(VALUE)	; Slit the PID
OTHER(VALUE)	; Set the next sub node if the lines continue
MSH(MSTR,SAP,SNF,RAP,RNF,MST,PCI,VID)	; MSH Messaging Line
CONVERT(FILETYPE,RST)	; Convert FileMan to HL7
SLIT(ARRY)	; Reformat Array
SOBR(VALUE)	; Slit the OBR
CONVERTA(FILETYPE,RST)	; Convert HL7 to FileMan
REMOVE(MESS1,MESS2)	; Remove messages from the server basket
SETREF(MCOUNT,COUNT,XDES)	; Set Count
SMSH(VALUE)	; Slit the message header
QRD(WSF,WDDC,QFC,QLR,QRL)	; QRD Messaging Line

Name	Field # of Occurrence
NOW^%DTC	MSH+3, QRD+3
$$FMDATE^HLFNC	CONVERTA+3
$$FMNAME^HLFNC	CONVERTA+4
$$HLDATE^HLFNC	CONVERT+3
$$HLNAME^HLFNC	CONVERT+4
$$HL7^MCORMN	HSUM+24
HL1^MCORMN	HSUM+4, HSUM+26
KILL^XM	HSUM+21, HSUM+23, REMOVE+3
REMSBMSG^XMA1C	REMOVE+2
^XMD	HSUM+21

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CONVERTA+3
^DIC(4 - [#4]	HSUM+10
^TMP("MCAR"	HSUM+27!
^TMP("MCAR1"	HSUM+25, HSUM+30!

Name	Line Occurrences
$$CONVERT	HSUM+14, MSH+3, QRD+3
$$CONVERTA	SOBR+2, SOBR+6, SOBR+8, SOBR+10, SOBX+6
$$MSH	HSUM+12
$$QRD	HSUM+16
REMOVE	HSUM+24, HSUM+30
SETREF	SMSH+7, SOBR+5, SOBR+7, SOBR+9, SOBR+11, SOBX+9
SLIT	HSUM+27, HSUM+29
SLITTER	SLIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MSH+1~, MSH+3, QRD+1~, QRD+3
%I	MSH+1~, QRD+1~
ARRAY	HSUM+1~, HSUM+5*, HSUM+12, HSUM+16
ARRY	HSUM+17, HSUM+21, HSUM+24, HSUM+27, HSUM+30, SLIT~, SLIT+2
ATYPE	HSUM~, HSUM+13*, HSUM+15, HSUM+26
BASE	SLIT+1~, SLIT+3, SMSH+6, SOBR+4, SOBR+7, SOBR+9, SOBR+11, SOBX+8, OTHER+3, OTHER+4 , SETREF+1
BDATE	HSUM~, HSUM+14, HSUM+26
BUILDER	HSUM+2~, SLIT+1~, SLIT+2*, SLIT+4, SLITTER+2
COUNT	SLIT+1~, SLIT+3, SMSH+4, SMSH+6, SMSH+7, SOBR+3, SOBR+4, SOBR+5, SOBR+7, SOBR+9* , SOBR+11, SOBX+2, SOBX+8, SOBX+9, OTHER+3, OTHER+4, SETREF~, SETREF+1
DUZ(2	HSUM+10
EDATE	HSUM~, HSUM+14, HSUM+26
FILETYPE	CONVERT~, CONVERT+3, CONVERT+4, CONVERTA~, CONVERTA+3, CONVERTA+4
FLDTYPE	SOBX+1~, SOBX+4*, SOBX+5, SOBX+6
GMTSG	HSUM+3~, HSUM+4*, HSUM+17, HSUM+25, HSUM+27, HSUM+29, HSUM+30, SLIT+2
HLECH	HSUM+1~, HSUM+7*
LINE	SLITTER+1~, SLITTER+4*, SLITTER+5
LOC	HSUM+2~, HSUM+10*, HSUM+11
LOOP	HSUM+1~, HSUM+2~, HSUM+8, SLIT+1~, SLIT+3, SLIT+4, SLITTER+2, SMSH+1~, SMSH+3, REMOVE+1~ , REMOVE+2*
MCOUNT	SLIT+1~, SLIT+3, SMSH+4, SMSH+6, SMSH+7, SOBR+4, SOBR+5, SOBR+7, SOBR+9, SOBR+11 , SOBX+8, SOBX+9, OTHER+3, OTHER+4, SETREF~, SETREF+1
MESS1	HSUM+2~, HSUM+22, HSUM+24, HSUM+30, REMOVE~, REMOVE+1, REMOVE+2
MESS2	HSUM+2~, REMOVE~, REMOVE+1*, REMOVE+2
MESSAGE	HSUM+1~, HSUM+9*
MSH	HSUM+1~, MSH+1~, MSH+2, MSH+3, MSH+4, MSH+5, MSH+6
MST	HSUM+1~, HSUM+11*, HSUM+12, MSH~, MSH+4
MSTR	HSUM+1~, HSUM+7, HSUM+8, HSUM+12, SMSH+2, SMSH+3, MSH~, MSH+2
MWDDC	HSUM+2~
OCC	HSUM~, HSUM+15, HSUM+26
ORD	HSUM+1~, QRD+3*
PATID	HSUM~, HSUM+15, HSUM+26
PCI	HSUM+1~, HSUM+11*, HSUM+12, MSH~, MSH+5
PROC	SMSH+1~, SMSH+5*, SMSH+6
QFC	HSUM+15*, HSUM+16, QRD~, QRD+4
QID	HSUM+2~
QLR	HSUM+15*, HSUM+16, QRD~, QRD+5
QRD	QRD+1~, QRD+2, QRD+4, QRD+5, QRD+6, QRD+7
QRL	HSUM+2~, HSUM+14*, HSUM+16, QRD~, QRD+6
RAP	HSUM+1~, HSUM+9, HSUM+11, HSUM+12, MSH~, MSH+4
REC	HSUM+2~, HSUM+10*
RNF	HSUM+1~, HSUM+11*, HSUM+12, MSH~, MSH+4
ROUT	SLITTER+1~, SLITTER+3*, SLITTER+4
ROY	SLITTER+1~, SLITTER+2*, SLITTER+3
RST	CONVERT~, CONVERT+2, CONVERT+3, CONVERT+4, CONVERTA~, CONVERTA+2, CONVERTA+3, CONVERTA+4
SAP	HSUM+1~, HSUM+9, HSUM+11, HSUM+12, HSUM+26, MSH~, MSH+2
SNF	HSUM+1~, HSUM+11*, HSUM+12, MSH~, MSH+2
ST	HSUM+1~
ST(	HSUM+8, SMSH+3
ST(1	SMSH+5, SOBR+2, SOBR+6, SOBR+8, SOBR+10, SOBX+3, SOBX+6, SOBX+7, OTHER+2, MSH+2 , MSH+3, MSH+4, MSH+5, QRD+3, QRD+4, QRD+5, QRD+6
ST(2	HSUM+14, HSUM+15, SOBX+3, SOBX+4
ST(3	SOBX+4
SUB	HSUM+2~, SLIT+3, SMSH+2, SPID+1, SOBR+3, SOBX+3, OTHER+2, OTHER+3
TEMP	SOBR+1~, SOBR+2, SOBR+3, SOBR+4, SOBR+6, SOBR+7, SOBR+8, SOBR+9, SOBR+10, SOBR+11 , SOBX+1~, SOBX+3, SOBX+4, SOBX+7, OTHER+1~, OTHER+2, OTHER+3, CONVERT+1~, CONVERT+2, CONVERT+3* , CONVERT+4, CONVERT+5, CONVERTA+1~, CONVERTA+2, CONVERTA+3, CONVERTA+4, CONVERTA+5
TMP	HSUM+2~
U	HSUM+10, SMSH+5, SMSH+6, SOBR+4, SOBR+7, SOBR+9, SOBR+11, SOBX+8, OTHER+3, OTHER+4
UNITS	SOBX+1~, SOBX+7, SOBX+8, OTHER+1~, OTHER+2, OTHER+4
VAL	SOBX+1~, SOBX+6*, SOBX+8
VALUE	SLITTER+1~, SLITTER+2*, SMSH~, SMSH+2, SMSH+5, SPID~, SOBR~, SOBR+2, SOBR+6, SOBR+8 , SOBR+10, SOBX~, SOBX+3, SOBX+6, OTHER~, OTHER+2
VID	HSUM+1~, HSUM+9*, HSUM+12, MSH~, MSH+5
WDC	HSUM+2~
WDDC	HSUM+15*, HSUM+16, QRD~, QRD+6
WH	HSUM~, HSUM+15
WSF	HSUM+2~, HSUM+15*, HSUM+16, QRD~, QRD+6
XDATE	SOBR+1~, SOBR+3*
XDES	SOBX+1~, SOBX+3, SOBX+5, SOBX+8, SOBX+9, SETREF~, SETREF+1
XDEST	HSUM+2~
XMDUN	HSUM+3~, HSUM+18*
XMDUZ	HSUM+3~, HSUM+20*
XMSER	REMOVE+1~, REMOVE+2*
XMSUB	HSUM+3~, HSUM+18*
XMTEXT	HSUM+3~, HSUM+6*
XMY	HSUM+3~
XMY("G.MC MES	SAGING SERVER" , HSUM+19*
XMZ	HSUM+3~, HSUM+21, HSUM+22, REMOVE+2*
Y	MSH+1~, QRD+1~, CONVERTA+1~, CONVERTA+3*

Customize PDF page

Package: Health Summary

Routine: GMTSMCMA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items