Return to DIEFW.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIEFW.m, revision 1.1

1.1     ! snw         1: DIEFW  ;SFISC/DPC-FILER WP ;7/29/94  15:37
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: WP(DIEFF,DIEFIEN,DIEFFLD,DIEFWPFL,DIEFTSRC,DIEFOUT)    ;
        !             5: WPX    ;
        !             6:        S DIEFWPFL=$G(DIEFWPFL)
        !             7:        I '$D(DIQUIET) N DIQUIET S DIQUIET=1
        !             8:        I '$D(DIFM) N DIFM S DIFM=1 D INIZE^DIEFU
        !             9:        I DIEFIEN']"" D BLD^DIALOG(202,"IENS","IENS") G OUT
        !            10:        I '$$VERFLG^DIEFU(DIEFWPFL,"AZK") G OUT
        !            11:        I "@"'[DIEFTSRC I '$$VROOT^DIEFU(DIEFTSRC) G OUT
        !            12:        I '$$VFILE^DIEFU(DIEFF,"D") G OUT
        !            13:        I '$$VFIELD^DIEFU(DIEFF,DIEFFLD,"D") G OUT
        !            14:        I $P($G(^DD(+$P(^DD(DIEFF,DIEFFLD,0),U,2),.01,0)),U,2)'["W" N EI S EI("FILE")=DIEFF,EI("FIELD")=DIEFFLD D BLD^DIALOG(726,.EI,.EI) G OUT
        !            15:        I '$$VENTRY^DIEFU(DIEFF,DIEFIEN,"D") G OUT
        !            16:        N DIEFNODE,DIEFSPOT S DIEFSPOT=" " D GLRF^DIOU(DIEFF,DIEFFLD,.DIEFNODE,.DIEFSPOT)
        !            17:        N DEPTH,I,D
        !            18:        S DEPTH=$L(DIEFIEN,",")-1
        !            19:        F I=DEPTH:-1:1 S D="D"_(DEPTH-I) N @D S @D=$P(DIEFIEN,",",I)
        !            20:        K DEPTH,D,I
        !            21:        I DIEFWPFL["K" N DIEFLOCK D  G:'$D(DIEFLOCK) OUT
        !            22:        . S DIEFLOCK=DIEFNODE
        !            23:        . L +@DIEFLOCK:1 E  D
        !            24:        . . K DIEFLOCK
        !            25:        . . N EXT S EXT("FILE")=DIEFF,EXT("IENS")=DIEFIEN D BLD^DIALOG(110,"",.EXT)
        !            26:        D PUTWP(DIEFWPFL,DIEFTSRC,DIEFNODE)
        !            27:        I $D(DIEFLOCK) L -@DIEFLOCK
        !            28: OUT    I $G(DIEFOUT)]"" D CALLOUT^DIEFU(DIEFOUT)
        !            29:        Q
        !            30:        ;
        !            31: PUTWP(DIEFWPFL,DIEFTSRC,DIEFNODE)      ;
        !            32:        N BEGIN
        !            33:        I "@"[DIEFTSRC K @DIEFNODE Q
        !            34:        I '($D(@DIEFTSRC)\10) D BLD^DIALOG(305,DIEFTSRC,DIEFTSRC) Q
        !            35:        I $G(DIEFWPFL)'["A" S BEGIN=1 K @DIEFNODE
        !            36:        E  S BEGIN=$$NUMLNS(DIEFNODE)+1 K:BEGIN=1 @DIEFNODE
        !            37:        I $D(@DIEFTSRC@($O(@DIEFTSRC@(0)),0))#2 S DIEFWPFL=$G(DIEFWPFL)_"Z"
        !            38:        N LINECNT,INLINE S INLINE=0
        !            39:        F LINECNT=BEGIN:1 S INLINE=$O(@DIEFTSRC@(INLINE)) Q:INLINE=""  D
        !            40:        . I $G(DIEFWPFL)'["Z" S @DIEFNODE@(LINECNT,0)=@DIEFTSRC@(INLINE)
        !            41:        . E  S @DIEFNODE@(LINECNT,0)=$G(@DIEFTSRC@(INLINE,0))
        !            42:        S LINECNT=LINECNT-1
        !            43:        S @DIEFNODE@(0)=U_U_LINECNT_U_LINECNT_U_DT
        !            44:        Q
        !            45:        ;
        !            46: NUMLNS(DIWPROOT)       ;
        !            47:        N DIWPLN
        !            48:        S DIWPLN=$P($G(@DIWPROOT@(0)),U,3)
        !            49:        Q:DIWPLN DIWPLN
        !            50:        S DIWPLN=$O(@DIWPROOT@(""),-1)
        !            51:        Q +DIWPLN