| [613] | 1 | MDHL7K2 ; HOIFO/WAA -HP EnConcert Echo ; 06/08/00
|
|---|
| 2 | ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
|
|---|
| 3 | N TCNT,ICNT,LN
|
|---|
| 4 | S (TCNT,ICNT,LN)=0
|
|---|
| 5 | OBX ; Process OBX
|
|---|
| 6 | N MDATT,PROC
|
|---|
| 7 | D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1
|
|---|
| 8 | S PROC=0
|
|---|
| 9 | F S PROC=$O(MDATT(PROC)) Q:PROC<1 D
|
|---|
| 10 | . N PROCESS
|
|---|
| 11 | . S PROCESS=$P(MDATT(PROC),";",5)
|
|---|
| 12 | . I PROCESS="TEXT^MDHL7U2" D TXT
|
|---|
| 13 | . D @PROCESS
|
|---|
| 14 | . Q
|
|---|
| 15 | Q:'MDIEN
|
|---|
| 16 | D REX^MDHL7U1(MDIEN)
|
|---|
| 17 | D GENACK^MDHL7X
|
|---|
| 18 | Q
|
|---|
| 19 | TXT ; Rebuild the text message for CLINICAL PROCEDURES
|
|---|
| 20 | N MDHLD,CNT,CNT2,LINE,P,TIM1,TIM2,TIME,MDDT,MDHT,MSGC,TITLE,TITLE1
|
|---|
| 21 | S P="|"
|
|---|
| 22 | S (CNT,CNT2,TITLE,TITLE1)=0
|
|---|
| 23 | F S CNT=$O(^TMP($J,"MDHL7A",CNT)) Q:CNT<1 D
|
|---|
| 24 | .S LINE=^TMP($J,"MDHL7A",CNT)
|
|---|
| 25 | .I $P(LINE,P,1)'="OBX" Q
|
|---|
| 26 | .I $P(LINE,P,3)'="TX" Q
|
|---|
| 27 | .I $E($P(LINE,P,6),1,2)="//" Q
|
|---|
| 28 | .I $E($P(LINE,P,6),1,2)="\\" Q
|
|---|
| 29 | .S TITLE=$P(LINE,P,4),TITLE=$P(TITLE,U,2)
|
|---|
| 30 | .I TITLE="PreliminaryReader" D
|
|---|
| 31 | .. N MN,ML,MF,MI,MS,MT
|
|---|
| 32 | .. S MN=$P(LINE,P,6),ML=$P(MN,U,2)
|
|---|
| 33 | .. S MF=$P(MN,U,3),MI=$P(MN,U,4)
|
|---|
| 34 | .. S MS=$P(MN,U,5),MT=$P(MN,U,6)
|
|---|
| 35 | .. S MN=MF
|
|---|
| 36 | .. I MI'="" S MN=MN_" "_MI_"."
|
|---|
| 37 | .. S MN=MN_" "_ML
|
|---|
| 38 | .. I MS'="" S MN=MN_", "_MS_"."
|
|---|
| 39 | .. I MT'="" S MN=MN_", "_MT
|
|---|
| 40 | .. S $P(LINE,P,6)=MN
|
|---|
| 41 | ..Q
|
|---|
| 42 | .I TITLE'=TITLE1 D
|
|---|
| 43 | .. N LBL
|
|---|
| 44 | .. S CNT2=CNT2+1,^TMP($J,"MDHL7","TEXT",CNT2)="OBX||TX||| "
|
|---|
| 45 | .. S CNT2=CNT2+1
|
|---|
| 46 | .. S LBL=$P(TITLE,"&",2)
|
|---|
| 47 | .. I LBL="" S LBL=$P(TITLE,"&")
|
|---|
| 48 | .. S ^TMP($J,"MDHL7","TEXT",CNT2)="OBX||TX|||"_LBL,TITLE1=TITLE
|
|---|
| 49 | .. Q
|
|---|
| 50 | .S CNT2=CNT2+1,^TMP($J,"MDHL7","TEXT",CNT2)=LINE
|
|---|
| 51 | .Q
|
|---|
| 52 | Q
|
|---|
