17 lines
544 B
Mathematica
17 lines
544 B
Mathematica
VAFHLMRG ;ALB/JLU;creates the MRG segment
|
|
;;5.3;Registration;**91**;Jun 06, 1996
|
|
;
|
|
EN(DFN,BEF) ;this line tag will creat the MRG segment.
|
|
;
|
|
;The variable HLFS must be defined before calling this entry point
|
|
;DFN - the DFN of the Patient.
|
|
;BEF - the value of PID before it was changed.
|
|
;
|
|
;This function call creates the MRG segment.
|
|
;
|
|
N MRG
|
|
I $S('$D(DFN):1,DFN="":1,1:0) S MRG="-1^Patient not identified." G EX
|
|
I $S('$D(BEF):1,BEF="":1,1:0) S MRG="-1^Value of PID not defined." G EX
|
|
S MRG="MRG"_HLFS_DFN_HLFS_HLFS_HLFS_BEF
|
|
EX Q MRG
|