Return to DIFROMSC.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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