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

DINIT910.m

Go to the documentation of this file. 
  1. DINIT910 ;GFT/GFT-DIALOG FILE INITS ;09DEC2015
  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,347,0)
  1.  ;;=347^1^^2
  1.  ;;^UTILITY(U,$J,.84,347,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,347,2,1,0)
  1.  ;;=Unable to change text.  Resultant line is too long.
  1.  ;;^UTILITY(U,$J,.84,347,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,347,5,1,0)
  1.  ;;=DDWC^RS+5
  1.  ;;^UTILITY(U,$J,.84,830,0)
  1.  ;;=830^1^^2
  1.  ;;^UTILITY(U,$J,.84,830,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,830,2,1,0)
  1.  ;;=This terminal does not support scroll region or reverse index
  1.  ;;^UTILITY(U,$J,.84,830,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,830,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,831,0)
  1.  ;;=831^1^^2
  1.  ;;^UTILITY(U,$J,.84,831,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,831,2,1,0)
  1.  ;;=TOP & BOTTOM MARGINS
  1.  ;;^UTILITY(U,$J,.84,831,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,831,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,832,0)
  1.  ;;=832^1^^2
  1.  ;;^UTILITY(U,$J,.84,832,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,832,2,1,0)
  1.  ;;=TOP MARGIN
  1.  ;;^UTILITY(U,$J,.84,832,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,832,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,833,0)
  1.  ;;=833^1^^2
  1.  ;;^UTILITY(U,$J,.84,833,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,833,2,1,0)
  1.  ;;=BOTTOM MARGIN
  1.  ;;^UTILITY(U,$J,.84,833,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,833,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,834,0)
  1.  ;;=834^1^^2
  1.  ;;^UTILITY(U,$J,.84,834,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,834,2,1,0)
  1.  ;;=SCROLL REGION TOO SMALL
  1.  ;;^UTILITY(U,$J,.84,834,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,834,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,835,0)
  1.  ;;=835^1^^2
  1.  ;;^UTILITY(U,$J,.84,835,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,835,2,1,0)
  1.  ;;=REVERSE INDEX
  1.  ;;^UTILITY(U,$J,.84,835,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,835,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,836,0)
  1.  ;;=836^2^^2
  1.  ;;^UTILITY(U,$J,.84,836,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,836,2,1,0)
  1.  ;;=Enter a column number between 1 and 255
  1.  ;;^UTILITY(U,$J,.84,836,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,836,5,1,0)
  1.  ;;=DDBR0
  1.  ;;^UTILITY(U,$J,.84,1404,0)
  1.  ;;=1404^1^^2
  1.  ;;^UTILITY(U,$J,.84,1404,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1404,2,1,0)
  1.  ;;=NO TEXT!
  1.  ;;^UTILITY(U,$J,.84,1404,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1404,5,1,0)
  1.  ;;=DDBR
  1.  ;;^UTILITY(U,$J,.84,1405,0)
  1.  ;;=1405^2^y^2
  1.  ;;^UTILITY(U,$J,.84,1405,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1405,2,1,0)
  1.  ;;=...Searching for '|1|' ...
  1.  ;;^UTILITY(U,$J,.84,1405,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,1405,3,1,0)
  1.  ;;=1^String being searched for
  1.  ;;^UTILITY(U,$J,.84,1405,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1405,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1406,0)
  1.  ;;=1406^1^^2
  1.  ;;^UTILITY(U,$J,.84,1406,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1406,2,1,0)
  1.  ;;=NO PREVIOUS FIND STRING AVAILABLE
  1.  ;;^UTILITY(U,$J,.84,1406,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1406,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1407,0)
  1.  ;;=1407^2^^2
  1.  ;;^UTILITY(U,$J,.84,1407,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1407,2,1,0)
  1.  ;;=Please enter a string of characters to search for  (or '^')
  1.  ;;^UTILITY(U,$J,.84,1407,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1407,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1408,0)
  1.  ;;=1408^2^^2
  1.  ;;^UTILITY(U,$J,.84,1408,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1408,2,1,0)
  1.  ;;=GoTo
  1.  ;;^UTILITY(U,$J,.84,1408,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1408,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1409,0)
  1.  ;;=1409^2^^2
  1.  ;;^UTILITY(U,$J,.84,1409,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1409,2,1,0)
  1.  ;;=Screen (default), or line number preceeded by 'S' or 'L'
  1.  ;;^UTILITY(U,$J,.84,1409,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1409,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1409.1,0)
  1.  ;;=1409.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,1409.1,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1409.1,2,1,0)
  1.  ;;=Screen (default), column, or line number preceeded by 'S, 'C' or 'L'
  1.  ;;^UTILITY(U,$J,.84,1409.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1409.1,5,1,0)
  1.  ;;=DDBR1
  1.  ;;^UTILITY(U,$J,.84,1901,0)
  1.  ;;=1901^2^^2
  1.  ;;^UTILITY(U,$J,.84,1901,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,1901,2,1,0)
  1.  ;;=REPORT CANCELLED!
  1.  ;;^UTILITY(U,$J,.84,1901,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,1901,5,1,0)
  1.  ;;=DDBRP
  1.  ;;^UTILITY(U,$J,.84,3090,0)
  1.  ;;=3090^1^y^2
  1.  ;;^UTILITY(U,$J,.84,3090,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3090,2,1,0)
  1.  ;;='|1|' is UNEDITABLE
  1.  ;;^UTILITY(U,$J,.84,3090,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,3090,3,1,0)
  1.  ;;=1^Field name
  1.  ;;^UTILITY(U,$J,.84,3090,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3090,5,1,0)
  1.  ;;=DIED^O+2
  1.  ;;^UTILITY(U,$J,.84,3092.1,0)
  1.  ;;=3092.1^1^^2
  1.  ;;^UTILITY(U,$J,.84,3092.1,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3092.1,2,1,0)
  1.  ;;=This is a required field
  1.  ;;^UTILITY(U,$J,.84,3092.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3092.1,5,1,0)
  1.  ;;=DDS02^EXT+22
  1.  ;;^UTILITY(U,$J,.84,3092.2,0)
  1.  ;;=3092.2^1^^2
  1.  ;;^UTILITY(U,$J,.84,3092.2,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3092.2,2,1,0)
  1.  ;;=This is a required KEY field
  1.  ;;^UTILITY(U,$J,.84,3092.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3092.2,5,1,0)
  1.  ;;=DIED^NKEY+1
  1.  ;;^UTILITY(U,$J,.84,3093,0)
  1.  ;;=3093^1^^2
  1.  ;;^UTILITY(U,$J,.84,3093,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3093,2,1,0)
  1.  ;;=You cannot save changes here.  To close the current page, press <PF1>C.
  1.  ;;^UTILITY(U,$J,.84,3093,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3093,5,1,0)
  1.  ;;=DDS02^SV+5
  1.  ;;^UTILITY(U,$J,.84,3094,0)
  1.  ;;=3094^1^^2
  1.  ;;^UTILITY(U,$J,.84,3094,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3094,2,1,0)
  1.  ;;=Another Entry already exists with this KEY value.
  1.  ;;^UTILITY(U,$J,.84,3094,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3094,5,1,0)
  1.  ;;=DDS02^
  1.  ;;^UTILITY(U,$J,.84,3095,0)
  1.  ;;=3095^1^^2
  1.  ;;^UTILITY(U,$J,.84,3095,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3095,2,1,0)
  1.  ;;=Exit not allowed
  1.  ;;^UTILITY(U,$J,.84,3095,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3095,5,1,0)
  1.  ;;=DIE0
  1.  ;;^UTILITY(U,$J,.84,3096,0)
  1.  ;;=3096^1^^2
  1.  ;;^UTILITY(U,$J,.84,3096,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3096,2,1,0)
  1.  ;;=No Jumping allowed
  1.  ;;^UTILITY(U,$J,.84,3096,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3096,5,1,0)
  1.  ;;=DIE0^
  1.  ;;^UTILITY(U,$J,.84,3097,0)
  1.  ;;=3097^1^^2
  1.  ;;^UTILITY(U,$J,.84,3097,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3097,2,1,0)
  1.  ;;=Jumping forward not allowed
  1.  ;;^UTILITY(U,$J,.84,3097,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3097,5,1,0)
  1.  ;;=DIE0^
  1.  ;;^UTILITY(U,$J,.84,3098,0)
  1.  ;;=3098^1^y^2
  1.  ;;^UTILITY(U,$J,.84,3098,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,3098,2,1,0)
  1.  ;;='|1|' matches no Field or Caption on this screen
  1.  ;;^UTILITY(U,$J,.84,3098,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,3098,3,1,0)
  1.  ;;=1^Incorrect input after the "^"
  1.  ;;^UTILITY(U,$J,.84,3098,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,3098,5,1,0)
  1.  ;;=DDS2^NO
  1.  ;;^UTILITY(U,$J,.84,7067,0)
  1.  ;;=7067^2^^2
  1.  ;;^UTILITY(U,$J,.84,7067,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,7067,2,1,0)
  1.  ;;=  Do you mean ALL the fields in the file? 
  1.  ;;^UTILITY(U,$J,.84,7067,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7067,5,1,0)
  1.  ;;=DIP2^2+5
  1.  ;;^UTILITY(U,$J,.84,7067.1,0)
  1.  ;;=7067.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,7067.1,2,0)
  1.  ;;=^^1^1
  1.  ;;^UTILITY(U,$J,.84,7067.1,2,1,0)
  1.  ;;= Answer YES only if you want every field in the file.
  1.  ;;^UTILITY(U,$J,.84,7067.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7067.1,5,1,0)
  1.  ;;=DIP2^2+5
  1.  ;;^UTILITY(U,$J,.84,7075,0)
  1.  ;;=7075^3^^2
  1.  ;;^UTILITY(U,$J,.84,7075,2,0)
  1.  ;;=^^1^1^
  1.  ;;^UTILITY(U,$J,.84,7075,2,1,0)
  1.  ;;=(Note that this value, starting with a quote ("), precedes all alphanumerics)
  1.  ;;^UTILITY(U,$J,.84,7075,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,7075,5,1,0)
  1.  ;;=DIP1^QUOTE