freem_fileman/USER/DIINI008.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DIINI008.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: DIINI008 ; ; 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",390,20) 7: ;;=D 1^DDXP 8: ;;^UTILITY(U,$J,"OPT",390,"U") 9: ;;=DEFINE FOREIGN FILE FORMAT 10: ;;^UTILITY(U,$J,"OPT",391,0) 11: ;;=DDXP SELECT EXPORT FIELDS^Select Fields for Export^^A^^^^^^^^^^1 12: ;;^UTILITY(U,$J,"OPT",391,1,0) 13: ;;=^^1^1^2921207^^ 14: ;;^UTILITY(U,$J,"OPT",391,1,1,0) 15: ;;=Use this option to choose fields to be exported. 16: ;;^UTILITY(U,$J,"OPT",391,20) 17: ;;=D 2^DDXP 18: ;;^UTILITY(U,$J,"OPT",391,"U") 19: ;;=SELECT FIELDS FOR EXPORT 20: ;;^UTILITY(U,$J,"OPT",392,0) 21: ;;=DDXP CREATE EXPORT TEMPLATE^Create Export Template^^A^^^^^^^^^^1 22: ;;^UTILITY(U,$J,"OPT",392,1,0) 23: ;;=^^2^2^2940519^^^ 24: ;;^UTILITY(U,$J,"OPT",392,1,1,0) 25: ;;=This option creates an Export template by applying the specifications in a 26: ;;^UTILITY(U,$J,"OPT",392,1,2,0) 27: ;;=Foreign Format with the fields in a Selected Fields for Export template. 28: ;;^UTILITY(U,$J,"OPT",392,20) 29: ;;=D 3^DDXP 30: ;;^UTILITY(U,$J,"OPT",392,"U") 31: ;;=CREATE EXPORT TEMPLATE 32: ;;^UTILITY(U,$J,"OPT",393,0) 33: ;;=DDXP EXPORT DATA^Export Data^^A^^^^^^^^^^1 34: ;;^UTILITY(U,$J,"OPT",393,1,0) 35: ;;=^^4^4^2921207^^ 36: ;;^UTILITY(U,$J,"OPT",393,1,1,0) 37: ;;=This option sends data to a specified device for export to a foreign 38: ;;^UTILITY(U,$J,"OPT",393,1,2,0) 39: ;;=application. You have the opportunity to choose entries for export with 40: ;;^UTILITY(U,$J,"OPT",393,1,3,0) 41: ;;=VA FileMan's Search dialogue. You use an Export template to control the 42: ;;^UTILITY(U,$J,"OPT",393,1,4,0) 43: ;;=export. 44: ;;^UTILITY(U,$J,"OPT",393,20) 45: ;;=D 4^DDXP 46: ;;^UTILITY(U,$J,"OPT",393,"U") 47: ;;=EXPORT DATA 48: ;;^UTILITY(U,$J,"OPT",394,0) 49: ;;=DDXP EXPORT MENU^Data Export to Foreign Format^^M^^^^^^^^ 50: ;;^UTILITY(U,$J,"OPT",394,1,0) 51: ;;=^^1^1^2921207^ 52: ;;^UTILITY(U,$J,"OPT",394,1,1,0) 53: ;;=Submenu for the Export tool. 54: ;;^UTILITY(U,$J,"OPT",394,10,0) 55: ;;=^19.01IP^5^5 56: ;;^UTILITY(U,$J,"OPT",394,10,1,0) 57: ;;=390^^1 58: ;;^UTILITY(U,$J,"OPT",394,10,1,"^") 59: ;;=DDXP DEFINE FORMAT 60: ;;^UTILITY(U,$J,"OPT",394,10,2,0) 61: ;;=391^^2 62: ;;^UTILITY(U,$J,"OPT",394,10,2,"^") 63: ;;=DDXP SELECT EXPORT FIELDS 64: ;;^UTILITY(U,$J,"OPT",394,10,3,0) 65: ;;=392^^3 66: ;;^UTILITY(U,$J,"OPT",394,10,3,"^") 67: ;;=DDXP CREATE EXPORT TEMPLATE 68: ;;^UTILITY(U,$J,"OPT",394,10,4,0) 69: ;;=393^^4 70: ;;^UTILITY(U,$J,"OPT",394,10,4,"^") 71: ;;=DDXP EXPORT DATA 72: ;;^UTILITY(U,$J,"OPT",394,10,5,0) 73: ;;=405^^5 74: ;;^UTILITY(U,$J,"OPT",394,10,5,"^") 75: ;;=DDXP FORMAT DOCUMENTATION 76: ;;^UTILITY(U,$J,"OPT",394,99) 77: ;;=55633,47255 78: ;;^UTILITY(U,$J,"OPT",394,"U") 79: ;;=DATA EXPORT TO FOREIGN FORMAT 80: ;;^UTILITY(U,$J,"OPT",395,0) 81: ;;=DIAX EXTRACT MENU^Extract Data To Fileman File^^M^^DIEXTRACT^^^^^^^^^1^^ 82: ;;^UTILITY(U,$J,"OPT",395,1,0) 83: ;;=^^2^2^2921222^^^^ 84: ;;^UTILITY(U,$J,"OPT",395,1,1,0) 85: ;;= 86: ;;^UTILITY(U,$J,"OPT",395,1,2,0) 87: ;;=This is a menu of the tool for extracting data to Fileman file. 88: ;;^UTILITY(U,$J,"OPT",395,10,0) 89: ;;=^19.01IP^9^9 90: ;;^UTILITY(U,$J,"OPT",395,10,1,0) 91: ;;=396^^1 92: ;;^UTILITY(U,$J,"OPT",395,10,1,"^") 93: ;;=DIAX SELECT 94: ;;^UTILITY(U,$J,"OPT",395,10,2,0) 95: ;;=397^^2 96: ;;^UTILITY(U,$J,"OPT",395,10,2,"^") 97: ;;=DIAX ADD/DELETE 98: ;;^UTILITY(U,$J,"OPT",395,10,3,0) 99: ;;=398^^3 100: ;;^UTILITY(U,$J,"OPT",395,10,3,"^") 101: ;;=DIAX PRINT 102: ;;^UTILITY(U,$J,"OPT",395,10,4,0) 103: ;;=399^^4 104: ;;^UTILITY(U,$J,"OPT",395,10,4,"^") 105: ;;=DIAX MODIFY 106: ;;^UTILITY(U,$J,"OPT",395,10,5,0) 107: ;;=400^^5 108: ;;^UTILITY(U,$J,"OPT",395,10,5,"^") 109: ;;=DIAX CREATE 110: ;;^UTILITY(U,$J,"OPT",395,10,6,0) 111: ;;=401^^6 112: ;;^UTILITY(U,$J,"OPT",395,10,6,"^") 113: ;;=DIAX UPDATE 114: ;;^UTILITY(U,$J,"OPT",395,10,7,0) 115: ;;=402^^7 116: ;;^UTILITY(U,$J,"OPT",395,10,7,"^") 117: ;;=DIAX PURGE 118: ;;^UTILITY(U,$J,"OPT",395,10,8,0) 119: ;;=403^^7 120: ;;^UTILITY(U,$J,"OPT",395,10,8,"^") 121: ;;=DIAX CANCEL 122: ;;^UTILITY(U,$J,"OPT",395,10,9,0) 123: ;;=404^^8 124: ;;^UTILITY(U,$J,"OPT",395,10,9,"^") 125: ;;=DIAX VALIDATE 126: ;;^UTILITY(U,$J,"OPT",395,15) 127: ;;=K DIAX 128: ;;^UTILITY(U,$J,"OPT",395,99) 129: ;;=55633,47310 130: ;;^UTILITY(U,$J,"OPT",395,"U") 131: ;;=EXTRACT DATA TO FILEMAN FILE 132: ;;^UTILITY(U,$J,"OPT",396,0) 133: ;;=DIAX SELECT^Select Entries to Extract^^A^^DIEXTRACT^^^^^^^^1^^^ 134: ;;^UTILITY(U,$J,"OPT",396,1,0) 135: ;;=^^5^5^2921222^ 136: ;;^UTILITY(U,$J,"OPT",396,1,1,0) 137: ;;= 138: ;;^UTILITY(U,$J,"OPT",396,1,2,0) 139: ;;=Use this option to specify the criteria that would select Fileman entries 140: ;;^UTILITY(U,$J,"OPT",396,1,3,0) 141: ;;=to extract. This is the first step in developing an extract activity and 142: ;;^UTILITY(U,$J,"OPT",396,1,4,0) 143: ;;=is important since there cannot be any extract process without the search 144: ;;^UTILITY(U,$J,"OPT",396,1,5,0) 145: ;;=template created in this option.