source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7K2.m@ 1166

Last change on this file since 1166 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1MDHL7K2 ; 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
5OBX ; 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
19TXT ; 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
Note: See TracBrowser for help on using the repository browser.