source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNDOCA.m

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

initial load of WorldVistAEHR

File size: 402 bytes
Line 
1SPNDOCA ;SD/WDE- DATA VALIDATION FOR THE SPN FIM1 SCREEN; 04/21/2003
2 ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
3EN ;
4 S X1=$P($G(^SPNL(154.1,DA,0)),U,4)
5 Q:X1=""
6 S X2=$P($G(^SPNL(154.1,DA,8)),U,1)
7 Q:X2=""
8 D ^%DTC
9 Q:$G(X)=""
10 Q:$G(X)=0
11 S SPNXXZ=X
12 I DDSX>SPNXXZ D
13 .S DDSERROR=1
14 .W *7
15 .S SPNDOCB="The number of days cannot exceed "_SPNXXZ
16 .D HLP^DDSUTL(SPNDOCB)
17 K SPNDOCB,X1,X2,SPNXXZ
18 Q
Note: See TracBrowser for help on using the repository browser.