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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGDHLE

Package: Imaging

Routine: MAGDHLE


Information

MAGDHLE ;WOIFO/SRR/PMK - PACS INTERFACE PID TRIGGERS ;26 Oct 2017 1:30 PM

Source Information

Source file <MAGDHLE.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$PROD^XUPROD  
Imaging 1 ADT^MAGDHLI  

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

Package Total Caller Graph
Imaging 2 MAGD DHCP-PACS ADT EVENTS  MAGD PACS VAFC ADT-A08 CLIENT  
Radiology Nuclear Medicine 1 RAHLRS  

Entry Points

Name Comments DBIA/ICR reference
SENDA08(DFN) ; External API entry point from Radiology Package - P183 PMK 3/16/17
  • ICR #6761
    • Status: Active
    • Usage: Private
    ADTA08 ; Patient Update event from VAFC ADT-A08 SERVER event driver - P183 PMK 3/16/17
    ; Upon entry, DFN will be set to the patient
    ; The DG* variables are not defined by the VAFC package
    SSNCHECK(SSNCHANGES) ; Check for SSN change, return values
    ; Return 1 if there was an SSN change and 0 otherwise
    ; If there was an SSN change, do the following:
    ; save the old value in SSNCHANGES(DATEIME,"OLD")
    ; save the new value in SSNCHANGES(DATEIME,"NEW")
    ; set NEWSSN(DATEIME) to the new value
    ADT ;ADT EVENTS ;From EVENT driver
    TSK ;CREATE TASK to make HL7 messages
    HL7 ;Create HL7 message
    EX ;EXIT
    SET ;Set Logic from MUMPS x-ref on fields .01,.03,.09 of ^DD(2 (^DPT)
    KIL ;Kill logic "AKn" cross references

    External References

    Name Field # of Occurrence
    ^%ZTLOAD TSK+6
    ADT^MAGDHLI HL7+1
    $$PROD^XUPROD TSK+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?5,"*** HL7 TASK FOR PACS ***"
    • Line Location: TSK+10

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIA(2 SSNCHECK+12, SSNCHECK+13, SSNCHECK+16, SSNCHECK+19
    ^MAG(2006.1 - [#2006.1] HL7+1
    ^UTILITY("DGPM" ADT+8, ADT+9

    Label References

    Name Line Occurrences
    $$SSNCHECK ADTA08+9
    EX ADT+9, TSK+13
    HL7 TSK+11
    TSK ADTA08+17

    Naked Globals

    Name Field # of Occurrence
    ^("P" ADT+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A SSNCHECK+24~, SSNCHECK+28!, SSNCHECK+29
    A( SSNCHECK+26*
    DATETIME SSNCHECK+6~, SSNCHECK+14*, SSNCHECK+18, SSNCHECK+19, SSNCHECK+25*, SSNCHECK+26, SSNCHECK+28
    DFN SENDA08~, SSNCHECK+12
    DGNOW ADTA08+3~, ADTA08+8*
    DGPMA ADTA08+3~, ADTA08+8*
    DGPMDA ADTA08+3~, ADTA08+8*, ADT+8, ADT+9
    DGPMT ADTA08+3~, ADTA08+10*, ADTA08+14*
    DIAIEN SSNCHECK+7~, SSNCHECK+11*, SSNCHECK+12*, SSNCHECK+13, SSNCHECK+16, SSNCHECK+19
    DT SSNCHECK+28
    FIELDNUMBER SSNCHECK+8~, SSNCHECK+14*, SSNCHECK+15
    HL771RF ADTA08+5~
    HL771SF ADTA08+5~
    HLCS ADTA08+5~
    HLDOM ADTA08+5~
    HLDT TSK+9~
    HLDT1 TSK+9~
    HLECH ADTA08+4~
    HLENROU TSK+9~
    HLEXROU TSK+9~
    HLFS ADTA08+4~
    HLINSTN ADTA08+4~
    HLMID TSK+9~
    HLN ADTA08+5~
    HLPARAM ADTA08+4~
    HLPARM ADTA08+5~
    HLPID ADTA08+4~
    HLQ ADTA08+4~
    HLREC ADTA08+5~
    HLRESLT1 TSK+9~
    HLRFREQ ADTA08+4~
    HLSAN ADTA08+4~
    HLSFREQ ADTA08+4~
    HLTC TSK+9~
    HLTYPE ADTA08+4~
    HLXM ADTA08+4~
    I ADT+8~*
    MAGDPTCL ADTA08+3~, ADTA08+8*
    MAGKPID EX+2!
    MAGKTYP ADTA08+3~, ADTA08+11*, ADTA08+15*, ADT+8!*, ADT+9, TSK+4, EX+2!
    MAGSENDA08 SENDA08+1~*, SSNCHECK+21
    OLDSSN SSNCHECK+9~, SSNCHECK+16*, SSNCHECK+17, SSNCHECK+18
    SEGIX ADTA08+5~
    SSNCHANGES ADTA08+6~, ADTA08+9, SSNCHECK~, SSNCHECK+27!, SSNCHECK+29*, SSNCHECK+31
    SSNCHANGES( SSNCHECK+18*, SSNCHECK+19*, SSNCHECK+26
    SSNCHANGES("" SSNCHECK+25
    SUB4 ADTA08+5~
    U ADT+9
    VA ADTA08+5~
    VACNTRY ADTA08+5~
    VADM ADTA08+5~
    X SSNCHECK+10~, SSNCHECK+13*, SSNCHECK+14
    ZTDESC TSK+4*, EX+1!
    ZTDTH TSK+3*, EX+1!
    ZTIO TSK+3*, EX+1!
    ZTRTN TSK+4*, EX+1!
    ZTSAVE EX+1!
    ZTSAVE("DFN" TSK+3*
    ZTSAVE("DGNOW" TSK+2*
    ZTSAVE("DGPMA" TSK+2*
    ZTSAVE("DGPMDA" TSK+2*
    ZTSAVE("DGPMT" TSK+3*
    ZTSAVE("MAGDPTCL" TSK+1*
    ZTSAVE("MAGKTYP" TSK+1*
    ZTSAVE("SSNCHANGES(" TSK+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All