Routine: MAGDHLS

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

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

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

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!

Customize PDF page

Package: Imaging

Routine: MAGDHLS

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Local Variables

Legend:

Marked Items