[613] | 1 | SPNLEDT2 ;HISC/JWR-Edits only non-clinical registration fields;10/25/2001
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**16**;01/02/1997
|
---|
| 3 | EN1 S SPNLFLAG=0
|
---|
| 4 | F D Q:SPNLFLAG=1
|
---|
| 5 | . K DIC S DIC="^SPNL(154,",DIC(0)="AELMQZ",DIC("A")="Select PATIENT: "
|
---|
| 6 | . W ! S DLAYGO=154 D ^DIC S SPNLD0=+Y K DIC I +Y<0 S SPNLFLAG=1 Q
|
---|
| 7 | . I $P(Y,U,3)=1 D
|
---|
| 8 | .. K DA,DIE,DR
|
---|
| 9 | .. S DIE="^SPNL(154,",DA=+SPNLD0
|
---|
| 10 | .. S DR=".03///SCD - CURRENTLY SERVED"
|
---|
| 11 | .. S DR=DR_";.05///NOW;.06///`"_DUZ
|
---|
| 12 | .. D ^DIE
|
---|
| 13 | .. Q
|
---|
| 14 | . L +^SPNL(154,SPNLD0,0):0 I '$T D Q
|
---|
| 15 | .. W !!?5,"Another user is editing this record."
|
---|
| 16 | .. W !?5,"Please try again later.",$C(7)
|
---|
| 17 | .. Q
|
---|
| 18 | . D EDIT(SPNLD0)
|
---|
| 19 | . L -^SPNL(154,SPNLD0,0)
|
---|
| 20 | . Q
|
---|
| 21 | K DA,DDSFILE,DIC,DIE,DIMSG,DR,SPNLD0,SPNLFLAG,X,Y
|
---|
| 22 | Q
|
---|
| 23 | EDIT(SPNLD0) ; *** Edit the Clinical Registration fields
|
---|
| 24 | ; Input: SPNLD0 = Internal Entry number in SCD Registry file (#154)
|
---|
| 25 | S DR="[SPNLPFM3]",DDSFILE=154,DA=SPNLD0
|
---|
| 26 | S DDSPARM="C" D ^DDS
|
---|
| 27 | K DDSPARM,DDSCHANG,SPNLTRIG,DR,DIE
|
---|
| 28 | S DIE=154,DR=".05///NOW;.06///`"_DUZ,DA=SPNLD0 D ^DIE
|
---|
| 29 | I $D(DIMSG) W !,"The screen-based entry process has failed!!",!
|
---|
| 30 | K DR,DIE,DR Q
|
---|