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 ---[H[J[2J[HECX3P164 1306 printed Nov 22, 2024@17:00:32 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
