ECX3P164.m

ECX3P164 ;ALB/DE - DSS LOINC CODE UPDATE ; 4/18/16 10:00am

 ;;3.0;DSS EXTRACTS;**164**;Dec 22,1997;Build 2

 ;

 ;Post-init routine adding new entries to:

 ;LOINC Code(#727.29) file

 ;

 Q

 ;

POST ;Entry point

 ;Add new LOINC Codes

 D ADDLNC

 Q

 ;

ADDLNC ;Add LOINC Codes

 N ECXLINE,ECXSTR

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" Adding entries to DSS LOINC (#727.29) File...")

 D MES^XPDUTL(" ")

 N DIC,DIE,DA,DLAYGO,DR,X,Y,ECXDN,ECXDTN,ECXLN,ECXDRU

 S DIC="^ECX(727.29,",DIC(0)="L",DLAYGO=727.29

 F ECXLINE=1:1 S ECXSTR=$P($T(ALOINC+ECXLINE),";;",2) Q:ECXSTR="EXIT"  D

 . S X=$P(ECXSTR,"^",1)

 . D ^DIC I Y<0 D  Q

 .. D BMES^XPDUTL("*****")

 .. D MES^XPDUTL("Unsuccessful entry of LOINC Code - "_X_".")

 .. D MES^XPDUTL("******")

 . S ECXDN=$P(ECXSTR,"^",2)

 . S ECXDTN=$P(ECXSTR,"^",3)

 . S ECXDRU=$P(ECXSTR,"^",4)

 . S ECXLN=$P(ECXSTR,"^",5)

 . S DA=+Y,DR=".02///"_ECXDN_";.03///"_ECXDTN_";.04///"_ECXDRU_";.05///"_ECXLN

 . S DIE=DIC D ^DIE

 . D BMES^XPDUTL(">>>...Code "_$P(ECXSTR,"^")_" added to the file.")

 K DA,DIC,DIE,DLAYGO,X,Y

 S DIK="^ECX(727.29,",DIK(1)=".02^AC" D ENALL^DIK

 K DIK

 Q

 ;

ALOINC ;LOINC CODE^LAR TEST #^DSS TEST NAME^REPORTING UNITS^LOINC NAME 

 ;;79190-5^0096^ZIKA PCR^DETECTED/Not Detected^ZIKV RNA XXX Ql PCR

 ;;EXIT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P164   1306     printed  Apr 09, 2024@20:57:06                                                                                                                                                                                                    Page 2

ECX3P164  ;ALB/DE - DSS LOINC CODE UPDATE ; 4/18/16 10:00am

 +1       ;;3.0;DSS EXTRACTS;**164**;Dec 22,1997;Build 2

 +2       ;

 +3       ;Post-init routine adding new entries to:

 +4       ;LOINC Code(#727.29) file

 +5       ;

 +6        QUIT 

 +7       ;

POST      ;Entry point

 +1       ;Add new LOINC Codes

 +2        DO ADDLNC

 +3        QUIT 

 +4       ;

ADDLNC    ;Add LOINC Codes

 +1        NEW ECXLINE,ECXSTR

 +2        DO MES^XPDUTL(" ")

 +3        DO MES^XPDUTL(" ")

 +4        DO MES^XPDUTL(" Adding entries to DSS LOINC (#727.29) File...")

 +5        DO MES^XPDUTL(" ")

 +6        NEW DIC,DIE,DA,DLAYGO,DR,X,Y,ECXDN,ECXDTN,ECXLN,ECXDRU

 +7        SET DIC="^ECX(727.29,"

           SET DIC(0)="L"

           SET DLAYGO=727.29

 +8        FOR ECXLINE=1:1

               SET ECXSTR=$PIECE($TEXT(ALOINC+ECXLINE),";;",2)

               if ECXSTR="EXIT"

                   QUIT 

               Begin DoDot:1

 +9                SET X=$PIECE(ECXSTR,"^",1)

 +10               DO ^DIC

                   IF Y<0

                       Begin DoDot:2

 +11                       DO BMES^XPDUTL("*****")

 +12                       DO MES^XPDUTL("Unsuccessful entry of LOINC Code - "_X_".")

 +13                       DO MES^XPDUTL("******")

                       End DoDot:2

                       QUIT 

 +14               SET ECXDN=$PIECE(ECXSTR,"^",2)

 +15               SET ECXDTN=$PIECE(ECXSTR,"^",3)

 +16               SET ECXDRU=$PIECE(ECXSTR,"^",4)

 +17               SET ECXLN=$PIECE(ECXSTR,"^",5)

 +18               SET DA=+Y

                   SET DR=".02///"_ECXDN_";.03///"_ECXDTN_";.04///"_ECXDRU_";.05///"_ECXLN

 +19               SET DIE=DIC

                   DO ^DIE

 +20               DO BMES^XPDUTL(">>>...Code "_$PIECE(ECXSTR,"^")_" added to the file.")

               End DoDot:1

 +21       KILL DA,DIC,DIE,DLAYGO,X,Y

 +22       SET DIK="^ECX(727.29,"

           SET DIK(1)=".02^AC"

           DO ENALL^DIK

 +23       KILL DIK

 +24       QUIT 

 +25      ;

ALOINC    ;LOINC CODE^LAR TEST #^DSS TEST NAME^REPORTING UNITS^LOINC NAME 

 +1       ;;79190-5^0096^ZIKA PCR^DETECTED/Not Detected^ZIKV RNA XXX Ql PCR

 +2       ;;EXIT

 +3        QUIT