VAFHLMRG.m

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 ---VAFHLMRG   560     printed  Feb 19, 2025@00:29:04                                                                                                                                                                                                     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