source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7P1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 377 bytes
Line 
1MDHL7P1 ; HOIFO/WAA-Sensormedics,Jaeger Pulmonary ; 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 . D @PROCESS
13 . Q
14 Q:'MDIEN
15 D REX^MDHL7U1(MDIEN)
16 D GENACK^MDHL7X
17 Q
Note: See TracBrowser for help on using the repository browser.