source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNHPID.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 510 bytes
Line 
1SPNHPID ;SAN/WDE;Create pid segment
2 ;;2.0;Spinal Cord Dysfunction;**10,24**;01/02/97
3EN(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))="" ;
7INI ;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.