Last change
on this file since 897 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
847 bytes
|
Line | |
---|
1 | MDHL7E ; HOIFO/WAA -Olympus/CMore/Pentax Endoscopy ; 06/08/00
|
---|
2 | ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
|
---|
3 | ;S (TCNT,ICNT,LN)=0
|
---|
4 | OBX ; 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
|
---|
23 | PENTAX ; 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.