source: WorldVistAEHR/trunk/r/SURGERY-SR/SROALN1.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1SROALN1 ;BIR/MAM - LAB INFO ;01/27/06
2 ;;3.0; Surgery ;**38,125,153,160**;24 Jun 93;Build 7
3 F SHEMP=201:1:204,202.1 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))
4 S SHEMP=$P(SRA(203),"^",15),SRAO(1)=SHEMP_"^^444^444.1" S X=$P(SRA(204),"^",15) I X D DATE S SHEMP="("_Y_")",$P(SRAO(1),"^",2)=SHEMP
5 S SHEMP=$P(SRA(201),"^"),SRAO(2)=SHEMP_"^^270^304" S X=$P(SRA(202),"^") I X D DATE S SHEMP="("_Y_")",$P(SRAO(2),"^",2)=SHEMP
6 S SHEMP=$P(SRA(201),"^",5),SRAO(3)=SHEMP_"^^224^291" S X=$P(SRA(202),"^",5) I X D DATE S SHEMP="("_Y_")",$P(SRAO(3),"^",2)=SHEMP
7 S SHEMP=$P(SRA(201),"^",4),SRAO(4)=SHEMP_"^^223^290" S X=$P(SRA(202),"^",4) I X D DATE S SHEMP="("_Y_")",$P(SRAO(4),"^",2)=SHEMP
8 S SHEMP=$P(SRA(201),"^",8),SRAO(5)=SHEMP_"^^225^292" S X=$P(SRA(202),"^",8) I X D DATE S SHEMP="("_Y_")",$P(SRAO(5),"^",2)=SHEMP
9 S SHEMP=$P(SRA(201),"^",9),SRAO(6)=SHEMP_"^^228^295" S X=$P(SRA(202),"^",9) I X D DATE S SHEMP="("_Y_")",$P(SRAO(6),"^",2)=SHEMP
10 S SHEMP=$P(SRA(201),"^",11),SRAO(7)=SHEMP_"^^227^294" S X=$P(SRA(202),"^",11) I X D DATE S SHEMP="("_Y_")",$P(SRAO(7),"^",2)=SHEMP
11 S SHEMP=$P(SRA(201),"^",12),SRAO(8)=SHEMP_"^^229^296" S X=$P(SRA(202),"^",12) I X D DATE S SHEMP="("_Y_")",$P(SRAO(8),"^",2)=SHEMP
12 S SHEMP=$P(SRA(201),"^",13),SRAO(9)=SHEMP_"^^230^297" S X=$P(SRA(202),"^",13) I X D DATE S SHEMP="("_Y_")",$P(SRAO(9),"^",2)=SHEMP
13 S SHEMP=$P(SRA(201),"^",14),SRAO(10)=SHEMP_"^^234^301" S X=$P(SRA(202),"^",14) I X D DATE S SHEMP="("_Y_")",$P(SRAO(10),"^",2)=SHEMP
14 S SHEMP=$P(SRA(201),"^",15),SRAO(11)=SHEMP_"^^231^298" S X=$P(SRA(202),"^",15) I X D DATE S SHEMP="("_Y_")",$P(SRAO(11),"^",2)=SHEMP
15 S SHEMP=$P(SRA(201),"^",16),SRAO(12)=SHEMP_"^^233^300" S X=$P(SRA(202),"^",16) I X D DATE S SHEMP="("_Y_")",$P(SRAO(12),"^",2)=SHEMP
16 S SHEMP=$P(SRA(201),"^",17),SRAO(13)=SHEMP_"^^232^299" S X=$P(SRA(202),"^",17) I X D DATE S SHEMP="("_Y_")",$P(SRAO(13),"^",2)=SHEMP
17 S SHEMP=$P(SRA(201),"^",27),SRAO(14)=SHEMP_"^^487^487.1" S X=$P(SRA(202),"^",27) I X D DATE S SHEMP="("_Y_")",$P(SRAO(14),"^",2)=SHEMP
18 S SHEMP=$P(SRA(201),"^",28),SRAO(15)=SHEMP_"^^504^504.1" S X=$P(SRA(202.1),"^") I X D DATE S SHEMP="("_Y_")",$P(SRAO(15),"^",2)=SHEMP
19 K SRA
20 Q
21DATE S Y=X X ^DD("DD")
22 Q
Note: See TracBrowser for help on using the repository browser.