source: WorldVistAEHR/trunk/r/SURGERY-SR/SROCON1.m@ 1006

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

initial load of WorldVistAEHR

File size: 805 bytes
Line 
1SROCON1 ;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....",!!
7EN ;
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.