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

DINIT903.m

Go to the documentation of this file. 
  1. DINIT903 ;GFT/GFT-DIALOG FILE INITS ;3MAY2004
  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,8000,2,1,0)
  1.  ;;=COMMAND:
  1.  ;;^UTILITY(U,$J,.84,8000,5,0)
  1.  ;;=^.841^3^3
  1.  ;;^UTILITY(U,$J,.84,8000,5,1,0)
  1.  ;;=DIR0H
  1.  ;;^UTILITY(U,$J,.84,8000,5,2,0)
  1.  ;;=DIR02
  1.  ;;^UTILITY(U,$J,.84,8000,5,3,0)
  1.  ;;=DDSCOM^EGP
  1.  ;;^UTILITY(U,$J,.84,8000.1,0)
  1.  ;;=8000.1^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.1,2,0)
  1.  ;;=^^1^1^2991028^
  1.  ;;^UTILITY(U,$J,.84,8000.1,2,1,0)
  1.  ;;=Enter a COMMAND, or "^" followed by the CAPTION of a FIELD to jump to.
  1.  ;;^UTILITY(U,$J,.84,8000.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.1,5,1,0)
  1.  ;;=DDSCOM^EGP
  1.  ;;^UTILITY(U,$J,.84,8000.101,0)
  1.  ;;=8000.101^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.101,2,0)
  1.  ;;=^^1^1^3040501
  1.  ;;^UTILITY(U,$J,.84,8000.101,2,1,0)
  1.  ;;=Click on one of the above COMMANDs, or on a FIELD
  1.  ;;^UTILITY(U,$J,.84,8000.101,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.101,5,1,0)
  1.  ;;=DDSCOM^EGP
  1.  ;;^UTILITY(U,$J,.84,8000.11,0)
  1.  ;;=8000.11^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.11,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.11,2,1,0)
  1.  ;;=Exit the Form
  1.  ;;^UTILITY(U,$J,.84,8000.11,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.11,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.01,0)
  1.  ;;=8000.01^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.01,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.01,2,1,0)
  1.  ;;=Exit
  1.  ;;^UTILITY(U,$J,.84,8000.01,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.01,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.02,0)
  1.  ;;=8000.02^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.02,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.02,2,1,0)
  1.  ;;=Close
  1.  ;;^UTILITY(U,$J,.84,8000.02,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.02,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.03,0)
  1.  ;;=8000.03^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.03,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.03,2,1,0)
  1.  ;;=Save
  1.  ;;^UTILITY(U,$J,.84,8000.03,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.03,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.04,0)
  1.  ;;=8000.04^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.04,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.04,2,1,0)
  1.  ;;=Next Page
  1.  ;;^UTILITY(U,$J,.84,8000.04,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.04,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.05,0)
  1.  ;;=8000.05^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.05,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.05,2,1,0)
  1.  ;;=Refresh
  1.  ;;^UTILITY(U,$J,.84,8000.05,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.05,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.06,0)
  1.  ;;=8000.06^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.06,2,0)
  1.  ;;=^^1^1^3040503
  1.  ;;^UTILITY(U,$J,.84,8000.06,2,1,0)
  1.  ;;=Previous Page
  1.  ;;^UTILITY(U,$J,.84,8000.06,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.06,5,1,0)
  1.  ;;=DDSCOM;
  1.  ;;^UTILITY(U,$J,.84,8000.07,0)
  1.  ;;=8000.07^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.07,2,0)
  1.  ;;=^^1^1^3040503
  1.  ;;^UTILITY(U,$J,.84,8000.07,2,1,0)
  1.  ;;=Quit
  1.  ;;^UTILITY(U,$J,.84,8000.07,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.07,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.11,0)
  1.  ;;=8000.11^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.11,2,0)
  1.  ;;=^^1^1^2991028^^^
  1.  ;;^UTILITY(U,$J,.84,8000.11,2,1,0)
  1.  ;;=Exit the Form
  1.  ;;^UTILITY(U,$J,.84,8000.11,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.11,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.12,0)
  1.  ;;=8000.12^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.12,2,0)
  1.  ;;=^^1^1^2991028^^
  1.  ;;^UTILITY(U,$J,.84,8000.12,2,1,0)
  1.  ;;=Close the window and return to previous level
  1.  ;;^UTILITY(U,$J,.84,8000.12,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.12,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.13,0)
  1.  ;;=8000.13^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.13,2,0)
  1.  ;;=^^1^1^2991028^^
  1.  ;;^UTILITY(U,$J,.84,8000.13,2,1,0)
  1.  ;;=Save all changes but continue editing
  1.  ;;^UTILITY(U,$J,.84,8000.13,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.13,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.14,0)
  1.  ;;=8000.14^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.14,2,0)
  1.  ;;=^^1^1^2991028^^
  1.  ;;^UTILITY(U,$J,.84,8000.14,2,1,0)
  1.  ;;=Go to next page
  1.  ;;^UTILITY(U,$J,.84,8000.14,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.14,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.15,0)
  1.  ;;=8000.15^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.15,2,0)
  1.  ;;=^^1^1^2991028^^
  1.  ;;^UTILITY(U,$J,.84,8000.15,2,1,0)
  1.  ;;=Repaint the screen
  1.  ;;^UTILITY(U,$J,.84,8000.15,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.15,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.16,0)
  1.  ;;=8000.16^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.15,2,0)
  1.  ;;=^^1^1^3040503
  1.  ;;^UTILITY(U,$J,.84,8000.16,2,1,0)
  1.  ;;=Go to previous page
  1.  ;;^UTILITY(U,$J,.84,8000.16,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.16,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8000.17,0)
  1.  ;;=8000.17^3^^2
  1.  ;;^UTILITY(U,$J,.84,8000.17,2,0)
  1.  ;;=^^1^1^3040503
  1.  ;;^UTILITY(U,$J,.84,8000.17,2,1,0)
  1.  ;;=Quit without filing
  1.  ;;^UTILITY(U,$J,.84,8000.17,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8000.17,5,1,0)
  1.  ;;=DDSCOM
  1.  ;;^UTILITY(U,$J,.84,8100,0)
  1.  ;;=8100^2^^2
  1.  ;;^UTILITY(U,$J,.84,8100,2,0)
  1.  ;;=^^1^1^2990908^^
  1.  ;;^UTILITY(U,$J,.84,8100,2,1,0)
  1.  ;;=Input to what File: 
  1.  ;;^UTILITY(U,$J,.84,8100,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8100,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8101,0)
  1.  ;;=8101^2^^2
  1.  ;;^UTILITY(U,$J,.84,8101,2,0)
  1.  ;;=^^1^1^2991012^^^^
  1.  ;;^UTILITY(U,$J,.84,8101,2,1,0)
  1.  ;;=Output from what File: 
  1.  ;;^UTILITY(U,$J,.84,8101,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8101,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8101.1,0)
  1.  ;;=8101.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8101.1,2,0)
  1.  ;;=^^1^1^2991012^^
  1.  ;;^UTILITY(U,$J,.84,8101.1,2,1,0)
  1.  ;;= START WITH What File: 
  1.  ;;^UTILITY(U,$J,.84,8101.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8101.1,5,1,0)
  1.  ;;=DICRW1^L+1
  1.  ;;^UTILITY(U,$J,.84,8101.2,0)
  1.  ;;=8101.2^2^^2
  1.  ;;^UTILITY(U,$J,.84,8101.2,2,0)
  1.  ;;=^^1^1^2991012^^
  1.  ;;^UTILITY(U,$J,.84,8101.2,2,1,0)
  1.  ;;=      GO TO What File: 
  1.  ;;^UTILITY(U,$J,.84,8101.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8101.2,5,1,0)
  1.  ;;=DICRW1^C3
  1.  ;;^UTILITY(U,$J,.84,8102,0)
  1.  ;;=8102^2^^2
  1.  ;;^UTILITY(U,$J,.84,8102,2,0)
  1.  ;;=^^1^1^2990908^
  1.  ;;^UTILITY(U,$J,.84,8102,2,1,0)
  1.  ;;=Modify what File: 
  1.  ;;^UTILITY(U,$J,.84,8102,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8102,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8103,0)
  1.  ;;=8103^2^^2
  1.  ;;^UTILITY(U,$J,.84,8103,2,0)
  1.  ;;=^^1^1^2990908^
  1.  ;;^UTILITY(U,$J,.84,8103,2,1,0)
  1.  ;;=Extract from what File: 
  1.  ;;^UTILITY(U,$J,.84,8103,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8103,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8104,0)
  1.  ;;=8104^2^^2
  1.  ;;^UTILITY(U,$J,.84,8104,2,0)
  1.  ;;=^^1^1^2990908^
  1.  ;;^UTILITY(U,$J,.84,8104,2,1,0)
  1.  ;;=Archive from what File: 
  1.  ;;^UTILITY(U,$J,.84,8104,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8104,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8105,0)
  1.  ;;=8105^2^^2
  1.  ;;^UTILITY(U,$J,.84,8105,2,0)
  1.  ;;=^^1^1^2990908^
  1.  ;;^UTILITY(U,$J,.84,8105,2,1,0)
  1.  ;;=Audit from what File: 
  1.  ;;^UTILITY(U,$J,.84,8105,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8105,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8106,0)
  1.  ;;=8106^2^^2
  1.  ;;^UTILITY(U,$J,.84,8106,2,0)
  1.  ;;=^^1^1^2991011^^
  1.  ;;^UTILITY(U,$J,.84,8106,2,1,0)
  1.  ;;=Compare Entries in what File: 
  1.  ;;^UTILITY(U,$J,.84,8106,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8106,5,1,0)
  1.  ;;=DICRW
  1.  ;;^UTILITY(U,$J,.84,8107,0)
  1.  ;;=8107^2^^2
  1.  ;;^UTILITY(U,$J,.84,8107,2,0)
  1.  ;;=^^1^1^2991011^^^
  1.  ;;^UTILITY(U,$J,.84,8107,2,1,0)
  1.  ;;=Edit/Create Form for what File: 
  1.  ;;^UTILITY(U,$J,.84,8107,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8107,5,1,0)
  1.  ;;=DDGFFM
  1.  ;;^UTILITY(U,$J,.84,8108,0)
  1.  ;;=8108^2^^2
  1.  ;;^UTILITY(U,$J,.84,8108,2,0)
  1.  ;;=^^1^1^2991011^^
  1.  ;;^UTILITY(U,$J,.84,8108,2,1,0)
  1.  ;;=Clone Form from what File: 
  1.  ;;^UTILITY(U,$J,.84,8108,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8108,5,1,0)
  1.  ;;=DDSCLONE^EGP
  1.  ;;^UTILITY(U,$J,.84,8108.1,0)
  1.  ;;=8108.1^2^^2
  1.  ;;^UTILITY(U,$J,.84,8108.1,2,0)
  1.  ;;=^^1^1^2991011^^^
  1.  ;;^UTILITY(U,$J,.84,8108.1,2,1,0)
  1.  ;;=Purge Unused Blocks from what File: 
  1.  ;;^UTILITY(U,$J,.84,8108.1,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8108.1,5,1,0)
  1.  ;;=DDSDBLK^EGP
  1.  ;;^UTILITY(U,$J,.84,8108.2,0)
  1.  ;;=8108.2^2^^2
  1.  ;;^UTILITY(U,$J,.84,8108.2,2,0)
  1.  ;;=^^1^1^2991011^
  1.  ;;^UTILITY(U,$J,.84,8108.2,2,1,0)
  1.  ;;=Delete Form for what File: 
  1.  ;;^UTILITY(U,$J,.84,8108.2,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8108.2,5,1,0)
  1.  ;;=DDSDFRM^EGP
  1.  ;;^UTILITY(U,$J,.84,8108.3,0)
  1.  ;;=8108.3^2^^2
  1.  ;;^UTILITY(U,$J,.84,8108.3,2,0)
  1.  ;;=^^1^1^2991011^
  1.  ;;^UTILITY(U,$J,.84,8108.3,2,1,0)
  1.  ;;=Run Form from what File: 
  1.  ;;^UTILITY(U,$J,.84,8108.3,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8108.3,5,1,0)
  1.  ;;=DDSRUN^EGP
  1.  ;;^UTILITY(U,$J,.84,8109,0)
  1.  ;;=8109^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8109,2,0)
  1.  ;;=^^1^1^2990531^^
  1.  ;;^UTILITY(U,$J,.84,8109,2,1,0)
  1.  ;;=|1| Search
  1.  ;;^UTILITY(U,$J,.84,8109,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8109,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8109,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8109,5,1,0)
  1.  ;;=DIP3^HD
  1.  ;;^UTILITY(U,$J,.84,8110,0)
  1.  ;;=8110^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8110,2,0)
  1.  ;;=^^1^1^2990531^^
  1.  ;;^UTILITY(U,$J,.84,8110,2,1,0)
  1.  ;;=|1| Statistics
  1.  ;;^UTILITY(U,$J,.84,8110,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8110,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8110,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8110,5,1,0)
  1.  ;;=DIP3^HD
  1.  ;;^UTILITY(U,$J,.84,8111,0)
  1.  ;;=8111^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8111,2,0)
  1.  ;;=^^1^1^2990531^^^
  1.  ;;^UTILITY(U,$J,.84,8111,2,1,0)
  1.  ;;=|1| Extract Search
  1.  ;;^UTILITY(U,$J,.84,8111,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8111,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8111,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8111,5,1,0)
  1.  ;;=DIP3^HD
  1.  ;;^UTILITY(U,$J,.84,8112,0)
  1.  ;;=8112^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8112,2,0)
  1.  ;;=^^1^1^2990706^^^^
  1.  ;;^UTILITY(U,$J,.84,8112,2,1,0)
  1.  ;;=|1| Archive Search
  1.  ;;^UTILITY(U,$J,.84,8112,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8112,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8112,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8112,5,1,0)
  1.  ;;=DIP3^HD
  1.  ;;^UTILITY(U,$J,.84,8113,0)
  1.  ;;=8113^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8113,2,0)
  1.  ;;=^^1^1^2990710^^^^
  1.  ;;^UTILITY(U,$J,.84,8113,2,1,0)
  1.  ;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE |1|
  1.  ;;^UTILITY(U,$J,.84,8113,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8113,3,1,0)
  1.  ;;=1^Name of File or Sub-File
  1.  ;;^UTILITY(U,$J,.84,8113,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8113,5,1,0)
  1.  ;;=DIE2^D+1
  1.  ;;^UTILITY(U,$J,.84,8114,0)
  1.  ;;=8114^2^^2
  1.  ;;^UTILITY(U,$J,.84,8114,2,0)
  1.  ;;=^^1^1^2990710^^^^
  1.  ;;^UTILITY(U,$J,.84,8114,2,1,0)
  1.  ;;=<NOTHING DELETED>
  1.  ;;^UTILITY(U,$J,.84,8114,5,0)
  1.  ;;=^.841^2^2
  1.  ;;^UTILITY(U,$J,.84,8114,5,1,0)
  1.  ;;=DIE2^N
  1.  ;;^UTILITY(U,$J,.84,8114,5,2,0)
  1.  ;;=DIWE3^D+5
  1.  ;;^UTILITY(U,$J,.84,8115,0)
  1.  ;;=8115^2^^2
  1.  ;;^UTILITY(U,$J,.84,8115,2,0)
  1.  ;;=^^1^1^2990710^^^
  1.  ;;^UTILITY(U,$J,.84,8115,2,1,0)
  1.  ;;=ARE YOU SURE YOU WANT TO DELETE THE ENTIRE TEXT
  1.  ;;^UTILITY(U,$J,.84,8115,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8115,5,1,0)
  1.  ;;=DIWE3^D+4
  1.  ;;^UTILITY(U,$J,.84,8116,0)
  1.  ;;=8116^2^y^2
  1.  ;;^UTILITY(U,$J,.84,8116,2,0)
  1.  ;;=1
  1.  ;;^UTILITY(U,$J,.84,8116,2,1,0)
  1.  ;;=OK TO REMOVE |1| LINE(S)
  1.  ;;^UTILITY(U,$J,.84,8116,3,0)
  1.  ;;=^.845^1^1