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

Package: Imaging

Routine: MAGDHLS


Information

MAGDHLS ;WOIFO/MLH/JSL/SAF/PMK - IHE-based ADT interface for PACS - segments ;13 Sep 2018 3:55 PM

Source Information

Source file <MAGDHLS.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Imaging 7 $$STRIP0^MAG7UD  $$NPFON^MAG7UFO  $$PARSE^MAG7UP  $$STATNUMB^MAGDFCNV  OBXADT^MAGDHLSO  PV1^MAGDHLSV  $$ISIHS^MAGSPID  
Registration 2 (DEM,IN5,PID)^VADPT  $$EN^VAFHLPID  
Adverse Reaction Tracking 1 EN1^GMRADPT  
Kernel 1 $$FMTHL7^XLFDT  
Master Patient Index VistA 1 ($$GETICN,$$IFLOCAL,IFLOCAL)^MPIF001  
Problem List 1 ACTIVE^GMPLUTL  

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

Package Total Caller Graph
Imaging 3 MAGDHLTA  MAGDHLTC  MAGDHOW2  
Radiology Nuclear Medicine 1 RAHLRU1  

Entry Points

Name Comments DBIA/ICR reference
PID(XDFN,XYMSG) ; FUNCTION - patient ID/demo
; input: XDFN internal entry number of the pt on gbl ^DPT
; XYMSG name of array to which to add message elts
; output: @XYMSG input array plus new subtree containing PID elts
; function return 0 (success) always
  • ICR #4973
    • Status: Withdrawn
    • Usage: Private
  • ICR #4977
    • Status: Withdrawn
    • Usage: Private
  • ICR #5023
    • Status: Active
    • Usage: Private
    PV1(XDFN,XEVN,XEVNDT,XYMSG)
  • ICR #4973
    • Status: Withdrawn
    • Usage: Private
  • ICR #5023
    • Status: Active
    • Usage: Private
    DG1(XDFN,XYMSG) ; FUNCTION - diagnosis
    ; input: XDFN internal entry number of the patient on global ^DPT
    ; XYMSG name of array to which to add message elts
    ; output: @XYMSG input array plus new subtree containing EVN elts
    ; function return 0 (success) always
    ROL(XDFN,XYMSG) ; FUNCTION role (for physicians) - propagate from PV1
    ; assumes PV1 segment is already populated
    ;
    ; input: XDFN internal entry number of the pt on gbl ^DPT
    ; XYMSG name of array to which to add message elts
    ; output: @XYMSG input array plus new subtree containing PID elts
    ; function return 0 (success) always
    OBXADT(XDFN,XYMSG)
    AL1(XDFN,XYMSG) ; patient allergies
    ; input: XDFN internal entry number of the patient on global ^DPT
    ; XYMSG name of array to which to add message elts
    ; output: @XYMSG input array plus new subtree containing EVN elts
    ; function return 0 (success) always
    MRG(XMRGSSN,XYMSG) ; FUNCTION - update SSN - P183 PMK 3/10/17
    ; input: XMRGSSN Previous value of SSN
    ; XYMSG name of array to which to add MRG segment
    ; output: @XYMSG input array plus new subtree containing MRG elts
    ; function return 0 (success) always
    ;
    EVN(XEVENT,XEVNRDT,XEVNODT,XYMSG) ; FUNCTION - event
    ; input: XEVENT trigger event code
    ; XEVNRDT date/time the event was recorded (FM format)
    ; XEVNODT date/time the event occurred (FM format)
    ; XYMSG name of array to which to add message elts
    ; output: @XYMSG input array plus new subtree containing EVN elts
    ; function return 0 (success) always
    ;

    External References

    Name Field # of Occurrence
    ACTIVE^GMPLUTL DG1+27
    EN1^GMRADPT AL1+18
    $$STRIP0^MAG7UD EVN+18, PID+77
    $$NPFON^MAG7UFO ROL+26
    $$PARSE^MAG7UP PID+32
    $$STATNUMB^MAGDFCNV PID+40
    OBXADT^MAGDHLSO OBXADT
    PV1^MAGDHLSV PV1
    $$ISIHS^MAGSPID MRG+13, PID+43, PID+46, PID+49, PID+50, PID+55
    $$GETICN^MPIF001 PID+22
    $$IFLOCAL^MPIF001 PID+21
    IFLOCAL^MPIF001 PID+21
    DEM^VADPT AL1+15
    IN5^VADPT DG1+13
    PID^VADPT PID+33
    $$EN^VAFHLPID PID+28
    $$FMTHL7^XLFDT EVN+16, EVN+17

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ALDTA AL1+10~, AL1+21*, AL1+25, AL1+26
    APROB DG1+9~, DG1+27
    APROB( DG1+29, DG1+35
    >> CPINVOCATION PID+35
    DFN AL1+6~, AL1+18*, DG1+6~, DG1+13*, PID+16~, PID+33*, ROL+15*
    FLDIX EVN+10~, EVN+18*
    GMRAL AL1+7~
    GMRAL( AL1+20, AL1+21, AL1+28, AL1+29
    HL PID+7~
    HL("ECH" PID+19*
    HL("FS" PID+19*
    HL("Q" PID+19*
    >> HLECH PID+19, PID+27
    >> HLFS PID+19, PID+27
    >> HLQ PID+19
    I PID+9~, PID+31*, ROL+13~, ROL+16*
    IX PID+10~, PID+28*, PID+38*
    IX1 PID+10~, PID+59*, PID+60, PID+61, PID+68*, PID+69, PID+70, PID+71, PID+72
    IX2 PID+10~, PID+60*, PID+61, PID+69*, PID+70, PID+71, PID+72
    IX3 PID+10~, PID+70*, PID+71, PID+72
    IX4 PID+10~, PID+71*, PID+72
    IXAL AL1+8~, AL1+19*, AL1+20*, AL1+21, AL1+28, AL1+29
    IXREAC AL1+11~, AL1+27*, AL1+28*, AL1+29
    MSGDMY PID+8~
    MSGDMY(1 PID+27*
    MSGDMY(2 PID+28*, PID+31*
    MSGTREE PID+13~
    MSGTREE(2 PID+35!*, PID+38!, PID+40*, PID+41*, PID+42*, PID+43*, PID+44*, PID+46*, PID+47*, PID+48*
    , PID+49*, PID+50*, PID+52*, PID+53*, PID+54*, PID+55*, PID+56*, PID+60, PID+61*, PID+68
    , PID+69, PID+70, PID+71, PID+72
    NUL PID+12~, PID+32*, ROL+9~, ROL+26*
    PHYSELT ROL+12~, ROL+19*, ROL+25
    PIDARY PID+6~
    PRCTYP ROL+8~, ROL+18*, ROL+19, ROL+24
    PROBIX DG1+10~, DG1+28*, DG1+29*, DG1+35
    PTICN PID+15~, PID+22*, PID+23!, PID+51, PID+52
    PV1IX ROL+11~, ROL+16*, ROL+17, ROL+19, ROL+25
    REPIX AL1+12~, AL1+28*, AL1+29
    SEGIX AL1+22*, AL1+23, AL1+24, AL1+25, AL1+26, AL1+29, DG1+16*, DG1+17, DG1+20, DG1+21
    , DG1+23, DG1+30*, DG1+31, DG1+34, DG1+35, DG1+36, EVN+8~, EVN+12*, EVN+13, EVN+15
    , EVN+16, EVN+17, EVN+18, MRG+6~, MRG+9*, MRG+10, MRG+12, MRG+13, MRG+14, PID+11~
    , PID+66*, PID+67, PID+72, PID+77, ROL+20*, ROL+21, ROL+22, ROL+23, ROL+24, ROL+25
    , ROL+26
    SETID AL1+9~, AL1+20*, AL1+24, DG1+8~, DG1+12*, DG1+19*, DG1+20, DG1+33*, DG1+34, ROL+10~
    , ROL+15*, ROL+20*, ROL+22
    STAT EVN+9~, EVN+18*, MRG+7~, PID+14~, PID+77*
    U AL1+25, AL1+26
    VA AL1+13~
    VA("PID" PID+46
    VADPT AL1+13~
    VAFPID PID+17~
    VAFPID( PID+31
    VAIP DG1+7~
    VAIP(2 DG1+23
    VAIP(9 DG1+14, DG1+21
    XDFN AL1~, AL1+18, DG1~, DG1+13, DG1+27, OBXADT~, PID~, PID+21, PID+22, PID+28
    , PID+33, PID+40, PV1~, ROL~, ROL+15
    XEVENT EVN~, EVN+15
    XEVN PV1~
    XEVNDT PV1~
    XEVNODT EVN~, EVN+17
    XEVNRDT EVN~, EVN+16
    XMRGSSN MRG~, MRG+12
    XYMSG AL1~, AL1+22, AL1+23, AL1+24, AL1+25, AL1+26, AL1+29, DG1~, DG1+16, DG1+17
    , DG1+20, DG1+21, DG1+23, DG1+30, DG1+31, DG1+34, DG1+35, DG1+36, EVN~, EVN+12
    , EVN+13, EVN+15, EVN+16, EVN+17, EVN+18, MRG~, MRG+9, MRG+10, MRG+12, MRG+13
    , MRG+14, OBXADT~, PID~, PID+66, PID+67, PID+72, PID+77, PV1~, ROL~, ROL+16
    , ROL+19, ROL+20, ROL+21, ROL+22, ROL+23, ROL+24, ROL+25, ROL+26
    YSEGA AL1+17!

    Marked Items

    Name Field # of Occurrence
    $T(IFLOCAL^MPIF001 PID+21
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Local Variables |  Marked Items |  All