DDMP2 ;SFISC/DPC-Import Device, Queuing, Reports ;11/5/97 08:10
;;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.
;
DEV(DDMPIOIN,DDMPIOP) ;
;Device selection for printed report.
;DDMPIOIN might contain preselected info.
;DDMPIOP will contain device data for later use with ^%ZIS.
I $D(DDMPIOIN("IOP")) D
. I $P(DDMPIOIN("IOP"),";")'="Q" S DDMPIOP=DDMPIOIN("IOP")
. E D
. . S DDMPIOP=$P(DDMPIOIN("IOP"),";",2,99),DDMPIOP("Q")=1
. . I $D(DDMPIOIN("QTIME")) D SETQTIME
E D
. N %ZIS,POP
. S %ZIS="QN"
. S %ZIS("A")="Device for Import Results Report: "
. D ^%ZIS
. I POP S DDMPIOP("NG")=1 Q
. I $E(IOST,1,2)="C-" S DDMPIOP("HOME")=1 Q
. D SETIOP
. I $G(IO("Q")) S DDMPIOP("Q")=1 Q
. D HOME^%ZIS
. I $P(DDMPIOP,";",2)="P-BROWSER" Q
. N DIR,DIRUT,Y
. S DIR(0)="Y"
. S DIR("A")="Do you want to queue this data import"
. D ^DIR
. I $G(DIRUT) S DDMPIOP("NG")=1 Q
. I Y S DDMPIOP("Q")=1
Q
;
SETIOP ;
;Sets up IOP, etc., from variables returned by ^%ZIS.
S DDMPIOP=ION
I $G(IOST)]"" S DDMPIOP=DDMPIOP_";"_IOST
I $G(IO("DOC"))]"" S DDMPIOP=DDMPIOP_";"_IO("DOC") Q
I $G(IOM) S DDMPIOP=DDMPIOP_";"_IOM
I $G(IOSL) S DDMPIOP=DDMPIOP_";"_IOSL
I $G(IOT)="HFS" S DDMPIOP("HFSNAME")=IO,DDMPIOP("HFSMODE")="W"
Q
;
SETQTIME ;
;Sets time for queuing from value passed in ("QTIME")
N X,Y,%DT
S X=DDMPIOIN("QTIME")
I X="NOW" S DDMPIOP("QTIME")=$H
E D
. I X'["@" S X="T@"_X
. S %DT="XT",%DT(0)="NOW"
. D ^%DT
. I Y<0 S DDMPIOP("NG")=1 Q
. S DDMPIOP("QTIME")=Y
Q
;
QUE(DDMPIOP) ;
;Queues the import.
S ZTRTN="TASK^DDMP"
S ZTIO=""
S ZTDESC="Queued data import."
I $D(DDMPIOP("QTIME")) S ZTDTH=DDMPIOP("QTIME")
S ZTSAVE("^TMP($J,""DDMP"",")=""
S ZTSAVE("DDMPIOP(")=""
S ZTSAVE("DDMPIOP")=""
S ZTSAVE("DDMPF")=""
S ZTSAVE("DDMPSQ(")=""
S ZTSAVE("DDMPFMT(")=""
S ZTSAVE("DDMPFLG")=""
S ZTSAVE("DDMPFLG(")=""
S ZTSAVE("DDMPNCNT")=""
S ZTSAVE("DDMPFSRC(")=""
D ^%ZTLOAD
I $G(ZTSK) D
. W !,"Import queued. Task number: "_ZTSK
E W !,"Queuing of import failed. Import aborted."
Q
;
REP1(DDMPRPSB,DDMPLN) ;
N DDMPI,DDMPTXT,DDMPUSR,DDMPFNO,DDMPLEN
S DDMPLN=0
I '$D(^XTMP("DDMP1000")) S DDMPRPSB="DDMP1000"
E S DDMPRPSB="DDMP"_($P($O(^XTMP("DDMPz"),-1),"DDMP",2)+1)
S ^XTMP(DDMPRPSB,0)=DT_U_DT_U
S DDMPUSR=$$GET1^DIQ(200,DUZ_",",.01)
S ^(0)=^XTMP(DDMPRPSB,0)_"Import report: "_DDMPUSR
D LDXTMP($P($T(LN1+1),";;",2)_$P(DDMPUSR,",",2)_" "_$P(DDMPUSR,","))
D LDXTMP("")
D LDXTMP($P($T(LN1+2),";;",2)_DDMPFSRC("PATH")_DDMPFSRC("FILE"))
D LDXTMP($P($T(LN1+3),";;",2)_DDMPFMT("FIXED"))
D LDXTMP($P($T(LN1+4),";;",2)_DDMPFMT("FDELIM"))
D LDXTMP($P($T(LN1+5),";;",2)_DDMPFMT("QUOTED"))
D LDXTMP($P($T(LN1+6),";;",2)_$S(DDMPFLG["E":"External",1:"Internal"))
D LDXTMP("")
D LDXTMP($P($T(LN1+7),";;",2)_$$GET1^DID(DDMPF,"","","NAME"))
D LDXTMP("")
D LDXTMP($P($T(LN1+8),";;",2))
D LDXTMP($P($T(LN1+9),";;",2))
F DDMPI=1:1 Q:'$D(DDMPSQ(DDMPI)) D
. S DDMPFNO=$P(DDMPSQ(DDMPI),"~"),DDMPLEN=$P(DDMPSQ(DDMPI),"~",4)
. S DDMPTXT=DDMPI_$J("",5-$L(DDMPI))_$S(DDMPLEN:DDMPLEN,1:"n/a")
. S DDMPTXT=DDMPTXT_$J("",10-$L(DDMPTXT))_$$GET1^DID(DDMPFNO,$P(DDMPSQ(DDMPI),"~",3),"","LABEL")
. I DDMPF'=DDMPFNO S DDMPTXT=DDMPTXT_$J("",43-$L(DDMPTXT))_$O(^DD(DDMPFNO,0,"NM",""))
. D LDXTMP(DDMPTXT)
D LDXTMP("")
D LDXTMP("")
D LDXTMP($P($T(LN1+10),";;",2))
D LDXTMP($P($T(LN1+11),";;",2))
D LDXTMP("")
Q
;
LDXTMP(DDMPTXT) ;
S DDMPLN=DDMPLN+1
S ^XTMP(DDMPRPSB,DDMPLN)=DDMPTXT
Q
;
LN1 ;
;; Import Initiated By:
;; Source File:
;; Fixed Length:
;; Delimited By:
;; Text Values Quoted:
;; Values Are:
;; Primary FileMan Destination File:
;;Seq Len Field Name Subfile Name (if applicable)
;;--- --- ---------- ----------------------------
;; Error Report
;; ------------
;
REP2(DDMPRPSB,DDMPLN,DDMPSTAT) ;
N POP
I '$G(DDMPSTAT("NG")) D LDXTMP($P($T(LN2+1),";;",2))
D LDXTMP("")
D LDXTMP("")
D LDXTMP($P($T(LN2+2),";;",2))
D LDXTMP($P($T(LN2+3),";;",2))
D LDXTMP("")
I $G(DDMPSTAT("ABORT")) D
. D LDXTMP($P($T(LN2+4),";;",2))
. D LDXTMP($P($T(LN2+(4+DDMPSTAT("ABORT"))),";;",2))
. D LDXTMP("")
D LDXTMP($P($T(LN2+7),";;",2)_DDMPSTAT("TOT"))
D LDXTMP($P($T(LN2+8),";;",2)_(DDMPSTAT("TOT")-DDMPSTAT("NG")))
D LDXTMP($P($T(LN2+9),";;",2)_DDMPSTAT("NG"))
D LDXTMP("")
D LDXTMP($P($T(LN2+10),";;",2)_$G(DDMPSTAT("FIEN"),"Nothing filed"))
D LDXTMP($P($T(LN2+11),";;",2)_$G(DDMPSTAT("LIEN"),"Nothing filed"))
D LDXTMP("")
D LDXTMP($P($T(LN2+12),";;",2)_$$HTE^DILIBF(DDMPSTAT("BEG")))
S DDMPSTAT("END")=$H
D LDXTMP($P($T(LN2+13),";;",2)_$$HTE^DILIBF(DDMPSTAT("END")))
D LDXTMP($P($T(LN2+14),";;",2)_$$HDIFF^DILIBF(DDMPSTAT("END"),DDMPSTAT("BEG"),3))
I $G(DDMPIOP("HOME")) W @IOF D PRNTHM Q
I $P($G(DDMPIOP),";",2)="P-BROWSER" D BROWSET Q:POP D PRNTHM Q
;Set up queued job for report printing.
N %ZIS
S %ZIS="Q"
S IOP="Q;"_DDMPIOP
I $D(DDMPIOP("HFSNAME")) S %ZIS("HFSNAME")=DDMPIOP("HFSNAME")
I $D(DDMPIOP("HFSNODE")) S %ZIS("HFSMODE")=DDMPIOP("HFSMODE")
D ^%ZIS
I POP Q ;ERROR THAT REPORT CANNOT PRINT
K ZTIO
S ZTRTN="PRNT^DDMP2"
S ZTSAVE("DDMPRPSB")=""
S ZTDTH=$H
S ZTDESC="Printing of Import Log for User# "_DUZ
D ^%ZTLOAD
I '$D(ZTQUEUED) W !,"Task Number for printing: "_ZTSK
Q
PRNT ;
;Tasked print of report.
S ZTREQ="@"
U IO
PRNTHM ;Print to home device. Tasked prints fall through.
N DDMPCNT,DDMPPG,DDMPIOSL,DDMPOUT
S DDMPIOSL=$G(IOSL,60)
S DDMPPG=0,DDMPCNT=0
D HDR
F S DDMPCNT=$O(^XTMP(DDMPRPSB,DDMPCNT)) Q:DDMPCNT="" D Q:$G(DDMPOUT)
. W !,^XTMP(DDMPRPSB,DDMPCNT)
. I $Y+3>DDMPIOSL D HDR
I $E(IOST,1,2)'="C-" W @IOF D ^%ZISC
Q
;
BROWSET ;
N %ZIS
S IOP=DDMPIOP
D ^%ZIS
U IO
Q
;
HDR ;
I DDMPPG,$E(IOST,1,2)="C-" N DIR,Y S DIR(0)="E" D ^DIR I 'Y S DDMPOUT=1 Q
I DDMPPG W @IOF
S DDMPPG=DDMPPG+1
W $P($T(HDR1+1),";;",2)_DDMPPG
W !,$P($T(HDR1+2),";;",2)
W !
Q
;
HDR1 ;
;; Log for VA FileMan Data Import Page
;; ==============================
LN2 ;
;; No errors occured during this data import.
;; Summary of Import
;; -----------------
;; <<<IMPORT NOT COMPLETED:
;; MAXIMUM ERRORS DETECTED>>>
;; USER ABORT OF TASKED IMPORT>>>
;; Total Records Read:
;; Total Records Filed:
;; Total Records Rejected:
;; IEN of First Record Filed:
;; IEN of Last Record Filed:
;; Import Filing Started:
;; Import Filing Completed:
;; Time of Import Filing:
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDDMP2 7385 printed Oct 16, 2024@18:43:20 Page 2
DDMP2 ;SFISC/DPC-Import Device, Queuing, Reports ;11/5/97 08:10
+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 ;
DEV(DDMPIOIN,DDMPIOP) ;
+1 ;Device selection for printed report.
+2 ;DDMPIOIN might contain preselected info.
+3 ;DDMPIOP will contain device data for later use with ^%ZIS.
+4 IF $DATA(DDMPIOIN("IOP"))
Begin DoDot:1
+5 IF $PIECE(DDMPIOIN("IOP"),";")'="Q"
SET DDMPIOP=DDMPIOIN("IOP")
+6 IF '$TEST
Begin DoDot:2
+7 SET DDMPIOP=$PIECE(DDMPIOIN("IOP"),";",2,99)
SET DDMPIOP("Q")=1
+8 IF $DATA(DDMPIOIN("QTIME"))
DO SETQTIME
End DoDot:2
End DoDot:1
+9 IF '$TEST
Begin DoDot:1
+10 NEW %ZIS,POP
+11 SET %ZIS="QN"
+12 SET %ZIS("A")="Device for Import Results Report: "
+13 DO ^%ZIS
+14 IF POP
SET DDMPIOP("NG")=1
QUIT
+15 IF $EXTRACT(IOST,1,2)="C-"
SET DDMPIOP("HOME")=1
QUIT
+16 DO SETIOP
+17 IF $GET(IO("Q"))
SET DDMPIOP("Q")=1
QUIT
+18 DO HOME^%ZIS
+19 IF $PIECE(DDMPIOP,";",2)="P-BROWSER"
QUIT
+20 NEW DIR,DIRUT,Y
+21 SET DIR(0)="Y"
+22 SET DIR("A")="Do you want to queue this data import"
+23 DO ^DIR
+24 IF $GET(DIRUT)
SET DDMPIOP("NG")=1
QUIT
+25 IF Y
SET DDMPIOP("Q")=1
End DoDot:1
+26 QUIT
+27 ;
SETIOP ;
+1 ;Sets up IOP, etc., from variables returned by ^%ZIS.
+2 SET DDMPIOP=ION
+3 IF $GET(IOST)]""
SET DDMPIOP=DDMPIOP_";"_IOST
+4 IF $GET(IO("DOC"))]""
SET DDMPIOP=DDMPIOP_";"_IO("DOC")
QUIT
+5 IF $GET(IOM)
SET DDMPIOP=DDMPIOP_";"_IOM
+6 IF $GET(IOSL)
SET DDMPIOP=DDMPIOP_";"_IOSL
+7 IF $GET(IOT)="HFS"
SET DDMPIOP("HFSNAME")=IO
SET DDMPIOP("HFSMODE")="W"
+8 QUIT
+9 ;
SETQTIME ;
+1 ;Sets time for queuing from value passed in ("QTIME")
+2 NEW X,Y,%DT
+3 SET X=DDMPIOIN("QTIME")
+4 IF X="NOW"
SET DDMPIOP("QTIME")=$HOROLOG
+5 IF '$TEST
Begin DoDot:1
+6 IF X'["@"
SET X="T@"_X
+7 SET %DT="XT"
SET %DT(0)="NOW"
+8 DO ^%DT
+9 IF Y<0
SET DDMPIOP("NG")=1
QUIT
+10 SET DDMPIOP("QTIME")=Y
End DoDot:1
+11 QUIT
+12 ;
QUE(DDMPIOP) ;
+1 ;Queues the import.
+2 SET ZTRTN="TASK^DDMP"
+3 SET ZTIO=""
+4 SET ZTDESC="Queued data import."
+5 IF $DATA(DDMPIOP("QTIME"))
SET ZTDTH=DDMPIOP("QTIME")
+6 SET ZTSAVE("^TMP($J,""DDMP"",")=""
+7 SET ZTSAVE("DDMPIOP(")=""
+8 SET ZTSAVE("DDMPIOP")=""
+9 SET ZTSAVE("DDMPF")=""
+10 SET ZTSAVE("DDMPSQ(")=""
+11 SET ZTSAVE("DDMPFMT(")=""
+12 SET ZTSAVE("DDMPFLG")=""
+13 SET ZTSAVE("DDMPFLG(")=""
+14 SET ZTSAVE("DDMPNCNT")=""
+15 SET ZTSAVE("DDMPFSRC(")=""
+16 DO ^%ZTLOAD
+17 IF $GET(ZTSK)
Begin DoDot:1
+18 WRITE !,"Import queued. Task number: "_ZTSK
End DoDot:1
+19 IF '$TEST
WRITE !,"Queuing of import failed. Import aborted."
+20 QUIT
+21 ;
REP1(DDMPRPSB,DDMPLN) ;
+1 NEW DDMPI,DDMPTXT,DDMPUSR,DDMPFNO,DDMPLEN
+2 SET DDMPLN=0
+3 IF '$DATA(^XTMP("DDMP1000"))
SET DDMPRPSB="DDMP1000"
+4 IF '$TEST
SET DDMPRPSB="DDMP"_($PIECE($ORDER(^XTMP("DDMPz"),-1),"DDMP",2)+1)
+5 SET ^XTMP(DDMPRPSB,0)=DT_U_DT_U
+6 SET DDMPUSR=$$GET1^DIQ(200,DUZ_",",.01)
+7 SET ^(0)=^XTMP(DDMPRPSB,0)_"Import report: "_DDMPUSR
+8 DO LDXTMP($PIECE($TEXT(LN1+1),";;",2)_$PIECE(DDMPUSR,",",2)_" "_$PIECE(DDMPUSR,","))
+9 DO LDXTMP("")
+10 DO LDXTMP($PIECE($TEXT(LN1+2),";;",2)_DDMPFSRC("PATH")_DDMPFSRC("FILE"))
+11 DO LDXTMP($PIECE($TEXT(LN1+3),";;",2)_DDMPFMT("FIXED"))
+12 DO LDXTMP($PIECE($TEXT(LN1+4),";;",2)_DDMPFMT("FDELIM"))
+13 DO LDXTMP($PIECE($TEXT(LN1+5),";;",2)_DDMPFMT("QUOTED"))
+14 DO LDXTMP($PIECE($TEXT(LN1+6),";;",2)_$SELECT(DDMPFLG["E":"External",1:"Internal"))
+15 DO LDXTMP("")
+16 DO LDXTMP($PIECE($TEXT(LN1+7),";;",2)_$$GET1^DID(DDMPF,"","","NAME"))
+17 DO LDXTMP("")
+18 DO LDXTMP($PIECE($TEXT(LN1+8),";;",2))
+19 DO LDXTMP($PIECE($TEXT(LN1+9),";;",2))
+20 FOR DDMPI=1:1
if '$DATA(DDMPSQ(DDMPI))
QUIT
Begin DoDot:1
+21 SET DDMPFNO=$PIECE(DDMPSQ(DDMPI),"~")
SET DDMPLEN=$PIECE(DDMPSQ(DDMPI),"~",4)
+22 SET DDMPTXT=DDMPI_$JUSTIFY("",5-$LENGTH(DDMPI))_$SELECT(DDMPLEN:DDMPLEN,1:"n/a")
+23 SET DDMPTXT=DDMPTXT_$JUSTIFY("",10-$LENGTH(DDMPTXT))_$$GET1^DID(DDMPFNO,$PIECE(DDMPSQ(DDMPI),"~",3),"","LABEL")
+24 IF DDMPF'=DDMPFNO
SET DDMPTXT=DDMPTXT_$JUSTIFY("",43-$LENGTH(DDMPTXT))_$ORDER(^DD(DDMPFNO,0,"NM",""))
+25 DO LDXTMP(DDMPTXT)
End DoDot:1
+26 DO LDXTMP("")
+27 DO LDXTMP("")
+28 DO LDXTMP($PIECE($TEXT(LN1+10),";;",2))
+29 DO LDXTMP($PIECE($TEXT(LN1+11),";;",2))
+30 DO LDXTMP("")
+31 QUIT
+32 ;
LDXTMP(DDMPTXT) ;
+1 SET DDMPLN=DDMPLN+1
+2 SET ^XTMP(DDMPRPSB,DDMPLN)=DDMPTXT
+3 QUIT
+4 ;
LN1 ;
+1 ;; Import Initiated By:
+2 ;; Source File:
+3 ;; Fixed Length:
+4 ;; Delimited By:
+5 ;; Text Values Quoted:
+6 ;; Values Are:
+7 ;; Primary FileMan Destination File:
+8 ;;Seq Len Field Name Subfile Name (if applicable)
+9 ;;--- --- ---------- ----------------------------
+10 ;; Error Report
+11 ;; ------------
+12 ;
REP2(DDMPRPSB,DDMPLN,DDMPSTAT) ;
+1 NEW POP
+2 IF '$GET(DDMPSTAT("NG"))
DO LDXTMP($PIECE($TEXT(LN2+1),";;",2))
+3 DO LDXTMP("")
+4 DO LDXTMP("")
+5 DO LDXTMP($PIECE($TEXT(LN2+2),";;",2))
+6 DO LDXTMP($PIECE($TEXT(LN2+3),";;",2))
+7 DO LDXTMP("")
+8 IF $GET(DDMPSTAT("ABORT"))
Begin DoDot:1
+9 DO LDXTMP($PIECE($TEXT(LN2+4),";;",2))
+10 DO LDXTMP($PIECE($TEXT(LN2+(4+DDMPSTAT("ABORT"))),";;",2))
+11 DO LDXTMP("")
End DoDot:1
+12 DO LDXTMP($PIECE($TEXT(LN2+7),";;",2)_DDMPSTAT("TOT"))
+13 DO LDXTMP($PIECE($TEXT(LN2+8),";;",2)_(DDMPSTAT("TOT")-DDMPSTAT("NG")))
+14 DO LDXTMP($PIECE($TEXT(LN2+9),";;",2)_DDMPSTAT("NG"))
+15 DO LDXTMP("")
+16 DO LDXTMP($PIECE($TEXT(LN2+10),";;",2)_$GET(DDMPSTAT("FIEN"),"Nothing filed"))
+17 DO LDXTMP($PIECE($TEXT(LN2+11),";;",2)_$GET(DDMPSTAT("LIEN"),"Nothing filed"))
+18 DO LDXTMP("")
+19 DO LDXTMP($PIECE($TEXT(LN2+12),";;",2)_$$HTE^DILIBF(DDMPSTAT("BEG")))
+20 SET DDMPSTAT("END")=$HOROLOG
+21 DO LDXTMP($PIECE($TEXT(LN2+13),";;",2)_$$HTE^DILIBF(DDMPSTAT("END")))
+22 DO LDXTMP($PIECE($TEXT(LN2+14),";;",2)_$$HDIFF^DILIBF(DDMPSTAT("END"),DDMPSTAT("BEG"),3))
+23 IF $GET(DDMPIOP("HOME"))
WRITE @IOF
DO PRNTHM
QUIT
+24 IF $PIECE($GET(DDMPIOP),";",2)="P-BROWSER"
DO BROWSET
if POP
QUIT
DO PRNTHM
QUIT
+25 ;Set up queued job for report printing.
+26 NEW %ZIS
+27 SET %ZIS="Q"
+28 SET IOP="Q;"_DDMPIOP
+29 IF $DATA(DDMPIOP("HFSNAME"))
SET %ZIS("HFSNAME")=DDMPIOP("HFSNAME")
+30 IF $DATA(DDMPIOP("HFSNODE"))
SET %ZIS("HFSMODE")=DDMPIOP("HFSMODE")
+31 DO ^%ZIS
+32 ;ERROR THAT REPORT CANNOT PRINT
IF POP
QUIT
+33 KILL ZTIO
+34 SET ZTRTN="PRNT^DDMP2"
+35 SET ZTSAVE("DDMPRPSB")=""
+36 SET ZTDTH=$HOROLOG
+37 SET ZTDESC="Printing of Import Log for User# "_DUZ
+38 DO ^%ZTLOAD
+39 IF '$DATA(ZTQUEUED)
WRITE !,"Task Number for printing: "_ZTSK
+40 QUIT
PRNT ;
+1 ;Tasked print of report.
+2 SET ZTREQ="@"
+3 USE IO
PRNTHM ;Print to home device. Tasked prints fall through.
+1 NEW DDMPCNT,DDMPPG,DDMPIOSL,DDMPOUT
+2 SET DDMPIOSL=$GET(IOSL,60)
+3 SET DDMPPG=0
SET DDMPCNT=0
+4 DO HDR
+5 FOR
SET DDMPCNT=$ORDER(^XTMP(DDMPRPSB,DDMPCNT))
if DDMPCNT=""
QUIT
Begin DoDot:1
+6 WRITE !,^XTMP(DDMPRPSB,DDMPCNT)
+7 IF $Y+3>DDMPIOSL
DO HDR
End DoDot:1
if $GET(DDMPOUT)
QUIT
+8 IF $EXTRACT(IOST,1,2)'="C-"
WRITE @IOF
DO ^%ZISC
+9 QUIT
+10 ;
BROWSET ;
+1 NEW %ZIS
+2 SET IOP=DDMPIOP
+3 DO ^%ZIS
+4 USE IO
+5 QUIT
+6 ;
HDR ;
+1 IF DDMPPG
IF $EXTRACT(IOST,1,2)="C-"
NEW DIR,Y
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET DDMPOUT=1
QUIT
+2 IF DDMPPG
WRITE @IOF
+3 SET DDMPPG=DDMPPG+1
+4 WRITE $PIECE($TEXT(HDR1+1),";;",2)_DDMPPG
+5 WRITE !,$PIECE($TEXT(HDR1+2),";;",2)
+6 WRITE !
+7 QUIT
+8 ;
HDR1 ;
+1 ;; Log for VA FileMan Data Import Page
+2 ;; ==============================
LN2 ;
+1 ;; No errors occured during this data import.
+2 ;; Summary of Import
+3 ;; -----------------
+4 ;; <<<IMPORT NOT COMPLETED:
+5 ;; MAXIMUM ERRORS DETECTED>>>
+6 ;; USER ABORT OF TASKED IMPORT>>>
+7 ;; Total Records Read:
+8 ;; Total Records Filed:
+9 ;; Total Records Rejected:
+10 ;; IEN of First Record Filed:
+11 ;; IEN of Last Record Filed:
+12 ;; Import Filing Started:
+13 ;; Import Filing Completed:
+14 ;; Time of Import Filing:
