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 |  Marked Items |  All
Print Page as PDF
Routine: GMTSMCMA

Package: Health Summary

Routine: GMTSMCMA


Information

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

Source Information

Source file <GMTSMCMA.m>

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

    External References

    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

    Global Variables Directly Accessed

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

    Label References

    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*

    Marked Items

    Name Field # of Occurrence
    $T(HL1^MCORMN HSUM+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All