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

DINIT904.m

Go to the documentation of this file. 
  1. DINIT904 ;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,8116,3,1,0)
  1.  ;;=1^NUMBER OF LINES IN W-P TEXT THAT THE USER IS ABOUT TO DELETE
  1.  ;;^UTILITY(U,$J,.84,8116,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8116,5,1,0)
  1.  ;;=DIWE3^D+4
  1.  ;;^UTILITY(U,$J,.84,8117,0)
  1.  ;;=8117^2^^2
  1.  ;;^UTILITY(U,$J,.84,8117,2,0)
  1.  ;;=1^^1^1^2991008^^
  1.  ;;^UTILITY(U,$J,.84,8117,2,1,0)
  1.  ;;=thru: 
  1.  ;;^UTILITY(U,$J,.84,8117,5,0)
  1.  ;;=^.841^3^3
  1.  ;;^UTILITY(U,$J,.84,8117,5,1,0)
  1.  ;;=DIWE3^D+1
  1.  ;;^UTILITY(U,$J,.84,8117,5,2,0)
  1.  ;;=DIWE1^LIST
  1.  ;;^UTILITY(U,$J,.84,8117,5,3,0)
  1.  ;;=DIWE4^PRINT
  1.  ;;^UTILITY(U,$J,.84,8118,0)
  1.  ;;=8118^2^^2
  1.  ;;^UTILITY(U,$J,.84,8118,2,0)
  1.  ;;=1^^1^1^2991022^
  1.  ;;^UTILITY(U,$J,.84,8118,2,1,0)
  1.  ;;=From line: 
  1.  ;;^UTILITY(U,$J,.84,8118,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8118,5,1,0)
  1.  ;;=DIWE3^F
  1.  ;;^UTILITY(U,$J,.84,8119,0)
  1.  ;;=8119^2^^2
  1.  ;;^UTILITY(U,$J,.84,8119,1,0)
  1.  ;;=^^1^1^2991024^^^
  1.  ;;^UTILITY(U,$J,.84,8119,1,1,0)
  1.  ;;=After line
  1.  ;;^UTILITY(U,$J,.84,8119,2,0)
  1.  ;;=^^1^1^2991024^^
  1.  ;;^UTILITY(U,$J,.84,8119,2,1,0)
  1.  ;;=after line: 
  1.  ;;^UTILITY(U,$J,.84,8119,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8119,5,1,0)
  1.  ;;=DIWE3^MOVE+3
  1.  ;;^UTILITY(U,$J,.84,8120,0)
  1.  ;;=8120^2^^2
  1.  ;;^UTILITY(U,$J,.84,8120,2,0)
  1.  ;;=^^1^1^2990711^
  1.  ;;^UTILITY(U,$J,.84,8120,2,1,0)
  1.  ;;=after character(s):
  1.  ;;^UTILITY(U,$J,.84,8120,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8120,5,1,0)
  1.  ;;=DIWE4^BA
  1.  ;;^UTILITY(U,$J,.84,8121,0)
  1.  ;;=8121^2^^2
  1.  ;;^UTILITY(U,$J,.84,8121,2,0)
  1.  ;;=^^1^1^2991011^^
  1.  ;;^UTILITY(U,$J,.84,8121,2,1,0)
  1.  ;;=<NO CHANGE>
  1.  ;;^UTILITY(U,$J,.84,8121,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8121,5,1,0)
  1.  ;;=DIWE3
  1.  ;;^UTILITY(U,$J,.84,8122,0)
  1.  ;;=8122^2^^2
  1.  ;;^UTILITY(U,$J,.84,8122,2,0)
  1.  ;;=1
  1.  ;;^UTILITY(U,$J,.84,8122,2,1,0)
  1.  ;;=  to: 
  1.  ;;^UTILITY(U,$J,.84,8122,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8122,5,1,0)
  1.  ;;=DIWE2^C+1
  1.  ;;^UTILITY(U,$J,.84,8123,0)
  1.  ;;=8123^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8123,2,0)
  1.  ;;=^^1^1^2991024^^^
  1.  ;;^UTILITY(U,$J,.84,8123,2,1,0)
  1.  ;;=|1| line(s) inserted..
  1.  ;;^UTILITY(U,$J,.84,8123,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8123,3,1,0)
  1.  ;;=1^NUMBER OF LINES INSERTED
  1.  ;;^UTILITY(U,$J,.84,8123,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8123,5,1,0)
  1.  ;;=DIWE2^I+2
  1.  ;;^UTILITY(U,$J,.84,8124,0)
  1.  ;;=8124^2^^2
  1.  ;;^UTILITY(U,$J,.84,8124,1,0)
  1.  ;;=^^4^4^2991022^
  1.  ;;^UTILITY(U,$J,.84,8124,1,1,0)
  1.  ;;=ABDBD
  1.  ;;^UTILITY(U,$J,.84,8124,1,2,0)
  1.  ;;=ASJASJ
  1.  ;;^UTILITY(U,$J,.84,8124,1,3,0)
  1.  ;;=SAS
  1.  ;;^UTILITY(U,$J,.84,8124,1,4,0)
  1.  ;;=AS
  1.  ;;^UTILITY(U,$J,.84,8124,2,0)
  1.  ;;=^^1^1^2991022^^
  1.  ;;^UTILITY(U,$J,.84,8124,2,1,0)
  1.  ;;=OK to change? 
  1.  ;;^UTILITY(U,$J,.84,8124,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8124,5,1,0)
  1.  ;;=DIWE2^C1
  1.  ;;^UTILITY(U,$J,.84,8125,0)
  1.  ;;=8125^2^^2
  1.  ;;^UTILITY(U,$J,.84,8125,2,0)
  1.  ;;=^^1^1^2991022^
  1.  ;;^UTILITY(U,$J,.84,8125,2,1,0)
  1.  ;;=Ask 'OK' for each line found
  1.  ;;^UTILITY(U,$J,.84,8125,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8125,5,1,0)
  1.  ;;=DIWE2^C+2
  1.  ;;^UTILITY(U,$J,.84,8129,0)
  1.  ;;=8129^2^^2
  1.  ;;^UTILITY(U,$J,.84,8129,2,0)
  1.  ;;=^^1^1^2991022^
  1.  ;;^UTILITY(U,$J,.84,8129,2,1,0)
  1.  ;;=CONTROL CHARACTERS REMOVED!!
  1.  ;;^UTILITY(U,$J,.84,8129,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8129,5,1,0)
  1.  ;;=DIWE2^TAB+1
  1.  ;;^UTILITY(U,$J,.84,8130,0)
  1.  ;;=8130^2^^2
  1.  ;;^UTILITY(U,$J,.84,8130,2,0)
  1.  ;;=^^5^5^2991011^
  1.  ;;^UTILITY(U,$J,.84,8130,2,1,0)
  1.  ;;=WARNING!
  1.  ;;^UTILITY(U,$J,.84,8130,2,2,0)
  1.  ;;=The Field you are transferring text from displays text without wrapping.
  1.  ;;^UTILITY(U,$J,.84,8130,2,3,0)
  1.  ;;=The field you are transferring text into may display text differently.
  1.  ;;^UTILITY(U,$J,.84,8130,2,4,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,8130,2,5,0)
  1.  ;;=Do you want to continue?
  1.  ;;^UTILITY(U,$J,.84,8131,0)
  1.  ;;=8131^2^^2
  1.  ;;^UTILITY(U,$J,.84,8131,2,0)
  1.  ;;=^^1^1^2991026^
  1.  ;;^UTILITY(U,$J,.84,8131,2,1,0)
  1.  ;;=From what text: 
  1.  ;;^UTILITY(U,$J,.84,8131,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8131,5,1,0)
  1.  ;;=DIWE3
  1.  ;;^UTILITY(U,$J,.84,8132,0)
  1.  ;;=8132^3^^2^
  1.  ;;^UTILITY(U,$J,.84,8132,1,0)
  1.  ;;=^^1^1^2991026^^
  1.  ;;^UTILITY(U,$J,.84,8132,1,1,0)
  1.  ;;=^S
  1.  ;;^UTILITY(U,$J,.84,8132,2,0)
  1.  ;;=^^1^1^2991026^^^
  1.  ;;^UTILITY(U,$J,.84,8132,2,1,0)
  1.  ;;=Enter the message NUMBER or SUBJECT of another MailMan message, OR
  1.  ;;^UTILITY(U,$J,.84,8132,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8132,5,1,0)
  1.  ;;=DIWE3^Z0+4
  1.  ;;^UTILITY(U,$J,.84,8133,0)
  1.  ;;=8133^3^^2
  1.  ;;^UTILITY(U,$J,.84,8133,2,0)
  1.  ;;=^^1^1^2991026^^
  1.  ;;^UTILITY(U,$J,.84,8133,2,1,0)
  1.  ;;=     Select another entry in this file, or
  1.  ;;^UTILITY(U,$J,.84,8133,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8133,5,1,0)
  1.  ;;=DIWE3
  1.  ;;^UTILITY(U,$J,.84,8134,0)
  1.  ;;=8134^3^^2
  1.  ;;^UTILITY(U,$J,.84,8134,2,0)
  1.  ;;=^^3^3^2991026^^^^
  1.  ;;^UTILITY(U,$J,.84,8134,2,1,0)
  1.  ;;=     Use relational syntax to pick up information from a Word-Processing
  1.  ;;^UTILITY(U,$J,.84,8134,2,2,0)
  1.  ;;=     field in another file.
  1.  ;;^UTILITY(U,$J,.84,8134,2,3,0)
  1.  ;;=     Example: "VALUE":FILE:WORD-PROCESSING FIELD NUMBER
  1.  ;;^UTILITY(U,$J,.84,8134,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8134,5,1,0)
  1.  ;;=DIWE3
  1.  ;;^UTILITY(U,$J,.84,8135,0)
  1.  ;;=8135^2^^2
  1.  ;;^UTILITY(U,$J,.84,8135,2,0)
  1.  ;;=^^1^1^2991026^
  1.  ;;^UTILITY(U,$J,.84,8135,2,1,0)
  1.  ;;=The TEXT TRANSFER has been CANCELLED.
  1.  ;;^UTILITY(U,$J,.84,8135,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8135,5,1,0)
  1.  ;;=DIWE3
  1.  ;;^UTILITY(U,$J,.84,8145,0)
  1.  ;;=8145^1^^2
  1.  ;;^UTILITY(U,$J,.84,8145,2,0)
  1.  ;;=^^2^2^2990710^
  1.  ;;^UTILITY(U,$J,.84,8145,2,1,0)
  1.  ;;=You have asked to sort on the same field twice!
  1.  ;;^UTILITY(U,$J,.84,8145,2,2,0)
  1.  ;;=Please re-enter your SORT criteria.
  1.  ;;^UTILITY(U,$J,.84,8145,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8145,5,1,0)
  1.  ;;=DIQQQ^DIP1
  1.  ;;^UTILITY(U,$J,.84,8146,0)
  1.  ;;=8146^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8146,2,0)
  1.  ;;=^^1^1^2991013^
  1.  ;;^UTILITY(U,$J,.84,8146,2,1,0)
  1.  ;;=uses internal code '|1|'
  1.  ;;^UTILITY(U,$J,.84,8146,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8146,3,1,0)
  1.  ;;=1^INTERNAL VALUE OF A SET-TYPE FIELD
  1.  ;;^UTILITY(U,$J,.84,8146,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8146,5,1,0)
  1.  ;;=DIP12^CK+8
  1.  ;;^UTILITY(U,$J,.84,8147,0)
  1.  ;;=8147^1^^2
  1.  ;;^UTILITY(U,$J,.84,8147,2,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,8147,2,1,0)
  1.  ;;=Captions cannot contain ':' or ';', or begin with a digit or a period.
  1.  ;;^UTILITY(U,$J,.84,8147,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8147,5,1,0)
  1.  ;;=DIQQQ^DIA3
  1.  ;;^UTILITY(U,$J,.84,8148,0)
  1.  ;;=8148^2^^2
  1.  ;;^UTILITY(U,$J,.84,8148,1,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,8148,1,1,0)
  1.  ;;=THERE ARE NO LINES
  1.  ;;^UTILITY(U,$J,.84,8148,2,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,8148,2,1,0)
  1.  ;;=THERE ARE NO LINES!
  1.  ;;^UTILITY(U,$J,.84,8148,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8148,5,1,0)
  1.  ;;=DIWE1^LN+1
  1.  ;;^UTILITY(U,$J,.84,8149,0)
  1.  ;;=8149^2^^2
  1.  ;;^UTILITY(U,$J,.84,8149,1,0)
  1.  ;;=^^1^1^2991027^^^
  1.  ;;^UTILITY(U,$J,.84,8149,1,1,0)
  1.  ;;=EDIT option
  1.  ;;^UTILITY(U,$J,.84,8149,2,0)
  1.  ;;=^^1^1^2991004^^^^
  1.  ;;^UTILITY(U,$J,.84,8149,2,1,0)
  1.  ;;=EDIT Option
  1.  ;;^UTILITY(U,$J,.84,8149,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8149,5,1,0)
  1.  ;;=DIWE1^1
  1.  ;;^UTILITY(U,$J,.84,8150,0)
  1.  ;;=8150^2^^2
  1.  ;;^UTILITY(U,$J,.84,8150,2,0)
  1.  ;;=^^1^1^2990711^^
  1.  ;;^UTILITY(U,$J,.84,8150,2,1,0)
  1.  ;;=Answer with a line number
  1.  ;;^UTILITY(U,$J,.84,8150,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8150,5,1,0)
  1.  ;;=DIWE5^LNQ+1
  1.  ;;^UTILITY(U,$J,.84,8151,0)
  1.  ;;=8151^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8151,2,0)
  1.  ;;=^^1^1^2990711^^
  1.  ;;^UTILITY(U,$J,.84,8151,2,1,0)
  1.  ;;=   or a space to mean the current line (|1|)
  1.  ;;^UTILITY(U,$J,.84,8151,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8151,3,1,0)
  1.  ;;=1^CURRENT LINE NUMBER
  1.  ;;^UTILITY(U,$J,.84,8151,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8151,5,1,0)
  1.  ;;=DIWE5^LNQ+2
  1.  ;;^UTILITY(U,$J,.84,8152,0)
  1.  ;;=8152^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8152,2,0)
  1.  ;;=^^1^1^2990711^^
  1.  ;;^UTILITY(U,$J,.84,8152,2,1,0)
  1.  ;;=   or '-' to mean line |1|
  1.  ;;^UTILITY(U,$J,.84,8152,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8152,3,1,0)
  1.  ;;=1^PREVIOUS LINE NUMBER
  1.  ;;^UTILITY(U,$J,.84,8152,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8152,5,1,0)
  1.  ;;=DIWE5^LNQ+2
  1.  ;;^UTILITY(U,$J,.84,8153,0)
  1.  ;;=8153^2^y^2