Return to DIFROMS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMS.m, revision 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