source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLEDT1.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 915 bytes
Line 
1SPNLEDT1 ;ISC-SF/DAD-CLINICAL REGISTRATION MODULE ;10/25/2001
2 ;;2.0;Spinal Cord Dysfunction;**16**;01/02/1997
3 ;
4EN1 ; *** Edits the clinical registration fields
5 S SPNLFLAG=0
6 F D Q:SPNLFLAG=1
7 . K DIC S DIC="^SPNL(154,",DIC(0)="AEMQZ",DIC("A")="Select PATIENT: "
8 . W ! D ^DIC S SPNLD0=+Y K DIC I +Y<0 S SPNLFLAG=1 Q
9 . L +^SPNL(154,SPNLD0,0):0 I '$T D Q
10 .. W !!?5,"Another user is editing this record."
11 .. W !?5,"Please try again later.",$C(7)
12 .. Q
13 . D EDIT(SPNLD0)
14 . L -^SPNL(154,SPNLD0,0)
15 . Q
16 K DA,DDSFILE,DIC,DIE,DIMSG,DR,SPNLD0,SPNLFLAG,X,Y
17 Q
18EDIT(SPNLD0) ; *** Edit the Clinical Registration fields
19 ; Input: SPNLD0 = Internal Entry number in SCD Registry file (#154)
20 S DDSFILE=154,DR="[SPNLPFM2]",DA=SPNLD0
21 S DDSPARM="C" D ^DDS
22 K DDSPARM,DDSCHANG,CNT,SPNLTRIG,DR,DIE
23 S DIE=154,DR=".05///NOW;.06///`"_DUZ,DA=SPNLD0 D ^DIE
24 I $D(DIMSG) W !,"The screen-based entry process has failed!!",!
25 Q
Note: See TracBrowser for help on using the repository browser.