freem_fileman/USER/DINIT00W.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00W.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: DINIT00W ; 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,9201,2,123,0) 7: ;;= facility keeps track of the last find string including the direction 8: ;;^UTILITY(U,$J,.84,9201,2,124,0) 9: ;;= and continues searching through the document and brings up the next 10: ;;^UTILITY(U,$J,.84,9201,2,125,0) 11: ;;= screen. If no match is found a message appears indicating this and 12: ;;^UTILITY(U,$J,.84,9201,2,126,0) 13: ;;= the screen is repainted at it's original location. 14: ;;^UTILITY(U,$J,.84,9201,2,127,0) 15: ;;= 16: ;;^UTILITY(U,$J,.84,9201,2,128,0) 17: ;;= To rePAINT the screen, press the <PF1> key followed by the letter 18: ;;^UTILITY(U,$J,.84,9201,2,129,0) 19: ;;= 'P'. 20: ;;^UTILITY(U,$J,.84,9201,2,130,0) 21: ;;= 22: ;;^UTILITY(U,$J,.84,9201,2,131,0) 23: ;;= To SWITCH to another document press the <PF1> key followed by the 24: ;;^UTILITY(U,$J,.84,9201,2,132,0) 25: ;;= letter 'S'. This will allow the selection of another file, (wp)field 26: ;;^UTILITY(U,$J,.84,9201,2,133,0) 27: ;;= and entry. The document is put on an active list and Browse 28: ;;^UTILITY(U,$J,.84,9201,2,134,0) 29: ;;= switches to the newly selected document. Subsequent use of Switch 30: ;;^UTILITY(U,$J,.84,9201,2,135,0) 31: ;;= will allow choosing from the active list if desired or branch to 32: ;;^UTILITY(U,$J,.84,9201,2,136,0) 33: ;;= select file, (wp)field and entry prompts. This function CAN BE 34: ;;^UTILITY(U,$J,.84,9201,2,137,0) 35: ;;= RESTRICTED depending on how the running application calls the Browser 36: ;;^UTILITY(U,$J,.84,9201,2,138,0) 37: ;;= utility. 38: ;;^UTILITY(U,$J,.84,9201,2,139,0) 39: ;;= 40: ;;^UTILITY(U,$J,.84,9201,2,140,0) 41: ;;= To RETURN to the previous document after using Switch or Help, press 42: ;;^UTILITY(U,$J,.84,9201,2,141,0) 43: ;;= 'R'. A separate list keeps track of the documents chosen during the 44: ;;^UTILITY(U,$J,.84,9201,2,142,0) 45: ;;= current Browse session. R will return all the way back to the very 46: ;;^UTILITY(U,$J,.84,9201,2,143,0) 47: ;;= first document when used repeatedly. 48: ;;^UTILITY(U,$J,.84,9201,2,144,0) 49: ;;= 50: ;;^UTILITY(U,$J,.84,9201,2,145,0) 51: ;;= To SPLIT SCREEN, while in Full (Browse Region) Screen mode, press 52: ;;^UTILITY(U,$J,.84,9201,2,146,0) 53: ;;= <PF2> followed by the letter 'S'. This causes the screen to split 54: ;;^UTILITY(U,$J,.84,9201,2,147,0) 55: ;;= into two separate scroll regions. 56: ;;^UTILITY(U,$J,.84,9201,2,148,0) 57: ;;= 58: ;;^UTILITY(U,$J,.84,9201,2,149,0) 59: ;;= To navigate to the bottom screen, while in Split Screen mode, press 60: ;;^UTILITY(U,$J,.84,9201,2,150,0) 61: ;;= <PF2> followed by pressing the ARROW DOWN key. 62: ;;^UTILITY(U,$J,.84,9201,2,151,0) 63: ;;= 64: ;;^UTILITY(U,$J,.84,9201,2,152,0) 65: ;;= To navigate to the top screen, while in Split Screen mode, press 66: ;;^UTILITY(U,$J,.84,9201,2,153,0) 67: ;;= <PF2> followed by pressing the ARROW UP key. 68: ;;^UTILITY(U,$J,.84,9201,2,154,0) 69: ;;= 70: ;;^UTILITY(U,$J,.84,9201,2,155,0) 71: ;;= To return to FULL SCREEN mode, while in Split Screen mode, press 72: ;;^UTILITY(U,$J,.84,9201,2,156,0) 73: ;;= <PF2> followed by the letter 'F'. This causes the entire browse 74: ;;^UTILITY(U,$J,.84,9201,2,157,0) 75: ;;= region to return to one Full (Browse) Screen scroll region. 76: ;;^UTILITY(U,$J,.84,9201,2,158,0) 77: ;;= 78: ;;^UTILITY(U,$J,.84,9201,2,159,0) 79: ;;= To RESIZE screens, while in Split Screen mode, press <PF2><PF2> 80: ;;^UTILITY(U,$J,.84,9201,2,160,0) 81: ;;= followed by the ARROW UP key. This makes the top window smaller and 82: ;;^UTILITY(U,$J,.84,9201,2,161,0) 83: ;;= the bottom window larger. <PF2><PF2> followed by the ARROW DOWN key 84: ;;^UTILITY(U,$J,.84,9201,2,162,0) 85: ;;= makes the top window larger and the bottom window smaller. 86: ;;^UTILITY(U,$J,.84,9201,2,163,0) 87: ;;= 88: ;;^UTILITY(U,$J,.84,9201,2,164,0) 89: ;;= The TITLE BAR, at the top, is a non scrolling region which contains 90: ;;^UTILITY(U,$J,.84,9201,2,165,0) 91: ;;= static information, while browsing in the selected document. The 92: ;;^UTILITY(U,$J,.84,9201,2,166,0) 93: ;;= title bar information only changes when switching documents or 94: ;;^UTILITY(U,$J,.84,9201,2,167,0) 95: ;;= requesting help. 96: ;;^UTILITY(U,$J,.84,9201,2,168,0) 97: ;;= 98: ;;^UTILITY(U,$J,.84,9201,2,169,0) 99: ;;= The STATUS BAR, at the bottom, is also a non scroll region. It shows 100: ;;^UTILITY(U,$J,.84,9201,2,170,0) 101: ;;= the column indicator, how to get help, how to exit, line information