Return to DIFROMS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMS.m, revision 1.1.1.1

1.1       snw         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