Return to DINIT13.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT13.m, revision 1.1

1.1     ! snw         1: DINIT13        ;SFISC/-INITIALIZE VA FILEMAN ;08:55 AM  15 Sep 1994
        !             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) G ^DINIT14:X?.P S @("^DD("_$E($P(X," ",2),3,99)_")=Y")
        !             5:        ;;.401,8,0 TEMPLATE TYPE^S^1:ARCHIVING SEARCH;^0;8^Q
        !             6:        ;;.401,8,3 Enter a 1 if this is an ARCHIVING SEARCH template (i.e., used to store lists of records to be archived) as opposed to a normal SEARCH or SORT template
        !             7:        ;;.401,10,0 DESCRIPTION^.4012^^%D;0
        !             8:        ;;.402,10,0 DESCRIPTION^.4021^^%D;0
        !             9:        ;;.4012,0,"UP" .401
        !            10:        ;;.4021,0,"UP" .402
        !            11:        ;;.4,8,0 TEMPLATE TYPE^S^1:FILEGRAM;2:EXTRACT;3:EXPORT;7:SELECTED EXPORT FIELDS;^0;8^Q
        !            12:        ;;.4,8,1,0 ^.1^^-1
        !            13:        ;;.4,8,1,1,0 .4^FG^MUMPS
        !            14:        ;;.4,8,1,1,1 S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1),@(DIC_%_",A1,DA)=""""") K %,A1
        !            15:        ;;.4,8,1,1,2 S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1) K @(DIC_%_",A1,DA)"),%,A1
        !            16:        ;;.4,8,1,1,"%D",0 ^^1^1^2921002^^^^
        !            17:        ;;.4,8,1,1,"%D",0,"LE" 1
        !            18:        ;;.4,8,1,1,"%D",1,0 Used to do a quick lookup of FILEGRAM type of print templates.
        !            19:        ;;.4,8,1,1,"DT" 2901106
        !            20:        ;;.4,8,1,2,0 .4^EX^MUMPS
        !            21:        ;;.4,8,1,2,1 S %=$S(X=2:"""EX""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1),@(DIC_%_",A1,DA)=""""") K %,A1
        !            22:        ;;.4,8,1,2,2 S %=$S(X=2:"""EX""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1) K @(DIC_%_",A1,DA)"),%,A1
        !            23:        ;;.4,8,1,2,"%D",0 ^^1^1^2920514
        !            24:        ;;.4,8,1,2,"%D",1,0 Used to do a quick lookup of EXTRACT type of print templates
        !            25:        ;;.4,8,1,2,"DT" 2920514
        !            26:        ;;.4,8,3 Enter a 1 if this is a FILEGRAM template, 2 if this is an EXTRACT template, 3 if an EXPORT template, 7 if a SELECTED FIELDS template, as opposed to a normal PRINT template.
        !            27:        ;;.4,8,"DT" 2921110
        !            28:        ;;.4,20,0 DESTINATION FILE^NJ16,6^^0;9^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."7N.N) X
        !            29:        ;;.4,20,3 Type a Number between 2 and 999999999, 6 Decimal Digits
        !            30:        ;;.4,20,21,0 ^^2^2^2921002^
        !            31:        ;;.4,20,21,1,0 This field holds the number of the file that is designed to receive
        !            32:        ;;.4,20,21,2,0 data from other files by using the Extract Tool.
        !            33:        ;;.4,20,"DT" 2920923
        !            34:        ;;.4,50,0 FILEGRAM/EXTR FILE^.41A^^1;0
        !            35:        ;;.4,50,"DT" 2920514
        !            36:        ;;.4,100,0 EXPORT FIELD^.42A^^100;0
        !            37:        ;;.4,100,21,0 ^^1^1^2921123^^
        !            38:        ;;.4,100,21,1,0 This multiple holds information about each field being exported.
        !            39:        ;;.4,105,0 EXPORT FORMAT^P.44'^DIST(.44,^105;1^Q
        !            40:        ;;.4,105,21,0 ^^1^1^2921123^
        !            41:        ;;.4,105,21,1,0 This field contains the foreign format used to make the export template.
        !            42:        ;;.4,105,"DT" 2920904
        !            43:        ;;.4,110,0 EXPORT TEMPLATE CREATED?^S^1:YES;0:NO;^105;3^Q
        !            44:        ;;.4,110,21,0 ^^2^2^2921119^
        !            45:        ;;.4,110,21,1,0 If YES, this Selected Fields for Export template has been used to create
        !            46:        ;;.4,110,21,2,0 an Export template.
        !            47:        ;;.4,110,"DT" 2920904
        !            48:        ;;.4,115,0 MULTIPLE PATH^F^^105;4^K:$L(X)>30!($L(X)<1) X
        !            49:        ;;.4,115,3 Answer must be 1-30 characters in length.
        !            50:        ;;.4,115,21,0 ^^2^2^2921119^
        !            51:        ;;.4,115,21,1,0 This field holds a list of field numbers representing the deepest multiple
        !            52:        ;;.4,115,21,2,0 contained in this Export template.
        !            53:        ;;.4,115,"DT" 2921119
        !            54:        ;;.4,704,0 HEADER^CJ60^^ ; ^S X=$S($D(^DIPT(D0,"H")):^("H"),1:"")
        !            55:        ;;.4,707,0 SUB-HEADER SUPPRESSED^S^1:YES^SUB;1^Q
        !            56:        ;;.4,1620,0 PRINT FIELDS^XCmJ50^^ ; ^D ^DIPT
        !            57:        ;;.401,15,0 SEARCH SPECIFICATIONS^.4011^^O;0
        !            58:        ;;.4011,0 FIELD^.01^1
        !            59:        ;;.4011,0,"NM","FIELD"
        !            60:        ;;.4011,.01,0 SEARCH SPECIFICATIONS^WL^^0;1
        !            61:        ;;.4011,0,"UP" .401
        !            62:        ;;.401,1620,0 SORT FIELDS^CmJ50^^ ; ^D DIBT^DIPT
        !            63:        ;;.401,491620,0 PRINT TEMPLATE^F^^DIPT;1^K:'$D(^DIPT("B",X)) X
        !            64:        ;;.401,491620,4 N D1 S D1(1)="If this Sort Template should always be used with a particular",D1(2)="Print Template, enter the name of that Print Template.",D1(3)="" D EN^DDIOL(.D1)