Return to DIFROMSK.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Annotation of freem_fileman/USER/DIFROMSK.m, revision 1.1

1.1     ! snw         1: DIFROMSK       ;SCISC/DCL-DIFROM SERVER DELETE PARTS ;02:55 PM  9 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:        ;
        !             6: DEL(DIFRFILE,DIFRFLG,DIFRSA,DIFRMSGR)  ;DELETE TEMPLATES
        !             7:        ;FILE_NUMBER,FLAGS,SOURCE_ARRAY,MSG_ARRAY_ROOT
        !             8:        ;*
        !             9:        ;FILE_NUMBER = Template File Number
        !            10:        ;
        !            11:        ;     (Required) -
        !            12:        ;                  Forms           .403   ^DIST(.403,   "DIST(.403,"
        !            13:        ;                  Blocks          .404   ^DIST(.404,   "DIST(.404,"
        !            14:        ;                  Input Template  .402   ^DIE(         "DIE"
        !            15:        ;                  Print Template  .4     ^DIPT(        "DIPT"
        !            16:        ;                  Sort Template   .401   ^DIBT(        "DIBT"
        !            17:        ;*
        !            18:        ;FLAGS = None at this time
        !            19:        ;*
        !            20:        ;SOURCE_ARRAY = Source Array where the list of internal
        !            21:        ;               entry numbers are passed (IEN/DA).
        !            22:        ;               Format is:   ARRAY(DA)=""
        !            23:        ;               In this example "ARRAY" is passed.
        !            24:        ;*
        !            25:        ;MSG_ARRAY_ROOT = Array Root where the error message will be sent.
        !            26:        ;*
        !            27:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
        !            28:        I '$D(DIFM) N DIFM S DIFM=1
        !            29:        I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
        !            30:        D  I '$G(DIFRFILE) D BLD^DIALOG(9529) Q
        !            31:        .I $G(DIFRFILE)'>0 Q
        !            32:        .I DIFRFILE=.4!(DIFRFILE=.401)!(DIFRFILE=.402)!(DIFRFILE=.403)!(DIFRFILE=.404) Q
        !            33:        .S DIFRFILE=0
        !            34:        .Q
        !            35:        I $G(DIFRSA)']"" D BLD^DIALOG(9506) Q
        !            36:        I '$D(@DIFRSA) D BLD^DIALOG(9506) Q
        !            37:        N DIFRDA,DIFROOT,DIFRCR
        !            38:        S DIFRDA=0,DIFROOT=$$ROOT^DILFD(DIFRFILE),DIFRCR=$$ROOT^DILFD(DIFRFILE,"",1)
        !            39:        I DIFROOT']"" D BLD^DIALOG(9529) Q
        !            40:        ;I $$NPT(
        !            41:        F  S DIFRDA=$O(@DIFRSA@(DIFRDA)) Q:DIFRDA'>0  D:$D(@DIFRCR@(DIFRDA,0))
        !            42:        .I DIFRFILE=.4!(DIFRFILE=.401)!(DIFRFILE=.402) D DT(DIFROOT,DIFRDA) Q
        !            43:        .I DIFRFILE=.404 D DFB(DIFRDA) Q
        !            44:        .Q
        !            45:        Q
        !            46:        ;
        !            47: DT(DIK,DA)     ;Delete Template
        !            48:        N DIFRFILE,DIFRSA,DIFRFLG,DIFRMSGR,DIFRDA,DIFRCR,DIFROOT
        !            49:        N %,A,B,D0,I,W,X,Y,Z
        !            50:        S Y=""
        !            51:        D ^DIK
        !            52:        Q
        !            53:        ;
        !            54: DFB(DA)        ;Delete Forms and Blocks, within the specified form.
        !            55:        D EN^DDSDFRM(DA)
        !            56:        Q
        !            57:        ;
        !            58: EXIT   I $G(DIFRMSGR)]"" D CALLOUT^DIEFU(DIFRMSGR)
        !            59:        Q
        !            60:        ;