source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLEDT2.m@ 975

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1SPNLEDT2 ;HISC/JWR-Edits only non-clinical registration fields;10/25/2001
2 ;;2.0;Spinal Cord Dysfunction;**16**;01/02/1997
3EN1 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
23EDIT(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
Note: See TracBrowser for help on using the repository browser.