OOPSV221.m

OOPSV221 ;WIOFO/LLH-POST INIT ROUTINE, FILL FIELD 331 ;09/15/09

 ;;2.0;ASISTS;**21**;Jun 03, 2002;Build 7

 ;

 ; Patch 21 Pre Init Routine to clean up data in the Patient Source

 ; field (#34) and Contamination field (#35)

 ; and update 2263.3 T8 code

 ;

 Q  ; prevents excuting from top of routine

 ;

ENT ;

 D BMES^XPDUTL("Starting Pre-install....") H 1

 D CLEAN,UPDATE

 D BMES^XPDUTL("Pre-install Complete!!!") H 1

 Q

CLEAN ;CLEAN UP 2260 ENTRIES

 N OOPSCN,DA,DIC,DIE,DR,OOPSIEN,OOPSFILE,OOPSTYP,OOPSCONTAM,OOPSPAT,DR

 S OOPSFILE=2260,OOPSIEN=0

 D BMES^XPDUTL("Starting data clean up of PATIENT SOURCE (#34) and CONTAMINATION (#35) fields") H 1

 D MES^XPDUTL(" ")

 S DIE="^OOPS(2260,",DR=""

 F  S OOPSIEN=$O(^OOPS(OOPSFILE,OOPSIEN)) Q:OOPSIEN'>0  D

 .S OOPSTYP=$$GET1^DIQ(OOPSFILE,OOPSIEN,3,"I")

 .I OOPSTYP>10&(OOPSTYP<15) Q  ; these are blood borne incidents and should have data

 .; check to see if data in #34 or #35 - if so, kill then go on

 .S OOPSPAT=$$GET1^DIQ(OOPSFILE,OOPSIEN,34,"I"),OOPSCONTAM=$$GET1^DIQ(OOPSFILE,OOPSIEN,35,"I")

 .S OOPSCN=0,DR=""

 .I $G(OOPSPAT)'="" S OOPSCN=OOPSCN+1,DR(1,2260,OOPSCN)="34///@"

 .I $G(OOPSCONTAM)'="" S OOPSCN=OOPSCN+1,DR(1,2260,OOPSCN)="35///@"

 .I $D(DR)>1 S DA=OOPSIEN D ^DIE K DR

 D BMES^XPDUTL("Data Cleanup Complete") H 1

 D MES^XPDUTL(" ")

 Q

UPDATE ;UPDATE 2263.3 IEN 59

 N OOPSIEN1,DA,DIE,DIK

 D BMES^XPDUTL("Starting update of the ASISTS DOL NATURE OF INJURY CODES file") H 1

 S OOPSIEN1=""

 S OOPSIEN1=$O(^OOPS(2263.3,"B","TRAUMATIC INJURY - UNCLASS. (EXCEPT DISEASE, ILLNESS)",0))

 I OOPSIEN1="" D BMES^XPDUTL("TRAUMATIC INJURY (T8) does not exist....quitting update") Q

 S DIK="^OOPS(2263.3,"

 S DA=OOPSIEN1,DIK(1)=.01

 D EN2^DIK

 S $P(^OOPS(2263.3,DA,0),"^")="TRAUMATIC INJURY- UNCLASS. (EXCEPT DISEASE, ILLNESS)"

 D EN1^DIK

 D BMES^XPDUTL("Update Complete") H 1

 K DA,DIE,DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSV221   1888     printed  Apr 09, 2024@20:44:07                                                                                                                                                                                                    Page 2

OOPSV221  ;WIOFO/LLH-POST INIT ROUTINE, FILL FIELD 331 ;09/15/09

 +1       ;;2.0;ASISTS;**21**;Jun 03, 2002;Build 7

 +2       ;

 +3       ; Patch 21 Pre Init Routine to clean up data in the Patient Source

 +4       ; field (#34) and Contamination field (#35)

 +5       ; and update 2263.3 T8 code

 +6       ;

 +7       ; prevents excuting from top of routine

           QUIT 

 +8       ;

ENT       ;

 +1        DO BMES^XPDUTL("Starting Pre-install....")

           HANG 1

 +2        DO CLEAN

           DO UPDATE

 +3        DO BMES^XPDUTL("Pre-install Complete!!!")

           HANG 1

 +4        QUIT 

CLEAN     ;CLEAN UP 2260 ENTRIES

 +1        NEW OOPSCN,DA,DIC,DIE,DR,OOPSIEN,OOPSFILE,OOPSTYP,OOPSCONTAM,OOPSPAT,DR

 +2        SET OOPSFILE=2260

           SET OOPSIEN=0

 +3        DO BMES^XPDUTL("Starting data clean up of PATIENT SOURCE (#34) and CONTAMINATION (#35) fields")

           HANG 1

 +4        DO MES^XPDUTL(" ")

 +5        SET DIE="^OOPS(2260,"

           SET DR=""

 +6        FOR 

               SET OOPSIEN=$ORDER(^OOPS(OOPSFILE,OOPSIEN))

               if OOPSIEN'>0

                   QUIT 

               Begin DoDot:1

 +7                SET OOPSTYP=$$GET1^DIQ(OOPSFILE,OOPSIEN,3,"I")

 +8       ; these are blood borne incidents and should have data

                   IF OOPSTYP>10&(OOPSTYP<15)

                       QUIT 

 +9       ; check to see if data in #34 or #35 - if so, kill then go on

 +10               SET OOPSPAT=$$GET1^DIQ(OOPSFILE,OOPSIEN,34,"I")

                   SET OOPSCONTAM=$$GET1^DIQ(OOPSFILE,OOPSIEN,35,"I")

 +11               SET OOPSCN=0

                   SET DR=""

 +12               IF $GET(OOPSPAT)'=""

                       SET OOPSCN=OOPSCN+1

                       SET DR(1,2260,OOPSCN)="34///@"

 +13               IF $GET(OOPSCONTAM)'=""

                       SET OOPSCN=OOPSCN+1

                       SET DR(1,2260,OOPSCN)="35///@"

 +14               IF $DATA(DR)>1

                       SET DA=OOPSIEN

                       DO ^DIE

                       KILL DR

               End DoDot:1

 +15       DO BMES^XPDUTL("Data Cleanup Complete")

           HANG 1

 +16       DO MES^XPDUTL(" ")

 +17       QUIT 

UPDATE    ;UPDATE 2263.3 IEN 59

 +1        NEW OOPSIEN1,DA,DIE,DIK

 +2        DO BMES^XPDUTL("Starting update of the ASISTS DOL NATURE OF INJURY CODES file")

           HANG 1

 +3        SET OOPSIEN1=""

 +4        SET OOPSIEN1=$ORDER(^OOPS(2263.3,"B","TRAUMATIC INJURY - UNCLASS. (EXCEPT DISEASE, ILLNESS)",0))

 +5        IF OOPSIEN1=""

               DO BMES^XPDUTL("TRAUMATIC INJURY (T8) does not exist....quitting update")

               QUIT 

 +6        SET DIK="^OOPS(2263.3,"

 +7        SET DA=OOPSIEN1

           SET DIK(1)=.01

 +8        DO EN2^DIK

 +9        SET $PIECE(^OOPS(2263.3,DA,0),"^")="TRAUMATIC INJURY- UNCLASS. (EXCEPT DISEASE, ILLNESS)"

 +10       DO EN1^DIK

 +11       DO BMES^XPDUTL("Update Complete")

           HANG 1

 +12       KILL DA,DIE,DIK

 +13       QUIT