LRJSML6 ;ALB/GTS - Lab Vista Hospital Location Initialization;02/22/2010 14:37:07
;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30
;
;
SCHDBCKG ;Schedule the HL Change Audit Rpt
;
;Called from Protocol: LRJ SYS MAP HL SCHED AUDIT RPT TASK
;
NEW LROK,LRSTDTM,LROPT,LRFREQ,LRPARMDT,LRSCHED
D FULL^VALM1
SET LROK=1
WRITE !!,"This action will schedule the 'LRJ SYS MAP HL Change Management TaskMan Report'"
WRITE !," option [LRJ SYS MAP HL TASKMAN RPT] as a background task.",!
;
IF +$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")>0 SET LROK=1 ;* IA #2263
IF +$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")'>0 SET LROK=0
;
IF 'LROK DO
.SET DIR("A",1)=""
.SET DIR("A",2)="Hospital Location configuration has not been accepted!! Check configuration."
.SET DIR("A",3)=""
.SET DIR("A",4)="When Hospital Locations on legacy VistA match those on COTS,"
.SET DIR("A",5)=" execute the 'Accept/edit current HL config dates' action and then"
.SET DIR("A",6)=" schedule the background task via this action."
.SET DIR("A",7)=""
.SET DIR("A")="Press RETURN to redisplay Lab Hospital Location Tools..."
.SET DIR(0)="E"
.DO ^DIR
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
;
;If End Date defined, Prompt to set Background job
IF LROK DO
.WRITE !
.SET DIR(0)="Y"
.SET DIR("A")="Do you want to do this"
.SET DIR("B")="NO"
.SET DIR("?",1)="Define the TaskMan schedule for running the 'LRJ SYS MAP HL TASKMAN RPT' option."
.SET DIR("?",2)="This option will report changes to hospital locations since the last time the"
.SET DIR("?")="report was generated [current value of LRJ HL LAST END DATE]."
.DO ^DIR
.SET LROK=+Y
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
;
;Prompt for start time
IF LROK DO
.NEW STRESULT,LRDEFSD
.DO OPTSTAT^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT",.LRSCHED)
.SET LRDEFSD=$P($G(LRSCHED(1)),"^",2)
.SET LRDEFSD=$$FMTE^XLFDT(LRDEFSD)
.SET STRESULT=$$STARTDTM^LRJSMLU(LRDEFSD)
.SET LRSTDTM=$P(STRESULT,"^",2)
.SET LROK=+STRESULT
.IF LROK,LRSTDTM="" SET LRSTDTM=$P(STRESULT,"^",3)
;
IF LROK,LRSTDTM="@" DO
.NEW LRERR,LRDELTSK
.SET DIR(0)="Y"
.SET DIR("A")="Are you sure you want to delete the background task"
.SET DIR("B")="NO"
.SET DIR("?")="You are about to de-schedule the LRJ SYS MAP HL Change Management Task"
.DO ^DIR
.SET LRDELTSK=+Y
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
.DO:LRDELTSK RESCH^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT","@","","@","L",.LRERR)
.IF +$G(LRERR)<0 DO
..SET DIR("A",1)="LRJ SYS MAP HL TASKMAN RPT option not found!!"
..SET DIR("A",2)="Check Installation before running this option again."
..SET DIR(0)="E"
..DO ^DIR
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
.SET LROK=0
;
;Prompt for frequency when task is scheduled
IF LROK DO
.NEW LRDEFFRQ
.SET LRDEFFRQ=$P($G(LRSCHED(1)),"^",3)
.SET DIR(0)="FAr^^D BJITS^LRJSMLU"
.SET DIR("A")="RESCHEDULING FREQUENCY: "
.SET:$G(LRDEFFRQ)="" DIR("B")="1D"
.SET:$G(LRDEFFRQ)'="" DIR("B")=LRDEFFRQ
.SET DIR("?")="^D ITSHELP^LRJSMLU(X)"
.DO ^DIR
.SET LRFREQ=Y
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
.IF $$ENTCHK(LRFREQ)>0 DO
..DO RESCH^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT",LRSTDTM,"",LRFREQ,"L",.LRERR)
..SET LROK=0
;
;Show updated task schedule
DO INIT^LRJSML5 ;Sets VALMBCK & VALMBG
QUIT
;
TSKERMSG(LRMMARY) ; Send message when Task job runs before HL config accepted
NEW LRPARAM,LRLNCNT,LRMSUBJ,XQSND
SET:$G(LRMMARY)="" LRMMARY=""
SET LRLNCNT=0
SET X=" VistA LRJ SYS MAP HL TASKMAN RPT was scheduled and run but the current"
DO LRADDNOD^LRJSML3(.LRLNCNT,X,"","MAIL",LRMMARY)
SET X=" Lab Hospital Location configuration has not been accepted!"
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,"* HL AUDIT REPORT NOT GENERATED!! *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* Use the Hospital Location Monitor Tools 'Accept *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* current HL config/edit dates' action to accept *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* Hospital Locations configured on COTS and schedule *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* the 'LRJ SYS MAP HL TASKMAN RPT' option! *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT,"*************************************************************","","MAIL",LRMMARY)
DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
SET LRMSUBJ="Audit Report not Generated"_$S(+$G(LRTO)>0:" on "_$$FMTE^XLFDT(LRTO),1:"")_"!!"
SET XQSND=DUZ
DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1) ;"1" = created by TaskMan; send to Mailgroup
QUIT
;
ENTCHK(X) ;Check X for legit frequency indicator
;
; Output:
; 1 - X is legit frequencey
; 0 - X is not legit frequency
;
IF X?1.3N1"H" Q 1
IF X?1.4N1"S" Q 1
IF X?1.3N1"D" Q 1
IF X?1.2N1"M" Q 1
IF X?1.2N1"M(".E1")" Q 1
IF "MTWRFSUDE"[$E(X),"@,"[$E(X,2) Q 1
QUIT 0
;
BJITT ;input transform for time (#2)
N Y,%,DIR S %DT="ETRXF" D ^%DT S X=Y,%=$$NOW^XLFDT() I %+.0002>X K X
I '$D(X) DO
.W !,?5,"The current time is ",$E(%,9,10),":",$E(%,11,12)
.W !,?2,"Queued time must be at least 2 minutes later than the current time."
Q
;
ACPTCNFG ; Accept the current HL Configuration or edit parameters for LRJ SYS MAP HL TASKMAN RPT
;Called from Protocol: LRJ SYS MAP HL ACCEPT CONFIG
;
; This API will update the Last Start/End date for the HLCMS background task report
NEW LROK,LRSTDTM,LROPT,LRPARMDT,LREND,LRBEGIN,LRAUDMSG,LRACTEDT
D FULL^VALM1
SET LRACTEDT=""
SET LROK=1
SET LRBEGIN=$$GET^XPAR("SYS","LRJ HL LAST START DATE",1,"Q") ;* IA #2263
SET LREND=$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")
IF +LRBEGIN'>0,+LREND'>0 SET LRACTEDT="ACCEPT"
IF (+LRBEGIN>0)!(+LREND>0) SET LRACTEDT="EDIT"
IF LRACTEDT="ACCEPT" DO
.WRITE !,"This action will accept the current Hospital Location configuration on"
.WRITE !," COTS and define reporting start dates for the [LRJ SYS MAP HL TASKMAN RPT]"
.WRITE !," background task."
.;
.;Prompt to accept current config
.SET DIR(0)="Y"
.SET DIR("A")="Accept current Lab Hospital Location Config"
.SET DIR("B")="NO"
.SET DIR("?",1)="Accepting the current configuration will set the"
.SET DIR("?",2)="LRJ HL LAST START DATE and LRJ HL LAST END DATE parameters."
.SET DIR("?",3)="If COTS locations match legacy VistA, enter 'YES'."
.SET DIR("?")="If COTS locations do NOT match legacy VistA, enter 'NO'."
.DO ^DIR
.SET LROK=Y
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
.;
.;If accept config, set parameters
.IF LROK DO
..NEW ERR
..DO NOW^%DTC
..SET LRPARMDT=$E(%,1,12) ;Set NOW for Parameter date
..DO EN^XPAR("SYS","LRJ HL LAST END DATE",,LRPARMDT,.ERR) ;* IA #2263
..DO EN^XPAR("SYS","LRJ HL LAST START DATE",,LRPARMDT,.ERR)
.;
.IF 'LROK DO
..SET DIR("A",1)=" "
..SET DIR("A",2)=" Current configuration not accepted!!"
..SET DIR("A",3)=" "
..SET DIR("A")="Press Return to continue"
..SET DIR(0)="E"
..DO ^DIR
..KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
;
IF LRACTEDT="EDIT" DO
.SET DIR(0)="Y"
.SET DIR("A",1)=" "
.SET DIR("A",2)="Previous Audit Report dates are "_$S(LRBEGIN'="":$$FMTE^XLFDT(LRBEGIN),1:"undefined")_" - "_$S(LREND'="":$$FMTE^XLFDT(LREND),1:"undefined")
.SET DIR("A",3)=" "
.SET DIR("A")="Do you want to edit these dates"
.SET DIR("B")="NO"
.SET DIR("?",1)="These dates control the window of time in which Hospital Location changes"
.SET DIR("?",2)="are reported. The Tasked reports assume COTS Hospital Location"
.SET DIR("?",3)="configurations are current as of the End Date. Changing these dates will"
.SET DIR("?")="change the report generated by the LRJ SYS MAP HL TASKMAN RPT background job!!"
.D ^DIR
.SET LROK=Y
.KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
.IF LROK D PARAMED^LRJSML2
;IF TASK SCHEDULE SCREEN DO INIT^LRJSML5 ELSE...
IF ^TMP("LRJ SYS MAP HL INIT MGR",$J,1,0)=" Hospital Location Audit task schedule" DO
.DO INIT^LRJSML5
E DO
.D MSG^LRJSML
.SET VALMBCK="R"
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRJSML6 8603 printed Dec 13, 2024@02:15:44 Page 2
LRJSML6 ;ALB/GTS - Lab Vista Hospital Location Initialization;02/22/2010 14:37:07
+1 ;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30
+2 ;
+3 ;
SCHDBCKG ;Schedule the HL Change Audit Rpt
+1 ;
+2 ;Called from Protocol: LRJ SYS MAP HL SCHED AUDIT RPT TASK
+3 ;
+4 NEW LROK,LRSTDTM,LROPT,LRFREQ,LRPARMDT,LRSCHED
+5 DO FULL^VALM1
+6 SET LROK=1
+7 WRITE !!,"This action will schedule the 'LRJ SYS MAP HL Change Management TaskMan Report'"
+8 WRITE !," option [LRJ SYS MAP HL TASKMAN RPT] as a background task.",!
+9 ;
+10 ;* IA #2263
IF +$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")>0
SET LROK=1
+11 IF +$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")'>0
SET LROK=0
+12 ;
+13 IF 'LROK
Begin DoDot:1
+14 SET DIR("A",1)=""
+15 SET DIR("A",2)="Hospital Location configuration has not been accepted!! Check configuration."
+16 SET DIR("A",3)=""
+17 SET DIR("A",4)="When Hospital Locations on legacy VistA match those on COTS,"
+18 SET DIR("A",5)=" execute the 'Accept/edit current HL config dates' action and then"
+19 SET DIR("A",6)=" schedule the background task via this action."
+20 SET DIR("A",7)=""
+21 SET DIR("A")="Press RETURN to redisplay Lab Hospital Location Tools..."
+22 SET DIR(0)="E"
+23 DO ^DIR
+24 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
End DoDot:1
+25 ;
+26 ;If End Date defined, Prompt to set Background job
+27 IF LROK
Begin DoDot:1
+28 WRITE !
+29 SET DIR(0)="Y"
+30 SET DIR("A")="Do you want to do this"
+31 SET DIR("B")="NO"
+32 SET DIR("?",1)="Define the TaskMan schedule for running the 'LRJ SYS MAP HL TASKMAN RPT' option."
+33 SET DIR("?",2)="This option will report changes to hospital locations since the last time the"
+34 SET DIR("?")="report was generated [current value of LRJ HL LAST END DATE]."
+35 DO ^DIR
+36 SET LROK=+Y
+37 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
End DoDot:1
+38 ;
+39 ;Prompt for start time
+40 IF LROK
Begin DoDot:1
+41 NEW STRESULT,LRDEFSD
+42 DO OPTSTAT^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT",.LRSCHED)
+43 SET LRDEFSD=$PIECE($GET(LRSCHED(1)),"^",2)
+44 SET LRDEFSD=$$FMTE^XLFDT(LRDEFSD)
+45 SET STRESULT=$$STARTDTM^LRJSMLU(LRDEFSD)
+46 SET LRSTDTM=$PIECE(STRESULT,"^",2)
+47 SET LROK=+STRESULT
+48 IF LROK
IF LRSTDTM=""
SET LRSTDTM=$PIECE(STRESULT,"^",3)
End DoDot:1
+49 ;
+50 IF LROK
IF LRSTDTM="@"
Begin DoDot:1
+51 NEW LRERR,LRDELTSK
+52 SET DIR(0)="Y"
+53 SET DIR("A")="Are you sure you want to delete the background task"
+54 SET DIR("B")="NO"
+55 SET DIR("?")="You are about to de-schedule the LRJ SYS MAP HL Change Management Task"
+56 DO ^DIR
+57 SET LRDELTSK=+Y
+58 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
+59 if LRDELTSK
DO RESCH^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT","@","","@","L",.LRERR)
+60 IF +$GET(LRERR)<0
Begin DoDot:2
+61 SET DIR("A",1)="LRJ SYS MAP HL TASKMAN RPT option not found!!"
+62 SET DIR("A",2)="Check Installation before running this option again."
+63 SET DIR(0)="E"
+64 DO ^DIR
End DoDot:2
+65 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
+66 SET LROK=0
End DoDot:1
+67 ;
+68 ;Prompt for frequency when task is scheduled
+69 IF LROK
Begin DoDot:1
+70 NEW LRDEFFRQ
+71 SET LRDEFFRQ=$PIECE($GET(LRSCHED(1)),"^",3)
+72 SET DIR(0)="FAr^^D BJITS^LRJSMLU"
+73 SET DIR("A")="RESCHEDULING FREQUENCY: "
+74 if $GET(LRDEFFRQ)=""
SET DIR("B")="1D"
+75 if $GET(LRDEFFRQ)'=""
SET DIR("B")=LRDEFFRQ
+76 SET DIR("?")="^D ITSHELP^LRJSMLU(X)"
+77 DO ^DIR
+78 SET LRFREQ=Y
+79 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
+80 IF $$ENTCHK(LRFREQ)>0
Begin DoDot:2
+81 DO RESCH^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT",LRSTDTM,"",LRFREQ,"L",.LRERR)
+82 SET LROK=0
End DoDot:2
End DoDot:1
+83 ;
+84 ;Show updated task schedule
+85 ;Sets VALMBCK & VALMBG
DO INIT^LRJSML5
+86 QUIT
+87 ;
TSKERMSG(LRMMARY) ; Send message when Task job runs before HL config accepted
+1 NEW LRPARAM,LRLNCNT,LRMSUBJ,XQSND
+2 if $GET(LRMMARY)=""
SET LRMMARY=""
+3 SET LRLNCNT=0
+4 SET X=" VistA LRJ SYS MAP HL TASKMAN RPT was scheduled and run but the current"
+5 DO LRADDNOD^LRJSML3(.LRLNCNT,X,"","MAIL",LRMMARY)
+6 SET X=" Lab Hospital Location configuration has not been accepted!"
+7 DO LRADDNOD^LRJSML3(.LRLNCNT,X,"","MAIL",LRMMARY)
+8 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+9 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+10 DO LRADDNOD^LRJSML3(.LRLNCNT,"*************************************************************","","MAIL",LRMMARY)
+11 DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
+12 DO LRADDNOD^LRJSML3(.LRLNCNT,"* HL AUDIT REPORT NOT GENERATED!! *","","MAIL",LRMMARY)
+13 DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
+14 DO LRADDNOD^LRJSML3(.LRLNCNT,"* Use the Hospital Location Monitor Tools 'Accept *","","MAIL",LRMMARY)
+15 DO LRADDNOD^LRJSML3(.LRLNCNT,"* current HL config/edit dates' action to accept *","","MAIL",LRMMARY)
+16 DO LRADDNOD^LRJSML3(.LRLNCNT,"* Hospital Locations configured on COTS and schedule *","","MAIL",LRMMARY)
+17 DO LRADDNOD^LRJSML3(.LRLNCNT,"* the 'LRJ SYS MAP HL TASKMAN RPT' option! *","","MAIL",LRMMARY)
+18 DO LRADDNOD^LRJSML3(.LRLNCNT,"* *","","MAIL",LRMMARY)
+19 DO LRADDNOD^LRJSML3(.LRLNCNT,"*************************************************************","","MAIL",LRMMARY)
+20 DO LRADDNOD^LRJSML3(.LRLNCNT," ","","MAIL",LRMMARY)
+21 SET LRMSUBJ="Audit Report not Generated"_$SELECT(+$GET(LRTO)>0:" on "_$$FMTE^XLFDT(LRTO),1:"")_"!!"
+22 SET XQSND=DUZ
+23 ;"1" = created by TaskMan; send to Mailgroup
DO SNDMSG^LRJSML8(LRMSUBJ,XQSND,LRMMARY,1)
+24 QUIT
+25 ;
ENTCHK(X) ;Check X for legit frequency indicator
+1 ;
+2 ; Output:
+3 ; 1 - X is legit frequencey
+4 ; 0 - X is not legit frequency
+5 ;
+6 IF X?1.3N1"H"
QUIT 1
+7 IF X?1.4N1"S"
QUIT 1
+8 IF X?1.3N1"D"
QUIT 1
+9 IF X?1.2N1"M"
QUIT 1
+10 IF X?1.2N1"M(".E1")"
QUIT 1
+11 IF "MTWRFSUDE"[$EXTRACT(X)
IF "@,"[$EXTRACT(X,2)
QUIT 1
+12 QUIT 0
+13 ;
BJITT ;input transform for time (#2)
+1 NEW Y,%,DIR
SET %DT="ETRXF"
DO ^%DT
SET X=Y
SET %=$$NOW^XLFDT()
IF %+.0002>X
KILL X
+2 IF '$DATA(X)
Begin DoDot:1
+3 WRITE !,?5,"The current time is ",$EXTRACT(%,9,10),":",$EXTRACT(%,11,12)
+4 WRITE !,?2,"Queued time must be at least 2 minutes later than the current time."
End DoDot:1
+5 QUIT
+6 ;
ACPTCNFG ; Accept the current HL Configuration or edit parameters for LRJ SYS MAP HL TASKMAN RPT
+1 ;Called from Protocol: LRJ SYS MAP HL ACCEPT CONFIG
+2 ;
+3 ; This API will update the Last Start/End date for the HLCMS background task report
+4 NEW LROK,LRSTDTM,LROPT,LRPARMDT,LREND,LRBEGIN,LRAUDMSG,LRACTEDT
+5 DO FULL^VALM1
+6 SET LRACTEDT=""
+7 SET LROK=1
+8 ;* IA #2263
SET LRBEGIN=$$GET^XPAR("SYS","LRJ HL LAST START DATE",1,"Q")
+9 SET LREND=$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")
+10 IF +LRBEGIN'>0
IF +LREND'>0
SET LRACTEDT="ACCEPT"
+11 IF (+LRBEGIN>0)!(+LREND>0)
SET LRACTEDT="EDIT"
+12 IF LRACTEDT="ACCEPT"
Begin DoDot:1
+13 WRITE !,"This action will accept the current Hospital Location configuration on"
+14 WRITE !," COTS and define reporting start dates for the [LRJ SYS MAP HL TASKMAN RPT]"
+15 WRITE !," background task."
+16 ;
+17 ;Prompt to accept current config
+18 SET DIR(0)="Y"
+19 SET DIR("A")="Accept current Lab Hospital Location Config"
+20 SET DIR("B")="NO"
+21 SET DIR("?",1)="Accepting the current configuration will set the"
+22 SET DIR("?",2)="LRJ HL LAST START DATE and LRJ HL LAST END DATE parameters."
+23 SET DIR("?",3)="If COTS locations match legacy VistA, enter 'YES'."
+24 SET DIR("?")="If COTS locations do NOT match legacy VistA, enter 'NO'."
+25 DO ^DIR
+26 SET LROK=Y
+27 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
+28 ;
+29 ;If accept config, set parameters
+30 IF LROK
Begin DoDot:2
+31 NEW ERR
+32 DO NOW^%DTC
+33 ;Set NOW for Parameter date
SET LRPARMDT=$EXTRACT(%,1,12)
+34 ;* IA #2263
DO EN^XPAR("SYS","LRJ HL LAST END DATE",,LRPARMDT,.ERR)
+35 DO EN^XPAR("SYS","LRJ HL LAST START DATE",,LRPARMDT,.ERR)
End DoDot:2
+36 ;
+37 IF 'LROK
Begin DoDot:2
+38 SET DIR("A",1)=" "
+39 SET DIR("A",2)=" Current configuration not accepted!!"
+40 SET DIR("A",3)=" "
+41 SET DIR("A")="Press Return to continue"
+42 SET DIR(0)="E"
+43 DO ^DIR
+44 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
End DoDot:2
End DoDot:1
+45 ;
+46 IF LRACTEDT="EDIT"
Begin DoDot:1
+47 SET DIR(0)="Y"
+48 SET DIR("A",1)=" "
+49 SET DIR("A",2)="Previous Audit Report dates are "_$SELECT(LRBEGIN'="":$$FMTE^XLFDT(LRBEGIN),1:"undefined")_" - "_$SELECT(LREND'="":$$FMTE^XLFDT(LREND),1:"undefined")
+50 SET DIR("A",3)=" "
+51 SET DIR("A")="Do you want to edit these dates"
+52 SET DIR("B")="NO"
+53 SET DIR("?",1)="These dates control the window of time in which Hospital Location changes"
+54 SET DIR("?",2)="are reported. The Tasked reports assume COTS Hospital Location"
+55 SET DIR("?",3)="configurations are current as of the End Date. Changing these dates will"
+56 SET DIR("?")="change the report generated by the LRJ SYS MAP HL TASKMAN RPT background job!!"
+57 DO ^DIR
+58 SET LROK=Y
+59 KILL DIR,X,Y,DTOUT,DIRUT,DUOUT
+60 IF LROK
DO PARAMED^LRJSML2
End DoDot:1
+61 ;IF TASK SCHEDULE SCREEN DO INIT^LRJSML5 ELSE...
+62 IF ^TMP("LRJ SYS MAP HL INIT MGR",$JOB,1,0)=" Hospital Location Audit task schedule"
Begin DoDot:1
+63 DO INIT^LRJSML5
End DoDot:1
+64 IF '$TEST
Begin DoDot:1
+65 DO MSG^LRJSML
+66 SET VALMBCK="R"
End DoDot:1
+67 QUIT
