| [613] | 1 | DIEVS ;SFIRMFO/DPC-BATCH VALIDATION ;2:03 PM 21 Jul 2000
|
|---|
| 2 | ;;22.0;VA FileMan;**55**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;
|
|---|
| 5 | VALS(DIVSFLAG,DIVSEFDA,DIVSIFDA,DIVSMSG) ;
|
|---|
| 6 | VALSX ;
|
|---|
| 7 | N DIVSFILE,DIVSIENS,DIVSFLD,DIVSVAL,DIVSNFLG,DIVSANS,DIVSTYPE
|
|---|
| 8 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 9 | I '$D(DIFM) N DIFM S DIFM=1 D INIZE^DIEFU
|
|---|
| 10 | S DIVSFLAG=$G(DIVSFLAG) I '$$VERFLG^DIEFU(DIVSFLAG,"KRU") G OUT
|
|---|
| 11 | S DIVSEFDA=$G(DIVSEFDA) I '$$VROOT^DIEFU(DIVSEFDA) G OUT
|
|---|
| 12 | S DIVSIFDA=$G(DIVSIFDA) I '$$VROOT^DIEFU(DIVSIFDA) G OUT
|
|---|
| 13 | I DIVSIFDA=""!(DIVSIFDA=DIVSEFDA) D BLD^DIALOG(313) G OUT
|
|---|
| 14 | S DIVSNFLG=$E("R",DIVSFLAG["R")_"FU"
|
|---|
| 15 | N DIVSNG S DIVSNG=0
|
|---|
| 16 | S DIVSFILE=""
|
|---|
| 17 | F S DIVSFILE=$O(@DIVSEFDA@(DIVSFILE)) Q:DIVSFILE="" D
|
|---|
| 18 | . S DIVSIENS=""
|
|---|
| 19 | . F S DIVSIENS=$O(@DIVSEFDA@(DIVSFILE,DIVSIENS)) Q:DIVSIENS="" D
|
|---|
| 20 | . . S DIVSFLD=""
|
|---|
| 21 | . . F S DIVSFLD=$O(@DIVSEFDA@(DIVSFILE,DIVSIENS,DIVSFLD)) Q:DIVSFLD="" D
|
|---|
| 22 | . . . S DIVSVAL=@DIVSEFDA@(DIVSFILE,DIVSIENS,DIVSFLD)
|
|---|
| 23 | . . . ;Quit if field is w-p -- no validation.
|
|---|
| 24 | . . . D DTYP^DIOU(DIVSFILE,DIVSFLD,.DIVSTYPE)
|
|---|
| 25 | . . . I DIVSTYPE=5 S @DIVSIFDA@(DIVSFILE,DIVSIENS,DIVSFLD)=DIVSVAL Q
|
|---|
| 26 | . . . D VAL^DIEV(DIVSFILE,DIVSIENS,DIVSFLD,DIVSNFLG,DIVSVAL,.DIVSANS,DIVSIFDA)
|
|---|
| 27 | . . . I DIVSANS=U S @DIVSIFDA@(DIVSFILE,DIVSIENS,DIVSFLD)=U,DIVSNG=1
|
|---|
| 28 | ;Now do Key Validation
|
|---|
| 29 | I DIVSFLAG'["U" S DIVSNG='$$KEYVAL^DIEVK($E("K",DIVSFLAG["K"),DIVSIFDA)
|
|---|
| 30 | OUT I $G(DIVSMSG)]"" D CALLOUT^DIEFU(DIVSMSG)
|
|---|
| 31 | Q
|
|---|
