freem_fileman/USER/DIINI001.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DIINI001.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:20 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD

Restructure repository

1: DIINI001 ; ; 22-DEC-1994 2: ;;21.0;VA FileMan;;Dec 28, 1994 3: ;Per VHA Directive 10-93-142, this routine should not be modified. 4: F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y 5: Q Q 6: ;;^UTILITY(U,$J,"KEY",24,0) 7: ;;=DIEXTRACT 8: ;;^UTILITY(U,$J,"KEY",24,1,0) 9: ;;=^^3^3^2930106^ 10: ;;^UTILITY(U,$J,"KEY",24,1,1,0) 11: ;;= 12: ;;^UTILITY(U,$J,"KEY",24,1,2,0) 13: ;;=This key is needed to access the menu for extracting data to a VA FileMan 14: ;;^UTILITY(U,$J,"KEY",24,1,3,0) 15: ;;=file. 16: ;;^UTILITY(U,$J,"KEY",25,0) 17: ;;=DDXP-DEFINE 18: ;;^UTILITY(U,$J,"KEY",25,1,0) 19: ;;=^^3^3^2930108^^ 20: ;;^UTILITY(U,$J,"KEY",25,1,1,0) 21: ;;=Holders of this key can use the Define Foreign File Format option. That 22: ;;^UTILITY(U,$J,"KEY",25,1,2,0) 23: ;;=option defines foreign formats, modifies existing formats that have not 24: ;;^UTILITY(U,$J,"KEY",25,1,3,0) 25: ;;=been used to create an export template, and clones formats. 26: ;;^UTILITY(U,$J,"OPT",9,0) 27: ;;=DIEDIT^Enter or Edit File Entries^^A^^^^^^^^^n^1^^ 28: ;;^UTILITY(U,$J,"OPT",9,1,0) 29: ;;=^^2^2^2890316^^^^ 30: ;;^UTILITY(U,$J,"OPT",9,1,1,0) 31: ;;=This option is used to enter new entries in a file or edit existing ones. 32: ;;^UTILITY(U,$J,"OPT",9,1,2,0) 33: ;;=You specify the file and fields within the file to edit. 34: ;;^UTILITY(U,$J,"OPT",9,20) 35: ;;=D ^DIB 36: ;;^UTILITY(U,$J,"OPT",9,99) 37: ;;=52905,54998 38: ;;^UTILITY(U,$J,"OPT",9,"U") 39: ;;=ENTER OR EDIT FILE ENTRIES 40: ;;^UTILITY(U,$J,"OPT",10,0) 41: ;;=DIPRINT^Print File Entries^^A^^^^^^^y^^n^1^^ 42: ;;^UTILITY(U,$J,"OPT",10,1,0) 43: ;;=^^3^3^2910625^^^^ 44: ;;^UTILITY(U,$J,"OPT",10,1,1,0) 45: ;;=This option is used to print a report from a file, where a number of 46: ;;^UTILITY(U,$J,"OPT",10,1,2,0) 47: ;;=entries are to be listed in a columnar format. Each column can be 48: ;;^UTILITY(U,$J,"OPT",10,1,3,0) 49: ;;=individually controlled for format, tabulation, justification, etc. 50: ;;^UTILITY(U,$J,"OPT",10,20) 51: ;;=D ^DIP 52: ;;^UTILITY(U,$J,"OPT",10,99.1) 53: ;;=55061,47656 54: ;;^UTILITY(U,$J,"OPT",10,"U") 55: ;;=PRINT FILE ENTRIES 56: ;;^UTILITY(U,$J,"OPT",11,0) 57: ;;=DISEARCH^Search File Entries^^A^^^^^^^y^^n^1^^ 58: ;;^UTILITY(U,$J,"OPT",11,1,0) 59: ;;=^^3^3^2930728^^^^ 60: ;;^UTILITY(U,$J,"OPT",11,1,1,0) 61: ;;=This option is used to print a report in which entries are to be selected 62: ;;^UTILITY(U,$J,"OPT",11,1,2,0) 63: ;;=according to a pre-determined set of criteria. After the search criteria 64: ;;^UTILITY(U,$J,"OPT",11,1,3,0) 65: ;;=is met, a standard report will be generated. 66: ;;^UTILITY(U,$J,"OPT",11,20) 67: ;;=D ^DIS 68: ;;^UTILITY(U,$J,"OPT",11,"U") 69: ;;=SEARCH FILE ENTRIES 70: ;;^UTILITY(U,$J,"OPT",12,0) 71: ;;=DIMODIFY^Modify File Attributes^^A^^^^^^^^^n^1^^ 72: ;;^UTILITY(U,$J,"OPT",12,1,0) 73: ;;=^^2^2^2890316^^^ 74: ;;^UTILITY(U,$J,"OPT",12,1,1,0) 75: ;;=This option is used to modify the structure of a file or the 76: ;;^UTILITY(U,$J,"OPT",12,1,2,0) 77: ;;=characteristics of its fields. 78: ;;^UTILITY(U,$J,"OPT",12,20) 79: ;;=D ^DICATT 80: ;;^UTILITY(U,$J,"OPT",12,"U") 81: ;;=MODIFY FILE ATTRIBUTES 82: ;;^UTILITY(U,$J,"OPT",13,0) 83: ;;=DIINQUIRE^Inquire to File Entries^^A^^^^^^^^^n^1^^ 84: ;;^UTILITY(U,$J,"OPT",13,1,0) 85: ;;=3^^4^4^2890316^^ 86: ;;^UTILITY(U,$J,"OPT",13,1,1,0) 87: ;;=This option is used to display all the data for a group of specified 88: ;;^UTILITY(U,$J,"OPT",13,1,2,0) 89: ;;=entries in a file. This is useful for a quick look at a small number 90: ;;^UTILITY(U,$J,"OPT",13,1,3,0) 91: ;;=of entries. Use the Print File Entries option for larger numbers 92: ;;^UTILITY(U,$J,"OPT",13,1,4,0) 93: ;;=of entries. 94: ;;^UTILITY(U,$J,"OPT",13,20) 95: ;;=D INQ^DII 96: ;;^UTILITY(U,$J,"OPT",13,"U") 97: ;;=INQUIRE TO FILE ENTRIES 98: ;;^UTILITY(U,$J,"OPT",14,0) 99: ;;=DIUTILITY^Utility Functions^^M^^^^^^^^^n^^ 100: ;;^UTILITY(U,$J,"OPT",14,1,0) 101: ;;=^^2^2^2901205^^^^ 102: ;;^UTILITY(U,$J,"OPT",14,1,1,0) 103: ;;=This option is a menu of VA FileMan utilities used to maintain the more 104: ;;^UTILITY(U,$J,"OPT",14,1,2,0) 105: ;;=technical aspects of files. 106: ;;^UTILITY(U,$J,"OPT",14,10,0) 107: ;;=^19.01IP^10^10 108: ;;^UTILITY(U,$J,"OPT",14,10,1,0) 109: ;;=163^^6 110: ;;^UTILITY(U,$J,"OPT",14,10,1,"^") 111: ;;=DIEDFILE 112: ;;^UTILITY(U,$J,"OPT",14,10,2,0) 113: ;;=159^^2 114: ;;^UTILITY(U,$J,"OPT",14,10,2,"^") 115: ;;=DIXREF 116: ;;^UTILITY(U,$J,"OPT",14,10,3,0) 117: ;;=162^^5 118: ;;^UTILITY(U,$J,"OPT",14,10,3,"^") 119: ;;=DIITRAN 120: ;;^UTILITY(U,$J,"OPT",14,10,4,0) 121: ;;=160^^3 122: ;;^UTILITY(U,$J,"OPT",14,10,4,"^") 123: ;;=DIIDENT 124: ;;^UTILITY(U,$J,"OPT",14,10,5,0) 125: ;;=161^^4 126: ;;^UTILITY(U,$J,"OPT",14,10,5,"^") 127: ;;=DIRDEX 128: ;;^UTILITY(U,$J,"OPT",14,10,6,0) 129: ;;=164^^7 130: ;;^UTILITY(U,$J,"OPT",14,10,6,"^") 131: ;;=DIOTRAN 132: ;;^UTILITY(U,$J,"OPT",14,10,7,0) 133: ;;=165^^8 134: ;;^UTILITY(U,$J,"OPT",14,10,7,"^") 135: ;;=DITEMP 136: ;;^UTILITY(U,$J,"OPT",14,10,8,0) 137: ;;=166^^9 138: ;;^UTILITY(U,$J,"OPT",14,10,8,"^") 139: ;;=DIUNEDIT