- 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 ---[H[J[2J[HMCAR7H 565 printed Feb 18, 2025@23:38:16 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
