Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MDHL7E

MDHL7E.m

Go to the documentation of this file.
  1. MDHL7E ; HOIFO/WAA -Olympus/CMore/Pentax Endoscopy ; 06/08/00
  1. ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
  1. ;S (TCNT,ICNT,LN)=0
  1. OBX ; Process OBX
  1. N MDATT,PROC
  1. S MDAPP=$$GET1^DIQ(702.09,DEVIEN,.16,"I")
  1. I MDAPP="OLYMPUS" S SEP="^"
  1. I MDAPP="PENTAX" S SEP="^" D PENTAX
  1. I MDAPP="CMore" S SEP="~"
  1. I MDAPP="ENDOSOFT" S SEP="~"
  1. D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1
  1. S PROC=0
  1. F S PROC=$O(MDATT(PROC)) Q:PROC<1 D
  1. . N PROCESS
  1. . S PROCESS=$P(MDATT(PROC),";",5)
  1. . I PROCESS="TEXT^MDHL7U2" D TXT^MDHL7K2
  1. . D @PROCESS
  1. . Q
  1. Q:'MDIEN
  1. D REX^MDHL7U1(MDIEN)
  1. D GENACK^MDHL7X
  1. Q
  1. PENTAX ; This will convert the FT lines to TX lines
  1. N CNT,LINE
  1. S CNT=0
  1. F S CNT=$O(^TMP($J,"MDHL7A",CNT)) Q:CNT<1 D
  1. . S LINE=^TMP($J,"MDHL7A",CNT)
  1. . I $P(LINE,"|",1)'="OBX" Q
  1. . I $P(LINE,"|",3)'="FT" Q
  1. . S $P(LINE,"|",3)="TX"
  1. . S ^TMP($J,"MDHL7A",CNT)=LINE
  1. . Q
  1. Q