DINIT287 ;SFISC/MLH-ALTERNATE EDITOR FILE ;5/27/92 2:27 PM
;;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
G ^DINIT290
Q Q
;;^DIST(1.2,0)
;;=ALTERNATE EDITOR^1.2^9^8
;;^DIST(1.2,1,0)
;;=LINE EDITOR - VA FILEMAN
;;^DIST(1.2,1,1)
;;=G GO^DIWE
;;^DIST(1.2,2,0)
;;=SCREEN EDITOR - VA FILEMAN
;;^DIST(1.2,2,1)
;;=D ^DDW
;;^DIST(1.2,2,7,0)
;;=^^2^2^2901212^^^
;;^DIST(1.2,2,7,1,0)
;;=
;;^DIST(1.2,2,7,2,0)
;;=The standard VA FileMan full-screen text editor.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT287 902 printed Nov 22, 2024@18:01:10 Page 2
DINIT287 ;SFISC/MLH-ALTERNATE EDITOR FILE ;5/27/92 2:27 PM
+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
+8 GOTO ^DINIT290
Q QUIT
+1 ;;^DIST(1.2,0)
+2 ;;=ALTERNATE EDITOR^1.2^9^8
+3 ;;^DIST(1.2,1,0)
+4 ;;=LINE EDITOR - VA FILEMAN
+5 ;;^DIST(1.2,1,1)
+6 ;;=G GO^DIWE
+7 ;;^DIST(1.2,2,0)
+8 ;;=SCREEN EDITOR - VA FILEMAN
+9 ;;^DIST(1.2,2,1)
+10 ;;=D ^DDW
+11 ;;^DIST(1.2,2,7,0)
+12 ;;=^^2^2^2901212^^^
+13 ;;^DIST(1.2,2,7,1,0)
+14 ;;=
+15 ;;^DIST(1.2,2,7,2,0)
+16 ;;=The standard VA FileMan full-screen text editor.
