source:
WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7P1.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 377 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | MDHL7P1 ; 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 | |
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 | . 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.