Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

Entry Points

Name Comments DBIA/ICR reference
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
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
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
;
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
;
OBXADT(XDFN,XYMSG)
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
    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
    Info |  Source |  Entry Points