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

DINIT908.m

Go to the documentation of this file. 
  1. DINIT908 ;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,9118,0)
  1.  ;;=9118^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9118,2,0)
  1.  ;;=^^1^1^2991122^
  1.  ;;^UTILITY(U,$J,.84,9118,2,1,0)
  1.  ;;=ENTER A NUMBER BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
  1.  ;;^UTILITY(U,$J,.84,9118,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,9118,3,1,0)
  1.  ;;=1^LOWEST NUMBER ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118,3,2,0)
  1.  ;;=2^HIGHEST NUMBER ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118,3,3,0)
  1.  ;;=3^NUMBER OF DECIMAL PLACES ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9118,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9118.1,0)
  1.  ;;=9118.1^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9118.1,2,0)
  1.  ;;=^^1^1^2991122^^
  1.  ;;^UTILITY(U,$J,.84,9118.1,2,1,0)
  1.  ;;=ENTER A DOLLAR AMOUNT BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
  1.  ;;^UTILITY(U,$J,.84,9118.1,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,9118.1,3,1,0)
  1.  ;;=1^LOWEST NUMBER ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118.1,3,2,0)
  1.  ;;=2^HIGHEST NUMBER ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118.1,3,3,0)
  1.  ;;=3^NUMBER OF DECIMAL PLACES ALLOWED
  1.  ;;^UTILITY(U,$J,.84,9118.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9118.1,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9119,0)
  1.  ;;=9119^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9119,2,0)
  1.  ;;=^^1^1^2991122^
  1.  ;;^UTILITY(U,$J,.84,9119,2,1,0)
  1.  ;;=ENTER FROM |1| TO |2| CHARACTERS OF FREE TEXT
  1.  ;;^UTILITY(U,$J,.84,9119,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9119,3,1,0)
  1.  ;;=1^SHORTEST LENGTH
  1.  ;;^UTILITY(U,$J,.84,9119,3,2,0)
  1.  ;;=2^LONGEST LENGTH
  1.  ;;^UTILITY(U,$J,.84,9119,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9119,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9119.1,0)
  1.  ;;=9119.1^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9119.1,2,0)
  1.  ;;=^^1^1^2991122^
  1.  ;;^UTILITY(U,$J,.84,9119.1,2,1,0)
  1.  ;;=ENTER A FREE-TEXT ANSWER CONTAINING EXACTLY |1| CHARACTER(S)
  1.  ;;^UTILITY(U,$J,.84,9119.1,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9119.1,3,1,0)
  1.  ;;=1^LENGTH OF ANSWER
  1.  ;;^UTILITY(U,$J,.84,9119.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9119.1,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9121,0)
  1.  ;;=9121^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9121,2,0)
  1.  ;;=^^2^2^2990710^
  1.  ;;^UTILITY(U,$J,.84,9121,2,1,0)
  1.  ;;=At the time the lookup occurs in File |1|, there may be more than 1 entry found.
  1.  ;;^UTILITY(U,$J,.84,9121,2,2,0)
  1.  ;;=Answering 'Y' here means that the user then will be allowed to choose among several entries.
  1.  ;;^UTILITY(U,$J,.84,9121,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9121,3,1,0)
  1.  ;;=1^file name
  1.  ;;^UTILITY(U,$J,.84,9121,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9121,5,1,0)
  1.  ;;=DIQQQ^DICOMPW
  1.  ;;^UTILITY(U,$J,.84,9131,0)
  1.  ;;=9131^3^^2
  1.  ;;^UTILITY(U,$J,.84,9131,2,0)
  1.  ;;=^^3^3^2990720^^^
  1.  ;;^UTILITY(U,$J,.84,9131,2,1,0)
  1.  ;;=Follow a field name with ';"CAPTION"'
  1.  ;;^UTILITY(U,$J,.84,9131,2,2,0)
  1.  ;;= to have the field asked as 'CAPTION: '
  1.  ;;^UTILITY(U,$J,.84,9131,2,3,0)
  1.  ;;=   or with ';T' to use the field TITLE as caption.
  1.  ;;^UTILITY(U,$J,.84,9131,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9131,5,1,0)
  1.  ;;=DIQQQ^DIA
  1.  ;;^UTILITY(U,$J,.84,9148,0)
  1.  ;;=9148^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9148,1,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,9148,1,1,0)
  1.  ;;=Enter line number
  1.  ;;^UTILITY(U,$J,.84,9148,2,0)
  1.  ;;=^^1^1^2991005^^
  1.  ;;^UTILITY(U,$J,.84,9148,2,1,0)
  1.  ;;=Enter a line number between |1| and |2|.
  1.  ;;^UTILITY(U,$J,.84,9148,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9148,3,1,0)
  1.  ;;=1^1
  1.  ;;^UTILITY(U,$J,.84,9148,3,2,0)
  1.  ;;=2^Highest line number
  1.  ;;^UTILITY(U,$J,.84,9148,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9148,5,1,0)
  1.  ;;=DIWE1^RD
  1.  ;;^UTILITY(U,$J,.84,9149,0)
  1.  ;;=9149^3^^2
  1.  ;;^UTILITY(U,$J,.84,9149,2,0)
  1.  ;;=1^^1^1^2991004^
  1.  ;;^UTILITY(U,$J,.84,9149,2,1,0)
  1.  ;;=Choose, by first letter, a Word Processing command
  1.  ;;^UTILITY(U,$J,.84,9149,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9149,5,1,0)
  1.  ;;=DIWE1^1+5
  1.  ;;^UTILITY(U,$J,.84,9150,0)
  1.  ;;=9150^3^^2
  1.  ;;^UTILITY(U,$J,.84,9150,1,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,9150,1,1,0)
  1.  ;;=Type line number
  1.  ;;^UTILITY(U,$J,.84,9150,2,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,9150,2,1,0)
  1.  ;;=or type a Line Number to edit that line.
  1.  ;;^UTILITY(U,$J,.84,9150,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9150,5,1,0)
  1.  ;;=DIWE1^LC+6
  1.  ;;^UTILITY(U,$J,.84,9151,0)
  1.  ;;=9151^3^^2
  1.  ;;^UTILITY(U,$J,.84,9151,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9151,1,1,0)
  1.  ;;=Add Lines to End of Text
  1.  ;;^UTILITY(U,$J,.84,9151,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9151,2,1,0)
  1.  ;;=Add Lines to End of Text
  1.  ;;^UTILITY(U,$J,.84,9151,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9151,5,1,0)
  1.  ;;=DIWE1^A
  1.  ;;^UTILITY(U,$J,.84,9151.1,0)
  1.  ;;=9151.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9151.1,2,1,0)
  1.  ;;=Add lines
  1.  ;;^UTILITY(U,$J,.84,9152,0)
  1.  ;;=9152^3^^2
  1.  ;;^UTILITY(U,$J,.84,9152,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9152,1,1,0)
  1.  ;;=Break a Line into Two
  1.  ;;^UTILITY(U,$J,.84,9152,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9152,2,1,0)
  1.  ;;=Break a Line into Two
  1.  ;;^UTILITY(U,$J,.84,9152,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9152,5,1,0)
  1.  ;;=DIWE1^B
  1.  ;;^UTILITY(U,$J,.84,9152.1,0)
  1.  ;;=9152.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9152.1,2,1,0)
  1.  ;;=Break line: 
  1.  ;;^UTILITY(U,$J,.84,9153,0)
  1.  ;;=9153^3^^2
  1.  ;;^UTILITY(U,$J,.84,9153,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9153,1,1,0)
  1.  ;;=Change Every String to Another in a Range of Lines
  1.  ;;^UTILITY(U,$J,.84,9153,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9153,2,1,0)
  1.  ;;=Change Every String to Another in a Range of Lines
  1.  ;;^UTILITY(U,$J,.84,9153,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9153,5,1,0)
  1.  ;;=DIWE1^C
  1.  ;;^UTILITY(U,$J,.84,9153.1,0)
  1.  ;;=9153.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9153.1,2,1,0)
  1.  ;;=Change every: 
  1.  ;;^UTILITY(U,$J,.84,9154,0)
  1.  ;;=9154^3^^2
  1.  ;;^UTILITY(U,$J,.84,9154,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9154,1,1,0)
  1.  ;;=Delete Line(s)
  1.  ;;^UTILITY(U,$J,.84,9154,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9154,2,1,0)
  1.  ;;=Delete Line(s)
  1.  ;;^UTILITY(U,$J,.84,9154,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9154,5,1,0)
  1.  ;;=DIWE1^D
  1.  ;;^UTILITY(U,$J,.84,9154.1,0)
  1.  ;;=9154.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9154.1,2,1,0)
  1.  ;;=Delete from line: 
  1.  ;;^UTILITY(U,$J,.84,9155,0)
  1.  ;;=9155^3^^2
  1.  ;;^UTILITY(U,$J,.84,9155,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9155,1,1,0)
  1.  ;;=Edit a Line (Replace __  With __)
  1.  ;;^UTILITY(U,$J,.84,9155,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9155,2,1,0)
  1.  ;;=Edit a Line (Replace __  With __)
  1.  ;;^UTILITY(U,$J,.84,9155,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9155,5,1,0)
  1.  ;;=DIWE1^E
  1.  ;;^UTILITY(U,$J,.84,9155.1,0)
  1.  ;;=9155.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9155.1,2,1,0)
  1.  ;;=Edit line: 
  1.  ;;^UTILITY(U,$J,.84,9157,0)
  1.  ;;=9157^3^^2
  1.  ;;^UTILITY(U,$J,.84,9157,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9157,1,1,0)
  1.  ;;=Get Data from Another Source
  1.  ;;^UTILITY(U,$J,.84,9157,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9157,2,1,0)
  1.  ;;=Get Data from Another Source
  1.  ;;^UTILITY(U,$J,.84,9157,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9157,5,1,0)
  1.  ;;=DIWE1^G
  1.  ;;^UTILITY(U,$J,.84,9157.1,0)
  1.  ;;=9157.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9157.1,2,1,0)
  1.  ;;=Get Data from Another Source 
  1.  ;;^UTILITY(U,$J,.84,9159,0)
  1.  ;;=9159^3^^2
  1.  ;;^UTILITY(U,$J,.84,9159,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9159,1,1,0)
  1.  ;;=Insert Line(s) after an Existing Line
  1.  ;;^UTILITY(U,$J,.84,9159,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9159,2,1,0)
  1.  ;;=Insert Line(s) after an Existing Line
  1.  ;;^UTILITY(U,$J,.84,9159,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9159,5,1,0)
  1.  ;;=DIWE1^I
  1.  ;;^UTILITY(U,$J,.84,9159.1,0)
  1.  ;;=9159.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9159.1,2,1,0)
  1.  ;;=Insert after line: 
  1.  ;;^UTILITY(U,$J,.84,9160,0)
  1.  ;;=9160^3^^2
  1.  ;;^UTILITY(U,$J,.84,9160,1,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9160,1,1,0)
  1.  ;;=Join Line to the One Following
  1.  ;;^UTILITY(U,$J,.84,9160,2,0)
  1.  ;;=^^1^1^2990706^
  1.  ;;^UTILITY(U,$J,.84,9160,2,1,0)
  1.  ;;=Join Line to the One Following
  1.  ;;^UTILITY(U,$J,.84,9160,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9160,5,1,0)
  1.  ;;=DIWE1^J
  1.  ;;^UTILITY(U,$J,.84,9160.1,0)
  1.  ;;=9160.1^^^2
  1.  ;;^UTILITY(U,$J,.84,9160.1,2,1,0)
  1.  ;;=Join line: 
  1.  ;;^UTILITY(U,$J,.84,9162,0)
  1.  ;;=9162^3^^2
  1.  ;;^UTILITY(U,$J,.84,9162,1,0)
  1.  ;;=^^1^1^2990706^