|
Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
551 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | MCAR7H ; HIRMFO/REL-DelMar Holter ;3/3/00 09:56
|
|---|
| 2 | ;;2.3;Medicine;**24**;09/13/1996
|
|---|
| 3 | OBX ; Process OBX
|
|---|
| 4 | S X=$G(MSG(NUM)) I $E(X,1,3)'="OBX" S ERRTX="OBX not found when expected" G ^MCAR7X
|
|---|
| 5 | S SEG("OBX")=X
|
|---|
| 6 | S FIL=691.6 D PROC^MCAR7A ; Set Procedure entry
|
|---|
| 7 | S LN=0,^MCAR(691.6,DA,7,0)="^^0^0^"_DT_"^"
|
|---|
| 8 | 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
|
|---|
| 9 | S NUM=NUM+1 I $E($G(MSG(NUM)),1,3)="OBX" G NEXT
|
|---|
| 10 | S $P(^MCAR(691.6,DA,7,0),"^",3,4)=(LN_"^"_LN)
|
|---|
| 11 | ; Re-index record
|
|---|
| 12 | S DIK="^MCAR(691.6," D IX1^DIK
|
|---|
| 13 | D GENACK^MCAR7X
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
