|
Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
458 bytes
|
| Line | |
|---|
| 1 | SROKRET ;B'HAM ISC/MAM - KILL RETURNS, 'AL' X-REF ; [ 09/09/03 7:30 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**100**;24 Jun 93
|
|---|
| 3 | S SRET=0,DFN=$P(^SRF(DA,0),"^") F I=0:0 S SRET=$O(^SRF("B",DFN,SRET)) Q:'SRET I $D(^SRF(SRET,29,DA,0)) K ^SRF(SRET,29,DA,0) D UPDATE
|
|---|
| 4 | K ^SRF("AL",DA)
|
|---|
| 5 | Q
|
|---|
| 6 | UPDATE I '$O(^SRF(SRET,29,0)) K ^SRF(SRET,29) Q
|
|---|
| 7 | S CNT=0 F I=0:0 S CNT=$O(^SRF(SRET,29,CNT)) Q:'CNT S SRET1=CNT
|
|---|
| 8 | S $P(^SRF(SRET,29,0),"^",3)=SRET1,$P(^SRF(SRET,29,0),"^",4)=$P(^(0),"^",4)-1
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
