source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHLMRG.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 544 bytes
Line 
1VAFHLMRG ;ALB/JLU;creates the MRG segment
2 ;;5.3;Registration;**91**;Jun 06, 1996
3 ;
4EN(DFN,BEF) ;this line tag will creat the MRG segment.
5 ;
6 ;The variable HLFS must be defined before calling this entry point
7 ;DFN - the DFN of the Patient.
8 ;BEF - the value of PID before it was changed.
9 ;
10 ;This function call creates the MRG segment.
11 ;
12 N MRG
13 I $S('$D(DFN):1,DFN="":1,1:0) S MRG="-1^Patient not identified." G EX
14 I $S('$D(BEF):1,BEF="":1,1:0) S MRG="-1^Value of PID not defined." G EX
15 S MRG="MRG"_HLFS_DFN_HLFS_HLFS_HLFS_BEF
16EX Q MRG
Note: See TracBrowser for help on using the repository browser.