freem_fileman/USER/DIINI007.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DIINI007.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: DIINI007 ; ; 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,"OPT",336,20) 7: ;;=S DI=10 G EN^DIU 8: ;;^UTILITY(U,$J,"OPT",336,"U") 9: ;;=MANDATORY/REQUIRED FIELD CHECK 10: ;;^UTILITY(U,$J,"OPT",337,0) 11: ;;=DIAUDIT TURN ON/OFF^Turn Data Audit On/Off^^R^^^^^^^^ 12: ;;^UTILITY(U,$J,"OPT",337,1,0) 13: ;;=^^4^4^2901206^ 14: ;;^UTILITY(U,$J,"OPT",337,1,1,0) 15: ;;=This option allows the user to start or stop an audit on a particular 16: ;;^UTILITY(U,$J,"OPT",337,1,2,0) 17: ;;=data field. The user must have audit access to the file in order to turn 18: ;;^UTILITY(U,$J,"OPT",337,1,3,0) 19: ;;=an audit on or off. No other attributes in the field definition can 20: ;;^UTILITY(U,$J,"OPT",337,1,4,0) 21: ;;=be affected by this option. 22: ;;^UTILITY(U,$J,"OPT",337,25) 23: ;;=5^DIAU 24: ;;^UTILITY(U,$J,"OPT",337,"U") 25: ;;=TURN DATA AUDIT ON/OFF 26: ;;^UTILITY(U,$J,"OPT",338,0) 27: ;;=DIWF^Forms Print^^R^^^^^^^^ 28: ;;^UTILITY(U,$J,"OPT",338,1,0) 29: ;;=^^7^7^2901206^ 30: ;;^UTILITY(U,$J,"OPT",338,1,1,0) 31: ;;=This VA FileMan routine asks first for a 'document' file, which must be 32: ;;^UTILITY(U,$J,"OPT",338,1,2,0) 33: ;;=a file that contains a word processing field at the first level. It then 34: ;;^UTILITY(U,$J,"OPT",338,1,3,0) 35: ;;=asks the user to choose an entry in that file for which the word 36: ;;^UTILITY(U,$J,"OPT",338,1,4,0) 37: ;;=processing field has some text on file. It then uses that text as a 38: ;;^UTILITY(U,$J,"OPT",338,1,5,0) 39: ;;='print template' for a file. If the chosen document entry has a pointer 40: ;;^UTILITY(U,$J,"OPT",338,1,6,0) 41: ;;=to a file, that file is automatically the one from which the printing 42: ;;^UTILITY(U,$J,"OPT",338,1,7,0) 43: ;;=is done. 44: ;;^UTILITY(U,$J,"OPT",338,25) 45: ;;=DIWF 46: ;;^UTILITY(U,$J,"OPT",338,"U") 47: ;;=FORMS PRINT 48: ;;^UTILITY(U,$J,"OPT",348,0) 49: ;;=DI DDUCHK^Check/Fix DD Structure^^R^^^^^^^^ 50: ;;^UTILITY(U,$J,"OPT",348,1,0) 51: ;;=^^4^4^2930125^ 52: ;;^UTILITY(U,$J,"OPT",348,1,1,0) 53: ;;=This option looks at the internal structure of files and subfiles 54: ;;^UTILITY(U,$J,"OPT",348,1,2,0) 55: ;;=and determines if there are inconsistencies or conflicts between the 56: ;;^UTILITY(U,$J,"OPT",348,1,3,0) 57: ;;=information in the data dictionary and the structure of the file's global 58: ;;^UTILITY(U,$J,"OPT",348,1,4,0) 59: ;;=nodes. This option will note them and fix or delete the incorrect nodes. 60: ;;^UTILITY(U,$J,"OPT",348,25) 61: ;;=DDUCHK 62: ;;^UTILITY(U,$J,"OPT",348,"U") 63: ;;=CHECK/FIX DD STRUCTURE 64: ;;^UTILITY(U,$J,"OPT",349,0) 65: ;;=DI DDU^Data Dictionary Utilities^^M^^^^^^^^ 66: ;;^UTILITY(U,$J,"OPT",349,10,0) 67: ;;=^19.01IP^3^3 68: ;;^UTILITY(U,$J,"OPT",349,10,1,0) 69: ;;=16^^1 70: ;;^UTILITY(U,$J,"OPT",349,10,1,"^") 71: ;;=DILIST 72: ;;^UTILITY(U,$J,"OPT",349,10,2,0) 73: ;;=104^^2 74: ;;^UTILITY(U,$J,"OPT",349,10,2,"^") 75: ;;=DI DDMAP 76: ;;^UTILITY(U,$J,"OPT",349,10,3,0) 77: ;;=348^^3 78: ;;^UTILITY(U,$J,"OPT",349,10,3,"^") 79: ;;=DI DDUCHK 80: ;;^UTILITY(U,$J,"OPT",349,99) 81: ;;=55633,47339 82: ;;^UTILITY(U,$J,"OPT",349,"U") 83: ;;=DATA DICTIONARY UTILITIES 84: ;;^UTILITY(U,$J,"OPT",360,0) 85: ;;=DDS RUN A FORM^Run a Form^^A^^^^^^^^^^1 86: ;;^UTILITY(U,$J,"OPT",360,1,0) 87: ;;=^^1^1^2940701^^ 88: ;;^UTILITY(U,$J,"OPT",360,1,1,0) 89: ;;=Option to run a form. 90: ;;^UTILITY(U,$J,"OPT",360,20) 91: ;;=D 2^DDSOPT 92: ;;^UTILITY(U,$J,"OPT",360,99.1) 93: ;;=56123,39787 94: ;;^UTILITY(U,$J,"OPT",360,"U") 95: ;;=RUN A FORM 96: ;;^UTILITY(U,$J,"OPT",384,0) 97: ;;=DIFG-SRV-HISTORY^Server to Load a Message into the FG History File^^S^^^^^^^^ 98: ;;^UTILITY(U,$J,"OPT",384,1,0) 99: ;;=^^2^2^2920420^ 100: ;;^UTILITY(U,$J,"OPT",384,1,1,0) 101: ;;=This option is a SERVER that will take a message and add it to the 102: ;;^UTILITY(U,$J,"OPT",384,1,2,0) 103: ;;=Filegram History file so that it can be installed. 104: ;;^UTILITY(U,$J,"OPT",384,3.91,0) 105: ;;=^19.391^^0 106: ;;^UTILITY(U,$J,"OPT",384,25) 107: ;;=HIST^DIFGSRV 108: ;;^UTILITY(U,$J,"OPT",384,220) 109: ;;=^R^^N^N^N 110: ;;^UTILITY(U,$J,"OPT",384,"U") 111: ;;=SERVER TO LOAD A MESSAGE INTO 112: ;;^UTILITY(U,$J,"OPT",390,0) 113: ;;=DDXP DEFINE FORMAT^Define Foreign File Format^^A^^DDXP-DEFINE^^^^^^^^1 114: ;;^UTILITY(U,$J,"OPT",390,1,0) 115: ;;=^^5^5^2930108^ 116: ;;^UTILITY(U,$J,"OPT",390,1,1,0) 117: ;;=Use this option to define formats. Formats are entries in the Foreign 118: ;;^UTILITY(U,$J,"OPT",390,1,2,0) 119: ;;=Format file. They are used to control the exporting of data to a 120: ;;^UTILITY(U,$J,"OPT",390,1,3,0) 121: ;;=non-MUMPS application. You can alter an existing format only before it has 122: ;;^UTILITY(U,$J,"OPT",390,1,4,0) 123: ;;=been used to create an Export template. After it has been used, you can 124: ;;^UTILITY(U,$J,"OPT",390,1,5,0) 125: ;;=clone a format. This option is locked with the DDXP-DEFINE key.