DDMPSM1 ;SFISC/DPC-IMPORT SCREENMAN CALLS (CONT) ;9/20/96 11:28
;;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.
;
HOSTHELP ;Called from HELP on the Host File prompt.
N DDMPPATH
S DDMPPATH=$$GET^DDSVALF("PTH",1,1)
K ^TMP($J,"DDMPHOST")
D GETHOSTS(DDMPPATH,$NA(^TMP($J,"DDMPHF")))
S ^TMP($J,"DDMPHOST",1)="Enter the name of the host file that contains the data to be imported."
I $D(^TMP($J,"DDMPHF")) D
. S ^TMP($J,"DDMPHOST",2)=""
. S ^TMP($J,"DDMPHOST",3)="These are the files in the "_DDMPPATH_" directory:"
. N DDMPHFNM,I S DDMPHFNM=""
. F I=4:1 S DDMPHFNM=$O(^TMP($J,"DDMPHF",DDMPHFNM)) Q:DDMPHFNM="" S ^TMP($J,"DDMPHOST",I)=DDMPHFNM S:I#2 ^(I,"F")="?40"
. D EN^DDIOL("","^TMP($J,""DDMPHOST"")")
K ^TMP($J,"DDMPHF"),^TMP($J,"DDMPHOST")
Q
;
GETHOSTS(DDMPPATH,DDMPHFAR) ;
;Obtains list of all host files in a specified directory.
;Input:
;DDMPPATH - Directory name w/ full path.
;DDMPHFAR - Target array for output from $$LIST^%ZISH call.
N DDMPHF
I DDMPPATH="" Q
S DDMPHF("*.*")=""
K @DDMPHFAR
I $$LIST^%ZISH(DDMPPATH,"DDMPHF",DDMPHFAR)
Q
PAGE2 ;
;Call from page 2 pre-action.
I $D(DDMPFRP4) K DDMPFRP4 Q
I $G(DDMPF)="" D Q
. S DDSBR="F_SEL^1^1"
. D HLP^DDSUTL($C(7)_"You must choose a file before you can go to the Field Selection page.")
S DDMPCF=$G(DDMPCF,DDMPF)
D UNED^DDSUTL("LEN",1,2,$S($G(DDMPSMFF("FIXED"))="YES":0,1:1))
I $G(DDMPSMFF("FIXED"))="YES",DDMPFDCT,'$D(DDMPFDSL("LN")) D
. N DDMPHLP
. S DDSBR="FLD_DEL"
. S DDMPHLP(1)=$C(7)
. S DDMPHLP(2)="You have specified a fixed length format for imported data."
. S DDMPHLP(3)="However, you have not entered field lengths for fields you have chosen."
. S DDMPHLP(4)="So, you must either delete all the fields entered so far"
. S DDMPHLP(5)="or change the format to one that is not fixed length."
. D HLP^DDSUTL(.DDMPHLP)
Q
;
LENCHK ;
;Called from the post action on change field of the Length: prompt pop-up page.
I X="L" D
. S DDSBR="LEN^1^2"
E D
. D DELFLD^DDMPSM
. S DDSBR="FLD^1^2"
. D PUT^DDSVALF("FLD",1,2,"")
D PUT^DDSVALF(2,1,4,"")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDDMPSM1 2374 printed Oct 16, 2024@18:43:22 Page 2
DDMPSM1 ;SFISC/DPC-IMPORT SCREENMAN CALLS (CONT) ;9/20/96 11:28
+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 ;
HOSTHELP ;Called from HELP on the Host File prompt.
+1 NEW DDMPPATH
+2 SET DDMPPATH=$$GET^DDSVALF("PTH",1,1)
+3 KILL ^TMP($JOB,"DDMPHOST")
+4 DO GETHOSTS(DDMPPATH,$NAME(^TMP($JOB,"DDMPHF")))
+5 SET ^TMP($JOB,"DDMPHOST",1)="Enter the name of the host file that contains the data to be imported."
+6 IF $DATA(^TMP($JOB,"DDMPHF"))
Begin DoDot:1
+7 SET ^TMP($JOB,"DDMPHOST",2)=""
+8 SET ^TMP($JOB,"DDMPHOST",3)="These are the files in the "_DDMPPATH_" directory:"
+9 NEW DDMPHFNM,I
SET DDMPHFNM=""
+10 FOR I=4:1
SET DDMPHFNM=$ORDER(^TMP($JOB,"DDMPHF",DDMPHFNM))
if DDMPHFNM=""
QUIT
SET ^TMP($JOB,"DDMPHOST",I)=DDMPHFNM
if I#2
SET ^(I,"F")="?40"
+11 DO EN^DDIOL("","^TMP($J,""DDMPHOST"")")
End DoDot:1
+12 KILL ^TMP($JOB,"DDMPHF"),^TMP($JOB,"DDMPHOST")
+13 QUIT
+14 ;
GETHOSTS(DDMPPATH,DDMPHFAR) ;
+1 ;Obtains list of all host files in a specified directory.
+2 ;Input:
+3 ;DDMPPATH - Directory name w/ full path.
+4 ;DDMPHFAR - Target array for output from $$LIST^%ZISH call.
+5 NEW DDMPHF
+6 IF DDMPPATH=""
QUIT
+7 SET DDMPHF("*.*")=""
+8 KILL @DDMPHFAR
+9 IF $$LIST^%ZISH(DDMPPATH,"DDMPHF",DDMPHFAR)
+10 QUIT
PAGE2 ;
+1 ;Call from page 2 pre-action.
+2 IF $DATA(DDMPFRP4)
KILL DDMPFRP4
QUIT
+3 IF $GET(DDMPF)=""
Begin DoDot:1
+4 SET DDSBR="F_SEL^1^1"
+5 DO HLP^DDSUTL($CHAR(7)_"You must choose a file before you can go to the Field Selection page.")
End DoDot:1
QUIT
+6 SET DDMPCF=$GET(DDMPCF,DDMPF)
+7 DO UNED^DDSUTL("LEN",1,2,$SELECT($GET(DDMPSMFF("FIXED"))="YES":0,1:1))
+8 IF $GET(DDMPSMFF("FIXED"))="YES"
IF DDMPFDCT
IF '$DATA(DDMPFDSL("LN"))
Begin DoDot:1
+9 NEW DDMPHLP
+10 SET DDSBR="FLD_DEL"
+11 SET DDMPHLP(1)=$CHAR(7)
+12 SET DDMPHLP(2)="You have specified a fixed length format for imported data."
+13 SET DDMPHLP(3)="However, you have not entered field lengths for fields you have chosen."
+14 SET DDMPHLP(4)="So, you must either delete all the fields entered so far"
+15 SET DDMPHLP(5)="or change the format to one that is not fixed length."
+16 DO HLP^DDSUTL(.DDMPHLP)
End DoDot:1
+17 QUIT
+18 ;
LENCHK ;
+1 ;Called from the post action on change field of the Length: prompt pop-up page.
+2 IF X="L"
Begin DoDot:1
+3 SET DDSBR="LEN^1^2"
End DoDot:1
+4 IF '$TEST
Begin DoDot:1
+5 DO DELFLD^DDMPSM
+6 SET DDSBR="FLD^1^2"
+7 DO PUT^DDSVALF("FLD",1,2,"")
End DoDot:1
+8 DO PUT^DDSVALF(2,1,4,"")
+9 QUIT
