Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
847 bytes
|
Rev | Line | |
---|
[628] | 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.