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

DINIT907.m

Go to the documentation of this file. 
  1. DINIT907 ;GFT/GFT-DIALOG FILE INITS ;20APR2014
  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,9079,2,3,0)
  1.  ;;=-|3|- to be evaluated as "true".
  1.  ;;^UTILITY(U,$J,.84,9079,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,9079,3,1,0)
  1.  ;;=1^TRUTH CONDITION IN WORDS
  1.  ;;^UTILITY(U,$J,.84,9079,3,2,0)
  1.  ;;=2^OPERATOR
  1.  ;;^UTILITY(U,$J,.84,9079,3,3,0)
  1.  ;;=3^TRUTH CONDITION LETTER
  1.  ;;^UTILITY(U,$J,.84,9079,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9079,5,1,0)
  1.  ;;=DIQQQ^DIS
  1.  ;;^UTILITY(U,$J,.84,9080,0)
  1.  ;;=9080^3^^2
  1.  ;;^UTILITY(U,$J,.84,9080,2,0)
  1.  ;;=^^1^1^2990710^
  1.  ;;^UTILITY(U,$J,.84,9080,2,1,0)
  1.  ;;=Use EXTERNAL VALUE (from the list on the RIGHT)
  1.  ;;^UTILITY(U,$J,.84,9080,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9080,5,1,0)
  1.  ;;=DIQQQ^DIS
  1.  ;;^UTILITY(U,$J,.84,9081,0)
  1.  ;;=9081^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9081,2,0)
  1.  ;;=^^4^4^2991015^^^^
  1.  ;;^UTILITY(U,$J,.84,9081,2,1,0)
  1.  ;;=To |1| in sequence, starting from a certain |2|,
  1.  ;;^UTILITY(U,$J,.84,9081,2,2,0)
  1.  ;;=type that |2|.  
  1.  ;;^UTILITY(U,$J,.84,9081,2,3,0)
  1.  ;;=   'FIRST' means 'START FROM THE BEGINNING OF THE RANGE OF VALUES'
  1.  ;;^UTILITY(U,$J,.84,9081,2,4,0)
  1.  ;;=   '@' means 'INCLUDE NULL |2| FIELDS'
  1.  ;;^UTILITY(U,$J,.84,9081,2,5,0)
  1.  ;;=   '@' followed by a Computed Expression for |2| to be evaluated at run time, is also allowed
  1.  ;;^UTILITY(U,$J,.84,9081,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9081,3,1,0)
  1.  ;;=1^LIST
  1.  ;;^UTILITY(U,$J,.84,9081,3,2,0)
  1.  ;;=2^ENTRY
  1.  ;;^UTILITY(U,$J,.84,9081,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9081,5,1,0)
  1.  ;;=DIQQ^DIP1F
  1.  ;;^UTILITY(U,$J,.84,9082,0)
  1.  ;;=9082^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9082,2,0)
  1.  ;;=^^4^4^2991015^^^^
  1.  ;;^UTILITY(U,$J,.84,9082,2,1,0)
  1.  ;;=To |1| only up to a certain |2|,
  1.  ;;^UTILITY(U,$J,.84,9082,2,2,0)
  1.  ;;=type that |2|.  
  1.  ;;^UTILITY(U,$J,.84,9082,2,3,0)
  1.  ;;=   'LAST' means 'GO TO THE END OF THE RANGE OF VALUES'
  1.  ;;^UTILITY(U,$J,.84,9082,2,4,0)
  1.  ;;=   '@' means 'INCLUDE NULL |2| FIELDS'
  1.  ;;^UTILITY(U,$J,.84,9082,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9082,3,1,0)
  1.  ;;=1^LIST
  1.  ;;^UTILITY(U,$J,.84,9082,3,2,0)
  1.  ;;=2^ENTRY
  1.  ;;^UTILITY(U,$J,.84,9082,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9082,5,1,0)
  1.  ;;=DIQQ^DIP1T
  1.  ;;^UTILITY(U,$J,.84,9083,0)
  1.  ;;=9083^3^^2
  1.  ;;^UTILITY(U,$J,.84,9083,1,0)
  1.  ;;=^^3^3^2990710^^
  1.  ;;^UTILITY(U,$J,.84,9083,1,1,0)
  1.  ;;=This template may eventually be used with a different 'SORT-BY' sequence.
  1.  ;;^UTILITY(U,$J,.84,9083,1,2,0)
  1.  ;;=Answering 'Y' here insures that, in that case, the user won't have  to
  1.  ;;^UTILITY(U,$J,.84,9083,1,3,0)
  1.  ;;=remember...
  1.  ;;^UTILITY(U,$J,.84,9083,2,0)
  1.  ;;=^^3^3^2990710^^
  1.  ;;^UTILITY(U,$J,.84,9083,2,1,0)
  1.  ;;=This template may eventually be used with a different 'SORT-BY' sequence.
  1.  ;;^UTILITY(U,$J,.84,9083,2,2,0)
  1.  ;;=Answering 'Y' here insures that, in that case, the user won't have
  1.  ;;^UTILITY(U,$J,.84,9083,2,3,0)
  1.  ;;=to remember to type the '@' in order to keep sub-headers from appearing.
  1.  ;;^UTILITY(U,$J,.84,9083,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9083,5,1,0)
  1.  ;;=DIQQQ^DIP21
  1.  ;;^UTILITY(U,$J,.84,9085,0)
  1.  ;;=9085^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9085,2,0)
  1.  ;;=^^3^3^2990710^
  1.  ;;^UTILITY(U,$J,.84,9085,2,1,0)
  1.  ;;=Since you are calling for output on device '|1|',
  1.  ;;^UTILITY(U,$J,.84,9085,2,2,0)
  1.  ;;=you may use the terminal you are now typing on for something else,
  1.  ;;^UTILITY(U,$J,.84,9085,2,3,0)
  1.  ;;=by answering 'Y'.
  1.  ;;^UTILITY(U,$J,.84,9085,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9085,3,1,0)
  1.  ;;=1^IO DEVICE
  1.  ;;^UTILITY(U,$J,.84,9085,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9085,5,1,0)
  1.  ;;=DIQQ^DIP3
  1.  ;;^UTILITY(U,$J,.84,9086,0)
  1.  ;;=9086^3^^2
  1.  ;;^UTILITY(U,$J,.84,9086,2,0)
  1.  ;;=^^1^1^2990710^^
  1.  ;;^UTILITY(U,$J,.84,9086,2,1,0)
  1.  ;;=If you want page numbering to start at a number higher than 1, type that number.
  1.  ;;^UTILITY(U,$J,.84,9086,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9086,5,1,0)
  1.  ;;=DIQQQ^DIP3
  1.  ;;^UTILITY(U,$J,.84,9108,0)
  1.  ;;=9108^3^^2
  1.  ;;^UTILITY(U,$J,.84,9108,2,0)
  1.  ;;=^^2^2^2990828^
  1.  ;;^UTILITY(U,$J,.84,9108,2,1,0)
  1.  ;;=   If you answer 'N', you"ll be asked to create a formatted display,
  1.  ;;^UTILITY(U,$J,.84,9108,2,2,0)
  1.  ;;=   as in the PRINT Option.
  1.  ;;^UTILITY(U,$J,.84,9108,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9108,5,1,0)
  1.  ;;=DII^O+1
  1.  ;;^UTILITY(U,$J,.84,9109,0)
  1.  ;;=9109^3^^2
  1.  ;;^UTILITY(U,$J,.84,9109,2,0)
  1.  ;;=^^1^1^2990828^
  1.  ;;^UTILITY(U,$J,.84,9109,2,1,0)
  1.  ;;=Answer 'Y' to display the audit trail for each entry.
  1.  ;;^UTILITY(U,$J,.84,9109,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9109,5,1,0)
  1.  ;;=DII
  1.  ;;^UTILITY(U,$J,.84,9110.1,0)
  1.  ;;=9110.1^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.1,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9110.1,2,1,0)
  1.  ;;=or 012057  (omitting punctuation)
  1.  ;;^UTILITY(U,$J,.84,9110.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.1,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9110.2,0)
  1.  ;;=9110.2^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.2,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9110.2,2,1,0)
  1.  ;;=assumes a date in the PAST.
  1.  ;;^UTILITY(U,$J,.84,9110.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.2,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9110.3,0)
  1.  ;;=9110.3^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.3,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9110.3,2,1,0)
  1.  ;;=assumes a date in the FUTURE.
  1.  ;;^UTILITY(U,$J,.84,9110.3,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.3,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9110.4,0)
  1.  ;;=9110.4^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.4,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9110.4,2,1,0)
  1.  ;;=uses CURRENT YEAR.
  1.  ;;^UTILITY(U,$J,.84,9110.4,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.4,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9110.5,0)
  1.  ;;=9110.5^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.5,2,0)
  1.  ;;=^^1^1^2990906^^
  1.  ;;^UTILITY(U,$J,.84,9110.5,2,1,0)
  1.  ;;=A 2-digit year means no more than 20 years in the future, or 80 years in the past.
  1.  ;;^UTILITY(U,$J,.84,9110.5,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.5,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9110.6,0)
  1.  ;;=9110.6^3^^2
  1.  ;;^UTILITY(U,$J,.84,9110.6,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9110.6,2,1,0)
  1.  ;;=You may omit the precise day of the month, e.g.: Jan, 1957
  1.  ;;^UTILITY(U,$J,.84,9110.6,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.6,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9112,0)
  1.  ;;=9112^3^^2
  1.  ;;^UTILITY(U,$J,.84,9112,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9112,2,1,0)
  1.  ;;=Seconds may be entered, as e.g.: 10:30:30  or 103030AM
  1.  ;;^UTILITY(U,$J,.84,9112,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9112,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9113,0)
  1.  ;;=9113^3^^2
  1.  ;;^UTILITY(U,$J,.84,9113,2,0)
  1.  ;;=^^1^1^2990906^
  1.  ;;^UTILITY(U,$J,.84,9113,2,1,0)
  1.  ;;=Time is REQUIRED to be entered.
  1.  ;;^UTILITY(U,$J,.84,9113,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9113,5,1,0)
  1.  ;;=DIEH1
  1.  ;;^UTILITY(U,$J,.84,9114,0)
  1.  ;;=9114^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9114,2,0)
  1.  ;;=^^1^1^2991122^
  1.  ;;^UTILITY(U,$J,.84,9114,2,1,0)
  1.  ;;=ENTER A DATE BETWEEN |1| AND |2|
  1.  ;;^UTILITY(U,$J,.84,9114,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9114,3,1,0)
  1.  ;;=1^EARLIEST DATE
  1.  ;;^UTILITY(U,$J,.84,9114,3,2,0)
  1.  ;;=2^LATEST DATE
  1.  ;;^UTILITY(U,$J,.84,9114,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9114,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9114.01,0)
  1.  ;;=9114.01^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9114.01,2,0)
  1.  ;;=^^1^1^2991122^
  1.  ;;^UTILITY(U,$J,.84,9114.01,2,1,0)
  1.  ;;=ENTER A DATE NOT EARLIER THAN |1|
  1.  ;;^UTILITY(U,$J,.84,9114.01,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.01,3,1,0)
  1.  ;;=1^EARLIEST DATE
  1.  ;;^UTILITY(U,$J,.84,9114.01,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.01,5,1,0)
  1.  ;;=DIALOGZ
  1.  ;;^UTILITY(U,$J,.84,9114.1,0)
  1.  ;;=9114.1^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9114.1,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,9114.1,2,1,0)
  1.  ;;=Response must not be previous to |1|
  1.  ;;^UTILITY(U,$J,.84,9114.1,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.1,3,1,0)
  1.  ;;=1^EARLIEST DATE
  1.  ;;^UTILITY(U,$J,.84,9114.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.1,5,1,0)
  1.  ;;=DIR1^D+3
  1.  ;;^UTILITY(U,$J,.84,9114.2,0)
  1.  ;;=9114.2^3^y^2
  1.  ;;^UTILITY(U,$J,.84,9114.2,2,0)
  1.  ;;=^^1^1^2991028^^
  1.  ;;^UTILITY(U,$J,.84,9114.2,2,1,0)
  1.  ;;=Response must not be later than |1|
  1.  ;;^UTILITY(U,$J,.84,9114.2,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.2,3,1,0)
  1.  ;;=1^LATEST DATE
  1.  ;;^UTILITY(U,$J,.84,9114.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9114.2,5,1,0)
  1.  ;;=DIR1^D+4