Return to DIEFU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIEFU.m, revision 1.1

1.1     ! snw         1: DIEFU  ;SF/DPC-FILER UTILITIES ;11/25/94  11:24
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: INIZE  ;
        !             5:        N %,X,%H,DIE,DICS,DIC,%DT,DIK,%Y,%X,%D,%M,%I
        !             6:        D DT^DICRW
        !             7:        D CLEAN
        !             8:        Q
        !             9: CLEAN  ;
        !            10:        K DIRUT,DIROUT,DUOUT,DTOUT
        !            11:        K ^TMP("DIERR",$J),^TMP("DIMSG",$J),^TMP("DIHELP",$J)
        !            12:        K DIERR,DIHELP,DIMSG
        !            13:        Q
        !            14:        ;
        !            15: CALLOUT(DIOUTAR)       ;
        !            16:        I '$$VROOT(DIOUTAR) Q
        !            17:        I $D(DIERR) D
        !            18:        . S @DIOUTAR@("DIERR")=DIERR
        !            19:        . M @DIOUTAR@("DIERR")=^TMP("DIERR",$J)
        !            20:        . K ^TMP("DIERR",$J)
        !            21:        . Q
        !            22:        I $D(DIHELP) D
        !            23:        . S @DIOUTAR@("DIHELP")=DIHELP
        !            24:        . M @DIOUTAR@("DIHELP")=^TMP("DIHELP",$J)
        !            25:        . K ^TMP("DIHELP",$J)
        !            26:        . Q
        !            27:        I $D(DIMSG) D
        !            28:        . S @DIOUTAR@("DIMSG")=DIMSG
        !            29:        . M @DIOUTAR@("DIMSG")=^TMP("DIMSG",$J)
        !            30:        . K ^TMP("DIMSG",$J)
        !            31:        . Q
        !            32:        Q
        !            33:        ;
        !            34: IEN(DIEFDA)    ;
        !            35: IENX   ;
        !            36:        I '$D(DIEFDA) Q 0
        !            37:        N I,DIEFIEN S (I,DIEFIEN)="",DIEFDA(0)=$G(DIEFDA)
        !            38:        F  S I=$O(DIEFDA(I)) Q:I=""  S DIEFIEN=DIEFIEN_DIEFDA(I)_","
        !            39:        K DIEFDA(0)
        !            40:        Q DIEFIEN
        !            41:        ;
        !            42: DA(DAIEN,DATARG)       ;
        !            43: DAX    ;
        !            44:        K DATARG N I
        !            45:        F I=1:1:$L(DAIEN,",")-1 S DATARG(I-1)=$P(DAIEN,",",I)
        !            46:        I $D(DATARG(0)) S DATARG=DATARG(0) K DATARG(0)
        !            47:        Q
        !            48:        ;
        !            49: VROOT(DIEFAR)  ;
        !            50:        I DIEFAR'["(" Q 1
        !            51:        I $E(DIEFAR,$L(DIEFAR))=")",$F(DIEFAR,")")>($F(DIEFAR,"(")+1) Q 1
        !            52:        D BLD^DIALOG(202,"array root")
        !            53:        Q 0
        !            54:        ;
        !            55: VFILE(F,FLAG)  ;
        !            56: VFILEX ;
        !            57:        I $P($G(^DD(F,.01,0)),U,2)]"",$P(^(0),U,2)'["W" Q 1
        !            58:        I $G(FLAG)["D" N P S P("FILE")=F D BLD^DIALOG(401,.P,.P)
        !            59:        Q 0
        !            60:        ;
        !            61: VENTRY(DIEFF,DIEFIEN,DIEFFLG)  ;
        !            62:        N DIEFROOT,DIEFDA
        !            63:        S DIEFFLG=$G(DIEFFLG),DIEFDA=$P(DIEFIEN,",")
        !            64:        S DIEFROOT=$$ROOT^DIQGU(DIEFF,DIEFIEN,1,$S(DIEFFLG["D":1,1:0)) Q:DIEFROOT="" 0
        !            65:        I $P($G(@DIEFROOT@(DIEFDA,0)),"^",1)="" D  Q 0
        !            66:        . I DIEFFLG["D" N DIEFP S DIEFP("FILE")=DIEFF,DIEFP("IENS")=DIEFIEN D BLD^DIALOG(601,"",.DIEFP)
        !            67:        I DIEFFLG["9" Q:'$$VMINUS9(DIEFF,DIEFIEN,DIEFFLG) 0
        !            68:        Q 1
        !            69:        ;
        !            70: VMINUS9(DIEFF,DIEFIEN,DIEFFLG) ;
        !            71:        N DIEFTOP,DIEFROOT S DIEFFLG=$G(DIEFFLG)
        !            72:        S DIEFTOP=$P(DIEFIEN,",",$L(DIEFIEN,",")-1),DIEFROOT=$$ROOT^DIQGU($$FNO^DILIBF(DIEFF),.DIEFTOP,1,$S(DIEFFLG["D":1,1:0))
        !            73:        Q:DIEFROOT="" 0
        !            74:        I $D(@DIEFROOT@(DIEFTOP,-9)) D  Q 0
        !            75:        . I DIEFFLG["D" N DIEFP S DIEFP("FILE")=DIEFF,DIEFP("IENS")=DIEFIEN D BLD^DIALOG(602,"",.DIEFP)
        !            76:        Q 1
        !            77:        ;
        !            78: CHKFLD(DIEFF,DIEFFLD)  ;
        !            79:        I DIEFFLD'=+DIEFFLD S DIEFFLD=$$FLDNUM^DIEF1(DIEFF,DIEFFLD) Q:'DIEFFLD 0
        !            80:        I '$$VFIELD(DIEFF,DIEFFLD,"D") Q 0
        !            81:        Q DIEFFLD
        !            82:        ;
        !            83: VFIELD(F,FLD,FLAG)     ;
        !            84: VFIELDX        ;
        !            85:        I $D(^DD(F,FLD)) Q 1
        !            86:        I $G(FLAG)["D" N P S (P(1),P("FIELD"))=FLD,P("FILE")=F D BLD^DIALOG(501,.P,.P)
        !            87:        Q 0
        !            88:        ;
        !            89: DT(DIEFDT,DIEFX,DIEFY,DIEFDT0,DIOUTAR) ;
        !            90: DTX    ;
        !            91:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
        !            92:        I '$D(DIFM) N DIFM S DIFM=1 D INIZE
        !            93:        N %DT,X,Y
        !            94:        S DIEFDT=$G(DIEFDT)
        !            95:        I $G(DIEFX)="" D BLD^DIALOG(202,"date being converted") G DTOUT
        !            96:        I '$$VERFLG^DIEFU(DIEFDT,"FNPRSTXEe") G DTOUT
        !            97:        I DIEFX?."?" D DT^DIEH1(DIEFDT) S DIEFY=-1 G DTOUT
        !            98:        S %DT=DIEFDT,X=DIEFX S:$G(DIEFDT0)]"" %DT(0)=DIEFDT0 D ^%DT S DIEFY=Y
        !            99:        I DIEFY=-1 D:DIEFDT'["e"  G DTOUT
        !           100:        . N DIEFP
        !           101:        . S DIEFP(1)=DIEFX,DIEFP(2)="date/time"
        !           102:        . D BLD^DIALOG(330,.DIEFP,.DIEFP)
        !           103:        I DIEFDT["E" D DD^%DT S DIEFY(0)=Y
        !           104: DTOUT  I $G(DIOUTAR)]"" D CALLOUT^DIEFU(DIOUTAR)
        !           105:        Q
        !           106:        ;
        !           107: VERFLG(FLG,GDFLGS)     ;
        !           108:        N EI
        !           109:        S EI=$TR(FLG,GDFLGS,"")
        !           110:        I EI="" Q 1
        !           111:        D BLD^DIALOG(301,EI,EI)
        !           112:        Q 0
        !           113:        ;
        !           114: XA(DIEFF,DIEFIEN,DIEFFLD,DIEFNVAL,DIEFOVAL)    ;
        !           115:        N DA
        !           116:        S DIEFNVAL=$G(DIEFNVAL),DIEFOVAL=$G(DIEFOVAL)
        !           117:        Q:DIEFNVAL=DIEFOVAL
        !           118:        D DA(DIEFIEN,.DA)
        !           119:        D XRFAUD^DIEF
        !           120:        Q
        !           121:        ;
        !           122: FILENM(F)      ;
        !           123:        N NM
        !           124:        S NM=$P($G(^DIC($$FNO^DILIBF(F),0)),U)
        !           125:        ;I NM="" <DO ERROR>
        !           126:        Q NM
        !           127:        ;
        !           128: FLDNM(F,FLD)   ;
        !           129:        N NM,UP
        !           130:        S NM=$P($G(^DD(F,FLD,0)),U,1)
        !           131:        F  S UP=$G(^DD(F,0,"UP")) Q:'UP  D
        !           132:        . S NM=NM_" in "_$P($G(^DD(F,0)),U,1)
        !           133:        . S F=UP
        !           134:        . Q
        !           135:        ;I NM="" <DO ERROR>
        !           136:        Q NM