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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHLMRG 560 printed Dec 13, 2024@03:03:02 Page 2
VAFHLMRG ;ALB/JLU;creates the MRG segment
+1 ;;5.3;Registration;**91**;Jun 06, 1996
+2 ;
EN(DFN,BEF) ;this line tag will creat the MRG segment.
+1 ;
+2 ;The variable HLFS must be defined before calling this entry point
+3 ;DFN - the DFN of the Patient.
+4 ;BEF - the value of PID before it was changed.
+5 ;
+6 ;This function call creates the MRG segment.
+7 ;
+8 NEW MRG
+9 IF $SELECT('$DATA(DFN):1,DFN="":1,1:0)
SET MRG="-1^Patient not identified."
GOTO EX
+10 IF $SELECT('$DATA(BEF):1,BEF="":1,1:0)
SET MRG="-1^Value of PID not defined."
GOTO EX
+11 SET MRG="MRG"_HLFS_DFN_HLFS_HLFS_HLFS_BEF
EX QUIT MRG
