freem_fileman/USER/DINIT00I.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00I.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: DINIT00I ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23 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) S @X=Y 5: Q Q 6: ;;^UTILITY(U,$J,.84,8012,1,2,0) 7: ;;=PRINT option. 8: ;;^UTILITY(U,$J,.84,8012,2,0) 9: ;;=^^1^1^2931102^ 10: ;;^UTILITY(U,$J,.84,8012,2,1,0) 11: ;;=Heading 12: ;;^UTILITY(U,$J,.84,8012,5,0) 13: ;;=^.841^2^2 14: ;;^UTILITY(U,$J,.84,8012,5,1,0) 15: ;;=DIP^EN1 16: ;;^UTILITY(U,$J,.84,8012,5,2,0) 17: ;;=DIS^ENS 18: ;;^UTILITY(U,$J,.84,8013,0) 19: ;;=8013^2^^11^ 20: ;;^UTILITY(U,$J,.84,8013,1,0) 21: ;;=^^3^3^2931105^^ 22: ;;^UTILITY(U,$J,.84,8013,1,1,0) 23: ;;=The DD for the file of files is not completely FileMan compatible. This 24: ;;^UTILITY(U,$J,.84,8013,1,2,0) 25: ;;=is the field name prompt for the POST-SELECTION ACTION field on the file 26: ;;^UTILITY(U,$J,.84,8013,1,3,0) 27: ;;=of files. Prompt appears when file attributes. 28: ;;^UTILITY(U,$J,.84,8013,2,0) 29: ;;=^^1^1^2931105^^ 30: ;;^UTILITY(U,$J,.84,8013,2,1,0) 31: ;;=POST-SELECTION ACTION 32: ;;^UTILITY(U,$J,.84,8013,5,0) 33: ;;=^.841^1^1 34: ;;^UTILITY(U,$J,.84,8013,5,1,0) 35: ;;=DIU0^6 36: ;;^UTILITY(U,$J,.84,8014,0) 37: ;;=8014^2^^11^ 38: ;;^UTILITY(U,$J,.84,8014,1,0) 39: ;;=^^3^3^2931105^ 40: ;;^UTILITY(U,$J,.84,8014,1,1,0) 41: ;;=The DD for the file of files is not completely FileMan compatible. This 42: ;;^UTILITY(U,$J,.84,8014,1,2,0) 43: ;;=is the field name prompt for the LOOK-UP PROGRAM field on the file 44: ;;^UTILITY(U,$J,.84,8014,1,3,0) 45: ;;=of files. Prompt appears when file attributes are edited. 46: ;;^UTILITY(U,$J,.84,8014,2,0) 47: ;;=^^1^1^2931105^ 48: ;;^UTILITY(U,$J,.84,8014,2,1,0) 49: ;;=LOOK-UP PROGRAM 50: ;;^UTILITY(U,$J,.84,8014,5,0) 51: ;;=^.841^1^1 52: ;;^UTILITY(U,$J,.84,8014,5,1,0) 53: ;;=DIU0^6 54: ;;^UTILITY(U,$J,.84,8015,0) 55: ;;=8015^2^^11 56: ;;^UTILITY(U,$J,.84,8015,1,0) 57: ;;=^^2^2^2931105^ 58: ;;^UTILITY(U,$J,.84,8015,1,1,0) 59: ;;=Standard prompt to verify to the user that they just deleted something 60: ;;^UTILITY(U,$J,.84,8015,1,2,0) 61: ;;=with the "@". 62: ;;^UTILITY(U,$J,.84,8015,2,0) 63: ;;=^^1^1^2931105^ 64: ;;^UTILITY(U,$J,.84,8015,2,1,0) 65: ;;=Deleted. 66: ;;^UTILITY(U,$J,.84,8015,5,0) 67: ;;=^.841^1^1 68: ;;^UTILITY(U,$J,.84,8015,5,1,0) 69: ;;=DIU0^6 70: ;;^UTILITY(U,$J,.84,8016,0) 71: ;;=8016^2^y^11^ 72: ;;^UTILITY(U,$J,.84,8016,1,0) 73: ;;=^^2^2^2931105^^^^ 74: ;;^UTILITY(U,$J,.84,8016,1,1,0) 75: ;;=Called after performing routine existence test to tell user that routine 76: ;;^UTILITY(U,$J,.84,8016,1,2,0) 77: ;;=is already in their directory. 78: ;;^UTILITY(U,$J,.84,8016,2,0) 79: ;;=^^1^1^2931105^ 80: ;;^UTILITY(U,$J,.84,8016,2,1,0) 81: ;;=Note that |1| is already in the routine directory. 82: ;;^UTILITY(U,$J,.84,8016,3,0) 83: ;;=^.845^1^1 84: ;;^UTILITY(U,$J,.84,8016,3,1,0) 85: ;;=1^Name of the routine. 86: ;;^UTILITY(U,$J,.84,8016,5,0) 87: ;;=^.841^4^4 88: ;;^UTILITY(U,$J,.84,8016,5,1,0) 89: ;;=DIU0^6 90: ;;^UTILITY(U,$J,.84,8016,5,2,0) 91: ;;=DIEZ^ 92: ;;^UTILITY(U,$J,.84,8016,5,3,0) 93: ;;=DIKZ^ 94: ;;^UTILITY(U,$J,.84,8016,5,4,0) 95: ;;=DIPZ^ 96: ;;^UTILITY(U,$J,.84,8017,0) 97: ;;=8017^2^^11 98: ;;^UTILITY(U,$J,.84,8017,1,0) 99: ;;=^^2^2^2931105^ 100: ;;^UTILITY(U,$J,.84,8017,1,1,0) 101: ;;=Message warning user that a routine does not exist in their routine 102: ;;^UTILITY(U,$J,.84,8017,1,2,0) 103: ;;=directory. 104: ;;^UTILITY(U,$J,.84,8017,2,0) 105: ;;=^^1^1^2931105^ 106: ;;^UTILITY(U,$J,.84,8017,2,1,0) 107: ;;=This routine does not exist in the routine directory. 108: ;;^UTILITY(U,$J,.84,8017,5,0) 109: ;;=^.841^1^1 110: ;;^UTILITY(U,$J,.84,8017,5,1,0) 111: ;;=DIU0^6 112: ;;^UTILITY(U,$J,.84,8018,0) 113: ;;=8018^2^y^11^ 114: ;;^UTILITY(U,$J,.84,8018,1,0) 115: ;;=^^2^2^2931105^ 116: ;;^UTILITY(U,$J,.84,8018,1,1,0) 117: ;;=Prompt showing the user a routine name previously used for compiled 118: ;;^UTILITY(U,$J,.84,8018,1,2,0) 119: ;;=routines (input templates, print templates, cross-references). 120: ;;^UTILITY(U,$J,.84,8018,2,0) 121: ;;=^^1^1^2931105^ 122: ;;^UTILITY(U,$J,.84,8018,2,1,0) 123: ;;=Previously compiled under routine name |1|. 124: ;;^UTILITY(U,$J,.84,8018,3,0) 125: ;;=^.845^1^1 126: ;;^UTILITY(U,$J,.84,8018,3,1,0) 127: ;;=1^Routine name from "DIKOLD" or "ROUOLD" nodes in templates or DD for cross-references. 128: ;;^UTILITY(U,$J,.84,8018,5,0) 129: ;;=^.841^1^1 130: ;;^UTILITY(U,$J,.84,8018,5,1,0) 131: ;;=DIU0^6 132: ;;^UTILITY(U,$J,.84,8019,0) 133: ;;=8019^2^^11 134: ;;^UTILITY(U,$J,.84,8019,1,0) 135: ;;=^^3^3^2931105^^ 136: ;;^UTILITY(U,$J,.84,8019,1,1,0) 137: ;;=The DD for the file of files is not completely FileMan compatible. This 138: ;;^UTILITY(U,$J,.84,8019,1,2,0) 139: ;;=is the field name prompt for the CROSS-REFERENCE ROUTINE field on the file 140: ;;^UTILITY(U,$J,.84,8019,1,3,0) 141: ;;=of files. Prompt appears when file attributes are edited. 142: ;;^UTILITY(U,$J,.84,8019,2,0) 143: ;;=^^1^1^2931105^ 144: ;;^UTILITY(U,$J,.84,8019,2,1,0) 145: ;;=CROSS-REFERENCE ROUTINE 146: ;;^UTILITY(U,$J,.84,8019,5,0) 147: ;;=^.841^1^1