| [613] | 1 | SRHLPRE ;B'HAM ISC/DLR - PRE-INIT FOR HL7 SURGERY INTERFACE ; [ 05/06/98 7:14 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**41**;24 Jun 93
|
|---|
| 3 | D MAILGRP
|
|---|
| 4 | SETUP ;sets up needed HL7 files for the Surgery Interface install
|
|---|
| 5 | N SRN,SRV
|
|---|
| 6 | S X="ZIU",SRN="Schedule Information Unsolicited",SRV="2.1" D 7712
|
|---|
| 7 | S X="ZSQ",SRN="Schedule Query Response",SRV="2.1" D 7712
|
|---|
| 8 | S X="MFN",SRN="Master File Notification",SRV="2.1" D 7712
|
|---|
| 9 | S X="S12",SRN="Notification of New Appointment Booking",SRV="2.1" D 779001
|
|---|
| 10 | S X="S13",SRN="Notification of Appointment Rescheduling",SRV="2.1" D 779001
|
|---|
| 11 | S X="S14",SRN="Notification of Appointment Modification",SRV="2.1" D 779001
|
|---|
| 12 | S X="S15",SRN="Notification of Appointment Cancellation",SRV="2.1" D 779001
|
|---|
| 13 | S X="S17",SRN="Notification of Appointment Deletion",SRV="2.1" D 779001
|
|---|
| 14 | S X="S25",SRN="Query - Schedule Information",SRV="2.1" D 779001
|
|---|
| 15 | S X="M01",SRN="Master File Not Otherwise Specified",SRV="2.1" D 779001
|
|---|
| 16 | S X="M02",SRN="Staff/Practitioneer Master File",SRV="2.1" D 779001
|
|---|
| 17 | CLEAN K DA,DD,DIC,DIE,DO,DR
|
|---|
| 18 | Q
|
|---|
| 19 | MAILGRP ; mail group creation
|
|---|
| 20 | N SRDESC,SRXMY,A,X S X="SRHL DISCREPANCY",DIC=3.8,DIC(0)="" D ^DIC K DIC I Y'=-1 Q
|
|---|
| 21 | S SRDESC(1)="This mail group is used by the Surgery Interface ORU receiver routine to"
|
|---|
| 22 | S SRDESC(2)="report message discrepancies. The discrepancies will include invalid file"
|
|---|
| 23 | S SRDESC(3)="values for certain files, as well as invalid text identifiers from the"
|
|---|
| 24 | S SRDESC(4)="SURGERY INTERFACE PARAMETER file (#133.2).",SRXMY(DUZ)=""
|
|---|
| 25 | S X=$$MG^XMBGRP("SRHL DISCREPANCY",0,+DUZ,0,.SRXMY,.SRDESC,1) I X D BMES^XPDUTL("Mail Group SRHL DISCREPANCY installed")
|
|---|
| 26 | Q
|
|---|
| 27 | 7712 ;check for existence and add/update HL7 Message file
|
|---|
| 28 | D CLEAN S DIC(0)="L",DLAYGO=771.2,DIC="^HL(771.2," D ^DIC I Y=-1 D FILE^DICN S DA=+Y,DIE=DIC,DR="2///"_SRN_";3///"_SRV,DR(2,771.23)=".01///"_SRV D ^DIE
|
|---|
| 29 | Q
|
|---|
| 30 | 779001 ;update HL7 EVENT TYPE file (#779.001)
|
|---|
| 31 | D CLEAN S DIC(0)="L",DLAYGO=779.001,DIC="^HL(779.001," D ^DIC I Y=-1 D FILE^DICN S DA=+Y,DIE=DIC,DR="2///"_SRN_";100///"_SRV,DR(2,779.0101)=".01///"_SRV D ^DIE
|
|---|
| 32 | Q
|
|---|
