KMPDTU10 ;OAK/RAK/JML - CP Tools Timing Utility ;9/1/2015
;;3.0;Capacity Management Tools;**3**;Jan 15, 2013;Build 42
;
DATERNG(KMPDSS,KMPDEF,KMPDRES,KMPDDT) ; timing date range for a subscript
;-----------------------------------------------------------------------
; KMPDSS.... KMPTMP SUBSCRIPT
; KMPDEF.... (optional) default number of days to track - if not defined
; will default to seven (7)
; KMPDRES(). Results of api in format:
; KMPDRES(0)=piece 1 - Start Date Internal
; piece 2 - End Date Internal
; piece 3 - Start Date External
; piece 4 - End Date External
; Null ("") is returned if no results are found
; KMPDRES(1)=NumberOfDays
; KMPDDT.... Date only (do not ask for days)
; 0 - both date & days
; 1 - date only - do not ask for days
;
; This api determines the date range for KMPDSS (ex: ORWCV for CPRS
; cover sheets). It asks the user the ending date. After the ending
; date is entered, the user is prompted for the number of days to track.
; Results are returned in the KMPDRES() array as described above.
;-----------------------------------------------------------------------
K KMPDRES S KMPDRES(0)="",KMPDRES(1)=""
Q:$G(KMPDSS)=""
S:'$G(KMPDEF) KMPDEF=7
S KMPDDT=+$G(KMPDDT)
N COUNT,DATE,DAYS,END,SESS,START
; start & end dates
S DATE=$$DATERNG1(KMPDSS,.SESS)
Q:'$D(SESS)
S START=$P(DATE,U),END=$P(DATE,U,2)
Q:'START!('END)
; get end date
K DIR S DIR(0)="DO^"_START_":"_END_":E"
S DIR("A")="Select End Date",DIR("B")=$$FMTE^XLFDT(END)
W ! D ^DIR Q:'Y S END=Y
; if date only
I KMPDDT D Q
.S KMPDRES(0)=END_U_END_U_$$FMTE^XLFDT(END)_U_$$FMTE^XLFDT(END)
; determine number of days
S DATE=END+.1,START=END,DAYS=0
F S DATE=$O(SESS(DATE),-1) Q:'DATE S START=DATE,DAYS=DAYS+1
Q:'DAYS
; days to go back
K DIR S DIR(0)="NO^1:"_DAYS_":O"
S DIR("A")="Select # of Days Review"
S DIR("B")=$S(DAYS'<KMPDEF:KMPDEF,1:DAYS)
D ^DIR Q:Y=""!(Y="^")
; determine start date
S START=END
I Y'=1 S COUNT=1 D
.F S START=$O(SESS(START),-1) Q:'START S COUNT=COUNT+1 Q:COUNT'<Y
S KMPDRES(0)=START_U_END_U_$$FMTE^XLFDT(START)_U_$$FMTE^XLFDT(END)
S KMPDRES(1)=Y
;
Q
;
DATERNG1(KMPDSS,KMPDSESS) ;-- extrinsic function
;-----------------------------------------------------------------------
; KMPDSS.... KMPTMP SUBSCRIPT
; KMPDSESS() Array of dates:
; KMPDSESS(3030801)=""
; KMPDSESS(3030802)=""
; ...
;
; Return: StartDate^EndDate - in internal fileman format
; "" - no results
;-----------------------------------------------------------------------
Q:$G(KMPDSS)="" ""
N DATE,END,START
; determine most recent date
F DATE=0:0 S DATE=$O(^KMPD(8973.2,"ASVDTSS",KMPDSS,DATE)) Q:'DATE D
.; set array of session dates
.S KMPDSESS(DATE)=""
Q:'$D(KMPDSESS) ""
; set start and end dates according to SESS() array
S END=$O(KMPDSESS("A"),-1),START=$O(KMPDSESS(""))
Q START_"^"_END
;
DTTMRNG(KMPDSS,KMPDEF,KMPDRES,KMPDEFH) ; timing date/time range for a subscript
;-----------------------------------------------------------------------
; KMPDSS.... KMPTMP SUBSCRIPT
; KMPDEF.... (optional) default number of days to track - if not defined
; will default to seven (7)
; KMPDRES(). Results of api in format:
; KMPDRES(0)=piece 1 - Start Date Internal
; piece 2 - End Date Internal
; piece 3 - Start Date External
; piece 4 - End Date External
; Null ("") is returned if no results are found
; KMPDRES(1)=NumberOfDays
; KMPDEFH.. (optional) Default hour.
;
; This api determines the date range for KMPDSS (ex: ORWCV for CPRS
; cover sheets). It asks the user the ending date. After the ending
; date is entered, the user is prompted for the number of hours to
; review. Results are returned in the KMPDRES() array as described
; above.
;-----------------------------------------------------------------------
K KMPDRES S KMPDRES(0)="",KMPDRES(1)=""
Q:$G(KMPDSS)=""
S:'$G(KMPDEF) KMPDEF=7
S KMPDEFH=$G(KMPDEFH)
N COUNT,DATE,DAYS,END,SESS,START
; get date
D DATERNG(KMPDSS,1,.KMPDRES,1)
Q:'$D(KMPDRES)
Q:$G(KMPDRES(0))=""
S KMPDRES(1)=""
; determine number of hours
K DIR S DIR(0)="LO^0:23:O"
S DIR("A")="Select Hour(s) to Review"
S:KMPDEFH'="" DIR("B")=KMPDEFH
D ^DIR Q:Y=""!(Y="^")
S KMPDRES(1)=Y
Q
;
LISTSEL(KMPDLIST,KMPDSS,KMPDRLTM) ;-- extrinsic function - build list and select entry
;-----------------------------------------------------------------------
; KMPDLIST... 2 - Client Name
; 3 - IP Address
; KMPDSS..... Field #.07 (KMPTMP SUBSCRIPT)
; KMPDRLTM... Real-Time data
; 0 - not real-time
; 1 - real-time
;
; Return: "" - no selection
; Name - free text
;
; This function will build a list of entries from file #8973.2
;(CP TIMING) and ask the user to select an entry.
;-----------------------------------------------------------------------
S KMPDLIST=+$G(KMPDLIST)
Q:KMPDLIST<2!(KMPDLIST>3) ""
Q:$G(KMPDSS)="" ""
S KMPDRLTM=+$G(KMPDRLTM)
;
N DIC,I,X,XREF,Y
;
W " ==> building list..."
K ^TMP("KMPDTU10-LIST",$J)
D @$S('KMPDRLTM:"LISTSELH",1:"LISTSELR")
; quit if no data
Q:'$D(^TMP("KMPDTU10-LIST",$J))
S DIC="^TMP(""KMPDTU10-LIST"",$J,"
S DIC(0)="AEQZ"
S DIC("A")=$S(KMPDLIST=2:"Select Client",1:"IP Address")_": "
D ^DIC
K ^TMP("KMPDTU10-LIST",$J)
Q $S(Y<1:"",1:$P(Y,"^",2))
;
LISTSELH ;-- historical data list
N I,CNT,DOT,XREF
; determine xref to build list
S XREF=$S(KMPDLIST=2:"ASSCLDTTM",KMPDLIST=3:"ASSIPDTTM",1:"")
W !,"XREF: ",XREF
S I="",(CNT,DOT)=0
F S I=$O(^KMPD(8973.2,XREF,KMPDSS,I)) Q:I="" D
.S CNT=CNT+1,DOT=DOT+1 W:'(DOT#100) "."
.S ^TMP("KMPDTU10-LIST",$J,CNT,0)=I
.S ^TMP("KMPDTU10-LIST",$J,"B",I,CNT)=""
S ^TMP("KMPDTU10-LIST",$J,0)=$S(KMPDLIST=2:"Client Name",1:"IP Address")_"^1.01^"_CNT_"^"_CNT
Q
;
LISTSELR ;-- real-time data list
N I,CNT,DATA,DOT,X
S I="",(CNT,DOT)=0
F S I=$O(^KMPTMP("KMPDT",KMPDSS,I)) Q:I="" S DATA=^(I) I DATA]"" D
.S X=$S(KMPDLIST=2:$P(DATA,U,4),1:$P($P(I," ",2),"-"))
.Q:$O(^TMP("KMPDTU10-LIST",$J,"B",X,0))
.S CNT=CNT+1,DOT=DOT+1 W:'(DOT#100) "."
.S ^TMP("KMPDTU10-LIST",$J,CNT,0)=X
.S ^TMP("KMPDTU10-LIST",$J,"B",X,CNT)=""
S ^TMP("KMPDTU10-LIST",$J,0)=$S(KMPDLIST=2:"Client Name",1:"IP Address")_"^1.01^"_CNT_"^"_CNT
Q
;
SRCHBY(KMPDRES,KMPDSS,KMPDRLTM) ;-- api - search by criteria
;-----------------------------------------------------------------------
; KMPDRES().. Array (passed by reference) containing results in format:
; KMPDRES = "" - no valid selection
; KMPDRES = 1^User Name
; KMPDRES(1) = DUZ^NewPersonName
; KMPDRES = 2^Client Name
; KMPDRES(1) = ClientName (free text)
; KMPDRES = 3^IP Address
; KMPDRES(1) = IPAddress
; KMPDRES = 4^Any Occurrence
; KMPDSS..... KMPTMP SUBSCIPT - field #.07 from file #8973.2 (CP TIMING)
; KMPDRLTM... Real-Time data
; 0 - not real-time
; 1 - real-time
;-----------------------------------------------------------------------
K KMPDRES S KMPDRES=""
Q:$G(KMPDSS)=""
S KMPDRLTM=+$G(KMPDRLTM)
N DIC,DIR,X,Y
S DIR(0)="SO^1:User Name;2:Client Name;3:IP Address;4:All of the Above"
S DIR("A")="Search By"
S DIR("B")=4
D ^DIR
Q:'Y
S KMPDRES=Y_"^"_Y(0)
; quit if 'all of the above'
Q:(+KMPDRES)=4
;
; user name
I (+KMPDRES)=1 D Q
.S DIC=200,DIC(0)="AEMQZ",DIC("A")="Select User: "
.D ^DIC
.I Y<1 S KMPDRES="" Q
.S KMPDRES(1)=Y
;
; client name
I (+KMPDRES)=2 D Q
.S KMPDRES(1)=$$LISTSEL(+KMPDRES,KMPDSS,KMPDRLTM)
.S:KMPDRES(1)="" KMPDRES=""
;
; ip address
I (+KMPDRES)=3 D Q
.S KMPDRES(1)=$$LISTSEL(+KMPDRES,KMPDSS,KMPDRLTM)
.S:KMPDRES(1)="" KMPDRES=""
;
Q
;
TTLSEC() ;-- extrinsic function - time-to-load threshold seconds
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
N DIR,X,Y
S DIR(0)="NAO^1"
S DIR("A")="Select Time-To-Load Threshold (Seconds): "
S DIR("B")=60
D ^DIR
Q $S(Y:Y,1:"")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPDTU10 8555 printed Apr 09, 2024@20:46:42 Page 2
KMPDTU10 ;OAK/RAK/JML - CP Tools Timing Utility ;9/1/2015
+1 ;;3.0;Capacity Management Tools;**3**;Jan 15, 2013;Build 42
+2 ;
DATERNG(KMPDSS,KMPDEF,KMPDRES,KMPDDT) ; timing date range for a subscript
+1 ;-----------------------------------------------------------------------
+2 ; KMPDSS.... KMPTMP SUBSCRIPT
+3 ; KMPDEF.... (optional) default number of days to track - if not defined
+4 ; will default to seven (7)
+5 ; KMPDRES(). Results of api in format:
+6 ; KMPDRES(0)=piece 1 - Start Date Internal
+7 ; piece 2 - End Date Internal
+8 ; piece 3 - Start Date External
+9 ; piece 4 - End Date External
+10 ; Null ("") is returned if no results are found
+11 ; KMPDRES(1)=NumberOfDays
+12 ; KMPDDT.... Date only (do not ask for days)
+13 ; 0 - both date & days
+14 ; 1 - date only - do not ask for days
+15 ;
+16 ; This api determines the date range for KMPDSS (ex: ORWCV for CPRS
+17 ; cover sheets). It asks the user the ending date. After the ending
+18 ; date is entered, the user is prompted for the number of days to track.
+19 ; Results are returned in the KMPDRES() array as described above.
+20 ;-----------------------------------------------------------------------
+21 KILL KMPDRES
SET KMPDRES(0)=""
SET KMPDRES(1)=""
+22 if $GET(KMPDSS)=""
QUIT
+23 if '$GET(KMPDEF)
SET KMPDEF=7
+24 SET KMPDDT=+$GET(KMPDDT)
+25 NEW COUNT,DATE,DAYS,END,SESS,START
+26 ; start & end dates
+27 SET DATE=$$DATERNG1(KMPDSS,.SESS)
+28 if '$DATA(SESS)
QUIT
+29 SET START=$PIECE(DATE,U)
SET END=$PIECE(DATE,U,2)
+30 if 'START!('END)
QUIT
+31 ; get end date
+32 KILL DIR
SET DIR(0)="DO^"_START_":"_END_":E"
+33 SET DIR("A")="Select End Date"
SET DIR("B")=$$FMTE^XLFDT(END)
+34 WRITE !
DO ^DIR
if 'Y
QUIT
SET END=Y
+35 ; if date only
+36 IF KMPDDT
Begin DoDot:1
+37 SET KMPDRES(0)=END_U_END_U_$$FMTE^XLFDT(END)_U_$$FMTE^XLFDT(END)
End DoDot:1
QUIT
+38 ; determine number of days
+39 SET DATE=END+.1
SET START=END
SET DAYS=0
+40 FOR
SET DATE=$ORDER(SESS(DATE),-1)
if 'DATE
QUIT
SET START=DATE
SET DAYS=DAYS+1
+41 if 'DAYS
QUIT
+42 ; days to go back
+43 KILL DIR
SET DIR(0)="NO^1:"_DAYS_":O"
+44 SET DIR("A")="Select # of Days Review"
+45 SET DIR("B")=$SELECT(DAYS'<KMPDEF:KMPDEF,1:DAYS)
+46 DO ^DIR
if Y=""!(Y="^")
QUIT
+47 ; determine start date
+48 SET START=END
+49 IF Y'=1
SET COUNT=1
Begin DoDot:1
+50 FOR
SET START=$ORDER(SESS(START),-1)
if 'START
QUIT
SET COUNT=COUNT+1
if COUNT'<Y
QUIT
End DoDot:1
+51 SET KMPDRES(0)=START_U_END_U_$$FMTE^XLFDT(START)_U_$$FMTE^XLFDT(END)
+52 SET KMPDRES(1)=Y
+53 ;
+54 QUIT
+55 ;
DATERNG1(KMPDSS,KMPDSESS) ;-- extrinsic function
+1 ;-----------------------------------------------------------------------
+2 ; KMPDSS.... KMPTMP SUBSCRIPT
+3 ; KMPDSESS() Array of dates:
+4 ; KMPDSESS(3030801)=""
+5 ; KMPDSESS(3030802)=""
+6 ; ...
+7 ;
+8 ; Return: StartDate^EndDate - in internal fileman format
+9 ; "" - no results
+10 ;-----------------------------------------------------------------------
+11 if $GET(KMPDSS)=""
QUIT ""
+12 NEW DATE,END,START
+13 ; determine most recent date
+14 FOR DATE=0:0
SET DATE=$ORDER(^KMPD(8973.2,"ASVDTSS",KMPDSS,DATE))
if 'DATE
QUIT
Begin DoDot:1
+15 ; set array of session dates
+16 SET KMPDSESS(DATE)=""
End DoDot:1
+17 if '$DATA(KMPDSESS)
QUIT ""
+18 ; set start and end dates according to SESS() array
+19 SET END=$ORDER(KMPDSESS("A"),-1)
SET START=$ORDER(KMPDSESS(""))
+20 QUIT START_"^"_END
+21 ;
DTTMRNG(KMPDSS,KMPDEF,KMPDRES,KMPDEFH) ; timing date/time range for a subscript
+1 ;-----------------------------------------------------------------------
+2 ; KMPDSS.... KMPTMP SUBSCRIPT
+3 ; KMPDEF.... (optional) default number of days to track - if not defined
+4 ; will default to seven (7)
+5 ; KMPDRES(). Results of api in format:
+6 ; KMPDRES(0)=piece 1 - Start Date Internal
+7 ; piece 2 - End Date Internal
+8 ; piece 3 - Start Date External
+9 ; piece 4 - End Date External
+10 ; Null ("") is returned if no results are found
+11 ; KMPDRES(1)=NumberOfDays
+12 ; KMPDEFH.. (optional) Default hour.
+13 ;
+14 ; This api determines the date range for KMPDSS (ex: ORWCV for CPRS
+15 ; cover sheets). It asks the user the ending date. After the ending
+16 ; date is entered, the user is prompted for the number of hours to
+17 ; review. Results are returned in the KMPDRES() array as described
+18 ; above.
+19 ;-----------------------------------------------------------------------
+20 KILL KMPDRES
SET KMPDRES(0)=""
SET KMPDRES(1)=""
+21 if $GET(KMPDSS)=""
QUIT
+22 if '$GET(KMPDEF)
SET KMPDEF=7
+23 SET KMPDEFH=$GET(KMPDEFH)
+24 NEW COUNT,DATE,DAYS,END,SESS,START
+25 ; get date
+26 DO DATERNG(KMPDSS,1,.KMPDRES,1)
+27 if '$DATA(KMPDRES)
QUIT
+28 if $GET(KMPDRES(0))=""
QUIT
+29 SET KMPDRES(1)=""
+30 ; determine number of hours
+31 KILL DIR
SET DIR(0)="LO^0:23:O"
+32 SET DIR("A")="Select Hour(s) to Review"
+33 if KMPDEFH'=""
SET DIR("B")=KMPDEFH
+34 DO ^DIR
if Y=""!(Y="^")
QUIT
+35 SET KMPDRES(1)=Y
+36 QUIT
+37 ;
LISTSEL(KMPDLIST,KMPDSS,KMPDRLTM) ;-- extrinsic function - build list and select entry
+1 ;-----------------------------------------------------------------------
+2 ; KMPDLIST... 2 - Client Name
+3 ; 3 - IP Address
+4 ; KMPDSS..... Field #.07 (KMPTMP SUBSCRIPT)
+5 ; KMPDRLTM... Real-Time data
+6 ; 0 - not real-time
+7 ; 1 - real-time
+8 ;
+9 ; Return: "" - no selection
+10 ; Name - free text
+11 ;
+12 ; This function will build a list of entries from file #8973.2
+13 ;(CP TIMING) and ask the user to select an entry.
+14 ;-----------------------------------------------------------------------
+15 SET KMPDLIST=+$GET(KMPDLIST)
+16 if KMPDLIST<2!(KMPDLIST>3)
QUIT ""
+17 if $GET(KMPDSS)=""
QUIT ""
+18 SET KMPDRLTM=+$GET(KMPDRLTM)
+19 ;
+20 NEW DIC,I,X,XREF,Y
+21 ;
+22 WRITE " ==> building list..."
+23 KILL ^TMP("KMPDTU10-LIST",$JOB)
+24 DO @$SELECT('KMPDRLTM:"LISTSELH",1:"LISTSELR")
+25 ; quit if no data
+26 if '$DATA(^TMP("KMPDTU10-LIST",$JOB))
QUIT
+27 SET DIC="^TMP(""KMPDTU10-LIST"",$J,"
+28 SET DIC(0)="AEQZ"
+29 SET DIC("A")=$SELECT(KMPDLIST=2:"Select Client",1:"IP Address")_": "
+30 DO ^DIC
+31 KILL ^TMP("KMPDTU10-LIST",$JOB)
+32 QUIT $SELECT(Y<1:"",1:$PIECE(Y,"^",2))
+33 ;
LISTSELH ;-- historical data list
+1 NEW I,CNT,DOT,XREF
+2 ; determine xref to build list
+3 SET XREF=$SELECT(KMPDLIST=2:"ASSCLDTTM",KMPDLIST=3:"ASSIPDTTM",1:"")
+4 WRITE !,"XREF: ",XREF
+5 SET I=""
SET (CNT,DOT)=0
+6 FOR
SET I=$ORDER(^KMPD(8973.2,XREF,KMPDSS,I))
if I=""
QUIT
Begin DoDot:1
+7 SET CNT=CNT+1
SET DOT=DOT+1
if '(DOT#100)
WRITE "."
+8 SET ^TMP("KMPDTU10-LIST",$JOB,CNT,0)=I
+9 SET ^TMP("KMPDTU10-LIST",$JOB,"B",I,CNT)=""
End DoDot:1
+10 SET ^TMP("KMPDTU10-LIST",$JOB,0)=$SELECT(KMPDLIST=2:"Client Name",1:"IP Address")_"^1.01^"_CNT_"^"_CNT
+11 QUIT
+12 ;
LISTSELR ;-- real-time data list
+1 NEW I,CNT,DATA,DOT,X
+2 SET I=""
SET (CNT,DOT)=0
+3 FOR
SET I=$ORDER(^KMPTMP("KMPDT",KMPDSS,I))
if I=""
QUIT
SET DATA=^(I)
IF DATA]""
Begin DoDot:1
+4 SET X=$SELECT(KMPDLIST=2:$PIECE(DATA,U,4),1:$PIECE($PIECE(I," ",2),"-"))
+5 if $ORDER(^TMP("KMPDTU10-LIST",$JOB,"B",X,0))
QUIT
+6 SET CNT=CNT+1
SET DOT=DOT+1
if '(DOT#100)
WRITE "."
+7 SET ^TMP("KMPDTU10-LIST",$JOB,CNT,0)=X
+8 SET ^TMP("KMPDTU10-LIST",$JOB,"B",X,CNT)=""
End DoDot:1
+9 SET ^TMP("KMPDTU10-LIST",$JOB,0)=$SELECT(KMPDLIST=2:"Client Name",1:"IP Address")_"^1.01^"_CNT_"^"_CNT
+10 QUIT
+11 ;
SRCHBY(KMPDRES,KMPDSS,KMPDRLTM) ;-- api - search by criteria
+1 ;-----------------------------------------------------------------------
+2 ; KMPDRES().. Array (passed by reference) containing results in format:
+3 ; KMPDRES = "" - no valid selection
+4 ; KMPDRES = 1^User Name
+5 ; KMPDRES(1) = DUZ^NewPersonName
+6 ; KMPDRES = 2^Client Name
+7 ; KMPDRES(1) = ClientName (free text)
+8 ; KMPDRES = 3^IP Address
+9 ; KMPDRES(1) = IPAddress
+10 ; KMPDRES = 4^Any Occurrence
+11 ; KMPDSS..... KMPTMP SUBSCIPT - field #.07 from file #8973.2 (CP TIMING)
+12 ; KMPDRLTM... Real-Time data
+13 ; 0 - not real-time
+14 ; 1 - real-time
+15 ;-----------------------------------------------------------------------
+16 KILL KMPDRES
SET KMPDRES=""
+17 if $GET(KMPDSS)=""
QUIT
+18 SET KMPDRLTM=+$GET(KMPDRLTM)
+19 NEW DIC,DIR,X,Y
+20 SET DIR(0)="SO^1:User Name;2:Client Name;3:IP Address;4:All of the Above"
+21 SET DIR("A")="Search By"
+22 SET DIR("B")=4
+23 DO ^DIR
+24 if 'Y
QUIT
+25 SET KMPDRES=Y_"^"_Y(0)
+26 ; quit if 'all of the above'
+27 if (+KMPDRES)=4
QUIT
+28 ;
+29 ; user name
+30 IF (+KMPDRES)=1
Begin DoDot:1
+31 SET DIC=200
SET DIC(0)="AEMQZ"
SET DIC("A")="Select User: "
+32 DO ^DIC
+33 IF Y<1
SET KMPDRES=""
QUIT
+34 SET KMPDRES(1)=Y
End DoDot:1
QUIT
+35 ;
+36 ; client name
+37 IF (+KMPDRES)=2
Begin DoDot:1
+38 SET KMPDRES(1)=$$LISTSEL(+KMPDRES,KMPDSS,KMPDRLTM)
+39 if KMPDRES(1)=""
SET KMPDRES=""
End DoDot:1
QUIT
+40 ;
+41 ; ip address
+42 IF (+KMPDRES)=3
Begin DoDot:1
+43 SET KMPDRES(1)=$$LISTSEL(+KMPDRES,KMPDSS,KMPDRLTM)
+44 if KMPDRES(1)=""
SET KMPDRES=""
End DoDot:1
QUIT
+45 ;
+46 QUIT
+47 ;
TTLSEC() ;-- extrinsic function - time-to-load threshold seconds
+1 ;-----------------------------------------------------------------------
+2 ;-----------------------------------------------------------------------
+3 NEW DIR,X,Y
+4 SET DIR(0)="NAO^1"
+5 SET DIR("A")="Select Time-To-Load Threshold (Seconds): "
+6 SET DIR("B")=60
+7 DO ^DIR
+8 QUIT $SELECT(Y:Y,1:"")
