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

DINIT909.m

Go to the documentation of this file. 
  1. DINIT909 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
  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,9162,1,1,0)
  1.  ;;=List a Range of Lines
  1.  ;;^UTILITY(U,$J,.84,9162,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9162,2,1,0)
  1.  ;;=List a Range of Lines
  1.  ;;^UTILITY(U,$J,.84,9162,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9162,5,1,0)
  1.  ;;=DIWE1^L
  1.  ;;^UTILITY(U,$J,.84,9162.1,0)
  1.  ;;=9162.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9162.1,2,1,0)
  1.  ;;=List line: 
  1.  ;;^UTILITY(U,$J,.84,9163,0)
  1.  ;;=9163^3^^2
  1.  ;;^UTILITY(U,$J,.84,9163,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9163,1,1,0)
  1.  ;;=Move Lines to New Location within Text
  1.  ;;^UTILITY(U,$J,.84,9163,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9163,2,1,0)
  1.  ;;=Move Lines to New Location within Text
  1.  ;;^UTILITY(U,$J,.84,9163,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9163,5,1,0)
  1.  ;;=DIWE1^M
  1.  ;;^UTILITY(U,$J,.84,9163.1,0)
  1.  ;;=9163.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9163.1,2,1,0)
  1.  ;;=Move line: 
  1.  ;;^UTILITY(U,$J,.84,9166,0)
  1.  ;;=9166^3^^2
  1.  ;;^UTILITY(U,$J,.84,9166,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9166,1,1,0)
  1.  ;;=Print Lines as Formatted Output
  1.  ;;^UTILITY(U,$J,.84,9166,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9166,2,1,0)
  1.  ;;=Print Lines as Formatted Output
  1.  ;;^UTILITY(U,$J,.84,9166,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9166,5,1,0)
  1.  ;;=DIWE1^P
  1.  ;;^UTILITY(U,$J,.84,9166.1,0)
  1.  ;;=9166.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9166.1,2,1,0)
  1.  ;;=Print from Line: 1//
  1.  ;;^UTILITY(U,$J,.84,9168,0)
  1.  ;;=9168^3^^2
  1.  ;;^UTILITY(U,$J,.84,9168,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9168,1,1,0)
  1.  ;;=Repeat Lines at a New Location
  1.  ;;^UTILITY(U,$J,.84,9168,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9168,2,1,0)
  1.  ;;=Repeat Lines at a New Location
  1.  ;;^UTILITY(U,$J,.84,9168,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9168,5,1,0)
  1.  ;;=DIWE1^R
  1.  ;;^UTILITY(U,$J,.84,9168.1,0)
  1.  ;;=9168.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9168.1,2,1,0)
  1.  ;;=Repeat line: 
  1.  ;;^UTILITY(U,$J,.84,9169,0)
  1.  ;;=9169^3^^2
  1.  ;;^UTILITY(U,$J,.84,9169,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9169,1,1,0)
  1.  ;;=Search for a String
  1.  ;;^UTILITY(U,$J,.84,9169,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9169,2,1,0)
  1.  ;;=Search for a String
  1.  ;;^UTILITY(U,$J,.84,9169,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9169,5,1,0)
  1.  ;;=DIWE1^S
  1.  ;;^UTILITY(U,$J,.84,9169.1,0)
  1.  ;;=9169.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9169.1,2,1,0)
  1.  ;;=Search for: 
  1.  ;;^UTILITY(U,$J,.84,9170,0)
  1.  ;;=9170^3^^2
  1.  ;;^UTILITY(U,$J,.84,9170,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9170,1,1,0)
  1.  ;;=Transfer Lines From Another Document
  1.  ;;^UTILITY(U,$J,.84,9170,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9170,2,1,0)
  1.  ;;=Transfer Lines From Another Document
  1.  ;;^UTILITY(U,$J,.84,9170,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9170,5,1,0)
  1.  ;;=DIWE1^T
  1.  ;;^UTILITY(U,$J,.84,9170.1,0)
  1.  ;;=9170.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9170.1,2,1,0)
  1.  ;;=Transfer incoming text after line: 
  1.  ;;^UTILITY(U,$J,.84,9171,0)
  1.  ;;=9171^3^^2
  1.  ;;^UTILITY(U,$J,.84,9171,1,0)
  1.  ;;=^^1^1^2991026^^
  1.  ;;^UTILITY(U,$J,.84,9171,1,1,0)
  1.  ;;=Utility Sub-Menu
  1.  ;;^UTILITY(U,$J,.84,9171,2,0)
  1.  ;;=^^1^1^2991026^^^^
  1.  ;;^UTILITY(U,$J,.84,9171,2,1,0)
  1.  ;;=Utilities for Word-Processing
  1.  ;;^UTILITY(U,$J,.84,9171,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9171,5,1,0)
  1.  ;;=DIWE1^U
  1.  ;;^UTILITY(U,$J,.84,9171.1,0)
  1.  ;;=9171.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,9171.1,2,0)
  1.  ;;=^^1^1^2991026^
  1.  ;;^UTILITY(U,$J,.84,9171.1,2,1,0)
  1.  ;;=Miscellaneous UTILITIES
  1.  ;;^UTILITY(U,$J,.84,9175,0)
  1.  ;;=9175^3^^2
  1.  ;;^UTILITY(U,$J,.84,9175,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9175,1,1,0)
  1.  ;;=Y-Programmer Edit
  1.  ;;^UTILITY(U,$J,.84,9175,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9175,2,1,0)
  1.  ;;=Y-Programmer Edit
  1.  ;;^UTILITY(U,$J,.84,9175,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9175,5,1,0)
  1.  ;;=DIWE1^Y
  1.  ;;^UTILITY(U,$J,.84,9175.1,0)
  1.  ;;=9175.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9175.1,2,1,0)
  1.  ;;=Y
  1.  ;;^UTILITY(U,$J,.84,9180,0)
  1.  ;;=9180^3^^2
  1.  ;;^UTILITY(U,$J,.84,9180,2,0)
  1.  ;;=^^10^10^2990720^^^^
  1.  ;;^UTILITY(U,$J,.84,9180,2,1,0)
  1.  ;;=You are ready to enter a line of text.
  1.  ;;^UTILITY(U,$J,.84,9180,2,2,0)
  1.  ;;=Type 'CONTROL-I' (or the TAB key) to insert tabs.
  1.  ;;^UTILITY(U,$J,.84,9180,2,3,0)
  1.  ;;=When the text is output, these formatting rules will apply:
  1.  ;;^UTILITY(U,$J,.84,9180,2,4,0)
  1.  ;;= A)  Lines containing only punctuation characters, or lines containing TABs
  1.  ;;^UTILITY(U,$J,.84,9180,2,5,0)
  1.  ;;=     will stand by themselves, i.e., no wrap-around.
  1.  ;;^UTILITY(U,$J,.84,9180,2,6,0)
  1.  ;;= B)  Lines beginning with spaces will start on a new line.
  1.  ;;^UTILITY(U,$J,.84,9180,2,7,0)
  1.  ;;= C)  Expressions between '|' characters will be evaluated as
  1.  ;;^UTILITY(U,$J,.84,9180,2,8,0)
  1.  ;;=     'computed-field' expressions, and then printed as evaluated.
  1.  ;;^UTILITY(U,$J,.84,9180,2,9,0)
  1.  ;;=     Thus, '|NAME|' would cause the current NAME to be inserted in the text.
  1.  ;;^UTILITY(U,$J,.84,9180,2,10,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9180,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9180,5,1,0)
  1.  ;;=DIWE5^IQ
  1.  ;;^UTILITY(U,$J,.84,9181,0)
  1.  ;;=9181^3^^2
  1.  ;;^UTILITY(U,$J,.84,9181,2,0)
  1.  ;;=^^1^1^2990720^^^
  1.  ;;^UTILITY(U,$J,.84,9181,2,1,0)
  1.  ;;=Do you want to see a list of allowable formatting 'WINDOWS'
  1.  ;;^UTILITY(U,$J,.84,9181,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9181,5,1,0)
  1.  ;;=DIWE5^IQ
  1.  ;;^UTILITY(U,$J,.84,9182,0)
  1.  ;;=9182^3^^2
  1.  ;;^UTILITY(U,$J,.84,9182,2,0)
  1.  ;;=^^1^1^2990711^
  1.  ;;^UTILITY(U,$J,.84,9182,2,1,0)
  1.  ;;=SPECIAL FORMATTING INCLUDES:
  1.  ;;^UTILITY(U,$J,.84,9182,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9182,5,1,0)
  1.  ;;=DIWE5^IQ
  1.  ;;^UTILITY(U,$J,.84,9183,0)
  1.  ;;=9183^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9183,2,0)
  1.  ;;=^^4^4^2990906^^
  1.  ;;^UTILITY(U,$J,.84,9183,2,1,0)
  1.  ;;=If you want to use the text from the '|1|' field of another
  1.  ;;^UTILITY(U,$J,.84,9183,2,2,0)
  1.  ;;='|2|' entry< type the name of that entry.
  1.  ;;^UTILITY(U,$J,.84,9183,2,3,0)
  1.  ;;=Otherwise, use a computed expression to designate some 
  1.  ;;^UTILITY(U,$J,.84,9183,2,4,0)
  1.  ;;=Word-Processing text.
  1.  ;;^UTILITY(U,$J,.84,9183,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9183,3,1,0)
  1.  ;;=1^NAME OF W-P FIELD WE ARE EDITING
  1.  ;;^UTILITY(U,$J,.84,9183,3,2,0)
  1.  ;;=2^NAME OF FILE WE ARE EDITING
  1.  ;;^UTILITY(U,$J,.84,9183,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9183,5,1,0)
  1.  ;;=DIWE5^TQ
  1.  ;;^UTILITY(U,$J,.84,9184,0)
  1.  ;;=9184^2^^2
  1.  ;;^UTILITY(U,$J,.84,9184,2,0)
  1.  ;;=^^1^1^2991027^
  1.  ;;^UTILITY(U,$J,.84,9184,2,1,0)
  1.  ;;=Text-Terminator
  1.  ;;^UTILITY(U,$J,.84,9184,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9184,5,1,0)
  1.  ;;=DIWE11^TT+2
  1.  ;;^UTILITY(U,$J,.84,9185,0)
  1.  ;;=9185^3^^2
  1.  ;;^UTILITY(U,$J,.84,9185,2,0)
  1.  ;;=^^2^2^2991008^
  1.  ;;^UTILITY(U,$J,.84,9185,2,1,0)
  1.  ;;=Answer must be 1 to 5 characters, containing no question-marks or up-arrows.
  1.  ;;^UTILITY(U,$J,.84,9185,2,2,0)
  1.  ;;=To go back to the Null-String, just type "@".
  1.  ;;^UTILITY(U,$J,.84,9185,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9185,5,1,0)
  1.  ;;=DIWE11
  1.  ;;^UTILITY(U,$J,.84,9186,0)
  1.  ;;=9186^2^^2
  1.  ;;^UTILITY(U,$J,.84,9186,2,0)
  1.  ;;=^^1^1^2991027^
  1.  ;;^UTILITY(U,$J,.84,9186,2,1,0)
  1.  ;;=The NULL-STRING is now the TEXT-TERMINATOR!
  1.  ;;^UTILITY(U,$J,.84,9186,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9186,5,1,0)
  1.  ;;=DIWE11
  1.  ;;^UTILITY(U,$J,.84,9189,0)
  1.  ;;=9189^2^^2
  1.  ;;^UTILITY(U,$J,.84,9189,2,0)
  1.  ;;=^^1^1^2991027^^
  1.  ;;^UTILITY(U,$J,.84,9189,2,1,0)
  1.  ;;=UTILITY Option
  1.  ;;^UTILITY(U,$J,.84,9189,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9189,5,1,0)
  1.  ;;=DIWE11
  1.  ;;^UTILITY(U,$J,.84,9190,0)
  1.  ;;=9190^2^^2
  1.  ;;^UTILITY(U,$J,.84,9190,2,0)
  1.  ;;=^^1^1^2991027^
  1.  ;;^UTILITY(U,$J,.84,9190,2,1,0)
  1.  ;;=Editor Change
  1.  ;;^UTILITY(U,$J,.84,9190,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9190,5,1,0)
  1.  ;;=DIWE11
  1.  ;;^UTILITY(U,$J,.84,9191,0)
  1.  ;;=9191^2^^2
  1.  ;;^UTILITY(U,$J,.84,9191,2,0)
  1.  ;;=^^1^1^2991027^
  1.  ;;^UTILITY(U,$J,.84,9191,2,1,0)
  1.  ;;=File Transfer from Foreign CPU
  1.  ;;^UTILITY(U,$J,.84,9191,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9191,5,1,0)
  1.  ;;=DIWE11
  1.  ;;^UTILITY(U,$J,.84,9192,0)
  1.  ;;=9192^2^^2
  1.  ;;^UTILITY(U,$J,.84,9192,2,0)
  1.  ;;=^^1^1^2991027^
  1.  ;;^UTILITY(U,$J,.84,9192,2,1,0)
  1.  ;;=Text-Terminator-String change
  1.  ;;^UTILITY(U,$J,.84,9192,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9192,5,1,0)
  1.  ;;=DIWE11