LA7VHLUA.m

LA7VHLUA ;DALOI/JMC - HL7 SNOMED utility ;11/17/11  15:33

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**74**;Sep 27, 1994;Build 229

 ;

 ; Utility to resolve SNOMED CT, LOINC and local codes.

 ;

 Q

 ;

 ;

ADDSCT ; Add entry with SCT to local file

 ; Called from LA7VHLU6

 ;

 N FDA,LA7MSG,LRDIE,LRFPRIV

 ;

 S LRFPRIV=1

 S FDA(1,FILE,"+1,",.01)=TEXT

 S FDA(1,FILE,"+1,",.20)=CODE

 D UPDATE^DIE("","FDA(1)","FDAIEN","LRDIE(1")

 I $D(LRDIE) S LA7IEN="-1^Unable to add SNOMED CT to file"

 E  S LA7IEN=FDAIEN(1)

 ;

 ; Notify that entry has been added

 S LA7MSG="SNOMED CT term added to file #"_FILE

 D SENDBULL,SA

 Q

 ;

 ;

SENDBULL ; Send bulletin that local addition has occurred

 ; Ignore any restrictions (domain closed or protected by security key)

 ;

 ;

 N LA7BODY

 N XMBODY,XMDUZ,XMBNAME,XMERR,XMINSTR,XMPARM,XMTO,X,Y

 ;

 S XMBNAME="LA7 NEW TERM ADDED"

 S XMPARM(1)=LA7MSG

 S XMPARM(2)=$S($G(LA76248):$$GET1^DIQ(62.48,LA76248_",",.01),1:"UNKNOWN")

 S XMPARM(3)=$G(LA76429)

 ;

 S XMINSTR("ADDR FLAGS")="R"

 S XMINSTR("FROM")="LAB PACKAGE"

 ;

 S XMTO("G."_$$FAMG^LA7VHLU1(LA76248,1))=""

 D SENDBULL^XMXAPI(DUZ,XMBNAME,.XMPARM,$S($D(LA7BODY):"LA7BODY",1:""),.XMTO,.XMINSTR,.LA7TSK,"")

 ;

 Q

 ;

 ;

SA ; Send alert

 ;

 N XQA,XQAID,XQADATA,XQAFLAG,XQAMSG,XQAOPT,XQAROU

 S XQAMSG="Lab Messaging - Addition of new term - see mail bulletin"

 S XQAID="LA7-NEW-TERM"_$S($G(LA76248):"-"_$$GET1^DIQ(62.48,LA76248_",",.01),1:"")

 S XQA("G."_$$FAMG^LA7VHLU1($G(LA76248),1))=""

 D DEL^LA7UXQA(XQAID)

 D SETUP^XQALERT

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LA7VHLUA   1551     printed  Apr 09, 2024@20:44:27                                                                                                                                                                                                    Page 2

LA7VHLUA  ;DALOI/JMC - HL7 SNOMED utility ;11/17/11  15:33

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**74**;Sep 27, 1994;Build 229

 +2       ;

 +3       ; Utility to resolve SNOMED CT, LOINC and local codes.

 +4       ;

 +5        QUIT 

 +6       ;

 +7       ;

ADDSCT    ; Add entry with SCT to local file

 +1       ; Called from LA7VHLU6

 +2       ;

 +3        NEW FDA,LA7MSG,LRDIE,LRFPRIV

 +4       ;

 +5        SET LRFPRIV=1

 +6        SET FDA(1,FILE,"+1,",.01)=TEXT

 +7        SET FDA(1,FILE,"+1,",.20)=CODE

 +8        DO UPDATE^DIE("","FDA(1)","FDAIEN","LRDIE(1")

 +9        IF $DATA(LRDIE)

               SET LA7IEN="-1^Unable to add SNOMED CT to file"

 +10      IF '$TEST

               SET LA7IEN=FDAIEN(1)

 +11      ;

 +12      ; Notify that entry has been added

 +13       SET LA7MSG="SNOMED CT term added to file #"_FILE

 +14       DO SENDBULL

           DO SA

 +15       QUIT 

 +16      ;

 +17      ;

SENDBULL  ; Send bulletin that local addition has occurred

 +1       ; Ignore any restrictions (domain closed or protected by security key)

 +2       ;

 +3       ;

 +4        NEW LA7BODY

 +5        NEW XMBODY,XMDUZ,XMBNAME,XMERR,XMINSTR,XMPARM,XMTO,X,Y

 +6       ;

 +7        SET XMBNAME="LA7 NEW TERM ADDED"

 +8        SET XMPARM(1)=LA7MSG

 +9        SET XMPARM(2)=$SELECT($GET(LA76248):$$GET1^DIQ(62.48,LA76248_",",.01),1:"UNKNOWN")

 +10       SET XMPARM(3)=$GET(LA76429)

 +11      ;

 +12       SET XMINSTR("ADDR FLAGS")="R"

 +13       SET XMINSTR("FROM")="LAB PACKAGE"

 +14      ;

 +15       SET XMTO("G."_$$FAMG^LA7VHLU1(LA76248,1))=""

 +16       DO SENDBULL^XMXAPI(DUZ,XMBNAME,.XMPARM,$SELECT($DATA(LA7BODY):"LA7BODY",1:""),.XMTO,.XMINSTR,.LA7TSK,"")

 +17      ;

 +18       QUIT 

 +19      ;

 +20      ;

SA        ; Send alert

 +1       ;

 +2        NEW XQA,XQAID,XQADATA,XQAFLAG,XQAMSG,XQAOPT,XQAROU

 +3        SET XQAMSG="Lab Messaging - Addition of new term - see mail bulletin"

 +4        SET XQAID="LA7-NEW-TERM"_$SELECT($GET(LA76248):"-"_$$GET1^DIQ(62.48,LA76248_",",.01),1:"")

 +5        SET XQA("G."_$$FAMG^LA7VHLU1($GET(LA76248),1))=""

 +6        DO DEL^LA7UXQA(XQAID)

 +7        DO SETUP^XQALERT

 +8       ;

 +9        QUIT