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