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

Package: Imaging

Routine: MAGT7MA


Information

MAGT7MA ;WOIFO/MLH/PMK/DAC - Telepathology - create HL7 message to DPS ;02 Jan 2018 12:58 PM

Source Information

Source file <MAGT7MA.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Imaging 6 OUTPUT^MAGDHOW2  ERROR^MAGDHOWA  ERR^MAGGTERR  ($$BUILDHL7,$$GETFILE,ERROR)^MAGT7MA  $$SEGADD^MAGT7S  ($$TELEPATH,CANCEL,STATUPDT)^MAGTP005  
Health Level Seven 2 $$NEWMSG^HLOAPI  $$SENDSUB^HLOAPI1  
VA FileMan 2 ^DIC  ($$GET1,GETS)^DIQ  
Kernel 1 $$NOW^XLFDT  
Text Integration Utility 1 PUTIMAGE^TIUSRVPL  

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

Package Total Caller Graph
Lab Service 7 LR7OB63D  LRAPED  LRAPEDC  LRAPKOE  LRAPLG1  LRAPRES  LRUDEL  
Imaging 5 MAGDIR9F  MAGDRPC4  MAGDRPC9  MAGT7MA  MAGVIM02  

Entry Points

Name Comments DBIA/ICR reference
EDIT ; main entry point to create HL7 order message for modification
  • ICR #5994
    • Status: Active
    • Usage: Private
    NEW ; entry point for to create HL7 order message for a new case
  • ICR #5994
    • Status: Active
    • Usage: Private
    BUILDHL7(STATE) ; build the segments
    ; Input variables from Lab Package
    ; LRDFN ----- lab file (#63) patient pointer
    ; LRI ------- inverse date in lab file (#63)
    ; LRSS ------ anatomic pathology section abbreviation in lab file (#63) - CY, EM, or SP
    GETFILE(LRSS) ; get FILE information
    REPORT ; main entry point - create HL7 order message for an electronically signed report
  • ICR #5994
    • Status: Active
    • Usage: Private
    CANCEL ; main entry point - create HL7 order message for a cancelled order
  • ICR #5994
    • Status: Active
    • Usage: Private
    NEWTIU(LRSS,PARENTFILE,LRDFN,LRI) ; check if this is a TIU note to be linked to an image group
    ; if so, create the cross-linkages now
    TIUXLINK ; create the cross-linkages to TIU EXTERNAL DATA LINK file
    TIUIEN(LRSS,LRDFN,LRI) ; lookup TIU reference
    ERROR(RETURN,TAG,VARS) ; log the error to the user's email
    SENDHL7() ; P166 DAC - Get value of SEND ANATOMIC PATHOLOGY HL7 switch

    External References

    Name Field # of Occurrence
    ^DIC BUILDHL7+86
    $$GET1^DIQ BUILDHL7+32, BUILDHL7+33, BUILDHL7+64, BUILDHL7+67, BUILDHL7+91, GETFILE+65, SENDHL7+3
    GETS^DIQ BUILDHL7+51, TIUIEN+16
    $$NEWMSG^HLOAPI BUILDHL7+42
    $$SENDSUB^HLOAPI1 BUILDHL7+92
    OUTPUT^MAGDHOW2 BUILDHL7+103
    ERROR^MAGDHOWA ERROR+12
    ERR^MAGGTERR TIUXLINK+12
    $$BUILDHL7^MAGT7MA REPORT+6, CANCEL+2
    $$GETFILE^MAGT7MA BUILDHL7+45, TIUIEN+8
    ERROR^MAGT7MA EDIT+3, NEW+4, BUILDHL7+55, REPORT+7, CANCEL+3, TIUIEN+10, TIUIEN+20
    $$SEGADD^MAGT7S BUILDHL7+79
    $$TELEPATH^MAGTP005 BUILDHL7+61
    CANCEL^MAGTP005 BUILDHL7+73
    STATUPDT^MAGTP005 BUILDHL7+69
    PUTIMAGE^TIUSRVPL TIUXLINK+2
    $$NOW^XLFDT BUILDHL7+101

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^MAG(2006.1 - [#2006.1] GET1^DIQ
    ^LAB(60 - [#60] GET1^DIQ
    ^LR - [#63] GET1^DIQ
    ^HLD(779.4 - [#779.4] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(60 - [#60] GETFILE+60, GETFILE+61, GETFILE+64
    ^MAG(2005 - [#2005] NEWTIU+8*, NEWTIU+12, NEWTIU+13, NEWTIU+14*, TIUXLINK+5*
    ^MAG(2005.42 - [#2005.42] BUILDHL7+61
    ^MAG(2005.85 - [#2005.85] GETFILE+24, GETFILE+37, GETFILE+54
    ^MAG(2006.1 - [#2006.1] SENDHL7+2
    ^MAG(2006.5838 - [#2006.5838] NEWTIU+5, NEWTIU+6, NEWTIU+17!, NEWTIU+18, NEWTIU+19*, NEWTIU+20
    ^TMP("MAG" BUILDHL7+49

    Label References

    Name Line Occurrences
    $$BUILDHL7 EDIT+2, NEW+3
    $$NEWTIU REPORT+5
    $$SENDHL7 BUILDHL7+23
    $$TIUIEN NEWTIU+7
    TIUXLINK NEWTIU+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACNUMB BUILDHL7+6~, BUILDHL7+57*, BUILDHL7+58, BUILDHL7+61, BUILDHL7+69, BUILDHL7+73, BUILDHL7+79
    COMPLETED BUILDHL7+7~, BUILDHL7+64*, BUILDHL7+65
    CROSSREF NEWTIU+2~, NEWTIU+11*, NEWTIU+14
    D0 NEWTIU+2~, NEWTIU+4*, NEWTIU+5*, NEWTIU+6, NEWTIU+17
    DFN BUILDHL7+8~, BUILDHL7+33*, BUILDHL7+34, BUILDHL7+79
    DIC BUILDHL7+83~, BUILDHL7+86*
    DIC(0 BUILDHL7+86*
    DO BUILDHL7+83~
    DUZ(2 SENDHL7+2
    ERRMSG BUILDHL7+11~, BUILDHL7+42
    ERROR BUILDHL7+19~, BUILDHL7+52, TIUIEN+5~, TIUIEN+17
    ERRSTAT BUILDHL7+21~*, BUILDHL7+23, BUILDHL7+26, BUILDHL7+28, BUILDHL7+29, BUILDHL7+30, BUILDHL7+32, BUILDHL7+34, BUILDHL7+42*, BUILDHL7+45*
    , BUILDHL7+46, BUILDHL7+77, BUILDHL7+78, BUILDHL7+79*, BUILDHL7+82, BUILDHL7+94*, BUILDHL7+107, GETFILE+1~*, GETFILE+56*, GETFILE+58
    , GETFILE+69*, GETFILE+73, TIUIEN+6~*, TIUIEN+8*, TIUIEN+9, TIUIEN+10
    FILE BUILDHL7+9~, BUILDHL7+79, GETFILE+4!, TIUIEN+1~
    FILE("COMMENT" GETFILE+21*, GETFILE+34*, GETFILE+51*
    FILE("FIELD" GETFILE+8*, GETFILE+29*, GETFILE+42*
    FILE("NAME" GETFILE+6*, GETFILE+27*, GETFILE+40*
    FILE("ORDERED TEST" , GETFILE+9*, GETFILE+30*, GETFILE+43*
    FILE("PARENT FILE" , GETFILE+23*, GETFILE+36*, GETFILE+53*
    FILE("PROC/EVENT" GETFILE+24*, GETFILE+37*, GETFILE+54*
    FILE("PROCEDU RE IEN" , GETFILE+66*, RE NAME" , GETFILE+60, GETFILE+65*, GETFILE+68
    FILE("SPECIMEN" GETFILE+10*, GETFILE+11*, GETFILE+12*, GETFILE+13*, GETFILE+14*, GETFILE+15*, GETFILE+16*, GETFILE+17*, GETFILE+18*, GETFILE+19*
    , GETFILE+20*, GETFILE+31*, GETFILE+32*, GETFILE+33*, GETFILE+44*, GETFILE+45*, GETFILE+46*, GETFILE+47*, GETFILE+48*, GETFILE+49*
    , GETFILE+50*
    FILE("TIU REF ERENCE" , GETFILE+22*, GETFILE+35*, GETFILE+52*, TIUIEN+13
    FILE(0 BUILDHL7+51, BUILDHL7+57, BUILDHL7+64, BUILDHL7+67, GETFILE+7*, GETFILE+28*, GETFILE+41*
    FILEDATA NEWTIU+2~
    FILEDATA("PAR ENT FILE PTR" , NEWTIU+11, TIUXLINK+4*
    FMDATE BUILDHL7+97~, BUILDHL7+101*
    FMDATETM BUILDHL7+98~, BUILDHL7+101*
    HIT NEWTIU+2~, NEWTIU+3*, NEWTIU+21*, NEWTIU+23
    HL7SUBLIST BUILDHL7+83~, BUILDHL7+87*, BUILDHL7+89, BUILDHL7+91
    HLMSTATE BUILDHL7+99~, BUILDHL7+102*
    I ERROR+1~, ERROR+11*
    IEN GETFILE+2~, GETFILE+60*, GETFILE+61, GETFILE+64, GETFILE+65, GETFILE+66
    IENS BUILDHL7+13~, BUILDHL7+48*, BUILDHL7+51, BUILDHL7+57, BUILDHL7+58, BUILDHL7+64, BUILDHL7+67, BUILDHL7+79, TIUIEN+15*, TIUIEN+16
    , TIUIEN+22, SENDHL7+1~, SENDHL7+2*, SENDHL7+3
    LABDATA BUILDHL7+18~, BUILDHL7+49*, BUILDHL7+50, BUILDHL7+51, BUILDHL7+57, BUILDHL7+79, BUILDHL7+106, TIUIEN+2~
    LABDATA( TIUIEN+22
    >> LRDATA(1 REPORT+3
    LRDFN BUILDHL7+28, BUILDHL7+32, BUILDHL7+33, BUILDHL7+48, BUILDHL7+79, REPORT+1, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+7
    , NEWTIU+17, TIUIEN~, TIUIEN+15
    LRI BUILDHL7+29, BUILDHL7+48, BUILDHL7+79, REPORT+2~, REPORT+3*, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+7, NEWTIU+17
    , TIUIEN~, TIUIEN+15
    >> LRSF REPORT+4
    LRSS BUILDHL7+30, BUILDHL7+45, BUILDHL7+58, BUILDHL7+79, GETFILE~, GETFILE+5, GETFILE+26, GETFILE+39, GETFILE+56, GETFILE+62
    , GETFILE+69, REPORT+5, NEWTIU~, NEWTIU+7, TIUIEN~, TIUIEN+8
    MAGGP NEWTIU+2~, NEWTIU+6*, NEWTIU+8, NEWTIU+12, NEWTIU+13, TIUXLINK+2, TIUXLINK+5
    MAGIEN NEWTIU+2~, NEWTIU+13*, NEWTIU+14
    MAGNEWCASE NEW+1~, BUILDHL7+26
    MESSAGES BUILDHL7+83~, BUILDHL7+92
    MSG BUILDHL7+12~, BUILDHL7+42, BUILDHL7+79, BUILDHL7+92, BUILDHL7+102, TIUXLINK+8~, ERROR+1~, ERROR+12
    MSG(1 TIUXLINK+9*, ERROR+3*
    MSG(2 TIUXLINK+10*, ERROR+4*
    MSG(3 TIUXLINK+11*, ERROR+5*
    MSG(4 ERROR+6*
    MSG(5 ERROR+7*
    MSGTYPE BUILDHL7+100~, BUILDHL7+102*
    MSHELTS BUILDHL7+10~, BUILDHL7+42
    MSHELTS("COUNTRY" BUILDHL7+40*
    MSHELTS("EVENT" BUILDHL7+36*
    MSHELTS("MESS AGE STRUCTURE" , BUILDHL7+37*, AGE TYPE" , BUILDHL7+38*
    MSHELTS("VERSION" BUILDHL7+39*
    NIMAGE NEWTIU+2~, NEWTIU+12*, NEWTIU+13
    PARENTFILE REPORT+2~, REPORT+4*, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+17
    PARMS BUILDHL7+83~, BUILDHL7+92
    PARMS("QUEUE" BUILDHL7+91*
    PARMS("SENDIN G APPLICATION" , BUILDHL7+88*
    PARMS("SUBSCR IPTION IEN" , BUILDHL7+89*
    RELEASED BUILDHL7+14~, BUILDHL7+67*, BUILDHL7+68
    RETURN EDIT+1~, EDIT+2*, EDIT+3, NEW+2~, NEW+3*, NEW+4, REPORT+2~, REPORT+6*, REPORT+7, CANCEL+1~
    , CANCEL+2*, CANCEL+3, ERROR~, ERROR+5
    SEGELTS BUILDHL7+16~
    SEGNAME BUILDHL7+15~, BUILDHL7+78*, BUILDHL7+79
    SETID BUILDHL7+17~
    STATE BUILDHL7~, BUILDHL7+63, BUILDHL7+65*, BUILDHL7+71, BUILDHL7+79
    SUBJECT ERROR+1~, ERROR+2*, ERROR+12
    SUCCESS BUILDHL7+83~, BUILDHL7+92*, BUILDHL7+93
    TAG ERROR~, ERROR+3
    TIUIEN NEWTIU+2~, NEWTIU+7*, NEWTIU+8, NEWTIU+11, TIUXLINK+2, TIUIEN+3~, TIUIEN+22*, TIUIEN+23
    TIUREF TIUIEN+4~, TIUIEN+13*, TIUIEN+16, TIUIEN+22
    TIUXDIEN TIUXLINK+1~, TIUXLINK+2, TIUXLINK+3, TIUXLINK+4, TIUXLINK+5, TIUXLINK+10
    VARIABLES ERROR+1~, ERROR+12
    VARIABLES( ERROR+11*
    VARIABLES("LRDFN" ERROR+8*
    VARIABLES("LRI" ERROR+9*
    VARIABLES("LRSS" ERROR+10*
    VARS BUILDHL7+53~, BUILDHL7+54*, BUILDHL7+55, TIUIEN+18~, TIUIEN+19*, TIUIEN+20, ERROR~, ERROR+11
    X BUILDHL7+83~, BUILDHL7+86*, GETFILE+59~, GETFILE+61*, GETFILE+62, GETFILE+63, REPORT+2~, REPORT+5*
    Y BUILDHL7+83~, BUILDHL7+87

    Marked Items

    Name Field # of Occurrence
    $T( ERROR+3
    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 |  Marked Items  | All