|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 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.
