Return to DIALOGU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIALOGU.m, revision 1.1

1.1     ! snw         1: DIALOGU        ;SFISC/MMW - FUNCTIONS FOR DIALOGS ;11/21/94  13:26
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        Q  ;not for interactive use
        !             5: OUT(Y,DIALF,%F)        ;convert FileMan Data to language dependant output format
        !             6:        ;Y is the value to transform, DIALF is the type of data
        !             7:        ;%F Only for "FMTE" node. Passed from FMTE^DILIBF, indicates date format.
        !             8:        ;DIALF must correspond to at least a subscript in the language file
        !             9:        ;for the english language (entry #1) but may also have corresponding
        !            10:        ;entries for other languages
        !            11:        I $D(Y)[0!($G(DIALF)="") Q ""
        !            12:        N DINAKED,DIY S DINAKED=$$LGR^%ZOSV
        !            13:        N DILANG S DILANG=+$G(DUZ("LANG")) S:DILANG<1 DILANG=1
        !            14:        S DIY=$G(^DI(.85,DILANG,DIALF)) I DIY="" S:DILANG'=1 DIY=$G(^DI(.85,1,DIALF)) I DIY="" S Y="" G Q
        !            15:        X DIY
        !            16: Q      D:DINAKED]""
        !            17:        . I DINAKED["(" Q:$O(@(DINAKED))  Q
        !            18:        . I $D(@(DINAKED))
        !            19:        . Q
        !            20:        Q Y
        !            21:        ;
        !            22: PRS(D0,X)      ;parse language dependant user input
        !            23:        ;D0 is an entry in the DIALOG file
        !            24:        ;X is the user input
        !            25:        ;the function returns the number of the matching command word
        !            26:        ;plus the corresponding english text. If no match was found -1 will
        !            27:        ;be returned. If there is no user input the function returns the
        !            28:        ;null string.
        !            29:        N DINAKED,Y S DINAKED=$$LGR^%ZOSV
        !            30:        I '$D(^DI(.84,+$G(D0)))!($G(X)']"") S Y=0 G Q
        !            31:        N R,I,I1,IL,T,W,%,DILANG
        !            32:        S DILANG=+$G(DUZ("LANG")) S:DILANG<1 DILANG=1
        !            33:        I DILANG>1,'$O(^DI(.84,D0,4,DILANG,1,0)) S DILANG=1
        !            34:        S X=$$OUT(X,"UC"),U="^"
        !            35:        S R=$S(DILANG=1:"^DI(.84,"_D0_",2)",1:"^DI(.84,"_D0_",4,"_DILANG_",1)")
        !            36:        S (I,I1,%)=0 F  S I=$O(@R@(I)) Q:'I!%  S T=$$OUT(@R@(I,0),"UC") D
        !            37:        .F IL=1:1 S W=$P(T,U,IL) Q:W=""!%  S I1=I1+1 S:$E(W,1,$L(X))=X %=I1_U_$P(@R@(I,0),U,IL)
        !            38:        I '% S Y=-1 G Q
        !            39:        I DILANG=1 S Y=% G Q
        !            40:        S (I,I1)=0,%=+% F  S I=$O(^DI(.84,D0,2,I)) Q:'I!(I1=%)  S T=^(I,0) D
        !            41:        .F IL=1:1 Q:$P(T,U,IL)=""!(I1=%)  S I1=I1+1,W=$P(T,U,IL)
        !            42:        S Y=%_U_$G(W) G Q