Return to DINIT11A.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT11A.m, revision 1.1

1.1     ! snw         1: DINIT11A       ;SFISC/DCM-INITIALIZE VA FILEMAN ;7/22/94  08:14
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: DD     F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) Q:X?.P  S @("^DD("_$E($P(X," ",2),3,99)_")=Y")
        !             5:        ;;.001,0 DESCRIPTION^
        !             6:        ;;.001,.01,0 DESCRIPTION^W^^0;1
        !             7:        ;;.12,0 FIELD^
        !             8:        ;;.12,0,"NM","VARIABLE-POINTER"
        !             9:        ;;.12,.01,0 VARIABLE-POINTER^R*P1'^DIC(^0;1^S:DUZ(0)'="@" DIC("S")="I 1 Q:'$D(^(0,""RD""))  F %=1:1:$L(^(""RD"")) I DUZ(0)[$E(^(""RD""),%) Q" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
        !            10:        ;;.12,.01,1,0 ^.1
        !            11:        ;;.12,.01,1,1,0 .12^B
        !            12:        ;;.12,.01,1,1,1 S ^DD(DA(2),DA(1),"V","B",X,DA)=""
        !            13:        ;;.12,.01,1,1,2 K ^DD(DA(2),DA(1),"V","B",X,DA)
        !            14:        ;;.12,.01,1,2,0 .12^PT^MUMPS
        !            15:        ;;.12,.01,1,2,1 S ^DD(+X,0,"PT",DA(2),DA(1))=""
        !            16:        ;;.12,.01,1,2,2 K ^DD(+X,0,"PT",DA(2),DA(1))
        !            17:        ;;.12,.01,4
        !            18:        ;;.12,.01,12.1 S:DUZ(0)'="@" DIC("S")="I 1 Q:'$D(^(0,""RD""))  F %=1:1:$L(^(""RD"")) I DUZ(0)[$E(^(""RD""),%) Q"
        !            19:        ;;.12,.02,0 MESSAGE^RF^^0;2^K:$L(X)>30!($L(X)<1) X
        !            20:        ;;.12,.02,1,1,0 .12^M^MUMPS
        !            21:        ;;.12,.02,1,1,1 S ^DD(DA(2),DA(1),"V","M",X,DA)=""
        !            22:        ;;.12,.02,1,1,2 K ^DD(DA(2),DA(1),"V","M",X,DA)
        !            23:        ;;.12,.02,3 ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
        !            24:        ;;.12,.03,0 ORDER^RNJ4,1X^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"."2N.N) X I $D(X),$D(^DD(DA(2),DA(1),"V","O",X)),$O(^(X,0))'=DA K X I $D(^DD(DA(2),DA(1),"V",$O(^(0)),0)) S %=+^(0) W:% "  Used by "_$S($D(^DIC(%,0)):$P(^(0),U,1),1:%)_" FILE "
        !            25:        ;;.12,.03,1,0 ^.1
        !            26:        ;;.12,.03,1,1,0 .12^O^MUMPS
        !            27:        ;;.12,.03,1,1,1 S ^DD(DA(2),DA(1),"V","O",X,DA)=""
        !            28:        ;;.12,.03,1,1,2 K ^DD(DA(2),DA(1),"V","O",X,DA)
        !            29:        ;;.12,.03,3 Type a unique number between 1 and 99, one decimal point allowed.
        !            30:        ;;.12,.04,0 PREFIX^RFX^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10 X I $D(X),$D(^DD(DA(2),DA(1),"V","P",X)),$O(^(X,0))'=DA K X I $D(^DD(DA(2),DA(1),"V",$O(^(0)),0)) S %=+^(0) W:% "  Used by "_$S($D(^DIC(%,0)):$P(^(0),U,1),1:%)_" FILE "
        !            31:        ;;.12,.04,1,0 ^.1
        !            32:        ;;.12,.04,1,1,0 .12^P^MUMPS
        !            33:        ;;.12,.04,1,1,1 S ^DD(DA(2),DA(1),"V","P",X,DA)=""
        !            34:        ;;.12,.04,1,1,2 K ^DD(DA(2),DA(1),"V","P",X,DA)
        !            35:        ;;.12,.04,3 Answer must be a unique prefix, 1-10 characters in length
        !            36:        ;;.12,.05,0 SHOULD ENTRIES BE SCREENED^S^y:YES;n:NO;^0;5^Q
        !            37:        ;;.12,.06,0 LAYGO^S^y:YES;n:NO;^0;6^Q
        !            38:        ;;.12,.06,.1 SHOULD USER BE ALLOWED TO ADD A NEW ENTRY
        !            39:        ;;.12,1,0 SCREEN^FX^^1;E1,240^K:$L(X)>240!($L(X)<1)!(X'["DIC(""S"")") X D:$D(X) ^DIM
        !            40:        ;;.12,1,.1 MUMPS CODE THAT WILL SET DIC('S')
        !            41:        ;;.12,1,3 ANSWER MUST BE 1-240 CHARATERS IN LENGTH AND VALID MUMPS CODE
        !            42:        ;;.12,1,4 I X?1"??".E D HELP^DICATT4
        !            43:        ;;.12,1,"DEL",1,0 I $P(^DD(DA(2),DA(1),"V",DA,0),U,5)="y" W !?3,"Answer 'NO' to the 'SHOULD ENTRIES BE SCREENED' prompt to delete the screen"
        !            44:        ;;.12,2,0 EXPLANATION OF SCREEN^FR^^2;1^K:$L(X)>240!($L(X)<1) X
        !            45:        ;;.12,2,3 ANSWER MUST BE 1-240 CHARACTERS IN LENGTH
        !            46:        ;;.15,0 TRIGGERED-BY^
        !            47:        ;;.15,0,"NM","TRIGGERED-BY"
        !            48:        ;;.15,.01,0 DD NUMBER^N^^0;1^K:'$D(^DD(X)) X
        !            49:        ;;.15,2,0 FIELD NUMBER^N^^0;2
        !            50:        ;;.15,3,0 CROSS-REFERENCE NUMBER^N^^0;3
        !            51:        ;;.3,0 GROUP^
        !            52:        ;;.3,0,"NM","GROUP"
        !            53:        ;;.3,.01,0 GROUP^F^^0;1^K:$L(X)>30!(X'?.ANP)!($A(X)<32) X
        !            54:        ;;.3,.01,3 UP TO 30 CHARACTERS, ALPHANUMERIC
        !            55:        ;;.3,.01,1,0 ^.1^1^1
        !            56:        ;;.3,.01,1,1,0 0^GR
        !            57:        ;;.3,.01,1,1,1 S ^DD(DA(2),"GR",X,DA(1),DA)=""
        !            58:        ;;.3,.01,1,1,2 K ^DD(DA(2),"GR",X,DA(1),DA)
        !            59:        ;;"$O" S Y="%" F %=0:0 S Y=$O(@Y) Q:Y=""  S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S %X=Y_"(",%Y=X_"Y," D %XY^%RCR
        !            60:        ;;"DD" S Y=$$FMTE^DILIBF(Y,"5U")
        !            61:        ;;"KWIC" ^AND^THE^THEN^FOR^FROM^OTHER^THAN^WITH^THEIR^SOME^THIS^and^the^then^for^from^other^than^with^their^some^this