Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
510 bytes
|
Rev | Line | |
---|
[613] | 1 | SPNHPID ;SAN/WDE;Create pid segment
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**10,24**;01/02/97
|
---|
| 3 | EN(SPNFDFN) ;
|
---|
| 4 | ;set up vars and build pid segment called from spnhl7 & spnhl71
|
---|
| 5 | ; note that generate builds the MSH segment and puts it on top.
|
---|
| 6 | Q:$G(^DPT(SPNFDFN,0))="" ;
|
---|
| 7 | INI ;Build message header section
|
---|
| 8 | S HLECH=","
|
---|
| 9 | S HLQ="""",HLFS="^"
|
---|
| 10 | D NOW^%DTC S SPNDT=$$HLDATE^HLFNC(%,"TS")
|
---|
| 11 | S SPMSG=""
|
---|
| 12 | S SPMSG(1)=$$EN^VAFCPID(SPNFDFN,",3,5,7,8,16,19,.315",1)
|
---|
| 13 | ;S SPMSG(1)=$$EN^VAFHLPID(SPNFDFN,",3,5,7,8,16,19,.315",1)
|
---|
| 14 | K SPNDT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.