Return to DIFROMSK.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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: 	;