SRHLPRE.m

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 ---SRHLPRE   2039     printed  Apr 09, 2024@21:46:48                                                                                                                                                                                                     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