Return to DIFROMSK.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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