Return to DIFROMSC.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFROMSC.m, revision 1.1

1.1     ! snw         1: DIFROMSC       ;SCISC/DCL-EDE IN CONTINUE FPRE & FPOST ;08:38 AM  22 Nov 1994;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: FPRE   ;
        !             5:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
        !             6:        I '$D(DIFM) N DIFM S DIFM=1
        !             7:        I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
        !             8:        N DIOVRD S DIOVRD=1
        !             9:        S DIFRFILE=$G(DIFRFILE) S:DIFRFILE'>0 DIFRFILE=$G(XPDFIL)
        !            10:        I DIFRFILE'>0 D BLD^DIALOG(9519) Q
        !            11:        Q:DIFRFILE'=.403
        !            12:        I $G(DIFRNAME)="" D BLD^DIALOG(9520) Q
        !            13:        I $G(DIFRSA)="" S DIFRSA=$NA(^XTMP("XPDI",DIFRNAME,"KRN"))
        !            14:        I DIFRFILE=.403 D  Q
        !            15:        .N DIC,DIK,DIFRR,DIFRFILE,DIFRL,DIFRX,X,Y
        !            16:        .S DIC="^DIST(.404,",DIC(0)="LX",DLAYGO=.404,DIFRFILE=.404
        !            17:        .S DIFRR=0
        !            18:        .F  S DIFRR=$O(@DIFRSA@(DIFRFILE,DIFRR)) Q:DIFRR'>0  S DIFRX=^(DIFRR,0) D
        !            19:        ..S DIFRL=$P(DIFRX,"^",2)
        !            20:        ..S X=$P(DIFRX,"^")
        !            21:        ..K DA
        !            22:        ..D ^DIC
        !            23:        ..I Y'>0 D  Q
        !            24:        ...N DIFRERR S DIFRERR(1)=$P(DIFRX,"^")
        !            25:        ...D BLD^DIALOG(9517,.DIFRERR)
        !            26:        ...Q
        !            27:        ..K ^DIST(.404,+Y)
        !            28:        ..I '$D(^DD(+DIFRL)) D
        !            29:        ...N DIFRERR S DIFRERR(1)=$P(DIFRX,"^"),DIFRERR(2)=DIFRL
        !            30:        ...D BLD^DIALOG(9518,.DIFRERR)
        !            31:        ...Q
        !            32:        ..M ^DIST(.404,+Y)=@DIFRSA@(DIFRFILE,DIFRR)
        !            33:        ..S DIK=DIC,DA=+Y
        !            34:        ..D IX1^DIK
        !            35:        ..Q
        !            36:        .Q
        !            37:        Q
        !            38: FPOST  ;
        !            39:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
        !            40:        I '$D(DIFM) N DIFM S DIFM=1
        !            41:        I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
        !            42:        N DIOVRD S DIOVRD=1
        !            43:        Q
        !            44: EXIT   I $G(DIFRMSGR)]"" D CALLOUT^DIEFU(DIFRMSGR)
        !            45:        Q