Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT911

DINIT911.m

Go to the documentation of this file. 
  1. DINIT911 ;GFT/GFT-DIALOG FILE INITS ;07:13 PM  5 Dec 2002
  1.  ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1.  ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1.  ;;Licensed under the terms of the Apache License, Version 2.0.
  1.  ;
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,.84,7076,0)
  1.  ;;=7076^1^^2
  1.  ;;^UTILITY(U,$J,.84,7076,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7076,2,1,0)
  1.  ;;=SWITCH Function Restricted
  1.  ;;^UTILITY(U,$J,.84,7076,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7076,5,1,0)
  1.  ;;=DDBR2
  1.  ;;^UTILITY(U,$J,.84,7076.1,0)
  1.  ;;=7076.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,7076.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.1,2,1,0)
  1.  ;;=SWITCH Function Restricted to Current List
  1.  ;;^UTILITY(U,$J,.84,7076.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.1,5,1,0)
  1.  ;;=DDBR2
  1.  ;;^UTILITY(U,$J,.84,7076.3,0)
  1.  ;;=7076.3^1^^2
  1.  ;;^UTILITY(U,$J,.84,7076.3,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.3,2,1,0)
  1.  ;;=YOU CANNOT PRINT THE BROWSER HELP ON A CRT.
  1.  ;;^UTILITY(U,$J,.84,7076.3,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.3,5,1,0)
  1.  ;;=DDBRP
  1.  ;;^UTILITY(U,$J,.84,7076.4,0)
  1.  ;;=7076.4^2^^2
  1.  ;;^UTILITY(U,$J,.84,7076.4,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.4,2,1,0)
  1.  ;;=PRINT BROWSER HELP
  1.  ;;^UTILITY(U,$J,.84,7076.4,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7076.4,5,1,0)
  1.  ;;=DDBRP
  1.  ;;^UTILITY(U,$J,.84,7077,0)
  1.  ;;=7077^2^^2
  1.  ;;^UTILITY(U,$J,.84,7077,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7077,2,1,0)
  1.  ;;=HYPERTEXT JUMP IS NOT AVAILABLE
  1.  ;;^UTILITY(U,$J,.84,7077,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7077,5,1,0)
  1.  ;;=DDBRAHTJ
  1.  ;;^UTILITY(U,$J,.84,7078,0)
  1.  ;;=7078^2^^2
  1.  ;;^UTILITY(U,$J,.84,7078,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078,2,1,0)
  1.  ;;=Copy Text Line(s) to Paste Buffer
  1.  ;;^UTILITY(U,$J,.84,7078,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.1,0)
  1.  ;;=7078.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,7078.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.1,2,1,0)
  1.  ;;=* Enter line, or range of lines separated by ":" *
  1.  ;;^UTILITY(U,$J,.84,7078.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.1,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.2,0)
  1.  ;;=7078.2^1^y^2
  1.  ;;^UTILITY(U,$J,.84,7078.2,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.2,2,1,0)
  1.  ;;=Must be a valid line or range of lines, from 1 to |1|
  1.  ;;^UTILITY(U,$J,.84,7078.2,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.2,3,1,0)
  1.  ;;=1^Number of lines
  1.  ;;^UTILITY(U,$J,.84,7078.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.2,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.3,0)
  1.  ;;=7078.3^1^^2
  1.  ;;^UTILITY(U,$J,.84,7078.3,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.3,2,1,0)
  1.  ;;=<< Copy to Paste Buffer RESTRICTED when Viewing Buffer >>
  1.  ;;^UTILITY(U,$J,.84,7078.3,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.3,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.4,0)
  1.  ;;=7078.4^1^^2
  1.  ;;^UTILITY(U,$J,.84,7078.4,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.4,2,1,0)
  1.  ;;=<< RESTRICTED  Must exit HELP to Copy to Paste Buffer  >>
  1.  ;;^UTILITY(U,$J,.84,7078.4,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.4,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.5,0)
  1.  ;;=7078.5^1^^2
  1.  ;;^UTILITY(U,$J,.84,7078.5,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.5,2,1,0)
  1.  ;;=<< RESTRICTED  Must Exit HELP to View Buffer >>
  1.  ;;^UTILITY(U,$J,.84,7078.5,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.5,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,7078.6,0)
  1.  ;;=7078.6^2^^2
  1.  ;;^UTILITY(U,$J,.84,7078.6,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.6,2,1,0)
  1.  ;;=<< RESTRICTED  Must Exit View Buffer to SWITCH >>
  1.  ;;^UTILITY(U,$J,.84,7078.6,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7078.6,5,1,0)
  1.  ;;=DDBRWB
  1.  ;;^UTILITY(U,$J,.84,8006.1,0)
  1.  ;;=8006.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8006.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.1,2,1,0)
  1.  ;;=NO MATCHES FOUND
  1.  ;;^UTILITY(U,$J,.84,8006.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.1,5,1,0)
  1.  ;;=DIO4
  1.  ;;^UTILITY(U,$J,.84,8006.11,0)
  1.  ;;=8006.11^2^^2
  1.  ;;^UTILITY(U,$J,.84,8006.11,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.11,2,1,0)
  1.  ;;=NO OTHER MATCH FOUND
  1.  ;;^UTILITY(U,$J,.84,8006.11,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.11,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,8006.2,0)
  1.  ;;=8006.2^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8006.2,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.2,2,1,0)
  1.  ;;=MATCHES FOUND: |1|
  1.  ;;^UTILITY(U,$J,.84,8006.2,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.2,3,1,0)
  1.  ;;=1^Number of matches
  1.  ;;^UTILITY(U,$J,.84,8006.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8006.2,5,1,0)
  1.  ;;=DIO4
  1.  ;;^UTILITY(U,$J,.84,8007.1,0)
  1.  ;;=8007.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8007.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8007.1,2,1,0)
  1.  ;;=*** NO RECORDS TO PRINT ***
  1.  ;;^UTILITY(U,$J,.84,8007.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8007.1,5,1,0)
  1.  ;;=DIO4
  1.  ;;^UTILITY(U,$J,.84,8075.1,0)
  1.  ;;=8075.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8075.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8075.1,2,1,0)
  1.  ;;=Do you want to save changes? 
  1.  ;;^UTILITY(U,$J,.84,8075.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8075.1,5,1,0)
  1.  ;;=DDW1
  1.  ;;^UTILITY(U,$J,.84,8075.5,0)
  1.  ;;=8075.5^2^^2
  1.  ;;^UTILITY(U,$J,.84,8075.5,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8075.5,2,1,0)
  1.  ;;=Saving text ...
  1.  ;;^UTILITY(U,$J,.84,8075.5,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8075.5,5,1,0)
  1.  ;;=DDW1
  1.  ;;^UTILITY(U,$J,.84,8126,0)
  1.  ;;=8126^2^^2
  1.  ;;^UTILITY(U,$J,.84,8126,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8126,2,1,0)
  1.  ;;=Find What: 
  1.  ;;^UTILITY(U,$J,.84,8126,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8126,5,1,0)
  1.  ;;=DDWF^FIND+2
  1.  ;;^UTILITY(U,$J,.84,8126.1,0)
  1.  ;;=8126.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8126.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8126.1,2,1,0)
  1.  ;;=Replace With: 
  1.  ;;^UTILITY(U,$J,.84,8126.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8126.1,5,1,0)
  1.  ;;=DDWC1^FIND+1
  1.  ;;^UTILITY(U,$J,.84,8127,0)
  1.  ;;=8127^1^^2
  1.  ;;^UTILITY(U,$J,.84,8127,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8127,2,1,0)
  1.  ;;=TEXT NOT FOUND
  1.  ;;^UTILITY(U,$J,.84,8127,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8127,5,1,0)
  1.  ;;=DDWF
  1.  ;;^UTILITY(U,$J,.84,8128,0)
  1.  ;;=8128^2^^2
  1.  ;;^UTILITY(U,$J,.84,8128,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8128,2,1,0)
  1.  ;;=WARNING: Control characters in text have been replaced by spaces.
  1.  ;;^UTILITY(U,$J,.84,8128,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8128,5,1,0)
  1.  ;;=DDW1
  1.  ;;^UTILITY(U,$J,.84,8140,0)
  1.  ;;=8140^3^^2
  1.  ;;^UTILITY(U,$J,.84,8140,2,0)
  1.  ;;=^^3^3
  1.  ;;^UTILITY(U,$J,.84,8140,2,1,0)
  1.  ;;=Examples, to go to a screen:  S21  or  S+3  or  +3  or -3
  1.  ;;^UTILITY(U,$J,.84,8140,2,2,0)
  1.  ;;=          to go to a line:    L53  or  L+4  or  L-5
  1.  ;;^UTILITY(U,$J,.84,8140,2,3,0)
  1.  ;;=          to go to a column:  C40  or  C+10 or  C-20
  1.  ;;^UTILITY(U,$J,.84,8140,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8140,5,1,0)
  1.  ;;=DDWG
  1.  ;;^UTILITY(U,$J,.84,8142,0)
  1.  ;;=8142^2^^2
  1.  ;;^UTILITY(U,$J,.84,8142,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8142,2,1,0)
  1.  ;;=Do you wish to select from current list? 
  1.  ;;^UTILITY(U,$J,.84,8142,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8142,5,1,0)
  1.  ;;=DDBR2
  1.  ;;^UTILITY(U,$J,.84,8178,0)
  1.  ;;=8178^2^^2
  1.  ;;^UTILITY(U,$J,.84,8178,2,0)
  1.  ;;=^^2^2
  1.  ;;^UTILITY(U,$J,.84,8178,2,1,0)
  1.  ;;=WARNING: This field is uneditable.
  1.  ;;^UTILITY(U,$J,.84,8178,2,2,0)
  1.  ;;=         Any changes made in the editor will not be saved.
  1.  ;;^UTILITY(U,$J,.84,8178,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8178,5,1,0)
  1.  ;;=DDSWP
  1.  ;;^UTILITY(U,$J,.84,9110.8,0)
  1.  ;;=9110.8^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.8,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.8,2,1,0)
  1.  ;;=or 0157
  1.  ;;^UTILITY(U,$J,.84,9110.8,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.8,5,1,0)
  1.  ;;=DIEH1^DT+2
  1.  ;;^UTILITY(U,$J,.84,8136,0)
  1.  ;;=8136^3^^2
  1.  ;;^UTILITY(U,$J,.84,8136,2,0)
  1.  ;;=^^4^4
  1.  ;;^UTILITY(U,$J,.84,8136,2,1,0)
  1.  ;;  Specify in which column(s) you want to set tab stops. To set individual
  1.  ;;^UTILITY(U,$J,.84,8136,2,2,0)
  1.  ;;  tab stops, type a series of numbers separated by commas, for example:
  1.  ;;^UTILITY(U,$J,.84,8136,2,3,0)
  1.  ;;  4,7,15,20. To set tab stops at repeated intervals after the last stop,
  1.  ;;^UTILITY(U,$J,.84,8136,2,4,0)
  1.  ;;  or column 1, type the interval as +n, for example: 10,20,+5.
  1.  ;;^UTILITY(U,$J,.84,8136,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8136,5,1,0)
  1.  ;;=DDW2^TSALL
  1.  ;;^UTILITY(U,$J,.84,8136.1,0)
  1.  ;;=8136.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8136.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8136.1,2,1,0)
  1.  ;;=Columns in which to set tab stops: 
  1.  ;;^UTILITY(U,$J,.84,8136.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8136.1,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8136.2,0)
  1.  ;;=8136.2^1^^2
  1.  ;;^UTILITY(U,$J,.84,8136.2,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8136.2,2,1,0)
  1.  ;;=Response can contain only commas (,), plus signs (+), and numbers.
  1.  ;;^UTILITY(U,$J,.84,8136.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8136.2,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8138.1,0)
  1.  ;;=8138.1^1^^2
  1.  ;;^UTILITY(U,$J,.84,8138.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.1,2,1,0)
  1.  ;;Margins cannot be set when wrap is off
  1.  ;;^UTILITY(U,$J,.84,8138.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.1,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8138.2,0)
  1.  ;;=8138.2^1^^2
  1.  ;;^UTILITY(U,$J,.84,8138.2,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.2,2,1,0)
  1.  ;;=Left margin cannot be set beyond column 231
  1.  ;;^UTILITY(U,$J,.84,8138.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.2,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8138.3,0)
  1.  ;;=8138.3^1^^2
  1.  ;;^UTILITY(U,$J,.84,8138.3,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.3,2,1,0)
  1.  ;;=Left margin must be left of right margin
  1.  ;;^UTILITY(U,$J,.84,8138.3,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.3,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8138.4,0)
  1.  ;;=8138.4^1^^2
  1.  ;;^UTILITY(U,$J,.84,8138.4,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.4,2,1,0)
  1.  ;;=Right margin cannot be set beyond column 245
  1.  ;;^UTILITY(U,$J,.84,8138.4,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.4,5,1,0)
  1.  ;;=DDW2
  1.  ;;^UTILITY(U,$J,.84,8138.5,0)
  1.  ;;=8138.5^1^^2
  1.  ;;^UTILITY(U,$J,.84,8138.5,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.5,2,1,0)
  1.  ;;=Right margin must be right of left margin
  1.  ;;^UTILITY(U,$J,.84,8138.5,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8138.5,5,1,0)
  1.  ;;=DDW2