|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
805 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | SROCON1 ;B'HAM ISC/MAM - MULTIPLES (.01) & CONCURRENTS ;16 AUG 1990 1:30 PM
|
|---|
| 2 | ;;3.0;Surgery;**78,107,119**;24 Jun 93
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498
|
|---|
| 5 | ;
|
|---|
| 6 | W !!,"The information to be duplicated in the concurrent case will now be entered....",!!
|
|---|
| 7 | EN ;
|
|---|
| 8 | I $D(SRODR("130.213")) D
|
|---|
| 9 | . S SRCTMP="",SRCNTR=0
|
|---|
| 10 | . F S SRCTMP=$O(SRODR("130.213",SRCTMP)) Q:SRCTMP="" D
|
|---|
| 11 | . . I '$D(^SRF(SRCON,50,$P(SRCTMP,","))) S SRCNTR=SRCNTR+1 K SRODR1 S SRODR1("130.213","+"_SRCNTR_","_SRCON_",",".01")="0" D UPDATE^DIE("","SRODR1","^TMP(""SR"",$J)")
|
|---|
| 12 | . K SRCTMP,SRODR1,SRCNTR Q
|
|---|
| 13 | I $D(SRODR) D FILE^DIE("","SRODR","^TMP(""SR"",$J)") D
|
|---|
| 14 | .N SROERR S SROERR=SRCON I $D(^TMP("CSLSUR1",$J)) D ^SROERR0 S ^TMP("CSLSUR1",$J)=""
|
|---|
| 15 | K DIR S DIR("A")="Press RETURN to continue ",DIR(0)="FOA" D ^DIR K DIR
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
