Return to DIFROMS.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIFROMS	;SFISC/DCL-DIFROM SERVER DD/DATA IN/OUT;08:34 AM  6 Sep 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    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: 	D EN^DIFROMS3
   31: 	G EXIT
   32: 	Q
   33: DATAIN(DIFRFILE,DIFRFLG,DIFRFIA,DIFRSA,DIFRMSGR)	; DATA IN
   34: 	;FILE,FLAGS,FIAROOT,SOURCE_ARRAY,MSG_ROOT
   35: 	I '$D(DIQUIET) N DIQUIET S DIQUIET=1
   36: 	I '$D(DIFM) N DIFM S DIFM=1
   37: 	I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
   38: 	S DIFRFIA=$G(DIFRFIA) S:DIFRFIA="" DIFRFIA=$NA(@DIFRSA@("FIA"))
   39: 	N DIOVRD S DIOVRD=1
   40: 	D EN^DIFROMS4
   41: 	G EXIT
   42: 	Q
   43: 	;
   44: EXIT	I $G(DIFRMSGR)]"" D CALLOUT^DIEFU(DIFRMSGR)
   45: 	Q