DIWE11 ;SFISC/GFT,MWE-WORD PROCESSING UTILITY FUNCTION ;08:12 AM 16 Jan 2000
;;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.
;
;**CCO/NI ENTIRE ROUTINE CHANGED
N DWOU
S DWOU="ABC"
1 W ! D Q:'$D(X)
.N DIR,DIRUT
.S DIR(0)="FO",DIR("A")=$$EZBLD^DIALOG(9189),DIR("?")="^D HELP^DIWE11"
.D ^DIR I X="."!$D(DIRUT) K X
LC I X?1L S X=$$UP^DILIBF(X)
S J="^DOPT(""DIWE11""," I X?1U F I=1:1:3 S DIWEX1=$C(64+I) I DWOU[DIWEX1,$F($$EZBLD^DIALOG(I+9189),X)=2 S ^DISV(DUZ,J)=I G OPT
I X=" ",$D(^DISV(DUZ,J)) S DIWEX1=$C(64+^(J)) I DWO[DIWEX1 W ! G OPT
D HELP G 1
;
HELP ;CALLED FROM DIR READER
W !?5,$$EZBLD^DIALOG(8068)
F I=1:1:3 S J=$C(64+I) I DWO[J W !?10,$$EZBLD^DIALOG(I+9189)
Q
;
OPT Q:$D(DTOUT) S X=$$EZBLD^DIALOG($A(DIWEX1)-64+9189) I '$X W $E(X)
W $E(X,2,99) G @DIWEX1
A ;;Editor Change 9190
D ^DIWE12 W !! Q
;
B ;;File Transfer from Foreign CPU 9191
D X^DIWE5 Q
;
C ;;Text-Terminator-String Change 9192
D W !! Q
.N DIR,DTOUT,DUOUT
.S DIR("A")=$$EZBLD^DIALOG(9184)
.S DIR("B")=$S(DIWPT="":$$EZBLD^DIALOG(7080),1:DIWPT)
.S DIR(0)="FO^1:99^K:X[""?"" X"
.S DIR("?")="^D BLD^DIALOG(9185),MSG^DIALOG(""WH"")"
.D ^DIR Q:$D(DTOUT)!$D(DUOUT)
.I "@"[X!(X=$$EZBLD^DIALOG(7080)) W !?5,$$EZBLD^DIALOG(9186) S X=""
.S DIWPT=X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIWE11 1539 printed Nov 22, 2024@18:04:49 Page 2
DIWE11 ;SFISC/GFT,MWE-WORD PROCESSING UTILITY FUNCTION ;08:12 AM 16 Jan 2000
+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 ;**CCO/NI ENTIRE ROUTINE CHANGED
+8 NEW DWOU
+9 SET DWOU="ABC"
1 WRITE !
Begin DoDot:1
+1 NEW DIR,DIRUT
+2 SET DIR(0)="FO"
SET DIR("A")=$$EZBLD^DIALOG(9189)
SET DIR("?")="^D HELP^DIWE11"
+3 DO ^DIR
IF X="."!$DATA(DIRUT)
KILL X
End DoDot:1
if '$DATA(X)
QUIT
LC IF X?1L
SET X=$$UP^DILIBF(X)
+1 SET J="^DOPT(""DIWE11"","
IF X?1U
FOR I=1:1:3
SET DIWEX1=$CHAR(64+I)
IF DWOU[DIWEX1
IF $FIND($$EZBLD^DIALOG(I+9189),X)=2
SET ^DISV(DUZ,J)=I
GOTO OPT
+2 IF X=" "
IF $DATA(^DISV(DUZ,J))
SET DIWEX1=$CHAR(64+^(J))
IF DWO[DIWEX1
WRITE !
GOTO OPT
+3 DO HELP
GOTO 1
+4 ;
HELP ;CALLED FROM DIR READER
+1 WRITE !?5,$$EZBLD^DIALOG(8068)
+2 FOR I=1:1:3
SET J=$CHAR(64+I)
IF DWO[J
WRITE !?10,$$EZBLD^DIALOG(I+9189)
+3 QUIT
+4 ;
OPT if $DATA(DTOUT)
QUIT
SET X=$$EZBLD^DIALOG($ASCII(DIWEX1)-64+9189)
IF '$X
WRITE $EXTRACT(X)
+1 WRITE $EXTRACT(X,2,99)
GOTO @DIWEX1
A ;;Editor Change 9190
+1 DO ^DIWE12
WRITE !!
QUIT
+2 ;
B ;;File Transfer from Foreign CPU 9191
+1 DO X^DIWE5
QUIT
+2 ;
C ;;Text-Terminator-String Change 9192
+1 Begin DoDot:1
+2 NEW DIR,DTOUT,DUOUT
+3 SET DIR("A")=$$EZBLD^DIALOG(9184)
+4 SET DIR("B")=$SELECT(DIWPT="":$$EZBLD^DIALOG(7080),1:DIWPT)
+5 SET DIR(0)="FO^1:99^K:X[""?"" X"
+6 SET DIR("?")="^D BLD^DIALOG(9185),MSG^DIALOG(""WH"")"
+7 DO ^DIR
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+8 IF "@"[X!(X=$$EZBLD^DIALOG(7080))
WRITE !?5,$$EZBLD^DIALOG(9186)
SET X=""
+9 SET DIWPT=X
End DoDot:1
WRITE !!
QUIT
