|
Last change
on this file since 1522 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
510 bytes
|
| Line | |
|---|
| 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.
