Routine: RAIPST15

RAIPST15 ;HIRMFO/BNT - Post-init number three (patch twelve) ;5/19/99

VERSION ;;5.0;Radiology/Nuclear Medicine;**12**;Mar 16, 1998

EN1 ; *** Adding Event Drivers (HL7 version 2.3) to the Protocol file ***

 I '$D(^ORD(101,"B","RA RPT 2.3")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA RPT 2.3"

 . S RAFDA(101,"+1,",1)="Rad/nuc Med report released/verified"

 . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 . S RAFDA(101,"+1,",4)="event driver"

 . S RAFDA(101,"+1,",20)="Q"

 . S RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 . S RAFDA(101,"+1,",770.3)="ORU"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 . S RAFDA(101,"+1,",772)="Q"

 . S RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 . S RAFDA(101,"+1,",770.4)="R01"

 . D MSG^RAIPST12("RA RPT 2.3",101),UPDATE^DIE("E","RAFDA")

 . I $D(^ORD(101,"B","RA RPT 2.3")) D  Q

 . . S RA101=$O(^ORD(101,"B","RA RPT 2.3",0))

 . . K RAFDA S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")

 . . S ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine report"

 . . S ^ORD(101,RA101,1,2,0)="enters into a status of verified or Released/Not Verified.  It executes"

 . . S ^ORD(101,RA101,1,3,0)="code that creates an HL7 version 2.3 ORU message consisting of PID, OBR"

 . . S ^ORD(101,RA101,1,4,0)="and OBX segments.  The message contains relevant information about the"

 . . S ^ORD(101,RA101,1,5,0)="report, including procedure, procedure modifiers, diagnostic code,"

 . . S ^ORD(101,RA101,1,6,0)="interpreting physician, impression text and report text."

 . . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^^^"

 . . Q

 . D MSG^RAIPST12("RA RPT 2.3",101,1)

. Q

 I '$D(^ORD(101,"B","RA CANCEL 2.3")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA CANCEL 2.3"

 . S RAFDA(101,"+1,",1)="Rad/Nuc Med exam cancellation"

 . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 . S RAFDA(101,"+1,",4)="event driver"

 . S RAFDA(101,"+1,",20)="Q"

 . S RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 . S RAFDA(101,"+1,",770.3)="ORM"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 . S RAFDA(101,"+1,",772)="Q"

 . S RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 . S RAFDA(101,"+1,",770.4)="O01"

 . D MSG^RAIPST12("RA CANCEL 2.3",101),UPDATE^DIE("E","RAFDA")

 . I $D(^ORD(101,"B","RA CANCEL 2.3")) D  Q

 . . S RA101=$O(^ORD(101,"B","RA CANCEL 2.3",0))

 . . K RAFDA S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")

 . . S ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is"

 . . S ^ORD(101,RA101,1,2,0)="cancelled.  It executes code that creates an HL7 version 2.3 ORM message"

 . . S ^ORD(101,RA101,1,3,0)="consisting of PID, ORC, and OBX segments.  The message contains all"

 . . S ^ORD(101,RA101,1,4,0)="relevant information about the exam, including procedure, time of"

 . . S ^ORD(101,RA101,1,5,0)="cancellation, procedure modifiers, patient allergies and clinical history."

 . . S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"

 . . Q

 . D MSG^RAIPST12("RA CANCEL 2.3",101,1)

. Q

 I '$D(^ORD(101,"B","RA REG 2.3")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA REG 2.3"

 . S RAFDA(101,"+1,",1)="Rad/Nuc Med exam registered for HL7 v2.3 message"

 . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 . S RAFDA(101,"+1,",4)="event driver"

 . S RAFDA(101,"+1,",20)="Q"

 . S RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 . S RAFDA(101,"+1,",770.3)="ORM"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 . S RAFDA(101,"+1,",772)="Q"

 . S RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 . S RAFDA(101,"+1,",770.4)="O01"

 . D MSG^RAIPST12("RA REG 2.3",101)

 . D UPDATE^DIE("E","RAFDA")

 . I $D(^ORD(101,"B","RA REG 2.3")) D  Q

 . . S RA101=$O(^ORD(101,"B","RA REG 2.3",0))

 . . K RAFDA S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")

 . . S ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is"

 . . S ^ORD(101,RA101,1,2,0)="registered.  It executes code that creates an HL7 ORM version 2.3 message"

 . . S ^ORD(101,RA101,1,3,0)="consisting of PID, ORC, OBR, and OBX segments.  The message containes all"

 . . S ^ORD(101,RA101,1,4,0)="relevant information about the exam, including procedure, time of"

 . . S ^ORD(101,RA101,1,5,0)="registration, procedure modifiers, patient allergies, and clinical"

 . . S ^ORD(101,RA101,1,6,0)="history."

 . . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 . . Q

 . D MSG^RAIPST12("RA REG 2.3",101,1)

. Q

 I '$D(^ORD(101,"B","RA EXAMINED 2.3")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA EXAMINED 2.3"

 . S RAFDA(101,"+1,",1)="Rad/Nuc Med examined case"

 . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 . S RAFDA(101,"+1,",4)="event driver"

 . S RAFDA(101,"+1,",20)="Q"

 . S RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 . S RAFDA(101,"+1,",770.3)="ORM"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 . S RAFDA(101,"+1,",772)="Q"

 . S RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 . S RAFDA(101,"+1,",770.4)="O01"

 . D MSG^RAIPST12("RA EXAMINED 2.3",101),UPDATE^DIE("E","RAFDA")

 . I $D(^ORD(101,"B","RA EXAMINED 2.3")) D  Q

 . . S RA101=$O(^ORD(101,"B","RA EXAMINED 2.3",0))

 . . K RAFDA S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")

 . . S ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam has"

 . . S ^ORD(101,RA101,1,2,0)="reached a status where GENERATE EXAMINED HL7 MSG is Y at that (or at a"

 . . S ^ORD(101,RA101,1,3,0)="lower) status.  An HL7 version 2.3 ORM message will be generated that"

 . . S ^ORD(101,RA101,1,4,0)="contains all relevant information about the exam, including procedure,"

 . . S ^ORD(101,RA101,1,5,0)="time of registration, procedure modifiers, patient allergies, and clinical"

 . . S ^ORD(101,RA101,1,6,0)="history."

 . . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 . . Q

 . D MSG^RAIPST12("RA EXAMINED 2.3",101,1)

. Q

RAIPST15  ;HIRMFO/BNT - Post-init number three (patch twelve) ;5/19/99

VERSION   ;;5.0;Radiology/Nuclear Medicine;**12**;Mar 16, 1998

 +1       ;

EN1       ; *** Adding Event Drivers (HL7 version 2.3) to the Protocol file ***

 +1        IF '$DATA(^ORD(101,"B","RA RPT 2.3"))

               Begin DoDot:1

 +2                NEW RA101,RAFDA

 +3                SET RAFDA(101,"+1,",.01)="RA RPT 2.3"

 +4                SET RAFDA(101,"+1,",1)="Rad/nuc Med report released/verified"

 +5                SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 +6                SET RAFDA(101,"+1,",4)="event driver"

 +7                SET RAFDA(101,"+1,",20)="Q"

 +8                SET RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 +9                SET RAFDA(101,"+1,",770.3)="ORU"

 +10               SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 +11               SET RAFDA(101,"+1,",772)="Q"

 +12               SET RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 +13               SET RAFDA(101,"+1,",770.4)="R01"

 +14               DO MSG^RAIPST12("RA RPT 2.3",101)

                   DO UPDATE^DIE("E","RAFDA")

 +15               IF $DATA(^ORD(101,"B","RA RPT 2.3"))

                       Begin DoDot:2

 +16                       SET RA101=$ORDER(^ORD(101,"B","RA RPT 2.3",0))

 +17                       KILL RAFDA

                           SET RAFDA(101,RA101_",",770.95)=2.3

                           DO FILE^DIE("E","RAFDA")

 +18                       SET ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine report"

 +19                       SET ^ORD(101,RA101,1,2,0)="enters into a status of verified or Released/Not Verified.  It executes"

 +20                       SET ^ORD(101,RA101,1,3,0)="code that creates an HL7 version 2.3 ORU message consisting of PID, OBR"

 +21                       SET ^ORD(101,RA101,1,4,0)="and OBX segments.  The message contains relevant information about the"

 +22                       SET ^ORD(101,RA101,1,5,0)="report, including procedure, procedure modifiers, diagnostic code,"

 +23                       SET ^ORD(101,RA101,1,6,0)="interpreting physician, impression text and report text."

 +24                       SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^^^"

 +25                       QUIT

                       End DoDot:2

                       QUIT

 +26               DO MSG^RAIPST12("RA RPT 2.3",101,1)

 +27               QUIT

               End DoDot:1

 +28       IF '$DATA(^ORD(101,"B","RA CANCEL 2.3"))

               Begin DoDot:1

 +29               NEW RA101,RAFDA

 +30               SET RAFDA(101,"+1,",.01)="RA CANCEL 2.3"

 +31               SET RAFDA(101,"+1,",1)="Rad/Nuc Med exam cancellation"

 +32               SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 +33               SET RAFDA(101,"+1,",4)="event driver"

 +34               SET RAFDA(101,"+1,",20)="Q"

 +35               SET RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 +36               SET RAFDA(101,"+1,",770.3)="ORM"

 +37               SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 +38               SET RAFDA(101,"+1,",772)="Q"

 +39               SET RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 +40               SET RAFDA(101,"+1,",770.4)="O01"

 +41               DO MSG^RAIPST12("RA CANCEL 2.3",101)

                   DO UPDATE^DIE("E","RAFDA")

 +42               IF $DATA(^ORD(101,"B","RA CANCEL 2.3"))

                       Begin DoDot:2

 +43                       SET RA101=$ORDER(^ORD(101,"B","RA CANCEL 2.3",0))

 +44                       KILL RAFDA

                           SET RAFDA(101,RA101_",",770.95)=2.3

                           DO FILE^DIE("E","RAFDA")

 +45                       SET ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is"

 +46                       SET ^ORD(101,RA101,1,2,0)="cancelled.  It executes code that creates an HL7 version 2.3 ORM message"

 +47                       SET ^ORD(101,RA101,1,3,0)="consisting of PID, ORC, and OBX segments.  The message contains all"

 +48                       SET ^ORD(101,RA101,1,4,0)="relevant information about the exam, including procedure, time of"

 +49                       SET ^ORD(101,RA101,1,5,0)="cancellation, procedure modifiers, patient allergies and clinical history."

 +50                       SET ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"

 +51                       QUIT

                       End DoDot:2

                       QUIT

 +52               DO MSG^RAIPST12("RA CANCEL 2.3",101,1)

 +53               QUIT

               End DoDot:1

 +54       IF '$DATA(^ORD(101,"B","RA REG 2.3"))

               Begin DoDot:1

 +55               NEW RA101,RAFDA

 +56               SET RAFDA(101,"+1,",.01)="RA REG 2.3"

 +57               SET RAFDA(101,"+1,",1)="Rad/Nuc Med exam registered for HL7 v2.3 message"

 +58               SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 +59               SET RAFDA(101,"+1,",4)="event driver"

 +60               SET RAFDA(101,"+1,",20)="Q"

 +61               SET RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 +62               SET RAFDA(101,"+1,",770.3)="ORM"

 +63               SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 +64               SET RAFDA(101,"+1,",772)="Q"

 +65               SET RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 +66               SET RAFDA(101,"+1,",770.4)="O01"

 +67               DO MSG^RAIPST12("RA REG 2.3",101)

 +68               DO UPDATE^DIE("E","RAFDA")

 +69               IF $DATA(^ORD(101,"B","RA REG 2.3"))

                       Begin DoDot:2

 +70                       SET RA101=$ORDER(^ORD(101,"B","RA REG 2.3",0))

 +71                       KILL RAFDA

                           SET RAFDA(101,RA101_",",770.95)=2.3

                           DO FILE^DIE("E","RAFDA")

 +72                       SET ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is"

 +73                       SET ^ORD(101,RA101,1,2,0)="registered.  It executes code that creates an HL7 ORM version 2.3 message"

 +74                       SET ^ORD(101,RA101,1,3,0)="consisting of PID, ORC, OBR, and OBX segments.  The message containes all"

 +75                       SET ^ORD(101,RA101,1,4,0)="relevant information about the exam, including procedure, time of"

 +76                       SET ^ORD(101,RA101,1,5,0)="registration, procedure modifiers, patient allergies, and clinical"

 +77                       SET ^ORD(101,RA101,1,6,0)="history."

 +78                       SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 +79                       QUIT

                       End DoDot:2

                       QUIT

 +80               DO MSG^RAIPST12("RA REG 2.3",101,1)

 +81               QUIT

               End DoDot:1

 +82       IF '$DATA(^ORD(101,"B","RA EXAMINED 2.3"))

               Begin DoDot:1

 +83               NEW RA101,RAFDA

 +84               SET RAFDA(101,"+1,",.01)="RA EXAMINED 2.3"

 +85               SET RAFDA(101,"+1,",1)="Rad/Nuc Med examined case"

 +86               SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()

 +87               SET RAFDA(101,"+1,",4)="event driver"

 +88               SET RAFDA(101,"+1,",20)="Q"

 +89               SET RAFDA(101,"+1,",770.1)="RA-VOICE-SERVER"

 +90               SET RAFDA(101,"+1,",770.3)="ORM"

 +91               SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()

 +92               SET RAFDA(101,"+1,",772)="Q"

 +93               SET RAFDA(101,"+1,",99)=$$TSTMP^RAIPST12()

 +94               SET RAFDA(101,"+1,",770.4)="O01"

 +95               DO MSG^RAIPST12("RA EXAMINED 2.3",101)

                   DO UPDATE^DIE("E","RAFDA")

 +96               IF $DATA(^ORD(101,"B","RA EXAMINED 2.3"))

                       Begin DoDot:2

 +97                       SET RA101=$ORDER(^ORD(101,"B","RA EXAMINED 2.3",0))

 +98                       KILL RAFDA

                           SET RAFDA(101,RA101_",",770.95)=2.3

                           DO FILE^DIE("E","RAFDA")

 +99                       SET ^ORD(101,RA101,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam has"

 +100                      SET ^ORD(101,RA101,1,2,0)="reached a status where GENERATE EXAMINED HL7 MSG is Y at that (or at a"

 +101                      SET ^ORD(101,RA101,1,3,0)="lower) status.  An HL7 version 2.3 ORM message will be generated that"

 +102                      SET ^ORD(101,RA101,1,4,0)="contains all relevant information about the exam, including procedure,"

 +103                      SET ^ORD(101,RA101,1,5,0)="time of registration, procedure modifiers, patient allergies, and clinical"

 +104                      SET ^ORD(101,RA101,1,6,0)="history."

 +105                      SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 +106                      QUIT

                       End DoDot:2

                       QUIT

 +107              DO MSG^RAIPST12("RA EXAMINED 2.3",101,1)

 +108              QUIT

               End DoDot:1

 +109      QUIT

RAIPST15.m