| 1 | LA7POST ;;DALISC/KAT - POST INIT TO POPULATE DHCP HL7 FILE 771
|
|---|
| 2 | ;;5.2;LAB MESSAGING;**17**;Feb 29, 1996
|
|---|
| 3 | ; Add entry to HL7 DHCP APPLICATION PARAMETER file
|
|---|
| 4 | ;
|
|---|
| 5 | 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
|
|---|
| 6 | W !!,">>>Adding HL7 DHCP APPLICATION file entry for LA AUTO INST..."
|
|---|
| 7 | K DINUM,DD,DO
|
|---|
| 8 | S X="LA AUTO INST",DIC="^HL(771,",DIC(0)="L",DLAYGO=771 D FILE^DICN S (DA,LA7DIEN)=+Y
|
|---|
| 9 | S ^HL(771,DA,0)="LA AUTO INST^a"
|
|---|
| 10 | S ^HL(771,DA,"EC")="^~\&",^("FS")="|"
|
|---|
| 11 | S ^HL(771,DA,"MSG",0)="^771.06P^2^2"
|
|---|
| 12 | S ^HL(771,DA,"MSG",1,0)=$O(^HL(771.2,"B","ORU",0)),^("R")="ORU^LA7HL7"
|
|---|
| 13 | S ^HL(771,DA,"MSG",2,0)=$O(^HL(771.2,"B","ORM",0)),^("R")="NONE"
|
|---|
| 14 | S ^HL(771,DA,"SEG",0)="^771.05P^10^10"
|
|---|
| 15 | S ^HL(771,DA,"SEG",1,0)=$$IEN("OBR"),^("F")="4,7,8,9,14.22"
|
|---|
| 16 | S ^HL(771,DA,"SEG",2,0)=$$IEN("OBX"),^("F")="2,3,4,5,6,7,8"
|
|---|
| 17 | S ^HL(771,DA,"SEG",3,0)=$$IEN("MSH"),^("F")="1,2,3,4,5,6,7,8,9,10,11,12"
|
|---|
| 18 | S ^HL(771,DA,"SEG",4,0)=$$IEN("PID"),^("F")="3,5,7,8,19"
|
|---|
| 19 | S ^HL(771,DA,"SEG",5,0)=$$IEN("ORC"),^("F")="1,2,3"
|
|---|
| 20 | S ^HL(771,DA,"SEG",6,0)=$$IEN("NTE"),^("F")="3"
|
|---|
| 21 | S DIK=DIC D IX1^DIK
|
|---|
| 22 | QUIT K DA,DIC,DIK,DLAYGO,X,Y
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | IEN(LA7SEG) ; get ien for segment from hl7 segment file
|
|---|
| 27 | Q $O(^HL(771.3,"B",LA7SEG,0))
|
|---|
| 28 | Q
|
|---|
