MDHL7P1.m

MDHL7P1 ; HOIFO/WAA-Sensormedics,Jaeger Pulmonary ; 06/08/00

 ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004

 N TCNT,ICNT,LN

 S (TCNT,ICNT,LN)=0

OBX ; Process OBX

 N MDATT,PROC

 D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1

 S PROC=0

 F  S PROC=$O(MDATT(PROC)) Q:PROC<1  D

 . N PROCESS

 . S PROCESS=$P(MDATT(PROC),";",5)

 . D @PROCESS

 . Q

 Q:'MDIEN

 D REX^MDHL7U1(MDIEN)

 D GENACK^MDHL7X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDHL7P1   394     printed  Dec 13, 2024@01:42:53                                                                                                                                                                                                      Page 2

MDHL7P1   ; HOIFO/WAA-Sensormedics,Jaeger Pulmonary ; 06/08/00

 +1       ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004

 +2        NEW TCNT,ICNT,LN

 +3        SET (TCNT,ICNT,LN)=0

OBX       ; Process OBX

 +1        NEW MDATT,PROC

 +2        DO ATT^MDHL7U(DEVIEN,.MDATT)

           if MDATT<1

               QUIT 

 +3        SET PROC=0

 +4        FOR 

               SET PROC=$ORDER(MDATT(PROC))

               if PROC<1

                   QUIT 

               Begin DoDot:1

 +5                NEW PROCESS

 +6                SET PROCESS=$PIECE(MDATT(PROC),";",5)

 +7                DO @PROCESS

 +8                QUIT 

               End DoDot:1

 +9        if 'MDIEN

               QUIT 

 +10       DO REX^MDHL7U1(MDIEN)

 +11       DO GENACK^MDHL7X

 +12       QUIT