DINIT903 ;GFT/GFT-DIALOG FILE INITS ;3MAY2004
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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,8000,2,1,0)
;;=COMMAND:
;;^UTILITY(U,$J,.84,8000,5,0)
;;=^.841^3^3
;;^UTILITY(U,$J,.84,8000,5,1,0)
;;=DIR0H
;;^UTILITY(U,$J,.84,8000,5,2,0)
;;=DIR02
;;^UTILITY(U,$J,.84,8000,5,3,0)
;;=DDSCOM^EGP
;;^UTILITY(U,$J,.84,8000.1,0)
;;=8000.1^3^^2
;;^UTILITY(U,$J,.84,8000.1,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,8000.1,2,1,0)
;;=Enter a COMMAND, or "^" followed by the CAPTION of a FIELD to jump to.
;;^UTILITY(U,$J,.84,8000.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.1,5,1,0)
;;=DDSCOM^EGP
;;^UTILITY(U,$J,.84,8000.101,0)
;;=8000.101^3^^2
;;^UTILITY(U,$J,.84,8000.101,2,0)
;;=^^1^1^3040501
;;^UTILITY(U,$J,.84,8000.101,2,1,0)
;;=Click on one of the above COMMANDs, or on a FIELD
;;^UTILITY(U,$J,.84,8000.101,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.101,5,1,0)
;;=DDSCOM^EGP
;;^UTILITY(U,$J,.84,8000.11,0)
;;=8000.11^3^^2
;;^UTILITY(U,$J,.84,8000.11,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.11,2,1,0)
;;=Exit the Form
;;^UTILITY(U,$J,.84,8000.11,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.11,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.01,0)
;;=8000.01^3^^2
;;^UTILITY(U,$J,.84,8000.01,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.01,2,1,0)
;;=Exit
;;^UTILITY(U,$J,.84,8000.01,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.01,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.02,0)
;;=8000.02^3^^2
;;^UTILITY(U,$J,.84,8000.02,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.02,2,1,0)
;;=Close
;;^UTILITY(U,$J,.84,8000.02,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.02,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.03,0)
;;=8000.03^3^^2
;;^UTILITY(U,$J,.84,8000.03,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.03,2,1,0)
;;=Save
;;^UTILITY(U,$J,.84,8000.03,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.03,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.04,0)
;;=8000.04^3^^2
;;^UTILITY(U,$J,.84,8000.04,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.04,2,1,0)
;;=Next Page
;;^UTILITY(U,$J,.84,8000.04,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.04,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.05,0)
;;=8000.05^3^^2
;;^UTILITY(U,$J,.84,8000.05,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.05,2,1,0)
;;=Refresh
;;^UTILITY(U,$J,.84,8000.05,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.05,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.06,0)
;;=8000.06^3^^2
;;^UTILITY(U,$J,.84,8000.06,2,0)
;;=^^1^1^3040503
;;^UTILITY(U,$J,.84,8000.06,2,1,0)
;;=Previous Page
;;^UTILITY(U,$J,.84,8000.06,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.06,5,1,0)
;;=DDSCOM;
;;^UTILITY(U,$J,.84,8000.07,0)
;;=8000.07^3^^2
;;^UTILITY(U,$J,.84,8000.07,2,0)
;;=^^1^1^3040503
;;^UTILITY(U,$J,.84,8000.07,2,1,0)
;;=Quit
;;^UTILITY(U,$J,.84,8000.07,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.07,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.11,0)
;;=8000.11^3^^2
;;^UTILITY(U,$J,.84,8000.11,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,8000.11,2,1,0)
;;=Exit the Form
;;^UTILITY(U,$J,.84,8000.11,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.11,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.12,0)
;;=8000.12^3^^2
;;^UTILITY(U,$J,.84,8000.12,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,8000.12,2,1,0)
;;=Close the window and return to previous level
;;^UTILITY(U,$J,.84,8000.12,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.12,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.13,0)
;;=8000.13^3^^2
;;^UTILITY(U,$J,.84,8000.13,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,8000.13,2,1,0)
;;=Save all changes but continue editing
;;^UTILITY(U,$J,.84,8000.13,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.13,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.14,0)
;;=8000.14^3^^2
;;^UTILITY(U,$J,.84,8000.14,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,8000.14,2,1,0)
;;=Go to next page
;;^UTILITY(U,$J,.84,8000.14,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.14,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.15,0)
;;=8000.15^3^^2
;;^UTILITY(U,$J,.84,8000.15,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,8000.15,2,1,0)
;;=Repaint the screen
;;^UTILITY(U,$J,.84,8000.15,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.15,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.16,0)
;;=8000.16^3^^2
;;^UTILITY(U,$J,.84,8000.15,2,0)
;;=^^1^1^3040503
;;^UTILITY(U,$J,.84,8000.16,2,1,0)
;;=Go to previous page
;;^UTILITY(U,$J,.84,8000.16,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.16,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8000.17,0)
;;=8000.17^3^^2
;;^UTILITY(U,$J,.84,8000.17,2,0)
;;=^^1^1^3040503
;;^UTILITY(U,$J,.84,8000.17,2,1,0)
;;=Quit without filing
;;^UTILITY(U,$J,.84,8000.17,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8000.17,5,1,0)
;;=DDSCOM
;;^UTILITY(U,$J,.84,8100,0)
;;=8100^2^^2
;;^UTILITY(U,$J,.84,8100,2,0)
;;=^^1^1^2990908^^
;;^UTILITY(U,$J,.84,8100,2,1,0)
;;=Input to what File:
;;^UTILITY(U,$J,.84,8100,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8100,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8101,0)
;;=8101^2^^2
;;^UTILITY(U,$J,.84,8101,2,0)
;;=^^1^1^2991012^^^^
;;^UTILITY(U,$J,.84,8101,2,1,0)
;;=Output from what File:
;;^UTILITY(U,$J,.84,8101,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8101,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8101.1,0)
;;=8101.1^2^^2
;;^UTILITY(U,$J,.84,8101.1,2,0)
;;=^^1^1^2991012^^
;;^UTILITY(U,$J,.84,8101.1,2,1,0)
;;= START WITH What File:
;;^UTILITY(U,$J,.84,8101.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8101.1,5,1,0)
;;=DICRW1^L+1
;;^UTILITY(U,$J,.84,8101.2,0)
;;=8101.2^2^^2
;;^UTILITY(U,$J,.84,8101.2,2,0)
;;=^^1^1^2991012^^
;;^UTILITY(U,$J,.84,8101.2,2,1,0)
;;= GO TO What File:
;;^UTILITY(U,$J,.84,8101.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8101.2,5,1,0)
;;=DICRW1^C3
;;^UTILITY(U,$J,.84,8102,0)
;;=8102^2^^2
;;^UTILITY(U,$J,.84,8102,2,0)
;;=^^1^1^2990908^
;;^UTILITY(U,$J,.84,8102,2,1,0)
;;=Modify what File:
;;^UTILITY(U,$J,.84,8102,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8102,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8103,0)
;;=8103^2^^2
;;^UTILITY(U,$J,.84,8103,2,0)
;;=^^1^1^2990908^
;;^UTILITY(U,$J,.84,8103,2,1,0)
;;=Extract from what File:
;;^UTILITY(U,$J,.84,8103,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8103,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8104,0)
;;=8104^2^^2
;;^UTILITY(U,$J,.84,8104,2,0)
;;=^^1^1^2990908^
;;^UTILITY(U,$J,.84,8104,2,1,0)
;;=Archive from what File:
;;^UTILITY(U,$J,.84,8104,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8104,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8105,0)
;;=8105^2^^2
;;^UTILITY(U,$J,.84,8105,2,0)
;;=^^1^1^2990908^
;;^UTILITY(U,$J,.84,8105,2,1,0)
;;=Audit from what File:
;;^UTILITY(U,$J,.84,8105,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8105,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8106,0)
;;=8106^2^^2
;;^UTILITY(U,$J,.84,8106,2,0)
;;=^^1^1^2991011^^
;;^UTILITY(U,$J,.84,8106,2,1,0)
;;=Compare Entries in what File:
;;^UTILITY(U,$J,.84,8106,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8106,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8107,0)
;;=8107^2^^2
;;^UTILITY(U,$J,.84,8107,2,0)
;;=^^1^1^2991011^^^
;;^UTILITY(U,$J,.84,8107,2,1,0)
;;=Edit/Create Form for what File:
;;^UTILITY(U,$J,.84,8107,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8107,5,1,0)
;;=DDGFFM
;;^UTILITY(U,$J,.84,8108,0)
;;=8108^2^^2
;;^UTILITY(U,$J,.84,8108,2,0)
;;=^^1^1^2991011^^
;;^UTILITY(U,$J,.84,8108,2,1,0)
;;=Clone Form from what File:
;;^UTILITY(U,$J,.84,8108,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8108,5,1,0)
;;=DDSCLONE^EGP
;;^UTILITY(U,$J,.84,8108.1,0)
;;=8108.1^2^^2
;;^UTILITY(U,$J,.84,8108.1,2,0)
;;=^^1^1^2991011^^^
;;^UTILITY(U,$J,.84,8108.1,2,1,0)
;;=Purge Unused Blocks from what File:
;;^UTILITY(U,$J,.84,8108.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8108.1,5,1,0)
;;=DDSDBLK^EGP
;;^UTILITY(U,$J,.84,8108.2,0)
;;=8108.2^2^^2
;;^UTILITY(U,$J,.84,8108.2,2,0)
;;=^^1^1^2991011^
;;^UTILITY(U,$J,.84,8108.2,2,1,0)
;;=Delete Form for what File:
;;^UTILITY(U,$J,.84,8108.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8108.2,5,1,0)
;;=DDSDFRM^EGP
;;^UTILITY(U,$J,.84,8108.3,0)
;;=8108.3^2^^2
;;^UTILITY(U,$J,.84,8108.3,2,0)
;;=^^1^1^2991011^
;;^UTILITY(U,$J,.84,8108.3,2,1,0)
;;=Run Form from what File:
;;^UTILITY(U,$J,.84,8108.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8108.3,5,1,0)
;;=DDSRUN^EGP
;;^UTILITY(U,$J,.84,8109,0)
;;=8109^2^y^2
;;^UTILITY(U,$J,.84,8109,2,0)
;;=^^1^1^2990531^^
;;^UTILITY(U,$J,.84,8109,2,1,0)
;;=|1| Search
;;^UTILITY(U,$J,.84,8109,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8109,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8109,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8109,5,1,0)
;;=DIP3^HD
;;^UTILITY(U,$J,.84,8110,0)
;;=8110^2^y^2
;;^UTILITY(U,$J,.84,8110,2,0)
;;=^^1^1^2990531^^
;;^UTILITY(U,$J,.84,8110,2,1,0)
;;=|1| Statistics
;;^UTILITY(U,$J,.84,8110,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8110,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8110,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8110,5,1,0)
;;=DIP3^HD
;;^UTILITY(U,$J,.84,8111,0)
;;=8111^2^y^2
;;^UTILITY(U,$J,.84,8111,2,0)
;;=^^1^1^2990531^^^
;;^UTILITY(U,$J,.84,8111,2,1,0)
;;=|1| Extract Search
;;^UTILITY(U,$J,.84,8111,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8111,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8111,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8111,5,1,0)
;;=DIP3^HD
;;^UTILITY(U,$J,.84,8112,0)
;;=8112^2^y^2
;;^UTILITY(U,$J,.84,8112,2,0)
;;=^^1^1^2990706^^^^
;;^UTILITY(U,$J,.84,8112,2,1,0)
;;=|1| Archive Search
;;^UTILITY(U,$J,.84,8112,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8112,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8112,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8112,5,1,0)
;;=DIP3^HD
;;^UTILITY(U,$J,.84,8113,0)
;;=8113^2^y^2
;;^UTILITY(U,$J,.84,8113,2,0)
;;=^^1^1^2990710^^^^
;;^UTILITY(U,$J,.84,8113,2,1,0)
;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE |1|
;;^UTILITY(U,$J,.84,8113,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8113,3,1,0)
;;=1^Name of File or Sub-File
;;^UTILITY(U,$J,.84,8113,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8113,5,1,0)
;;=DIE2^D+1
;;^UTILITY(U,$J,.84,8114,0)
;;=8114^2^^2
;;^UTILITY(U,$J,.84,8114,2,0)
;;=^^1^1^2990710^^^^
;;^UTILITY(U,$J,.84,8114,2,1,0)
;;=<NOTHING DELETED>
;;^UTILITY(U,$J,.84,8114,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8114,5,1,0)
;;=DIE2^N
;;^UTILITY(U,$J,.84,8114,5,2,0)
;;=DIWE3^D+5
;;^UTILITY(U,$J,.84,8115,0)
;;=8115^2^^2
;;^UTILITY(U,$J,.84,8115,2,0)
;;=^^1^1^2990710^^^
;;^UTILITY(U,$J,.84,8115,2,1,0)
;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE TEXT
;;^UTILITY(U,$J,.84,8115,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8115,5,1,0)
;;=DIWE3^D+4
;;^UTILITY(U,$J,.84,8116,0)
;;=8116^2^y^2
;;^UTILITY(U,$J,.84,8116,2,0)
;;=1
;;^UTILITY(U,$J,.84,8116,2,1,0)
;;=OK TO REMOVE |1| LINE(S)
;;^UTILITY(U,$J,.84,8116,3,0)
;;=^.845^1^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT903 11551 printed Sep 23, 2025@20:28:02 Page 2
DINIT903 ;GFT/GFT-DIALOG FILE INITS ;3MAY2004
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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,8000,2,1,0)
+2 ;;=COMMAND:
+3 ;;^UTILITY(U,$J,.84,8000,5,0)
+4 ;;=^.841^3^3
+5 ;;^UTILITY(U,$J,.84,8000,5,1,0)
+6 ;;=DIR0H
+7 ;;^UTILITY(U,$J,.84,8000,5,2,0)
+8 ;;=DIR02
+9 ;;^UTILITY(U,$J,.84,8000,5,3,0)
+10 ;;=DDSCOM^EGP
+11 ;;^UTILITY(U,$J,.84,8000.1,0)
+12 ;;=8000.1^3^^2
+13 ;;^UTILITY(U,$J,.84,8000.1,2,0)
+14 ;;=^^1^1^2991028^
+15 ;;^UTILITY(U,$J,.84,8000.1,2,1,0)
+16 ;;=Enter a COMMAND, or "^" followed by the CAPTION of a FIELD to jump to.
+17 ;;^UTILITY(U,$J,.84,8000.1,5,0)
+18 ;;=^.841^1^1
+19 ;;^UTILITY(U,$J,.84,8000.1,5,1,0)
+20 ;;=DDSCOM^EGP
+21 ;;^UTILITY(U,$J,.84,8000.101,0)
+22 ;;=8000.101^3^^2
+23 ;;^UTILITY(U,$J,.84,8000.101,2,0)
+24 ;;=^^1^1^3040501
+25 ;;^UTILITY(U,$J,.84,8000.101,2,1,0)
+26 ;;=Click on one of the above COMMANDs, or on a FIELD
+27 ;;^UTILITY(U,$J,.84,8000.101,5,0)
+28 ;;=^.841^1^1
+29 ;;^UTILITY(U,$J,.84,8000.101,5,1,0)
+30 ;;=DDSCOM^EGP
+31 ;;^UTILITY(U,$J,.84,8000.11,0)
+32 ;;=8000.11^3^^2
+33 ;;^UTILITY(U,$J,.84,8000.11,2,0)
+34 ;;=^^1^1^2991028^^^
+35 ;;^UTILITY(U,$J,.84,8000.11,2,1,0)
+36 ;;=Exit the Form
+37 ;;^UTILITY(U,$J,.84,8000.11,5,0)
+38 ;;=^.841^1^1
+39 ;;^UTILITY(U,$J,.84,8000.11,5,1,0)
+40 ;;=DDSCOM
+41 ;;^UTILITY(U,$J,.84,8000.01,0)
+42 ;;=8000.01^3^^2
+43 ;;^UTILITY(U,$J,.84,8000.01,2,0)
+44 ;;=^^1^1^2991028^^^
+45 ;;^UTILITY(U,$J,.84,8000.01,2,1,0)
+46 ;;=Exit
+47 ;;^UTILITY(U,$J,.84,8000.01,5,0)
+48 ;;=^.841^1^1
+49 ;;^UTILITY(U,$J,.84,8000.01,5,1,0)
+50 ;;=DDSCOM
+51 ;;^UTILITY(U,$J,.84,8000.02,0)
+52 ;;=8000.02^3^^2
+53 ;;^UTILITY(U,$J,.84,8000.02,2,0)
+54 ;;=^^1^1^2991028^^^
+55 ;;^UTILITY(U,$J,.84,8000.02,2,1,0)
+56 ;;=Close
+57 ;;^UTILITY(U,$J,.84,8000.02,5,0)
+58 ;;=^.841^1^1
+59 ;;^UTILITY(U,$J,.84,8000.02,5,1,0)
+60 ;;=DDSCOM
+61 ;;^UTILITY(U,$J,.84,8000.03,0)
+62 ;;=8000.03^3^^2
+63 ;;^UTILITY(U,$J,.84,8000.03,2,0)
+64 ;;=^^1^1^2991028^^^
+65 ;;^UTILITY(U,$J,.84,8000.03,2,1,0)
+66 ;;=Save
+67 ;;^UTILITY(U,$J,.84,8000.03,5,0)
+68 ;;=^.841^1^1
+69 ;;^UTILITY(U,$J,.84,8000.03,5,1,0)
+70 ;;=DDSCOM
+71 ;;^UTILITY(U,$J,.84,8000.04,0)
+72 ;;=8000.04^3^^2
+73 ;;^UTILITY(U,$J,.84,8000.04,2,0)
+74 ;;=^^1^1^2991028^^^
+75 ;;^UTILITY(U,$J,.84,8000.04,2,1,0)
+76 ;;=Next Page
+77 ;;^UTILITY(U,$J,.84,8000.04,5,0)
+78 ;;=^.841^1^1
+79 ;;^UTILITY(U,$J,.84,8000.04,5,1,0)
+80 ;;=DDSCOM
+81 ;;^UTILITY(U,$J,.84,8000.05,0)
+82 ;;=8000.05^3^^2
+83 ;;^UTILITY(U,$J,.84,8000.05,2,0)
+84 ;;=^^1^1^2991028^^^
+85 ;;^UTILITY(U,$J,.84,8000.05,2,1,0)
+86 ;;=Refresh
+87 ;;^UTILITY(U,$J,.84,8000.05,5,0)
+88 ;;=^.841^1^1
+89 ;;^UTILITY(U,$J,.84,8000.05,5,1,0)
+90 ;;=DDSCOM
+91 ;;^UTILITY(U,$J,.84,8000.06,0)
+92 ;;=8000.06^3^^2
+93 ;;^UTILITY(U,$J,.84,8000.06,2,0)
+94 ;;=^^1^1^3040503
+95 ;;^UTILITY(U,$J,.84,8000.06,2,1,0)
+96 ;;=Previous Page
+97 ;;^UTILITY(U,$J,.84,8000.06,5,0)
+98 ;;=^.841^1^1
+99 ;;^UTILITY(U,$J,.84,8000.06,5,1,0)
+100 ;;=DDSCOM;
+101 ;;^UTILITY(U,$J,.84,8000.07,0)
+102 ;;=8000.07^3^^2
+103 ;;^UTILITY(U,$J,.84,8000.07,2,0)
+104 ;;=^^1^1^3040503
+105 ;;^UTILITY(U,$J,.84,8000.07,2,1,0)
+106 ;;=Quit
+107 ;;^UTILITY(U,$J,.84,8000.07,5,0)
+108 ;;=^.841^1^1
+109 ;;^UTILITY(U,$J,.84,8000.07,5,1,0)
+110 ;;=DDSCOM
+111 ;;^UTILITY(U,$J,.84,8000.11,0)
+112 ;;=8000.11^3^^2
+113 ;;^UTILITY(U,$J,.84,8000.11,2,0)
+114 ;;=^^1^1^2991028^^^
+115 ;;^UTILITY(U,$J,.84,8000.11,2,1,0)
+116 ;;=Exit the Form
+117 ;;^UTILITY(U,$J,.84,8000.11,5,0)
+118 ;;=^.841^1^1
+119 ;;^UTILITY(U,$J,.84,8000.11,5,1,0)
+120 ;;=DDSCOM
+121 ;;^UTILITY(U,$J,.84,8000.12,0)
+122 ;;=8000.12^3^^2
+123 ;;^UTILITY(U,$J,.84,8000.12,2,0)
+124 ;;=^^1^1^2991028^^
+125 ;;^UTILITY(U,$J,.84,8000.12,2,1,0)
+126 ;;=Close the window and return to previous level
+127 ;;^UTILITY(U,$J,.84,8000.12,5,0)
+128 ;;=^.841^1^1
+129 ;;^UTILITY(U,$J,.84,8000.12,5,1,0)
+130 ;;=DDSCOM
+131 ;;^UTILITY(U,$J,.84,8000.13,0)
+132 ;;=8000.13^3^^2
+133 ;;^UTILITY(U,$J,.84,8000.13,2,0)
+134 ;;=^^1^1^2991028^^
+135 ;;^UTILITY(U,$J,.84,8000.13,2,1,0)
+136 ;;=Save all changes but continue editing
+137 ;;^UTILITY(U,$J,.84,8000.13,5,0)
+138 ;;=^.841^1^1
+139 ;;^UTILITY(U,$J,.84,8000.13,5,1,0)
+140 ;;=DDSCOM
+141 ;;^UTILITY(U,$J,.84,8000.14,0)
+142 ;;=8000.14^3^^2
+143 ;;^UTILITY(U,$J,.84,8000.14,2,0)
+144 ;;=^^1^1^2991028^^
+145 ;;^UTILITY(U,$J,.84,8000.14,2,1,0)
+146 ;;=Go to next page
+147 ;;^UTILITY(U,$J,.84,8000.14,5,0)
+148 ;;=^.841^1^1
+149 ;;^UTILITY(U,$J,.84,8000.14,5,1,0)
+150 ;;=DDSCOM
+151 ;;^UTILITY(U,$J,.84,8000.15,0)
+152 ;;=8000.15^3^^2
+153 ;;^UTILITY(U,$J,.84,8000.15,2,0)
+154 ;;=^^1^1^2991028^^
+155 ;;^UTILITY(U,$J,.84,8000.15,2,1,0)
+156 ;;=Repaint the screen
+157 ;;^UTILITY(U,$J,.84,8000.15,5,0)
+158 ;;=^.841^1^1
+159 ;;^UTILITY(U,$J,.84,8000.15,5,1,0)
+160 ;;=DDSCOM
+161 ;;^UTILITY(U,$J,.84,8000.16,0)
+162 ;;=8000.16^3^^2
+163 ;;^UTILITY(U,$J,.84,8000.15,2,0)
+164 ;;=^^1^1^3040503
+165 ;;^UTILITY(U,$J,.84,8000.16,2,1,0)
+166 ;;=Go to previous page
+167 ;;^UTILITY(U,$J,.84,8000.16,5,0)
+168 ;;=^.841^1^1
+169 ;;^UTILITY(U,$J,.84,8000.16,5,1,0)
+170 ;;=DDSCOM
+171 ;;^UTILITY(U,$J,.84,8000.17,0)
+172 ;;=8000.17^3^^2
+173 ;;^UTILITY(U,$J,.84,8000.17,2,0)
+174 ;;=^^1^1^3040503
+175 ;;^UTILITY(U,$J,.84,8000.17,2,1,0)
+176 ;;=Quit without filing
+177 ;;^UTILITY(U,$J,.84,8000.17,5,0)
+178 ;;=^.841^1^1
+179 ;;^UTILITY(U,$J,.84,8000.17,5,1,0)
+180 ;;=DDSCOM
+181 ;;^UTILITY(U,$J,.84,8100,0)
+182 ;;=8100^2^^2
+183 ;;^UTILITY(U,$J,.84,8100,2,0)
+184 ;;=^^1^1^2990908^^
+185 ;;^UTILITY(U,$J,.84,8100,2,1,0)
+186 ;;=Input to what File:
+187 ;;^UTILITY(U,$J,.84,8100,5,0)
+188 ;;=^.841^1^1
+189 ;;^UTILITY(U,$J,.84,8100,5,1,0)
+190 ;;=DICRW
+191 ;;^UTILITY(U,$J,.84,8101,0)
+192 ;;=8101^2^^2
+193 ;;^UTILITY(U,$J,.84,8101,2,0)
+194 ;;=^^1^1^2991012^^^^
+195 ;;^UTILITY(U,$J,.84,8101,2,1,0)
+196 ;;=Output from what File:
+197 ;;^UTILITY(U,$J,.84,8101,5,0)
+198 ;;=^.841^1^1
+199 ;;^UTILITY(U,$J,.84,8101,5,1,0)
+200 ;;=DICRW
+201 ;;^UTILITY(U,$J,.84,8101.1,0)
+202 ;;=8101.1^2^^2
+203 ;;^UTILITY(U,$J,.84,8101.1,2,0)
+204 ;;=^^1^1^2991012^^
+205 ;;^UTILITY(U,$J,.84,8101.1,2,1,0)
+206 ;;= START WITH What File:
+207 ;;^UTILITY(U,$J,.84,8101.1,5,0)
+208 ;;=^.841^1^1
+209 ;;^UTILITY(U,$J,.84,8101.1,5,1,0)
+210 ;;=DICRW1^L+1
+211 ;;^UTILITY(U,$J,.84,8101.2,0)
+212 ;;=8101.2^2^^2
+213 ;;^UTILITY(U,$J,.84,8101.2,2,0)
+214 ;;=^^1^1^2991012^^
+215 ;;^UTILITY(U,$J,.84,8101.2,2,1,0)
+216 ;;= GO TO What File:
+217 ;;^UTILITY(U,$J,.84,8101.2,5,0)
+218 ;;=^.841^1^1
+219 ;;^UTILITY(U,$J,.84,8101.2,5,1,0)
+220 ;;=DICRW1^C3
+221 ;;^UTILITY(U,$J,.84,8102,0)
+222 ;;=8102^2^^2
+223 ;;^UTILITY(U,$J,.84,8102,2,0)
+224 ;;=^^1^1^2990908^
+225 ;;^UTILITY(U,$J,.84,8102,2,1,0)
+226 ;;=Modify what File:
+227 ;;^UTILITY(U,$J,.84,8102,5,0)
+228 ;;=^.841^1^1
+229 ;;^UTILITY(U,$J,.84,8102,5,1,0)
+230 ;;=DICRW
+231 ;;^UTILITY(U,$J,.84,8103,0)
+232 ;;=8103^2^^2
+233 ;;^UTILITY(U,$J,.84,8103,2,0)
+234 ;;=^^1^1^2990908^
+235 ;;^UTILITY(U,$J,.84,8103,2,1,0)
+236 ;;=Extract from what File:
+237 ;;^UTILITY(U,$J,.84,8103,5,0)
+238 ;;=^.841^1^1
+239 ;;^UTILITY(U,$J,.84,8103,5,1,0)
+240 ;;=DICRW
+241 ;;^UTILITY(U,$J,.84,8104,0)
+242 ;;=8104^2^^2
+243 ;;^UTILITY(U,$J,.84,8104,2,0)
+244 ;;=^^1^1^2990908^
+245 ;;^UTILITY(U,$J,.84,8104,2,1,0)
+246 ;;=Archive from what File:
+247 ;;^UTILITY(U,$J,.84,8104,5,0)
+248 ;;=^.841^1^1
+249 ;;^UTILITY(U,$J,.84,8104,5,1,0)
+250 ;;=DICRW
+251 ;;^UTILITY(U,$J,.84,8105,0)
+252 ;;=8105^2^^2
+253 ;;^UTILITY(U,$J,.84,8105,2,0)
+254 ;;=^^1^1^2990908^
+255 ;;^UTILITY(U,$J,.84,8105,2,1,0)
+256 ;;=Audit from what File:
+257 ;;^UTILITY(U,$J,.84,8105,5,0)
+258 ;;=^.841^1^1
+259 ;;^UTILITY(U,$J,.84,8105,5,1,0)
+260 ;;=DICRW
+261 ;;^UTILITY(U,$J,.84,8106,0)
+262 ;;=8106^2^^2
+263 ;;^UTILITY(U,$J,.84,8106,2,0)
+264 ;;=^^1^1^2991011^^
+265 ;;^UTILITY(U,$J,.84,8106,2,1,0)
+266 ;;=Compare Entries in what File:
+267 ;;^UTILITY(U,$J,.84,8106,5,0)
+268 ;;=^.841^1^1
+269 ;;^UTILITY(U,$J,.84,8106,5,1,0)
+270 ;;=DICRW
+271 ;;^UTILITY(U,$J,.84,8107,0)
+272 ;;=8107^2^^2
+273 ;;^UTILITY(U,$J,.84,8107,2,0)
+274 ;;=^^1^1^2991011^^^
+275 ;;^UTILITY(U,$J,.84,8107,2,1,0)
+276 ;;=Edit/Create Form for what File:
+277 ;;^UTILITY(U,$J,.84,8107,5,0)
+278 ;;=^.841^1^1
+279 ;;^UTILITY(U,$J,.84,8107,5,1,0)
+280 ;;=DDGFFM
+281 ;;^UTILITY(U,$J,.84,8108,0)
+282 ;;=8108^2^^2
+283 ;;^UTILITY(U,$J,.84,8108,2,0)
+284 ;;=^^1^1^2991011^^
+285 ;;^UTILITY(U,$J,.84,8108,2,1,0)
+286 ;;=Clone Form from what File:
+287 ;;^UTILITY(U,$J,.84,8108,5,0)
+288 ;;=^.841^1^1
+289 ;;^UTILITY(U,$J,.84,8108,5,1,0)
+290 ;;=DDSCLONE^EGP
+291 ;;^UTILITY(U,$J,.84,8108.1,0)
+292 ;;=8108.1^2^^2
+293 ;;^UTILITY(U,$J,.84,8108.1,2,0)
+294 ;;=^^1^1^2991011^^^
+295 ;;^UTILITY(U,$J,.84,8108.1,2,1,0)
+296 ;;=Purge Unused Blocks from what File:
+297 ;;^UTILITY(U,$J,.84,8108.1,5,0)
+298 ;;=^.841^1^1
+299 ;;^UTILITY(U,$J,.84,8108.1,5,1,0)
+300 ;;=DDSDBLK^EGP
+301 ;;^UTILITY(U,$J,.84,8108.2,0)
+302 ;;=8108.2^2^^2
+303 ;;^UTILITY(U,$J,.84,8108.2,2,0)
+304 ;;=^^1^1^2991011^
+305 ;;^UTILITY(U,$J,.84,8108.2,2,1,0)
+306 ;;=Delete Form for what File:
+307 ;;^UTILITY(U,$J,.84,8108.2,5,0)
+308 ;;=^.841^1^1
+309 ;;^UTILITY(U,$J,.84,8108.2,5,1,0)
+310 ;;=DDSDFRM^EGP
+311 ;;^UTILITY(U,$J,.84,8108.3,0)
+312 ;;=8108.3^2^^2
+313 ;;^UTILITY(U,$J,.84,8108.3,2,0)
+314 ;;=^^1^1^2991011^
+315 ;;^UTILITY(U,$J,.84,8108.3,2,1,0)
+316 ;;=Run Form from what File:
+317 ;;^UTILITY(U,$J,.84,8108.3,5,0)
+318 ;;=^.841^1^1
+319 ;;^UTILITY(U,$J,.84,8108.3,5,1,0)
+320 ;;=DDSRUN^EGP
+321 ;;^UTILITY(U,$J,.84,8109,0)
+322 ;;=8109^2^y^2
+323 ;;^UTILITY(U,$J,.84,8109,2,0)
+324 ;;=^^1^1^2990531^^
+325 ;;^UTILITY(U,$J,.84,8109,2,1,0)
+326 ;;=|1| Search
+327 ;;^UTILITY(U,$J,.84,8109,3,0)
+328 ;;=^.845^1^1
+329 ;;^UTILITY(U,$J,.84,8109,3,1,0)
+330 ;;=1^Filename
+331 ;;^UTILITY(U,$J,.84,8109,5,0)
+332 ;;=^.841^1^1
+333 ;;^UTILITY(U,$J,.84,8109,5,1,0)
+334 ;;=DIP3^HD
+335 ;;^UTILITY(U,$J,.84,8110,0)
+336 ;;=8110^2^y^2
+337 ;;^UTILITY(U,$J,.84,8110,2,0)
+338 ;;=^^1^1^2990531^^
+339 ;;^UTILITY(U,$J,.84,8110,2,1,0)
+340 ;;=|1| Statistics
+341 ;;^UTILITY(U,$J,.84,8110,3,0)
+342 ;;=^.845^1^1
+343 ;;^UTILITY(U,$J,.84,8110,3,1,0)
+344 ;;=1^Filename
+345 ;;^UTILITY(U,$J,.84,8110,5,0)
+346 ;;=^.841^1^1
+347 ;;^UTILITY(U,$J,.84,8110,5,1,0)
+348 ;;=DIP3^HD
+349 ;;^UTILITY(U,$J,.84,8111,0)
+350 ;;=8111^2^y^2
+351 ;;^UTILITY(U,$J,.84,8111,2,0)
+352 ;;=^^1^1^2990531^^^
+353 ;;^UTILITY(U,$J,.84,8111,2,1,0)
+354 ;;=|1| Extract Search
+355 ;;^UTILITY(U,$J,.84,8111,3,0)
+356 ;;=^.845^1^1
+357 ;;^UTILITY(U,$J,.84,8111,3,1,0)
+358 ;;=1^Filename
+359 ;;^UTILITY(U,$J,.84,8111,5,0)
+360 ;;=^.841^1^1
+361 ;;^UTILITY(U,$J,.84,8111,5,1,0)
+362 ;;=DIP3^HD
+363 ;;^UTILITY(U,$J,.84,8112,0)
+364 ;;=8112^2^y^2
+365 ;;^UTILITY(U,$J,.84,8112,2,0)
+366 ;;=^^1^1^2990706^^^^
+367 ;;^UTILITY(U,$J,.84,8112,2,1,0)
+368 ;;=|1| Archive Search
+369 ;;^UTILITY(U,$J,.84,8112,3,0)
+370 ;;=^.845^1^1
+371 ;;^UTILITY(U,$J,.84,8112,3,1,0)
+372 ;;=1^Filename
+373 ;;^UTILITY(U,$J,.84,8112,5,0)
+374 ;;=^.841^1^1
+375 ;;^UTILITY(U,$J,.84,8112,5,1,0)
+376 ;;=DIP3^HD
+377 ;;^UTILITY(U,$J,.84,8113,0)
+378 ;;=8113^2^y^2
+379 ;;^UTILITY(U,$J,.84,8113,2,0)
+380 ;;=^^1^1^2990710^^^^
+381 ;;^UTILITY(U,$J,.84,8113,2,1,0)
+382 ;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE |1|
+383 ;;^UTILITY(U,$J,.84,8113,3,0)
+384 ;;=^.845^1^1
+385 ;;^UTILITY(U,$J,.84,8113,3,1,0)
+386 ;;=1^Name of File or Sub-File
+387 ;;^UTILITY(U,$J,.84,8113,5,0)
+388 ;;=^.841^1^1
+389 ;;^UTILITY(U,$J,.84,8113,5,1,0)
+390 ;;=DIE2^D+1
+391 ;;^UTILITY(U,$J,.84,8114,0)
+392 ;;=8114^2^^2
+393 ;;^UTILITY(U,$J,.84,8114,2,0)
+394 ;;=^^1^1^2990710^^^^
+395 ;;^UTILITY(U,$J,.84,8114,2,1,0)
+396 ;;=<NOTHING DELETED>
+397 ;;^UTILITY(U,$J,.84,8114,5,0)
+398 ;;=^.841^2^2
+399 ;;^UTILITY(U,$J,.84,8114,5,1,0)
+400 ;;=DIE2^N
+401 ;;^UTILITY(U,$J,.84,8114,5,2,0)
+402 ;;=DIWE3^D+5
+403 ;;^UTILITY(U,$J,.84,8115,0)
+404 ;;=8115^2^^2
+405 ;;^UTILITY(U,$J,.84,8115,2,0)
+406 ;;=^^1^1^2990710^^^
+407 ;;^UTILITY(U,$J,.84,8115,2,1,0)
+408 ;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE TEXT
+409 ;;^UTILITY(U,$J,.84,8115,5,0)
+410 ;;=^.841^1^1
+411 ;;^UTILITY(U,$J,.84,8115,5,1,0)
+412 ;;=DIWE3^D+4
+413 ;;^UTILITY(U,$J,.84,8116,0)
+414 ;;=8116^2^y^2
+415 ;;^UTILITY(U,$J,.84,8116,2,0)
+416 ;;=1
+417 ;;^UTILITY(U,$J,.84,8116,2,1,0)
+418 ;;=OK TO REMOVE |1| LINE(S)
+419 ;;^UTILITY(U,$J,.84,8116,3,0)
+420 ;;=^.845^1^1
