LA7POST ;;DALISC/KAT - POST INIT TO POPULATE DHCP HL7 FILE 771
;;5.2;LAB MESSAGING;**17**;Feb 29, 1996
; Add entry to HL7 DHCP APPLICATION PARAMETER file
;
S LA7DIEN=$O(^HL(771,"B","LA AUTO INST",0)) I $D(^HL(771,+LA7DIEN,0)) W !!,">>>LA AUTO INST entry already exist..." G QUIT
W !!,">>>Adding HL7 DHCP APPLICATION file entry for LA AUTO INST..."
K DINUM,DD,DO
S X="LA AUTO INST",DIC="^HL(771,",DIC(0)="L",DLAYGO=771 D FILE^DICN S (DA,LA7DIEN)=+Y
S ^HL(771,DA,0)="LA AUTO INST^a"
S ^HL(771,DA,"EC")="^~\&",^("FS")="|"
S ^HL(771,DA,"MSG",0)="^771.06P^2^2"
S ^HL(771,DA,"MSG",1,0)=$O(^HL(771.2,"B","ORU",0)),^("R")="ORU^LA7HL7"
S ^HL(771,DA,"MSG",2,0)=$O(^HL(771.2,"B","ORM",0)),^("R")="NONE"
S ^HL(771,DA,"SEG",0)="^771.05P^10^10"
S ^HL(771,DA,"SEG",1,0)=$$IEN("OBR"),^("F")="4,7,8,9,14.22"
S ^HL(771,DA,"SEG",2,0)=$$IEN("OBX"),^("F")="2,3,4,5,6,7,8"
S ^HL(771,DA,"SEG",3,0)=$$IEN("MSH"),^("F")="1,2,3,4,5,6,7,8,9,10,11,12"
S ^HL(771,DA,"SEG",4,0)=$$IEN("PID"),^("F")="3,5,7,8,19"
S ^HL(771,DA,"SEG",5,0)=$$IEN("ORC"),^("F")="1,2,3"
S ^HL(771,DA,"SEG",6,0)=$$IEN("NTE"),^("F")="3"
S DIK=DIC D IX1^DIK
QUIT K DA,DIC,DIK,DLAYGO,X,Y
Q
;
;
IEN(LA7SEG) ; get ien for segment from hl7 segment file
Q $O(^HL(771.3,"B",LA7SEG,0))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7POST 1277 printed Nov 22, 2024@16:49:27 Page 2
LA7POST ;;DALISC/KAT - POST INIT TO POPULATE DHCP HL7 FILE 771
+1 ;;5.2;LAB MESSAGING;**17**;Feb 29, 1996
+2 ; Add entry to HL7 DHCP APPLICATION PARAMETER file
+3 ;
+4 SET LA7DIEN=$ORDER(^HL(771,"B","LA AUTO INST",0))
IF $DATA(^HL(771,+LA7DIEN,0))
WRITE !!,">>>LA AUTO INST entry already exist..."
GOTO QUIT
+5 WRITE !!,">>>Adding HL7 DHCP APPLICATION file entry for LA AUTO INST..."
+6 KILL DINUM,DD,DO
+7 SET X="LA AUTO INST"
SET DIC="^HL(771,"
SET DIC(0)="L"
SET DLAYGO=771
DO FILE^DICN
SET (DA,LA7DIEN)=+Y
+8 SET ^HL(771,DA,0)="LA AUTO INST^a"
+9 SET ^HL(771,DA,"EC")="^~\&"
SET ^("FS")="|"
+10 SET ^HL(771,DA,"MSG",0)="^771.06P^2^2"
+11 SET ^HL(771,DA,"MSG",1,0)=$ORDER(^HL(771.2,"B","ORU",0))
SET ^("R")="ORU^LA7HL7"
+12 SET ^HL(771,DA,"MSG",2,0)=$ORDER(^HL(771.2,"B","ORM",0))
SET ^("R")="NONE"
+13 SET ^HL(771,DA,"SEG",0)="^771.05P^10^10"
+14 SET ^HL(771,DA,"SEG",1,0)=$$IEN("OBR")
SET ^("F")="4,7,8,9,14.22"
+15 SET ^HL(771,DA,"SEG",2,0)=$$IEN("OBX")
SET ^("F")="2,3,4,5,6,7,8"
+16 SET ^HL(771,DA,"SEG",3,0)=$$IEN("MSH")
SET ^("F")="1,2,3,4,5,6,7,8,9,10,11,12"
+17 SET ^HL(771,DA,"SEG",4,0)=$$IEN("PID")
SET ^("F")="3,5,7,8,19"
+18 SET ^HL(771,DA,"SEG",5,0)=$$IEN("ORC")
SET ^("F")="1,2,3"
+19 SET ^HL(771,DA,"SEG",6,0)=$$IEN("NTE")
SET ^("F")="3"
+20 SET DIK=DIC
DO IX1^DIK
QUIT KILL DA,DIC,DIK,DLAYGO,X,Y
+1 QUIT
+2 ;
+3 ;
IEN(LA7SEG) ; get ien for segment from hl7 segment file
+1 QUIT $ORDER(^HL(771.3,"B",LA7SEG,0))
+2 QUIT
