freem_fileman/USER/DINIT00H.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00H.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: DINIT00H ; 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,8005,2,10,0) 7: ;;= 8: ;;^UTILITY(U,$J,.84,8005,2,11,0) 9: ;;=If S and/or C is entered, the heading prompt will re-appear. 10: ;;^UTILITY(U,$J,.84,8005,3,0) 11: ;;=^.845^2^2 12: ;;^UTILITY(U,$J,.84,8005,3,1,0) 13: ;;=1^Text from either entry #8006 or #8007, depending on whether we're coming from the search or print. 14: ;;^UTILITY(U,$J,.84,8005,3,2,0) 15: ;;=2^Text from either entry #8038 or #8037, depending on whether we're coming from the search or print. 16: ;;^UTILITY(U,$J,.84,8005,5,0) 17: ;;=^.841^2^2 18: ;;^UTILITY(U,$J,.84,8005,5,1,0) 19: ;;=DIP^EN1 20: ;;^UTILITY(U,$J,.84,8005,5,2,0) 21: ;;=DIS^ENS 22: ;;^UTILITY(U,$J,.84,8006,0) 23: ;;=8006^2^^11^ 24: ;;^UTILITY(U,$J,.84,8006,1,0) 25: ;;=^^1^1^2940526^^^^ 26: ;;^UTILITY(U,$J,.84,8006,1,1,0) 27: ;;=Inserted as a parameter to #8005 when called from the SEARCH Option. 28: ;;^UTILITY(U,$J,.84,8006,2,0) 29: ;;=^^1^1^2940526^^ 30: ;;^UTILITY(U,$J,.84,8006,2,1,0) 31: ;;=Number of Matches from the search 32: ;;^UTILITY(U,$J,.84,8006,5,0) 33: ;;=^.841^2^2 34: ;;^UTILITY(U,$J,.84,8006,5,1,0) 35: ;;=DIP^EN1 36: ;;^UTILITY(U,$J,.84,8006,5,2,0) 37: ;;=DIS^ENS 38: ;;^UTILITY(U,$J,.84,8007,0) 39: ;;=8007^2^^11^ 40: ;;^UTILITY(U,$J,.84,8007,1,0) 41: ;;=^^1^1^2940526^^^^ 42: ;;^UTILITY(U,$J,.84,8007,1,1,0) 43: ;;=Inserted as a parameter to #8005 when called from the PRINT Option. 44: ;;^UTILITY(U,$J,.84,8007,2,0) 45: ;;=^^1^1^2940526^ 46: ;;^UTILITY(U,$J,.84,8007,2,1,0) 47: ;;=heading when there are no records to print 48: ;;^UTILITY(U,$J,.84,8007,5,0) 49: ;;=^.841^2^2 50: ;;^UTILITY(U,$J,.84,8007,5,1,0) 51: ;;=DIP^EN1 52: ;;^UTILITY(U,$J,.84,8007,5,2,0) 53: ;;=DIS^ENS 54: ;;^UTILITY(U,$J,.84,8008,0) 55: ;;=8008^2^^11^ 56: ;;^UTILITY(U,$J,.84,8008,1,0) 57: ;;=^^4^4^2940908^ 58: ;;^UTILITY(U,$J,.84,8008,1,1,0) 59: ;;=At the HEADING prompt during the FileMan print, the user can enter flags 60: ;;^UTILITY(U,$J,.84,8008,1,2,0) 61: ;;=to either suppress printing of the header if there are no records to 62: ;;^UTILITY(U,$J,.84,8008,1,3,0) 63: ;;=print, or to cause the sort criteria to print in the header. This is the 64: ;;^UTILITY(U,$J,.84,8008,1,4,0) 65: ;;=prompt for the reader call. 66: ;;^UTILITY(U,$J,.84,8008,2,0) 67: ;;=^^1^1^2940909^ 68: ;;^UTILITY(U,$J,.84,8008,2,1,0) 69: ;;=Heading (S/C) 70: ;;^UTILITY(U,$J,.84,8008,5,0) 71: ;;=^.841^2^2 72: ;;^UTILITY(U,$J,.84,8008,5,1,0) 73: ;;=DIP^EN1 74: ;;^UTILITY(U,$J,.84,8008,5,2,0) 75: ;;=DIS^ENS 76: ;;^UTILITY(U,$J,.84,8009,0) 77: ;;=8009^2^^11^ 78: ;;^UTILITY(U,$J,.84,8009,1,0) 79: ;;=^^2^2^2940908^^^^ 80: ;;^UTILITY(U,$J,.84,8009,1,1,0) 81: ;;=This is the normal help message given if user enters a question mark when 82: ;;^UTILITY(U,$J,.84,8009,1,2,0) 83: ;;=being prompted for the HEADER during a FileMan print. 84: ;;^UTILITY(U,$J,.84,8009,2,0) 85: ;;=^^3^3^2940908^ 86: ;;^UTILITY(U,$J,.84,8009,2,1,0) 87: ;;=Accept default heading or enter a custom heading. 88: ;;^UTILITY(U,$J,.84,8009,2,2,0) 89: ;;=For no heading at all, type @. 90: ;;^UTILITY(U,$J,.84,8009,2,3,0) 91: ;;=To use a Print Template for the heading, type [TEMPLATE NAME]. 92: ;;^UTILITY(U,$J,.84,8009,3,0) 93: ;;=^.845 94: ;;^UTILITY(U,$J,.84,8009,5,0) 95: ;;=^.841^2^2 96: ;;^UTILITY(U,$J,.84,8009,5,1,0) 97: ;;=DIP^EN1 98: ;;^UTILITY(U,$J,.84,8009,5,2,0) 99: ;;=DIS^ENS 100: ;;^UTILITY(U,$J,.84,8010,0) 101: ;;=8010^2^y^11^ 102: ;;^UTILITY(U,$J,.84,8010,1,0) 103: ;;=^^1^1^2931102^^^^ 104: ;;^UTILITY(U,$J,.84,8010,1,1,0) 105: ;;=Print dialog coming from routine ^DIP31. 106: ;;^UTILITY(U,$J,.84,8010,2,0) 107: ;;=^^1^1^2931102^ 108: ;;^UTILITY(U,$J,.84,8010,2,1,0) 109: ;;=** Suppress the |1|. 110: ;;^UTILITY(U,$J,.84,8010,3,0) 111: ;;=^.845^1^1 112: ;;^UTILITY(U,$J,.84,8010,3,1,0) 113: ;;=1^Text from either entry #8006 or #8007, depending on whether it's called from the SEARCH or PRINT Options. 114: ;;^UTILITY(U,$J,.84,8010,5,0) 115: ;;=^.841^2^2 116: ;;^UTILITY(U,$J,.84,8010,5,1,0) 117: ;;=DIP^EN1 118: ;;^UTILITY(U,$J,.84,8010,5,2,0) 119: ;;=DIS^ENS 120: ;;^UTILITY(U,$J,.84,8011,0) 121: ;;=8011^2^y^11^ 122: ;;^UTILITY(U,$J,.84,8011,1,0) 123: ;;=^^1^1^2940526^^^^ 124: ;;^UTILITY(U,$J,.84,8011,1,1,0) 125: ;;=Dialog coming from routine ^DIP31 126: ;;^UTILITY(U,$J,.84,8011,2,0) 127: ;;=^^1^1^2940526^ 128: ;;^UTILITY(U,$J,.84,8011,2,1,0) 129: ;;=** print |1| Criteria in heading. 130: ;;^UTILITY(U,$J,.84,8011,3,0) 131: ;;=^.845^1^1 132: ;;^UTILITY(U,$J,.84,8011,3,1,0) 133: ;;=1^The word SORT or SEARCH, depending on which option we're coming from. 134: ;;^UTILITY(U,$J,.84,8011,5,0) 135: ;;=^.841^2^2 136: ;;^UTILITY(U,$J,.84,8011,5,1,0) 137: ;;=DIP^EN1 138: ;;^UTILITY(U,$J,.84,8011,5,2,0) 139: ;;=DIS^ENS 140: ;;^UTILITY(U,$J,.84,8012,0) 141: ;;=8012^2^^11^ 142: ;;^UTILITY(U,$J,.84,8012,1,0) 143: ;;=^^2^2^2931102^^^ 144: ;;^UTILITY(U,$J,.84,8012,1,1,0) 145: ;;=The word HEADING to be used in the prompt for the heading from the FileMan