LRJSML2 ;ALB/GTS - Lab Vista Hospital Location Utilities;02/24/2010 14:31:15
;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30
;
;
;Following API called from TaskMan scheduled job (LRJ SYS MAP HL TASKMAN RPT)
TSKMMARY(LRHLARY,LRMMARY) ;TASKMAN API for Mail Message array
;
;INPUT (Roots for arrays to create)
; LRHLARY - Raw Data Array [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
; LRMMARY - Mail Message array to send in msg [^TMP($J,"LRDATA")]
;
NEW LRFROM,LRTO,LRMSUBJ,XQSND,ERR,LRTOVA,LRTASKVA,LRINSTVA
DO NOW^%DTC
SET LRTO=$E(%,1,12) ;NOW: end date/time
KILL %,X,%H,%I(1),%I(2),%I(3)
SET:'$D(LRINIT) LRINIT=+$G(^TMP("LRJ SYS USER MANAGER - INIT",$JOB))
SET LRFROM=$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q") ;* IA #2263
;
IF LRFROM="" DO TSKERMSG^LRJSML6(LRMMARY) ;Current config not yet accepted
;
; Current Config accepted
IF LRFROM'="" DO
.DO EN^XPAR("SYS","LRJ HL LAST END DATE",,LRTO,.ERR) ;* IA #2263
.DO EN^XPAR("SYS","LRJ HL LAST START DATE",,LRFROM,.ERR) ;* IA #2263
.;
.DO BLDREC^LRJSMLA(LRFROM,LRTO,LRHLARY)
.;
.IF ^TMP($J,"LRJ SYS",1)=" NO CHANGES FOUND!!" DO
..NEW LRPARAM,LRLNCNT
..SET:$G(LRMMARY)="" LRMMARY=""
..SET LRLNCNT=0
..SET X=" VistA Hospital Location changes"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
..DO LRADDNOD^LRJSML3(.LRLNCNT,X,"","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT,"********************************************","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT,"* NO CHANGES FOUND FOR THIS DATE RANGE!! *","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT,"********************************************","","MAIL",LRMMARY)
..DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
..SET LRMSUBJ="NO HL changes"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
..SET XQSND=DUZ
..DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1) ;"1" = created by TaskMan; send to Mailgroup
.;
.IF ^TMP($J,"LRJ SYS",1)'=" NO CHANGES FOUND!!" DO
..DO CRTRPTAR^LRJSML8(LRHLARY,LRFROM,LRTO,"MAIL",LRMMARY)
..;
..SET LRMSUBJ="HL changes"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
..SET XQSND=DUZ
..DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1) ;"1" = created by TaskMan; send to Mailgroup
..;
..;Send Extract msg with attachmts
..SET LRMSUBJ="HL extract"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
..;
..;Check Network addresses and mail attachmt
..SET LRINSTVA("ADDR FLAGS")="R" ;Do not Restrict Message addressing
..SET LRINSTVA("FROM")="LAB_HLCSM_USER_ACTION"
..SET LRTOVA(XQSND)=""
..SET LRTOVA("G.LRJ SYS MAP HL TASK REPORT")=""
..;
..DO OUTLKARY^LRJSML8(LRHLARY,"^TMP($J,""LRNETMSG"")",LRMSUBJ)
..DO SENDMSG^XMXAPI(XQSND,LRMSUBJ,"^TMP($J,""LRNETMSG"")",.LRTOVA,.LRINSTVA)
;
KILL @LRHLARY,@LRMMARY,^TMP($J,"LRNETMSG")
QUIT
;
CRTMMARY(LRHLARY,LRMMARY) ;Load Hospital Locations in Mail Msg array
; Protocol: LRJ SYS MAP HL SEND MSG
;INPUT
; LRHLARY - Raw Data Array
; [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
; LRMMARY - Mail Msg array to send in message [^TMP($J,"LRDATA")]
;
NEW LRMSUBJ,XQSND,LRFROM,LRTO,XQSND,LRNODE,LRLPCNT,LRINIT
;
DO FULL^VALM1
SET LRINIT=$$INITCK^LRJSML1()
DO LISTHLMM^LRJSML8(LRHLARY)
IF 'LRINIT DO
.DO SETRNG^LRJSML1(.LRFROM,.LRTO)
.SET ^TMP("LRJ SYS USER MANAGER - DATES",$JOB)=LRFROM_"^"_LRTO
;
S:('LRINIT) LRMSUBJ="HL changes"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
IF LRINIT SET LRMSUBJ="HL Configurations on "_$$FMTE^XLFDT($P($G(^TMP($J,"LRJ SYS",1)),"^",11))
S XQSND=DUZ
S (LRNODE,LRLPCNT)=0
DO CREATMM^LRJSML1(LRHLARY) ;; Excutes REFRESH^LRJSML1 setting VALMBCK & VALMBG
F S LRNODE=$O(@VALMAR@(LRNODE)) Q:LRNODE="" DO
.S LRLPCNT=LRLPCNT+1
.S @LRMMARY@(LRLPCNT)=@VALMAR@(LRNODE,0)
.I LRLPCNT=1 D LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
.I @VALMAR@(LRNODE,0)["BEDS" DO
..D LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
..D LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
IF '$D(@VALMAR@(2,0)) DO
. DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
. DO LRADDLNE^LRJSML3(.LRLPCNT," No data was extracted for date range!!",LRMMARY)
. DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,0)
IF $O(@VALMAR@(0))="" K @LRMMARY@(1),@LRMMARY@(2),@LRMMARY@(3)
Q
;
;Protocol invokes this API: LRJ SYS MAP HL SEND EXT
CRTXTMM(LRHLARY) ;Load Hospital Locations in the Mail Msg array
;INPUT
; LRHLARY - Raw Data Array [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
;
NEW LRFROM,LRTO,LRMSUBJ,XQSND,LRINIT
SET (LRFROM,LRTO)=""
SET LRINIT=$$INITCK^LRJSML1()
;
DO FULL^VALM1
;
WRITE !!,"This action will send an E-mail message that includes the raw extracts as"
WRITE !," attachments to selected users. Large extract files can take time to create."
;
IF '$D(LRINIT) SET LRINIT=+$G(^TMP("LRJ SYS USER MANAGER - INIT",$JOB))
;
IF 'LRINIT DO
.DO SETRNG^LRJSML1(.LRFROM,.LRTO)
.SET ^TMP("LRJ SYS USER MANAGER - DATES",$JOB)=LRFROM_"^"_LRTO
.SET LRMSUBJ="HL extract"_$S($D(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$S($D(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
SET:LRINIT LRMSUBJ="HL Configuration extract on "_$$FMTE^XLFDT($P($G(^TMP($J,"LRJ SYS",1)),"^",11))
SET XQSND=DUZ
DO SNDEXT^LRJSML8(LRMSUBJ,XQSND,LRHLARY)
DO DISPEXT^LRJSML1(LRHLARY)
DO MSG^LRJSML
SET VALMBCK="R"
SET VALMBG=1
QUIT
;
;Called by: ACPTCNFG^LRJSML6
PARAMED ;Edit Dates referenced by tasked Option "LRJ SYS MAP HL TASKMAN RPT"
; This API invokes Edit Instance and Value of Parameter API to edit following Parameters:
; LRJ HL LAST START DATE
; LRJ HL LAST END DATE
;
; These parameters control the period that the Audit file extract is performed via the
; TaskMan scheduled job for the "LRJ SYS MAP HL TASKMAN RPT" option
NEW LROK
SET LROK=1
;
WRITE !!,"Lab Hospital Location Audit extract dates indicate the report dates"
WRITE !," for the most recent Legacy VistA Hospital Location extract completed."
WRITE !!,"The LRJ HL LAST END DATE is the start date/time used by the next"
WRITE !," execution of the LRJ SYS MAP HL TASKMAN RPT option."
WRITE !!,"WARNING: Editing the LRJ HL LAST END DATE will affect the information"
WRITE !," reported by the LRJ SYS MAP HL TASKMAN RPT option. This option makes"
WRITE !," assumptions about data previously reported based upon this date.",!
WRITE !!,"A USER CHANGING THE 'LRJ HL LAST END DATE' MUST UNDERSTAND THE RESULT"
WRITE !," OF THE CHANGE MADE AND [IF NECESSARY] RECONCILE THE NEXT REPORT AGAINST"
WRITE !," PREVIOUS REPORTS TO ASSURE LAB LOCATIONS DEFINED ON COTS MATCH"
WRITE !," THOSE DEFINED ON LEGACY VISTA!",!
SET DIR(0)="E"
DO ^DIR
SET LROK=+Y
KILL X,Y,DTOUT,DUOUT,DIROUT
;
IF LROK DO
.D EDITPAR^XPAREDIT("LRJ HL LAST START DATE") ;;IA #2336
.WRITE !!,"-------------------------------------------------------------------------------"
.D EDITPAR^XPAREDIT("LRJ HL LAST END DATE") ;;IA #2336
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRJSML2 7544 printed Oct 16, 2024@18:16:25 Page 2
LRJSML2 ;ALB/GTS - Lab Vista Hospital Location Utilities;02/24/2010 14:31:15
+1 ;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30
+2 ;
+3 ;
+4 ;Following API called from TaskMan scheduled job (LRJ SYS MAP HL TASKMAN RPT)
TSKMMARY(LRHLARY,LRMMARY) ;TASKMAN API for Mail Message array
+1 ;
+2 ;INPUT (Roots for arrays to create)
+3 ; LRHLARY - Raw Data Array [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
+4 ; LRMMARY - Mail Message array to send in msg [^TMP($J,"LRDATA")]
+5 ;
+6 NEW LRFROM,LRTO,LRMSUBJ,XQSND,ERR,LRTOVA,LRTASKVA,LRINSTVA
+7 DO NOW^%DTC
+8 ;NOW: end date/time
SET LRTO=$EXTRACT(%,1,12)
+9 KILL %,X,%H,%I(1),%I(2),%I(3)
+10 if '$DATA(LRINIT)
SET LRINIT=+$GET(^TMP("LRJ SYS USER MANAGER - INIT",$JOB))
+11 ;* IA #2263
SET LRFROM=$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")
+12 ;
+13 ;Current config not yet accepted
IF LRFROM=""
DO TSKERMSG^LRJSML6(LRMMARY)
+14 ;
+15 ; Current Config accepted
+16 IF LRFROM'=""
Begin DoDot:1
+17 ;* IA #2263
DO EN^XPAR("SYS","LRJ HL LAST END DATE",,LRTO,.ERR)
+18 ;* IA #2263
DO EN^XPAR("SYS","LRJ HL LAST START DATE",,LRFROM,.ERR)
+19 ;
+20 DO BLDREC^LRJSMLA(LRFROM,LRTO,LRHLARY)
+21 ;
+22 IF ^TMP($JOB,"LRJ SYS",1)=" NO CHANGES FOUND!!"
Begin DoDot:2
+23 NEW LRPARAM,LRLNCNT
+24 if $GET(LRMMARY)=""
SET LRMMARY=""
+25 SET LRLNCNT=0
+26 SET X=" VistA Hospital Location changes"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
+27 DO LRADDNOD^LRJSML3(.LRLNCNT,X,"","MAIL",LRMMARY)
+28 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+29 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+30 DO LRADDNOD^LRJSML3(.LRLNCNT,"********************************************","","MAIL",LRMMARY)
+31 DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
+32 DO LRADDNOD^LRJSML3(.LRLNCNT,"* NO CHANGES FOUND FOR THIS DATE RANGE!! *","","MAIL",LRMMARY)
+33 DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
+34 DO LRADDNOD^LRJSML3(.LRLNCNT,"********************************************","","MAIL",LRMMARY)
+35 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+36 SET LRMSUBJ="NO HL changes"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
+37 SET XQSND=DUZ
+38 ;"1" = created by TaskMan; send to Mailgroup
DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1)
End DoDot:2
+39 ;
+40 IF ^TMP($JOB,"LRJ SYS",1)'=" NO CHANGES FOUND!!"
Begin DoDot:2
+41 DO CRTRPTAR^LRJSML8(LRHLARY,LRFROM,LRTO,"MAIL",LRMMARY)
+42 ;
+43 SET LRMSUBJ="HL changes"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
+44 SET XQSND=DUZ
+45 ;"1" = created by TaskMan; send to Mailgroup
DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1)
+46 ;
+47 ;Send Extract msg with attachmts
+48 SET LRMSUBJ="HL extract"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
+49 ;
+50 ;Check Network addresses and mail attachmt
+51 ;Do not Restrict Message addressing
SET LRINSTVA("ADDR FLAGS")="R"
+52 SET LRINSTVA("FROM")="LAB_HLCSM_USER_ACTION"
+53 SET LRTOVA(XQSND)=""
+54 SET LRTOVA("G.LRJ SYS MAP HL TASK REPORT")=""
+55 ;
+56 DO OUTLKARY^LRJSML8(LRHLARY,"^TMP($J,""LRNETMSG"")",LRMSUBJ)
+57 DO SENDMSG^XMXAPI(XQSND,LRMSUBJ,"^TMP($J,""LRNETMSG"")",.LRTOVA,.LRINSTVA)
End DoDot:2
End DoDot:1
+58 ;
+59 KILL @LRHLARY,@LRMMARY,^TMP($JOB,"LRNETMSG")
+60 QUIT
+61 ;
CRTMMARY(LRHLARY,LRMMARY) ;Load Hospital Locations in Mail Msg array
+1 ; Protocol: LRJ SYS MAP HL SEND MSG
+2 ;INPUT
+3 ; LRHLARY - Raw Data Array
+4 ; [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
+5 ; LRMMARY - Mail Msg array to send in message [^TMP($J,"LRDATA")]
+6 ;
+7 NEW LRMSUBJ,XQSND,LRFROM,LRTO,XQSND,LRNODE,LRLPCNT,LRINIT
+8 ;
+9 DO FULL^VALM1
+10 SET LRINIT=$$INITCK^LRJSML1()
+11 DO LISTHLMM^LRJSML8(LRHLARY)
+12 IF 'LRINIT
Begin DoDot:1
+13 DO SETRNG^LRJSML1(.LRFROM,.LRTO)
+14 SET ^TMP("LRJ SYS USER MANAGER - DATES",$JOB)=LRFROM_"^"_LRTO
End DoDot:1
+15 ;
+16 if ('LRINIT)
SET LRMSUBJ="HL changes"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
+17 IF LRINIT
SET LRMSUBJ="HL Configurations on "_$$FMTE^XLFDT($PIECE($GET(^TMP($JOB,"LRJ SYS",1)),"^",11))
+18 SET XQSND=DUZ
+19 SET (LRNODE,LRLPCNT)=0
+20 ;; Excutes REFRESH^LRJSML1 setting VALMBCK & VALMBG
DO CREATMM^LRJSML1(LRHLARY)
+21 FOR
SET LRNODE=$ORDER(@VALMAR@(LRNODE))
if LRNODE=""
QUIT
Begin DoDot:1
+22 SET LRLPCNT=LRLPCNT+1
+23 SET @LRMMARY@(LRLPCNT)=@VALMAR@(LRNODE,0)
+24 IF LRLPCNT=1
DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
+25 IF @VALMAR@(LRNODE,0)["BEDS"
Begin DoDot:2
+26 DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
+27 DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
End DoDot:2
End DoDot:1
+28 IF '$DATA(@VALMAR@(2,0))
Begin DoDot:1
+29 DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
+30 DO LRADDLNE^LRJSML3(.LRLPCNT," No data was extracted for date range!!",LRMMARY)
+31 DO LRADDLNE^LRJSML3(.LRLPCNT,"",LRMMARY)
End DoDot:1
+32 DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,0)
+33 IF $ORDER(@VALMAR@(0))=""
KILL @LRMMARY@(1),@LRMMARY@(2),@LRMMARY@(3)
+34 QUIT
+35 ;
+36 ;Protocol invokes this API: LRJ SYS MAP HL SEND EXT
CRTXTMM(LRHLARY) ;Load Hospital Locations in the Mail Msg array
+1 ;INPUT
+2 ; LRHLARY - Raw Data Array [^TMP($J,"LRJ SYS") when called by LRJ SYS MAP HL SEND MSG]
+3 ;
+4 NEW LRFROM,LRTO,LRMSUBJ,XQSND,LRINIT
+5 SET (LRFROM,LRTO)=""
+6 SET LRINIT=$$INITCK^LRJSML1()
+7 ;
+8 DO FULL^VALM1
+9 ;
+10 WRITE !!,"This action will send an E-mail message that includes the raw extracts as"
+11 WRITE !," attachments to selected users. Large extract files can take time to create."
+12 ;
+13 IF '$DATA(LRINIT)
SET LRINIT=+$GET(^TMP("LRJ SYS USER MANAGER - INIT",$JOB))
+14 ;
+15 IF 'LRINIT
Begin DoDot:1
+16 DO SETRNG^LRJSML1(.LRFROM,.LRTO)
+17 SET ^TMP("LRJ SYS USER MANAGER - DATES",$JOB)=LRFROM_"^"_LRTO
+18 SET LRMSUBJ="HL extract"_$SELECT($DATA(LRFROM):" from "_$$FMTE^XLFDT(LRFROM),1:"")_$SELECT($DATA(LRTO):" to "_$$FMTE^XLFDT(LRTO),1:"")
End DoDot:1
+19 if LRINIT
SET LRMSUBJ="HL Configuration extract on "_$$FMTE^XLFDT($PIECE($GET(^TMP($JOB,"LRJ SYS",1)),"^",11))
+20 SET XQSND=DUZ
+21 DO SNDEXT^LRJSML8(LRMSUBJ,XQSND,LRHLARY)
+22 DO DISPEXT^LRJSML1(LRHLARY)
+23 DO MSG^LRJSML
+24 SET VALMBCK="R"
+25 SET VALMBG=1
+26 QUIT
+27 ;
+28 ;Called by: ACPTCNFG^LRJSML6
PARAMED ;Edit Dates referenced by tasked Option "LRJ SYS MAP HL TASKMAN RPT"
+1 ; This API invokes Edit Instance and Value of Parameter API to edit following Parameters:
+2 ; LRJ HL LAST START DATE
+3 ; LRJ HL LAST END DATE
+4 ;
+5 ; These parameters control the period that the Audit file extract is performed via the
+6 ; TaskMan scheduled job for the "LRJ SYS MAP HL TASKMAN RPT" option
+7 NEW LROK
+8 SET LROK=1
+9 ;
+10 WRITE !!,"Lab Hospital Location Audit extract dates indicate the report dates"
+11 WRITE !," for the most recent Legacy VistA Hospital Location extract completed."
+12 WRITE !!,"The LRJ HL LAST END DATE is the start date/time used by the next"
+13 WRITE !," execution of the LRJ SYS MAP HL TASKMAN RPT option."
+14 WRITE !!,"WARNING: Editing the LRJ HL LAST END DATE will affect the information"
+15 WRITE !," reported by the LRJ SYS MAP HL TASKMAN RPT option. This option makes"
+16 WRITE !," assumptions about data previously reported based upon this date.",!
+17 WRITE !!,"A USER CHANGING THE 'LRJ HL LAST END DATE' MUST UNDERSTAND THE RESULT"
+18 WRITE !," OF THE CHANGE MADE AND [IF NECESSARY] RECONCILE THE NEXT REPORT AGAINST"
+19 WRITE !," PREVIOUS REPORTS TO ASSURE LAB LOCATIONS DEFINED ON COTS MATCH"
+20 WRITE !," THOSE DEFINED ON LEGACY VISTA!",!
+21 SET DIR(0)="E"
+22 DO ^DIR
+23 SET LROK=+Y
+24 KILL X,Y,DTOUT,DUOUT,DIROUT
+25 ;
+26 IF LROK
Begin DoDot:1
+27 ;;IA #2336
DO EDITPAR^XPAREDIT("LRJ HL LAST START DATE")
+28 WRITE !!,"-------------------------------------------------------------------------------"
+29 ;;IA #2336
DO EDITPAR^XPAREDIT("LRJ HL LAST END DATE")
+30 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
End DoDot:1
+31 QUIT
