source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7E.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 847 bytes
RevLine 
[613]1MDHL7E ; HOIFO/WAA -Olympus/CMore/Pentax Endoscopy ; 06/08/00
2 ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
3 ;S (TCNT,ICNT,LN)=0
4OBX ; Process OBX
5 N MDATT,PROC
6 S MDAPP=$$GET1^DIQ(702.09,DEVIEN,.16,"I")
7 I MDAPP="OLYMPUS" S SEP="^"
8 I MDAPP="PENTAX" S SEP="^" D PENTAX
9 I MDAPP="CMore" S SEP="~"
10 I MDAPP="ENDOSOFT" S SEP="~"
11 D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1
12 S PROC=0
13 F S PROC=$O(MDATT(PROC)) Q:PROC<1 D
14 . N PROCESS
15 . S PROCESS=$P(MDATT(PROC),";",5)
16 . I PROCESS="TEXT^MDHL7U2" D TXT^MDHL7K2
17 . D @PROCESS
18 . Q
19 Q:'MDIEN
20 D REX^MDHL7U1(MDIEN)
21 D GENACK^MDHL7X
22 Q
23PENTAX ; This will convert the FT lines to TX lines
24 N CNT,LINE
25 S CNT=0
26 F S CNT=$O(^TMP($J,"MDHL7A",CNT)) Q:CNT<1 D
27 . S LINE=^TMP($J,"MDHL7A",CNT)
28 . I $P(LINE,"|",1)'="OBX" Q
29 . I $P(LINE,"|",3)'="FT" Q
30 . S $P(LINE,"|",3)="TX"
31 . S ^TMP($J,"MDHL7A",CNT)=LINE
32 . Q
33 Q
Note: See TracBrowser for help on using the repository browser.