Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
551 bytes
|
Line | |
---|
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.