Routine: DINIT00P

DINIT00P ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:33 AM  5 Dec 2012

 ;;22.0;VA FileMan;**169**;Mar 30, 1999;Build 28

 ;Per VHA Directive 2004-038, this routine should not be modified.

 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

Q Q

 ;;^UTILITY(U,$J,.84,9117,3,1,0)

 ;;=1^The prefix for a variable pointer file.

 ;;^UTILITY(U,$J,.84,9117,3,2,0)

 ;;=2^The message for a variable pointer file.

 ;;^UTILITY(U,$J,.84,9201,0)

 ;;=9201^3^^5

 ;;^UTILITY(U,$J,.84,9201,1,0)

 ;;=^^1^1^2950511^^

 ;;^UTILITY(U,$J,.84,9201,1,1,0)

 ;;=Browser help

 ;;^UTILITY(U,$J,.84,9201,2,-1,"DATE")

 ;;=62796,32024

 ;;^UTILITY(U,$J,.84,9201,2,-1,"TITLE")

 ;;=9201

 ;;^UTILITY(U,$J,.84,9201,2,0)

 ;;=^^221^221^3121205^

 ;;^UTILITY(U,$J,.84,9201,2,1,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,2,0)

 ;;=                                 HELP SUMMARY

 ;;^UTILITY(U,$J,.84,9201,2,3,0)

 ;;=                                 ============

 ;;^UTILITY(U,$J,.84,9201,2,4,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,5,0)

 ;;=NAVIGATION:

 ;;^UTILITY(U,$J,.84,9201,2,6,0)

 ;;============

 ;;^UTILITY(U,$J,.84,9201,2,7,0)

 ;;=     Scroll Down (one line)                  ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,8,0)

 ;;=     Scroll Up (one line)                    ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,9,0)

 ;;=     Page Down                               <PF1>ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,10,0)

 ;;=     Page Up                                 <PF1>ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,11,0)

 ;;=     Scroll Right (default 22 columns)       ARROW RIGHT

 ;;^UTILITY(U,$J,.84,9201,2,12,0)

 ;;=     Scroll Left (default 22 columns)        ARROW LEFT

 ;;^UTILITY(U,$J,.84,9201,2,13,0)

 ;;=     Scroll Horizontally to the end          <PF1>ARROW RIGHT

 ;;^UTILITY(U,$J,.84,9201,2,14,0)

 ;;=     Scroll Horizontally to the end          <PF1>ARROW LEFT

 ;;^UTILITY(U,$J,.84,9201,2,15,0)

 ;;=     Jump to the Top                         <PF1>T

 ;;^UTILITY(U,$J,.84,9201,2,16,0)

 ;;=     Jump to the Bottom                      <PF1>B

 ;;^UTILITY(U,$J,.84,9201,2,17,0)

 ;;=     Goto                                    <PF1>G

 ;;^UTILITY(U,$J,.84,9201,2,18,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,19,0)

 ;;=SEARCH:

 ;;^UTILITY(U,$J,.84,9201,2,20,0)

 ;;========

 ;;^UTILITY(U,$J,.84,9201,2,21,0)

 ;;=     Find text                               <PF1>F

 ;;^UTILITY(U,$J,.84,9201,2,22,0)

 ;;=     Next (occurrence)                       <PF1>N

 ;;^UTILITY(U,$J,.84,9201,2,23,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,24,0)

 ;;=     Direction-terminate find text with:

 ;;^UTILITY(U,$J,.84,9201,2,25,0)

 ;;=     -----------------------------------

 ;;^UTILITY(U,$J,.84,9201,2,26,0)

 ;;=     Down                                    ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,27,0)

 ;;=     Up                                      ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,28,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,29,0)

 ;;=BRANCH:

 ;;^UTILITY(U,$J,.84,9201,2,30,0)

 ;;========

 ;;^UTILITY(U,$J,.84,9201,2,31,0)

 ;;=     Switch to another document              <PF1>S

 ;;^UTILITY(U,$J,.84,9201,2,32,0)

 ;;=     Return to previous document(s)          R

 ;;^UTILITY(U,$J,.84,9201,2,33,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,34,0)

 ;;=SCREEN:

 ;;^UTILITY(U,$J,.84,9201,2,35,0)

 ;;========

 ;;^UTILITY(U,$J,.84,9201,2,36,0)

 ;;=     Repaint screen                          <PF1>P

 ;;^UTILITY(U,$J,.84,9201,2,37,0)

 ;;=     Print document                          <PF1><PF1>P

 ;;^UTILITY(U,$J,.84,9201,2,38,0)

 ;;=     Split screen                            <PF2>S

 ;;^UTILITY(U,$J,.84,9201,2,39,0)

 ;;=     restore Full screen                     <PF2>F

 ;;^UTILITY(U,$J,.84,9201,2,40,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,41,0)

 ;;=     Split Screen Mode Navigation:

 ;;^UTILITY(U,$J,.84,9201,2,42,0)

 ;;=     -----------------------------

 ;;^UTILITY(U,$J,.84,9201,2,43,0)

 ;;=     Navigate to bottom screen              <PF2>ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,44,0)

 ;;=     Navigate to top screen                 <PF2>ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,45,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,46,0)

 ;;=     Resize Split Screen:

 ;;^UTILITY(U,$J,.84,9201,2,47,0)

 ;;=     --------------------

 ;;^UTILITY(U,$J,.84,9201,2,48,0)

 ;;=     Top/Bottom screen larger/smaller       <PF2><PF2>ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,49,0)

 ;;=     Bottom/Top screen larger/smaller       <PF2><PF2>ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,50,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,51,0)

 ;;=CLIPBOARD:

 ;;^UTILITY(U,$J,.84,9201,2,52,0)

 ;;===========

 ;;^UTILITY(U,$J,.84,9201,2,53,0)

 ;;=     Copy to VA FileMan's Clipboard         <PF1>C

 ;;^UTILITY(U,$J,.84,9201,2,54,0)

 ;;=     View VA FileMan's Clipboard            <PF1>V

 ;;^UTILITY(U,$J,.84,9201,2,55,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,56,0)

 ;;=TITLE BAR:

 ;;^UTILITY(U,$J,.84,9201,2,57,0)

 ;;===========

 ;;^UTILITY(U,$J,.84,9201,2,58,0)

 ;;=     Change content of title bar,           <PF1><PF1>ARROW DOWN

 ;;^UTILITY(U,$J,.84,9201,2,59,0)

 ;;=     Or                                     <PF1><PF1>ARROW UP

 ;;^UTILITY(U,$J,.84,9201,2,60,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,61,0)

 ;;=HELP:

 ;;^UTILITY(U,$J,.84,9201,2,62,0)

 ;;======

 ;;^UTILITY(U,$J,.84,9201,2,63,0)

 ;;=     Browse Key Summary                     <PF1>H

 ;;^UTILITY(U,$J,.84,9201,2,64,0)

 ;;=     More Help                              <PF1><PF1>H

 ;;^UTILITY(U,$J,.84,9201,2,65,0)

 ;;=     Print this help text                   <PF1><PF1><PF1>H

 ;;^UTILITY(U,$J,.84,9201,2,66,0)

 ;;=     To Return to document from this help   R

 ;;^UTILITY(U,$J,.84,9201,2,67,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,68,0)

 ;;=EXIT:

 ;;^UTILITY(U,$J,.84,9201,2,69,0)

 ;;======

 ;;^UTILITY(U,$J,.84,9201,2,70,0)

 ;;=     Exit Browser or help text              <PF1>E or "EXIT"

 ;;^UTILITY(U,$J,.84,9201,2,71,0)

 ;;=     Quit                                   <PF1>Q

 ;;^UTILITY(U,$J,.84,9201,2,72,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,73,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,74,0)

 ;;=                                  MORE HELP

 ;;^UTILITY(U,$J,.84,9201,2,75,0)

 ;;=                                  =========

 ;;^UTILITY(U,$J,.84,9201,2,76,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,77,0)

 ;;=     To EXIT the VA FileMan Browser, press <PF1> followed by the letter

 ;;^UTILITY(U,$J,.84,9201,2,78,0)

 ;;=     'E'.  This is also true for this HELP document which is being

 ;;^UTILITY(U,$J,.84,9201,2,79,0)

 ;;=     presented by the Browser.

 ;;^UTILITY(U,$J,.84,9201,2,80,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,81,0)

 ;;=     To SCROLL DOWN one line at a time, press the ARROW DOWN key.

 ;;^UTILITY(U,$J,.84,9201,2,82,0)

;;=

 ;;^UTILITY(U,$J,.84,9201,2,83,0)

 ;;=     To SCROLL UP one line at a time, press the ARROW UP key.

 ;;^UTILITY(U,$J,.84,9201,2,84,0)

;;=

DINIT00P  ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:33 AM  5 Dec 2012

 +1       ;;22.0;VA FileMan;**169**;Mar 30, 1999;Build 28

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,.84,9117,3,1,0)

 +2       ;;=1^The prefix for a variable pointer file.

 +3       ;;^UTILITY(U,$J,.84,9117,3,2,0)

 +4       ;;=2^The message for a variable pointer file.

 +5       ;;^UTILITY(U,$J,.84,9201,0)

 +6       ;;=9201^3^^5

 +7       ;;^UTILITY(U,$J,.84,9201,1,0)

 +8       ;;=^^1^1^2950511^^

 +9       ;;^UTILITY(U,$J,.84,9201,1,1,0)

 +10      ;;=Browser help

 +11      ;;^UTILITY(U,$J,.84,9201,2,-1,"DATE")

 +12      ;;=62796,32024

 +13      ;;^UTILITY(U,$J,.84,9201,2,-1,"TITLE")

 +14      ;;=9201

 +15      ;;^UTILITY(U,$J,.84,9201,2,0)

 +16      ;;=^^221^221^3121205^

 +17      ;;^UTILITY(U,$J,.84,9201,2,1,0)

 +18      ;;=

 +19      ;;^UTILITY(U,$J,.84,9201,2,2,0)

 +20      ;;=                                 HELP SUMMARY

 +21      ;;^UTILITY(U,$J,.84,9201,2,3,0)

 +22      ;;=                                 ============

 +23      ;;^UTILITY(U,$J,.84,9201,2,4,0)

 +24      ;;=

 +25      ;;^UTILITY(U,$J,.84,9201,2,5,0)

 +26      ;;=NAVIGATION:

 +27      ;;^UTILITY(U,$J,.84,9201,2,6,0)

 +28      ;;============

 +29      ;;^UTILITY(U,$J,.84,9201,2,7,0)

 +30      ;;=     Scroll Down (one line)                  ARROW DOWN

 +31      ;;^UTILITY(U,$J,.84,9201,2,8,0)

 +32      ;;=     Scroll Up (one line)                    ARROW UP

 +33      ;;^UTILITY(U,$J,.84,9201,2,9,0)

 +34      ;;=     Page Down                               <PF1>ARROW DOWN

 +35      ;;^UTILITY(U,$J,.84,9201,2,10,0)

 +36      ;;=     Page Up                                 <PF1>ARROW UP

 +37      ;;^UTILITY(U,$J,.84,9201,2,11,0)

 +38      ;;=     Scroll Right (default 22 columns)       ARROW RIGHT

 +39      ;;^UTILITY(U,$J,.84,9201,2,12,0)

 +40      ;;=     Scroll Left (default 22 columns)        ARROW LEFT

 +41      ;;^UTILITY(U,$J,.84,9201,2,13,0)

 +42      ;;=     Scroll Horizontally to the end          <PF1>ARROW RIGHT

 +43      ;;^UTILITY(U,$J,.84,9201,2,14,0)

 +44      ;;=     Scroll Horizontally to the end          <PF1>ARROW LEFT

 +45      ;;^UTILITY(U,$J,.84,9201,2,15,0)

 +46      ;;=     Jump to the Top                         <PF1>T

 +47      ;;^UTILITY(U,$J,.84,9201,2,16,0)

 +48      ;;=     Jump to the Bottom                      <PF1>B

 +49      ;;^UTILITY(U,$J,.84,9201,2,17,0)

 +50      ;;=     Goto                                    <PF1>G

 +51      ;;^UTILITY(U,$J,.84,9201,2,18,0)

 +52      ;;=

 +53      ;;^UTILITY(U,$J,.84,9201,2,19,0)

 +54      ;;=SEARCH:

 +55      ;;^UTILITY(U,$J,.84,9201,2,20,0)

 +56      ;;========

 +57      ;;^UTILITY(U,$J,.84,9201,2,21,0)

 +58      ;;=     Find text                               <PF1>F

 +59      ;;^UTILITY(U,$J,.84,9201,2,22,0)

 +60      ;;=     Next (occurrence)                       <PF1>N

 +61      ;;^UTILITY(U,$J,.84,9201,2,23,0)

 +62      ;;=

 +63      ;;^UTILITY(U,$J,.84,9201,2,24,0)

 +64      ;;=     Direction-terminate find text with:

 +65      ;;^UTILITY(U,$J,.84,9201,2,25,0)

 +66      ;;=     -----------------------------------

 +67      ;;^UTILITY(U,$J,.84,9201,2,26,0)

 +68      ;;=     Down                                    ARROW DOWN

 +69      ;;^UTILITY(U,$J,.84,9201,2,27,0)

 +70      ;;=     Up                                      ARROW UP

 +71      ;;^UTILITY(U,$J,.84,9201,2,28,0)

 +72      ;;=

 +73      ;;^UTILITY(U,$J,.84,9201,2,29,0)

 +74      ;;=BRANCH:

 +75      ;;^UTILITY(U,$J,.84,9201,2,30,0)

 +76      ;;========

 +77      ;;^UTILITY(U,$J,.84,9201,2,31,0)

 +78      ;;=     Switch to another document              <PF1>S

 +79      ;;^UTILITY(U,$J,.84,9201,2,32,0)

 +80      ;;=     Return to previous document(s)          R

 +81      ;;^UTILITY(U,$J,.84,9201,2,33,0)

 +82      ;;=

 +83      ;;^UTILITY(U,$J,.84,9201,2,34,0)

 +84      ;;=SCREEN:

 +85      ;;^UTILITY(U,$J,.84,9201,2,35,0)

 +86      ;;========

 +87      ;;^UTILITY(U,$J,.84,9201,2,36,0)

 +88      ;;=     Repaint screen                          <PF1>P

 +89      ;;^UTILITY(U,$J,.84,9201,2,37,0)

 +90      ;;=     Print document                          <PF1><PF1>P

 +91      ;;^UTILITY(U,$J,.84,9201,2,38,0)

 +92      ;;=     Split screen                            <PF2>S

 +93      ;;^UTILITY(U,$J,.84,9201,2,39,0)

 +94      ;;=     restore Full screen                     <PF2>F

 +95      ;;^UTILITY(U,$J,.84,9201,2,40,0)

 +96      ;;=

 +97      ;;^UTILITY(U,$J,.84,9201,2,41,0)

 +98      ;;=     Split Screen Mode Navigation:

 +99      ;;^UTILITY(U,$J,.84,9201,2,42,0)

 +100     ;;=     -----------------------------

 +101     ;;^UTILITY(U,$J,.84,9201,2,43,0)

 +102     ;;=     Navigate to bottom screen              <PF2>ARROW DOWN

 +103     ;;^UTILITY(U,$J,.84,9201,2,44,0)

 +104     ;;=     Navigate to top screen                 <PF2>ARROW UP

 +105     ;;^UTILITY(U,$J,.84,9201,2,45,0)

 +106     ;;=

 +107     ;;^UTILITY(U,$J,.84,9201,2,46,0)

 +108     ;;=     Resize Split Screen:

 +109     ;;^UTILITY(U,$J,.84,9201,2,47,0)

 +110     ;;=     --------------------

 +111     ;;^UTILITY(U,$J,.84,9201,2,48,0)

 +112     ;;=     Top/Bottom screen larger/smaller       <PF2><PF2>ARROW DOWN

 +113     ;;^UTILITY(U,$J,.84,9201,2,49,0)

 +114     ;;=     Bottom/Top screen larger/smaller       <PF2><PF2>ARROW UP

 +115     ;;^UTILITY(U,$J,.84,9201,2,50,0)

 +116     ;;=

 +117     ;;^UTILITY(U,$J,.84,9201,2,51,0)

 +118     ;;=CLIPBOARD:

 +119     ;;^UTILITY(U,$J,.84,9201,2,52,0)

 +120     ;;===========

 +121     ;;^UTILITY(U,$J,.84,9201,2,53,0)

 +122     ;;=     Copy to VA FileMan's Clipboard         <PF1>C

 +123     ;;^UTILITY(U,$J,.84,9201,2,54,0)

 +124     ;;=     View VA FileMan's Clipboard            <PF1>V

 +125     ;;^UTILITY(U,$J,.84,9201,2,55,0)

 +126     ;;=

 +127     ;;^UTILITY(U,$J,.84,9201,2,56,0)

 +128     ;;=TITLE BAR:

 +129     ;;^UTILITY(U,$J,.84,9201,2,57,0)

 +130     ;;===========

 +131     ;;^UTILITY(U,$J,.84,9201,2,58,0)

 +132     ;;=     Change content of title bar,           <PF1><PF1>ARROW DOWN

 +133     ;;^UTILITY(U,$J,.84,9201,2,59,0)

 +134     ;;=     Or                                     <PF1><PF1>ARROW UP

 +135     ;;^UTILITY(U,$J,.84,9201,2,60,0)

 +136     ;;=

 +137     ;;^UTILITY(U,$J,.84,9201,2,61,0)

 +138     ;;=HELP:

 +139     ;;^UTILITY(U,$J,.84,9201,2,62,0)

 +140     ;;======

 +141     ;;^UTILITY(U,$J,.84,9201,2,63,0)

 +142     ;;=     Browse Key Summary                     <PF1>H

 +143     ;;^UTILITY(U,$J,.84,9201,2,64,0)

 +144     ;;=     More Help                              <PF1><PF1>H

 +145     ;;^UTILITY(U,$J,.84,9201,2,65,0)

 +146     ;;=     Print this help text                   <PF1><PF1><PF1>H

 +147     ;;^UTILITY(U,$J,.84,9201,2,66,0)

 +148     ;;=     To Return to document from this help   R

 +149     ;;^UTILITY(U,$J,.84,9201,2,67,0)

 +150     ;;=

 +151     ;;^UTILITY(U,$J,.84,9201,2,68,0)

 +152     ;;=EXIT:

 +153     ;;^UTILITY(U,$J,.84,9201,2,69,0)

 +154     ;;======

 +155     ;;^UTILITY(U,$J,.84,9201,2,70,0)

 +156     ;;=     Exit Browser or help text              <PF1>E or "EXIT"

 +157     ;;^UTILITY(U,$J,.84,9201,2,71,0)

 +158     ;;=     Quit                                   <PF1>Q

 +159     ;;^UTILITY(U,$J,.84,9201,2,72,0)

 +160     ;;=

 +161     ;;^UTILITY(U,$J,.84,9201,2,73,0)

 +162     ;;=

 +163     ;;^UTILITY(U,$J,.84,9201,2,74,0)

 +164     ;;=                                  MORE HELP

 +165     ;;^UTILITY(U,$J,.84,9201,2,75,0)

 +166     ;;=                                  =========

 +167     ;;^UTILITY(U,$J,.84,9201,2,76,0)

 +168     ;;=

 +169     ;;^UTILITY(U,$J,.84,9201,2,77,0)

 +170     ;;=     To EXIT the VA FileMan Browser, press <PF1> followed by the letter

 +171     ;;^UTILITY(U,$J,.84,9201,2,78,0)

 +172     ;;=     'E'.  This is also true for this HELP document which is being

 +173     ;;^UTILITY(U,$J,.84,9201,2,79,0)

 +174     ;;=     presented by the Browser.

 +175     ;;^UTILITY(U,$J,.84,9201,2,80,0)

 +176     ;;=

 +177     ;;^UTILITY(U,$J,.84,9201,2,81,0)

 +178     ;;=     To SCROLL DOWN one line at a time, press the ARROW DOWN key.

 +179     ;;^UTILITY(U,$J,.84,9201,2,82,0)

 +180     ;;=

 +181     ;;^UTILITY(U,$J,.84,9201,2,83,0)

 +182     ;;=     To SCROLL UP one line at a time, press the ARROW UP key.

 +183     ;;^UTILITY(U,$J,.84,9201,2,84,0)

 +184     ;;=

DINIT00P.m