Return to DII.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Annotation of freem_fileman/USER/DII.m, revision 1.1

1.1     ! snw         1: DII    ;SFISC/GFT,XAK,TKW-OPTION RDR, INQUIRY ;9/9/94  14:55
        !             2: V      ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        W !!,"VA FileMan "_$P($T(V),";",3),!
        !             5: NOKL   D DT^DICRW,OS S DIK="^DOPT(""DII""," G F:$D(^DOPT("DII",9)) S ^(0)="OPTION^1.01^" F I=1:1 S X=$E($T(F+I),4,99) Q:X=""  S ^DOPT("DII",I,0)=X
        !             6:        D IXALL^DIK
        !             7: F      S DIC=DIK,DIC(0)="AEQZ" D ^DIC K DIC,DIK G Q:Y<0 S X=$P(Y(0),U,2,99) K Y D @X W !!! D Q G NOKL
        !             8:        ;;ENTER OR EDIT FILE ENTRIES^^DIB
        !             9:        ;;PRINT FILE ENTRIES^^DIP
        !            10:        ;;SEARCH FILE ENTRIES^^DIS
        !            11:        ;;MODIFY FILE ATTRIBUTES^^DICATT
        !            12:        ;;INQUIRE TO FILE ENTRIES^INQ^DII
        !            13:        ;;UTILITY FUNCTIONS^^DIU
        !            14:        ;;OTHER OPTIONS^^DII1
        !            15:        ;;DATA DICTIONARY UTILITIES^^DDU
        !            16:        ;;TRANSFER ENTRIES^^DIT
        !            17:        ;
        !            18: Q      D Q^DIB,Q^DICATT2,Q^DIARB
        !            19:        K DRK,DIL,DIS,DK,DIACD,DIQ,DX,DQI,DISYS,DHIT,%X,%Y,%,DXS,Q,DIAR
        !            20:        K A0,D9,DNP,DCC,DIJ,DP,DM,DQ,DICATT,DIFLD,D0,DIEL,DL,DC,DU,DIP
        !            21:        K DH,DIYS,DINS,DIPT,DHD,DCL,DPP,DPQ,DALL,DIRUT,DIROUT,DUOUT,DTOUT
        !            22:        Q
        !            23: INQ    ;
        !            24:        W !! D ^DICRW Q:'$D(DIC)  S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y I $D(DICS) S DICSS=DICS
        !            25: B      K ^UTILITY($J),^(U,$J),DIC,DIQ,DISV,DIBT,DICS S DIC=DI,DIC(0)="AEQM",DIK=0
        !            26: R      D ^DIC I Y>0 S DIK=DIK+1,^UTILITY(U,$J,DIK,+Y)="",DIC("A")="ANOTHER ONE: " G R
        !            27: S      G Q^DIP:'DIK!(X=U) G:DIK'>3 O
        !            28:        D  K DIRUT,DIROUT
        !            29:        . N DIK,DI,DICSS,DX D S2^DIBT1 Q
        !            30:        G:$D(DTOUT)!($D(DUOUT)) Q^DIP G:X="" O G:Y<0 S
        !            31:        F X=1:1:DIK S ^DIBT(+Y,1,+$O(^UTILITY(U,$J,X,0)))=""
        !            32:        S ^DIBT(+Y,"QR")=DT_U_DIK
        !            33: O      K DIC G Q^DIP:$D(DTOUT) S DIC=DI,%=1
        !            34:        W !,"STANDARD CAPTIONED OUTPUT" D YN^DICN G Q^DIP:%<0
        !            35:        I '% W !?5,"Answer 'N' to create a formatted display as in the Print Option." G O
        !            36:        I %=2 S L=1,Q="""",DPP=1,DPP(1,"IX")="^UTILITY(U,$J,"_DI_"^2" S:$D(DICSS) DICS=DICSS G N^DIP1
        !            37:        D C G:$D(DIRUT) Q
        !            38: AD     I $D(^DIA(DK)) S %=2 W !,"DISPLAY AUDIT TRAIL" D YN^DICN G Q:%<0 S:%=1 DIQ(0)=DIQ(0)_"A" I '% W !?5,"Answer 'Y' to display the audit trail for each Entry." G AD
        !            39:        S IOP="HOME" D ^%ZIS I $D(DICSS) S DICS=DICSS
        !            40:        S S=1 F DIK=1:1:DIK S DA=+$O(^UTILITY(U,$J,DIK,0)),DIC=DI,E="N<0",N=-1,DD=DK W ! X:DIK>1 DX(0) Q:'S  D GUY^DIQ Q:'S  I DIQ(0)["A",$D(^DIA(DK,"B",DA)) D AUD
        !            41:        W !! Q:$D(DTOUT)  G B
        !            42:        ;
        !            43: P      G Q^DI
        !            44:        ;
        !            45: OS     I $D(^%ZOSF("OS"))#2 S DISYS=+$P(^("OS"),"^",2) Q:DISYS>0
        !            46:        S DISYS=$S($D(^DD("OS"))#2:^("OS"),1:100)
        !            47:        Q
        !            48: AUD    S DIACD=DIQ(0),DIQ(0)="C",DIQ=DA
        !            49:        F DA=0:0 S DA=$O(^DIA(DK,"B",DIQ,DA)) Q:DA'>0  S DIC="^DIA("_DK_",",E="N<0",N=-1,DD=1.1,DIA=DK D GUY^DIQ Q:'S  W !
        !            50:        S DIQ(0)=DIACD Q
        !            51:        ;
        !            52: C      N DIR,I,L,Y,X,DITXT D BLD^DIALOG(7004,"","","DIR") S DITXT="" D  S DITXT=DITXT_DIR
        !            53:        . F I=1:1 Q:$G(DIR(I))=""  S DITXT=DITXT_DIR(I)
        !            54:        . Q
        !            55:        K DIR S DIR(0)="SMB^"_DITXT,DIR("B")=$P($P(DITXT,":",2)," ",1),DIR("A")=$$EZBLD^DIALOG(8002)
        !            56:        D ^DIR Q:$D(DIRUT)
        !            57:        F I=1:1 S X=$P($P(DITXT,";",I),":") Q:X=""  I X=Y S DIQ(0)=$S(I=2:"C",I=3:"R",I=4:"CR",1:"") Q
        !            58:        S:X'=Y DIRUT=1 Q
        !            59:        ;7004  N:NO;Y:YES;R:Record Number;B:BOTH Computed Fields and Record No.
        !            60:        ;8002  Include COMPUTED fields