| 1 | DIFROMS ;SFISC/DCL-DIFROM SERVER DD/DATA IN/OUT ;09:47 AM 19 Jan 1995
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | DDOUT(DIFRFILE,DIFRFLG,DIFRFIA,DIFRTA,DIFRMSGR) ; DD OUT TO TARGET ARRAY
|
|---|
| 6 | ;FILE,FLAGS,FIA_ARRAY,TARGET_ARRAY,MSG_ROOT
|
|---|
| 7 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 8 | I '$D(DIFM) N DIFM S DIFM=1
|
|---|
| 9 | I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
|
|---|
| 10 | S DIFRFIA=$G(DIFRFIA) S:DIFRFIA="" DIFRFIA=$NA(@DIFRTA@("FIA"))
|
|---|
| 11 | D EN^DIFROMS1
|
|---|
| 12 | G EXIT
|
|---|
| 13 | Q
|
|---|
| 14 | DDIN(DIFRFILE,DIFRFLG,DIFRFIA,DIFRSA,DIFRMSGR) ; DD IN FROM SOURCE ARRAY
|
|---|
| 15 | ;FILE,FLAGS,FIA_ARRAY,SOURCE_ARRAY,MSG_ROOT
|
|---|
| 16 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 17 | I '$D(DIFM) N DIFM S DIFM=1
|
|---|
| 18 | I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
|
|---|
| 19 | S DIFRFIA=$G(DIFRFIA) S:DIFRFIA="" DIFRFIA=$NA(@DIFRSA@("FIA"))
|
|---|
| 20 | N DIOVRD S DIOVRD=1
|
|---|
| 21 | D EN^DIFROMS2
|
|---|
| 22 | G EXIT
|
|---|
| 23 | Q
|
|---|
| 24 | DATAOUT(DIFRFILE,DIFRFLG,DIFRFIA,DIFRTA,DIFRMSGR) ; DATA OUT
|
|---|
| 25 | ;FILE,FLAGS,FIA_ROOT,TARGET_ARRAY_ROOT,MSG_ROOT
|
|---|
| 26 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 27 | I '$D(DIFM) N DIFM S DIFM=1
|
|---|
| 28 | I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
|
|---|
| 29 | S DIFRFIA=$G(DIFRFIA) S:DIFRFIA="" DIFRFIA=$NA(@DIFRTA@("FIA"))
|
|---|
| 30 | N DIFRERRC
|
|---|
| 31 | D EN^DIFROMS3
|
|---|
| 32 | I $G(DIFRERRC) S DIERR=DIFRERRC
|
|---|
| 33 | G EXIT
|
|---|
| 34 | Q
|
|---|
| 35 | DATAIN(DIFRFILE,DIFRFLG,DIFRFIA,DIFRSA,DIFRMSGR) ; DATA IN
|
|---|
| 36 | ;FILE,FLAGS,FIAROOT,SOURCE_ARRAY,MSG_ROOT
|
|---|
| 37 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 38 | I '$D(DIFM) N DIFM S DIFM=1
|
|---|
| 39 | I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
|
|---|
| 40 | S DIFRFIA=$G(DIFRFIA) S:DIFRFIA="" DIFRFIA=$NA(@DIFRSA@("FIA"))
|
|---|
| 41 | N DIOVRD S DIOVRD=1
|
|---|
| 42 | D EN^DIFROMS4
|
|---|
| 43 | G EXIT
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | EXIT I $G(DIFRMSGR)]"" D CALLOUT^DIEFU(DIFRMSGR)
|
|---|
| 47 | Q
|
|---|
