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

DINIT00I.m

Go to the documentation of this file.
  1. DINIT00I ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
  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,8028,5,4,0)
  1. ;;=DIOZ^ENCU
  1. ;;^UTILITY(U,$J,.84,8029,0)
  1. ;;=8029^2^y^5
  1. ;;^UTILITY(U,$J,.84,8029,1,0)
  1. ;;=^^2^2^2931110^
  1. ;;^UTILITY(U,$J,.84,8029,1,1,0)
  1. ;;=Extended dialogue for asking user whether they wish to COMPILE a
  1. ;;^UTILITY(U,$J,.84,8029,1,2,0)
  1. ;;=template or cross-references.
  1. ;;^UTILITY(U,$J,.84,8029,2,0)
  1. ;;=^^2^2^2931110^
  1. ;;^UTILITY(U,$J,.84,8029,2,1,0)
  1. ;;= |1| not currently compiled.
  1. ;;^UTILITY(U,$J,.84,8029,2,2,0)
  1. ;;=COMPILE the |1|
  1. ;;^UTILITY(U,$J,.84,8029,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,8029,3,1,0)
  1. ;;=1^Contains the word 'TEMPLATE' or 'CROSS-REFERENCES'
  1. ;;^UTILITY(U,$J,.84,8029,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,8029,5,1,0)
  1. ;;=DIOZ^ENCU
  1. ;;^UTILITY(U,$J,.84,8030,0)
  1. ;;=8030^2^y^5
  1. ;;^UTILITY(U,$J,.84,8030,1,0)
  1. ;;=^^2^2^2931110^^^^
  1. ;;^UTILITY(U,$J,.84,8030,1,1,0)
  1. ;;=Warning to user that SORT/PRINT templates are uneditable because the PRINT
  1. ;;^UTILITY(U,$J,.84,8030,1,2,0)
  1. ;;=TEMPLATE field on the SORT TEMPLATE has linked it with a print template.
  1. ;;^UTILITY(U,$J,.84,8030,2,0)
  1. ;;=^^7^7^2931112^
  1. ;;^UTILITY(U,$J,.84,8030,2,1,0)
  1. ;;=Because this Sort Template has been linked with the Print Template
  1. ;;^UTILITY(U,$J,.84,8030,2,2,0)
  1. ;;=|1|, neither template can be edited from this option.
  1. ;;^UTILITY(U,$J,.84,8030,2,3,0)
  1. ;;=
  1. ;;^UTILITY(U,$J,.84,8030,2,4,0)
  1. ;;=To edit the templates, first use the FileMan TEMPLATE EDIT
  1. ;;^UTILITY(U,$J,.84,8030,2,5,0)
  1. ;;=option to edit the Sort Template, and delete the field called
  1. ;;^UTILITY(U,$J,.84,8030,2,6,0)
  1. ;;='PRINT TEMPLATE'. Then, the templates can be edited from
  1. ;;^UTILITY(U,$J,.84,8030,2,7,0)
  1. ;;=the PRINT option.
  1. ;;^UTILITY(U,$J,.84,8030,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,8030,3,1,0)
  1. ;;=1^Name of associated PRINT TEMPLATE.
  1. ;;^UTILITY(U,$J,.84,8030,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,8030,5,1,0)
  1. ;;=DIP^EN
  1. ;;^UTILITY(U,$J,.84,8031,0)
  1. ;;=8031^2^^5
  1. ;;^UTILITY(U,$J,.84,8031,1,0)
  1. ;;=^^1^1^2931110^^
  1. ;;^UTILITY(U,$J,.84,8031,1,1,0)
  1. ;;=Warning that compiled routine names may get too long.
  1. ;;^UTILITY(U,$J,.84,8031,2,0)
  1. ;;=^^3^3^2931110^
  1. ;;^UTILITY(U,$J,.84,8031,2,1,0)
  1. ;;=WARNING!! Since the namespace for this routine is so long, use the
  1. ;;^UTILITY(U,$J,.84,8031,2,2,0)
  1. ;;=largest possible size to compile these routines. Otherwise, FileMan may
  1. ;;^UTILITY(U,$J,.84,8031,2,3,0)
  1. ;;=run out of routine names.
  1. ;;^UTILITY(U,$J,.84,8031,5,0)
  1. ;;=^.841^3^3
  1. ;;^UTILITY(U,$J,.84,8031,5,1,0)
  1. ;;=DIPZ^
  1. ;;^UTILITY(U,$J,.84,8031,5,2,0)
  1. ;;=DIEZ^
  1. ;;^UTILITY(U,$J,.84,8031,5,3,0)
  1. ;;=DIKZ^
  1. ;;^UTILITY(U,$J,.84,8032,0)
  1. ;;=8032^2^^5
  1. ;;^UTILITY(U,$J,.84,8032,1,0)
  1. ;;=^^1^1^2930702^
  1. ;;^UTILITY(U,$J,.84,8032,1,1,0)
  1. ;;=Words SEARCH TEMPLATE
  1. ;;^UTILITY(U,$J,.84,8032,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8032,2,1,0)
  1. ;;=Search Template
  1. ;;^UTILITY(U,$J,.84,8033,0)
  1. ;;=8033^2^^5
  1. ;;^UTILITY(U,$J,.84,8033,1,0)
  1. ;;=^^1^1^2930701^^
  1. ;;^UTILITY(U,$J,.84,8033,1,1,0)
  1. ;;=the words INPUT TEMPLATE to use in any FileMan dialog.
  1. ;;^UTILITY(U,$J,.84,8033,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8033,2,1,0)
  1. ;;=Input Template
  1. ;;^UTILITY(U,$J,.84,8033,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,8033,5,1,0)
  1. ;;=DIEZ^
  1. ;;^UTILITY(U,$J,.84,8033,5,2,0)
  1. ;;=DIEZ^EN
  1. ;;^UTILITY(U,$J,.84,8034,0)
  1. ;;=8034^2^^5
  1. ;;^UTILITY(U,$J,.84,8034,1,0)
  1. ;;=^^1^1^2930701^^
  1. ;;^UTILITY(U,$J,.84,8034,1,1,0)
  1. ;;=The words PRINT TEMPLATE to use in any FileMan dialog.
  1. ;;^UTILITY(U,$J,.84,8034,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8034,2,1,0)
  1. ;;=Print Template
  1. ;;^UTILITY(U,$J,.84,8034,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,8034,5,1,0)
  1. ;;=DIPZ^
  1. ;;^UTILITY(U,$J,.84,8034,5,2,0)
  1. ;;=DIPZ^EN
  1. ;;^UTILITY(U,$J,.84,8035,0)
  1. ;;=8035^2^^5
  1. ;;^UTILITY(U,$J,.84,8035,1,0)
  1. ;;=^^1^1^2930701^
  1. ;;^UTILITY(U,$J,.84,8035,1,1,0)
  1. ;;=The words SORT TEMPLATE to use in any FileMan dialog.
  1. ;;^UTILITY(U,$J,.84,8035,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8035,2,1,0)
  1. ;;=Sort Template
  1. ;;^UTILITY(U,$J,.84,8035,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,8035,5,1,0)
  1. ;;=DIOZ^ENCU
  1. ;;^UTILITY(U,$J,.84,8036,0)
  1. ;;=8036^2^^5
  1. ;;^UTILITY(U,$J,.84,8036,1,0)
  1. ;;=^^1^1^2930702^^
  1. ;;^UTILITY(U,$J,.84,8036,1,1,0)
  1. ;;=The words CROSS-REFERENCE(S) to use in any FileMan Dialog.
  1. ;;^UTILITY(U,$J,.84,8036,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8036,2,1,0)
  1. ;;=Cross-Reference(s)
  1. ;;^UTILITY(U,$J,.84,8036,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,8036,5,1,0)
  1. ;;=DIKZ^
  1. ;;^UTILITY(U,$J,.84,8036,5,2,0)
  1. ;;=DIKZ^EN
  1. ;;^UTILITY(U,$J,.84,8037,0)
  1. ;;=8037^2^^5
  1. ;;^UTILITY(U,$J,.84,8037,1,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8037,1,1,0)
  1. ;;=The word SORT to use in any FileMan dialog.
  1. ;;^UTILITY(U,$J,.84,8037,2,0)
  1. ;;=^^1^1^2940526^
  1. ;;^UTILITY(U,$J,.84,8037,2,1,0)
  1. ;;=sort
  1. ;;^UTILITY(U,$J,.84,8037,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,8037,5,1,0)
  1. ;;=DIP^EN1
  1. ;;^UTILITY(U,$J,.84,8038,0)
  1. ;;=8038^2^^5
  1. ;;^UTILITY(U,$J,.84,8038,1,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,8038,1,1,0)
  1. ;;=The word SEARCH to use in any FileMan dialog.
  1. ;;^UTILITY(U,$J,.84,8038,2,0)
  1. ;;=^^1^1^2940526^
  1. ;;^UTILITY(U,$J,.84,8038,2,1,0)
  1. ;;=search
  1. ;;^UTILITY(U,$J,.84,8038,5,0)
  1. ;;=^.841^2^2
  1. ;;^UTILITY(U,$J,.84,8038,5,1,0)
  1. ;;=DIP^EN1
  1. ;;^UTILITY(U,$J,.84,8038,5,2,0)
  1. ;;=DIS^ENS
  1. ;;^UTILITY(U,$J,.84,8040,0)
  1. ;;=8040^2^^5
  1. ;;^UTILITY(U,$J,.84,8040,1,0)
  1. ;;=^^1^1^2940314^^^
  1. ;;^UTILITY(U,$J,.84,8040,1,1,0)
  1. ;;=Advice for the Yes/No question
  1. ;;^UTILITY(U,$J,.84,8040,2,0)
  1. ;;=^^1^1^2940314^^^
  1. ;;^UTILITY(U,$J,.84,8040,2,1,0)
  1. ;;=Answer with 'Yes' or 'No'
  1. ;;^UTILITY(U,$J,.84,8041,0)
  1. ;;=8041^2^^5
  1. ;;^UTILITY(U,$J,.84,8041,2,0)
  1. ;;=^^1^1^2940310^
  1. ;;^UTILITY(U,$J,.84,8041,2,1,0)
  1. ;;=This is a required response. Enter '^' to exit
  1. ;;^UTILITY(U,$J,.84,8042,0)
  1. ;;=8042^2^y^5
  1. ;;^UTILITY(U,$J,.84,8042,1,0)
  1. ;;=^^2^2^2940315^^^^
  1. ;;^UTILITY(U,$J,.84,8042,1,1,0)
  1. ;;=This 'Select' prompt may be used for dialogs with filenames.
  1. ;;^UTILITY(U,$J,.84,8042,1,2,0)
  1. ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
  1. ;;^UTILITY(U,$J,.84,8042,2,0)
  1. ;;=1
  1. ;;^UTILITY(U,$J,.84,8042,2,1,0)
  1. ;;=Select |1|:
  1. ;;^UTILITY(U,$J,.84,8042,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,8042,3,1,0)
  1. ;;=1^Name of the file
  1. ;;^UTILITY(U,$J,.84,8043,0)
  1. ;;=8043^2^^5
  1. ;;^UTILITY(U,$J,.84,8043,1,0)
  1. ;;=^^1^1^2940314^^
  1. ;;^UTILITY(U,$J,.84,8043,1,1,0)
  1. ;;=Used for date time input to the reader.
  1. ;;^UTILITY(U,$J,.84,8043,2,0)
  1. ;;=^^1^1^2940314^^
  1. ;;^UTILITY(U,$J,.84,8043,2,1,0)
  1. ;;= and time
  1. ;;^UTILITY(U,$J,.84,8044,0)
  1. ;;=8044^2^^5