| 1 | SRCHL7U ;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
|
|---|
| 5 | PID(SRCPID) ;Get fields from PID segment.
|
|---|
| 6 | S SRDFN=$P(SRCPID,"|",4),SRCPNM=$P(SRCPID,"|",6)
|
|---|
| 7 | Q
|
|---|
| 8 | REJECT ;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
|
|---|
| 24 | EXIT ;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
|
|---|
| 30 | FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
|
|---|
| 31 | N X S X=$$HL7TFM^XLFDT(DATE)
|
|---|
| 32 | Q X
|
|---|
