| [613] | 1 | DIFROMSK ;SCISC/DCL-DIFROM SERVER DELETE PARTS ;9:27 AM 4 Jan 2007
|
|---|
| 2 | ;;22.0;VA FileMan;**128,153**;Mar 30, 1999;Build 1
|
|---|
| 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 | ; Note: only Forms can be deleted in KIDS
|
|---|
| 15 | ; Input Template .402 ^DIE( "DIE"
|
|---|
| 16 | ; Print Template .4 ^DIPT( "DIPT"
|
|---|
| 17 | ; Sort Template .401 ^DIBT( "DIBT"
|
|---|
| 18 | ; Dialog .84 ^DI(.84, "DI(.84,"
|
|---|
| 19 | ;*
|
|---|
| 20 | ;FLAGS = None at this time
|
|---|
| 21 | ;*
|
|---|
| 22 | ;SOURCE_ARRAY = Source Array where the list of internal
|
|---|
| 23 | ; entry numbers are passed (IEN/DA).
|
|---|
| 24 | ; Format is: ARRAY(DA)=""
|
|---|
| 25 | ; In this example "ARRAY" is passed.
|
|---|
| 26 | ;*
|
|---|
| 27 | ;MSG_ARRAY_ROOT = Array Root where the error message will be sent.
|
|---|
| 28 | ;*
|
|---|
| 29 | I '$D(DIQUIET) N DIQUIET S DIQUIET=1
|
|---|
| 30 | I '$D(DIFM) N DIFM S DIFM=1
|
|---|
| 31 | I $G(U)'="^"!($G(DT)'>0)!($G(DTIME)'>0)!('$D(DUZ)) D DT^DICRW
|
|---|
| 32 | D I '$G(DIFRFILE) D BLD^DIALOG(9529) Q
|
|---|
| 33 | .I $G(DIFRFILE)'>0 Q
|
|---|
| 34 | .I DIFRFILE=.4!(DIFRFILE=.401)!(DIFRFILE=.402)!(DIFRFILE=.403)!(DIFRFILE=.404)!(DIFRFILE=.84) Q ;22*128
|
|---|
| 35 | .S DIFRFILE=0
|
|---|
| 36 | .Q
|
|---|
| 37 | I $G(DIFRSA)']"" D BLD^DIALOG(9506) Q
|
|---|
| 38 | I '$D(@DIFRSA) D BLD^DIALOG(9506) Q
|
|---|
| 39 | N DIFRDA,DIFROOT,DIFRCR
|
|---|
| 40 | S DIFRDA=0,DIFROOT=$$ROOT^DILFD(DIFRFILE),DIFRCR=$$ROOT^DILFD(DIFRFILE,"",1)
|
|---|
| 41 | I DIFROOT']"" D BLD^DIALOG(9529) Q
|
|---|
| 42 | ;I $$NPT(
|
|---|
| 43 | F S DIFRDA=$O(@DIFRSA@(DIFRDA)) Q:DIFRDA'>0 D:$D(@DIFRCR@(DIFRDA,0))
|
|---|
| 44 | .I DIFRFILE=.4!(DIFRFILE=.401)!(DIFRFILE=.402) D DT(DIFROOT,DIFRDA) Q
|
|---|
| 45 | .I DIFRFILE=.403 D DFB(DIFRDA) Q ;22*153 .404 to .403
|
|---|
| 46 | .I DIFRFILE=.84,DIFRDA>10000 D DT(DIFROOT,DIFRDA) Q ;22*128
|
|---|
| 47 | .Q
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | DT(DIK,DA) ;Delete Template or Dialog ;22*128
|
|---|
| 51 | N DIFRFILE,DIFRSA,DIFRFLG,DIFRMSGR,DIFRDA,DIFRCR,DIFROOT
|
|---|
| 52 | N %,A,B,D0,I,W,X,Y,Z
|
|---|
| 53 | S Y=""
|
|---|
| 54 | D ^DIK
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | DFB(DA) ;Delete Forms(.403) and Blocks(.404), within the specified form.
|
|---|
| 58 | D EN^DDSDFRM(DA)
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | EXIT I $G(DIFRMSGR)]"" D CALLOUT^DIEFU(DIFRMSGR)
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
