freem_fileman/USER/DINIT00F.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00F.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: DINIT00F ; 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,3072,1,1,0) 7: ;;=The specified field was not found on the block. 8: ;;^UTILITY(U,$J,.84,3072,2,0) 9: ;;=^^1^1^2931129^ 10: ;;^UTILITY(U,$J,.84,3072,2,1,0) 11: ;;=Field |1| was not found on block |2|. 12: ;;^UTILITY(U,$J,.84,3072,3,0) 13: ;;=^.845^2^2 14: ;;^UTILITY(U,$J,.84,3072,3,1,0) 15: ;;=1^Field order, number, caption, or unique name 16: ;;^UTILITY(U,$J,.84,3072,3,2,0) 17: ;;=2^Block name 18: ;;^UTILITY(U,$J,.84,3081,0) 19: ;;=3081^1^^11 20: ;;^UTILITY(U,$J,.84,3081,1,0) 21: ;;=^^2^2^2931201^^ 22: ;;^UTILITY(U,$J,.84,3081,1,1,0) 23: ;;=The field specified by FO(field) in the pointer link or computed expression 24: ;;^UTILITY(U,$J,.84,3081,1,2,0) 25: ;;=is not a form only field. 26: ;;^UTILITY(U,$J,.84,3081,2,0) 27: ;;=^^1^1^2931201^^ 28: ;;^UTILITY(U,$J,.84,3081,2,1,0) 29: ;;=The specified field is not a form-only field. 30: ;;^UTILITY(U,$J,.84,3082,0) 31: ;;=3082^1^^11 32: ;;^UTILITY(U,$J,.84,3082,1,0) 33: ;;=^^3^3^2931203^ 34: ;;^UTILITY(U,$J,.84,3082,1,1,0) 35: ;;=The field, block, and/or page is missing or invalid in the expression 36: ;;^UTILITY(U,$J,.84,3082,1,2,0) 37: ;;=FO(field,block,page), used in the pointer link, parent field, or computed 38: ;;^UTILITY(U,$J,.84,3082,1,3,0) 39: ;;=expression. 40: ;;^UTILITY(U,$J,.84,3082,2,0) 41: ;;=^^1^1^2931203^ 42: ;;^UTILITY(U,$J,.84,3082,2,1,0) 43: ;;=Parameters are missing or invalid in an FO() expression. 44: ;;^UTILITY(U,$J,.84,3083,0) 45: ;;=3083^1^^11 46: ;;^UTILITY(U,$J,.84,3083,1,0) 47: ;;=^^1^1^2931203^^ 48: ;;^UTILITY(U,$J,.84,3083,1,1,0) 49: ;;=The relational expression is incomplete. 50: ;;^UTILITY(U,$J,.84,3083,2,0) 51: ;;=^^1^1^2931203^^ 52: ;;^UTILITY(U,$J,.84,3083,2,1,0) 53: ;;=The relational expression is incomplete. 54: ;;^UTILITY(U,$J,.84,3084,0) 55: ;;=3084^1^^11 56: ;;^UTILITY(U,$J,.84,3084,1,0) 57: ;;=^^3^3^2931203^^ 58: ;;^UTILITY(U,$J,.84,3084,1,1,0) 59: ;;=In a computed expression, a form-only field should be referenced as 60: ;;^UTILITY(U,$J,.84,3084,1,2,0) 61: ;;={FO(field,block)} or {FO(field)}. The page parameter should not be 62: ;;^UTILITY(U,$J,.84,3084,1,3,0) 63: ;;=included. 64: ;;^UTILITY(U,$J,.84,3084,2,0) 65: ;;=^^1^1^2931203^^ 66: ;;^UTILITY(U,$J,.84,3084,2,1,0) 67: ;;=The FO() expression should not contain a page parameter. 68: ;;^UTILITY(U,$J,.84,3085,0) 69: ;;=3085^1^^11 70: ;;^UTILITY(U,$J,.84,3085,1,0) 71: ;;=^^3^3^2931203^ 72: ;;^UTILITY(U,$J,.84,3085,1,1,0) 73: ;;=In a computed expression, a form-only field should be referenced as 74: ;;^UTILITY(U,$J,.84,3085,1,2,0) 75: ;;={FO(field,block)} or {FO(field)}. The block parameter should be 76: ;;^UTILITY(U,$J,.84,3085,1,3,0) 77: ;;=either the block name or `block number. It should not be a block order. 78: ;;^UTILITY(U,$J,.84,3085,2,0) 79: ;;=^^1^1^2931203^^ 80: ;;^UTILITY(U,$J,.84,3085,2,1,0) 81: ;;=The FO() expression should not use block order to specify a block. 82: ;;^UTILITY(U,$J,.84,3086,0) 83: ;;=3086^1^^11 84: ;;^UTILITY(U,$J,.84,3086,1,0) 85: ;;=^^2^2^2940708^^ 86: ;;^UTILITY(U,$J,.84,3086,1,1,0) 87: ;;=Reject calls to PUT^DDSVAL which attempt to set the .01 field of a file to 88: ;;^UTILITY(U,$J,.84,3086,1,2,0) 89: ;;="" or "@". 90: ;;^UTILITY(U,$J,.84,3086,2,0) 91: ;;=^^1^1^2940708^^^ 92: ;;^UTILITY(U,$J,.84,3086,2,1,0) 93: ;;=PUT^DDSVAL cannot be used to delete an entry. 94: ;;^UTILITY(U,$J,.84,3091,0) 95: ;;=3091^1^^11 96: ;;^UTILITY(U,$J,.84,3091,1,0) 97: ;;=^^1^1^2930722^ 98: ;;^UTILITY(U,$J,.84,3091,1,1,0) 99: ;;=The data could not be filed. 100: ;;^UTILITY(U,$J,.84,3091,2,0) 101: ;;=^^1^1^2931202^^ 102: ;;^UTILITY(U,$J,.84,3091,2,1,0) 103: ;;=THE DATA COULD NOT BE FILED. 104: ;;^UTILITY(U,$J,.84,3092,0) 105: ;;=3092^1^y^11^ 106: ;;^UTILITY(U,$J,.84,3092,1,0) 107: ;;=^^1^1^2940713^^^^ 108: ;;^UTILITY(U,$J,.84,3092,1,1,0) 109: ;;=The given field is required and its current value is null. 110: ;;^UTILITY(U,$J,.84,3092,2,0) 111: ;;=^^1^1^2940713^^^ 112: ;;^UTILITY(U,$J,.84,3092,2,1,0) 113: ;;=|1|, |2| is a required field |3| 114: ;;^UTILITY(U,$J,.84,3092,3,0) 115: ;;=^.845^3^3 116: ;;^UTILITY(U,$J,.84,3092,3,1,0) 117: ;;=1^Page name 118: ;;^UTILITY(U,$J,.84,3092,3,2,0) 119: ;;=2^Caption 120: ;;^UTILITY(U,$J,.84,3092,3,3,0) 121: ;;=3^Subrecord name in parentheses 122: ;;^UTILITY(U,$J,.84,7001,0) 123: ;;=7001^2^^11 124: ;;^UTILITY(U,$J,.84,7001,1,0) 125: ;;=^^1^1^2940314^^^ 126: ;;^UTILITY(U,$J,.84,7001,1,1,0) 127: ;;=This is the general Yes/No Prompt 128: ;;^UTILITY(U,$J,.84,7001,2,0) 129: ;;=^^1^1^2940314^^^ 130: ;;^UTILITY(U,$J,.84,7001,2,1,0) 131: ;;=Yes^No 132: ;;^UTILITY(U,$J,.84,7001,4,0) 133: ;;=^.847P^^0 134: ;;^UTILITY(U,$J,.84,7002,0) 135: ;;=7002^2^^11 136: ;;^UTILITY(U,$J,.84,7002,1,0) 137: ;;=^^1^1^2940314^^^ 138: ;;^UTILITY(U,$J,.84,7002,1,1,0) 139: ;;=Insert/Replace Switch 140: ;;^UTILITY(U,$J,.84,7002,2,0) 141: ;;=^^1^1^2940314^^ 142: ;;^UTILITY(U,$J,.84,7002,2,1,0) 143: ;;=Insert ^Replace