source: WorldVistAEHR/trunk/r/SURGERY-SR/SRCHL7U.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1SRCHL7U ;BIR/SJA - Receive HL-7 Surgery Request Consults Message (continued) ;12/27/04 11:41 AM
2 ;;3.0; Surgery ;**144**;24 Jun 93
3 ;
4 Q
5PID(SRCPID) ;Get fields from PID segment.
6 S SRDFN=$P(SRCPID,"|",4),SRCPNM=$P(SRCPID,"|",6)
7 Q
8REJECT ;can't be filed send reject message
9 ;send message to mail group SR CONSULT
10 S DFN=SRDFN D DEM^VADPT
11 K XMY S XMDUZ="SURGERY PACKAGE" D NOW^%DTC S Y=% X ^DD("DD")
12 S SRM(1)="The Surgery Request Consult could not be processed for pre-certification."
13 S SRM(2)=""
14 S SRM(3)="Patient: "_$E(VADM(1),1,20)
15 S SRM(4)="Date of Operation: "_SRDOP
16 S SRM(5)="Surgeon ID: "_SRCPV1(17)
17 S SRM(6)="Attending Surgeon ID: "_SRCPV1(7)
18 S SRM(7)="Surgical Specialty: "_SRCSURG(2)
19 S SRM(8)="Principal Pre-Op Diagnosis: "_SRCDG1(1,4)
20 S SRM(9)="Principal Operative Procedure: "_SRCPR1(4)
21 S XMTEXT="SRM(",XMSUB="Surgery Consult Error Log"
22 S XMY("G.SR CONSULT")=""
23 D ^XMD K XMTEXT,XMY,XMSUB,SRM
24EXIT ;Kill variables and exit
25 K Y,SRDOP,SRCZSS,SRCTRLC,SRCSURG,SRCSTDT,SRCSST,SRCSS,SRCSEND
26 K SRX,SRCRF,SRCRFL,SRCRB,SRCRATSN,SRCQT,SRCPV2,SRCPR1,SRCPNM,SRCOTXT
27 K SRCORNP,SRCOID,SRCODT,SRCOCR,SRCOBX,SRCOBR,SRCNOD,SRCMSG,SRCINTR,SRCDIV
28 K SRCDG1,SRCATN,SRCARFN,SRC99C,SRDFN,LN
29 Q
30FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
31 N X S X=$$HL7TFM^XLFDT(DATE)
32 Q X
Note: See TracBrowser for help on using the repository browser.