|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
544 bytes
|
| Line | |
|---|
| 1 | VAFHLMRG ;ALB/JLU;creates the MRG segment
|
|---|
| 2 | ;;5.3;Registration;**91**;Jun 06, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | EN(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
|
|---|
| 16 | EX Q MRG
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
