| 1 | SROACPM2 ;BIR/MAM - LAB INFO ;03/29/04
|
---|
| 2 | ;;3.0; Surgery ;**125,153**;24 Jun 93;Build 11
|
---|
| 3 | F SHEMP=201,202,202.1 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))
|
---|
| 4 | S SHEMP=$P(SRA(201),"^",21),SRAO(1)=SHEMP_"^^457^457.1" S X=$P(SRA(202),"^",21) I X="NS" S $P(SRAO(1),"^",2)="NS"
|
---|
| 5 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(1),"^",2)=SHEMP
|
---|
| 6 | S SHEMP=$P(SRA(201),"^",25),SRAO(2)=SHEMP_"^^461^461.1" S X=$P(SRA(202),"^",25) I X="NS" S $P(SRAO(2),"^",2)="NS"
|
---|
| 7 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(2),"^",2)=SHEMP
|
---|
| 8 | S SHEMP=$P(SRA(201),"^",26),SRAO(3)=SHEMP_"^^462^462.1" S X=$P(SRA(202),"^",26) I X="NS" S $P(SRAO(3),"^",2)="NS"
|
---|
| 9 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(3),"^",2)=SHEMP
|
---|
| 10 | S SHEMP=$P(SRA(201),"^",22),SRAO(4)=SHEMP_"^^458^458.1" S X=$P(SRA(202),"^",22) I X="NS" S $P(SRAO(4),"^",2)="NS"
|
---|
| 11 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(4),"^",2)=SHEMP
|
---|
| 12 | S SHEMP=$P(SRA(201),"^",23),SRAO(5)=SHEMP_"^^459^459.1" S X=$P(SRA(202),"^",23) I X="NS" S $P(SRAO(5),"^",2)="NS"
|
---|
| 13 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(5),"^",2)=SHEMP
|
---|
| 14 | S SHEMP=$P(SRA(201),"^",24),SRAO(6)=SHEMP_"^^460^460.1" S X=$P(SRA(202),"^",24) I X="NS" S $P(SRAO(6),"^",2)="NS"
|
---|
| 15 | I X D DATE S SHEMP="("_Y_")",$P(SRAO(6),"^",2)=SHEMP
|
---|
| 16 | S SHEMP=$P(SRA(201),"^",4),SRAO(7)=SHEMP_"^^223^290" S X=$P(SRA(202),"^",4) I X D DATE S SHEMP="("_Y_")",$P(SRAO(7),"^",2)=SHEMP
|
---|
| 17 | S SHEMP=$P(SRA(201),"^",8),SRAO(8)=SHEMP_"^^225^292" S X=$P(SRA(202),"^",8) I X D DATE S SHEMP="("_Y_")",$P(SRAO(8),"^",2)=SHEMP
|
---|
| 18 | S SHEMP=$P(SRA(201),"^",20),SRAO(9)=SHEMP_"^^219^239" S X=$P(SRA(202),"^",20) I X D DATE S SHEMP="("_Y_")",$P(SRAO(9),"^",2)=SHEMP
|
---|
| 19 | S SHEMP=$P(SRA(201),"^",28),SRAO(10)=SHEMP_"^^504^504.1" S X=$P(SRA(202.1),"^") I X D DATE S SHEMP="("_Y_")",$P(SRAO(10),"^",2)=SHEMP
|
---|
| 20 | K SRA
|
---|
| 21 | Q
|
---|
| 22 | DATE S Y=X X ^DD("DD")
|
---|
| 23 | Q
|
---|