MCAR7H.m

MCAR7H ; HIRMFO/REL-DelMar Holter ;3/3/00  09:56

 ;;2.3;Medicine;**24**;09/13/1996

OBX ; Process OBX

 S X=$G(MSG(NUM)) I $E(X,1,3)'="OBX" S ERRTX="OBX not found when expected" G ^MCAR7X

 S SEG("OBX")=X

 S FIL=691.6 D PROC^MCAR7A ; Set Procedure entry

 S LN=0,^MCAR(691.6,DA,7,0)="^^0^0^"_DT_"^"

NEXT S X=$P(MSG(NUM),"|",6),X=$P(X,"^",1) I X'="" S LN=LN+1,^MCAR(691.6,DA,7,LN,0)=" "_X

 S NUM=NUM+1 I $E($G(MSG(NUM)),1,3)="OBX" G NEXT

 S $P(^MCAR(691.6,DA,7,0),"^",3,4)=(LN_"^"_LN)

 ; Re-index record

 S DIK="^MCAR(691.6," D IX1^DIK

 D GENACK^MCAR7X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCAR7H   565     printed  Apr 09, 2024@21:16:41                                                                                                                                                                                                       Page 2

MCAR7H    ; HIRMFO/REL-DelMar Holter ;3/3/00  09:56

 +1       ;;2.3;Medicine;**24**;09/13/1996

OBX       ; Process OBX

 +1        SET X=$GET(MSG(NUM))

           IF $EXTRACT(X,1,3)'="OBX"

               SET ERRTX="OBX not found when expected"

               GOTO ^MCAR7X

 +2        SET SEG("OBX")=X

 +3       ; Set Procedure entry

           SET FIL=691.6

           DO PROC^MCAR7A

 +4        SET LN=0

           SET ^MCAR(691.6,DA,7,0)="^^0^0^"_DT_"^"

NEXT       SET X=$PIECE(MSG(NUM),"|",6)

           SET X=$PIECE(X,"^",1)

           IF X'=""

               SET LN=LN+1

               SET ^MCAR(691.6,DA,7,LN,0)=" "_X

 +1        SET NUM=NUM+1

           IF $EXTRACT($GET(MSG(NUM)),1,3)="OBX"

               GOTO NEXT

 +2        SET $PIECE(^MCAR(691.6,DA,7,0),"^",3,4)=(LN_"^"_LN)

 +3       ; Re-index record

 +4        SET DIK="^MCAR(691.6,"

           DO IX1^DIK

 +5        DO GENACK^MCAR7X

 +6        QUIT