- ORVCOMONITOR ;SPFO/AJB - VISTA CUTOVER ;Feb 11, 2021@09:04:23
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**529**;DEC 17, 1997;Build 17
- Q
- ; see ORVCO for list of ICRs/DBIAs
- EN ;
- N ANS,BASE,POP,X,Y
- S BASE=4 D PREP^XGF,HEADER
- F D Q:ANS="Q"!(ANS=U)
- . N JOB
- . I '$$STATUS(.JOB) S JOB=0 D IOXY^XGF(BASE+JOB+1,1) W $$CJ^XLFSTR("< No Running Jobs >",80) D IOXY^XGF(14,0),PROMPT S ANS=U Q
- . S JOB=$O(JOB(""),-1) D IOXY^XGF(BASE+JOB+1,1)
- . N DIR S DIR="SAO^U:Update;S:Stop;Q:Quit"
- . S DIR("L")="<Enter> to refresh the screen or (S)top a running Job # or (Q)uit"
- . S ANS=$$FMR(.DIR,"Enter monitor action: ","UPDATE","^D MONHELP^ORVCOMONITOR") Q:ANS="Q"!(ANS=U)
- . I ANS="S" D
- . . D CLEAR^XGF(0,1,23,80),HEADER,STATUS(.JOB)
- . . N ANS,DIR S DIR="SAO^",DIR("L")="Enter a Job # from the following list: "
- . . S JOB=0 F S JOB=$O(JOB(JOB)) Q:'+JOB D
- . . . S $P(DIR,U,2)=$P(DIR,U,2)_JOB(JOB)_":"_JOB(JOB)_$S(+$O(JOB(JOB)):";",1:"")
- . . . S $P(DIR("L"),":",2)=$P(DIR("L"),":",2)_JOB(JOB)_$S(+$O(JOB(JOB)):", ",1:"")
- . . D IOXY^XGF(BASE+$O(JOB(""),-1)+1,1)
- . . S ANS=$$FMR(.DIR,"Enter a Job # from the list above: ","","^D JOBHELP^ORVCOMONITOR") Q:'+ANS
- . . D CLEAR^XGF(0,1,23,80),HEADER(1),STATUS(.JOB)
- . . W !!,"Asking Task Man to stop Job #: ",ANS
- . . N INF,TASK S INF=$NA(^XTMP("ORVCO",ANS,"Info"))
- . . S TASK=0 F S TASK=$O(@INF@(TASK)) Q:'+TASK D
- . . . I $$ASKSTOP^%ZTLOAD(TASK)
- . . D IOXY^XGF(14,0),PROMPT
- . D CLEAR^XGF(0,0,23,80),HEADER
- . I '$D(^XTMP("ORVCO")) S JOB=0 D IOXY^XGF(BASE+JOB+1,1) W $$CJ^XLFSTR("< No Running Jobs >",80) D IOXY^XGF(14,0),PROMPT S ANS=U Q
- D CLEAR^XGF(0,0,23,80),CLEAN^XGF
- Q
- STATUS(JOB) ;
- N CNT S (CNT,JOB)=0 F S JOB=$O(^XTMP("ORVCO",JOB)) Q:'+JOB D
- . N DATA,INF,USER,MODE,TYPE,THREAD,START
- . S INF=$NA(^XTMP("ORVCO",JOB,"Info"))
- . I $D(@INF@("Single Patient")) Q
- . S CNT=+$G(CNT)+1,JOB(CNT)=JOB
- . I +$G(@INF@("Calculating")) D SAY^XGF((BASE+CNT),0,JOB),SAY^XGF((BASE+CNT),28,"< Evaluating Patients >") Q
- . S DATA=$$SETSTR^VALM1(JOB,"",1,8) ; job #
- . S DATA=$$SETSTR^VALM1($$GET1^DIQ(200,+@INF@("User"),.01),DATA,10,18) ; user
- . S DATA=$$SETSTR^VALM1($S(+@INF@("Mode"):"Create",1:"Test"),DATA,35,6) ; mode
- . S DATA=$$SETSTR^VALM1($S(+$P(@INF@("Mode"),U,2):"Reminders",1:"Summary"),DATA,43,9) ; type
- . S (THREAD("Active"),THREAD("Progress"),THREAD)=0 F S THREAD=$O(@INF@(" Daemon",THREAD)) Q:'+THREAD D
- . . S THREAD("Progress")=THREAD("Progress")+$G(@INF@(" Daemon",THREAD,"Progress"))
- . . I '$D(@INF@(" Daemon",THREAD,"Stop Time")) S THREAD("Active")=THREAD("Active")+1
- . S THREAD("Progress")=$E(THREAD("Progress")/@INF@("Patients"),1,3)*100 ; calculate completion %
- . S DATA=$$SETSTR^VALM1(THREAD("Progress")_"%",DATA,32-$L(THREAD("Progress")),3) ; completion
- . S THREAD=THREAD("Active")_$S(@INF@("Threads")>9:" of ",1:" of ")_@INF@("Threads") ; calulate active threads
- . S DATA=$$SETSTR^VALM1(THREAD,DATA,61-$L(THREAD),8) ; threads
- . S DATA=$$SETSTR^VALM1($E($$HTE^XLFDT(@INF@("Start Time")),1,18),DATA,63,18) ; start time
- . D SAY^XGF((BASE+CNT),0,DATA)
- Q CNT
- N DATA D SAY^XGF(0,29,"Daemon* Monitoring Tool"),SAY^XGF(0,72,$P($$HTE^XLFDT($H),"@",2)),SAY^XGF(2,53,"Active")
- S DATA=$$SETSTR^VALM1("Job #","",1,7)
- S DATA=$$SETSTR^VALM1("User",DATA,10,4)
- S DATA=$$SETSTR^VALM1("Progress",DATA,25,8)
- S DATA=$$SETSTR^VALM1("Mode",DATA,35,4)
- S DATA=$$SETSTR^VALM1("Type",DATA,43,9)
- S DATA=$$SETSTR^VALM1("Threads",DATA,54,10)
- S DATA=$$SETSTR^VALM1("Start Date/Time",DATA,66,15)
- W !,IOUON,DATA,IOUOFF
- D:'+$G(PARAM) SAY^XGF(21,0,"* In multitasking computer operating systems, a daemon is a computer program")
- D:'+$G(PARAM) SAY^XGF(22,0," that runs as a background process rather than being under the direct control")
- D:'+$G(PARAM) SAY^XGF(23,0," of an interactive user.")
- Q
- MONHELP ;
- W !,"The following actions are available: <Enter>, S, or Q"
- Q
- JOBHELP ;
- W !,"Enter the desired Job # or ^ to exit."
- Q
- FMR(DIR,PRM,DEF,HLP,SCR) ; fileman reader
- N DILN,DILOCKTM,DISYS
- N DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- S DIR(0)=DIR S:$G(PRM)'="" DIR("A")=PRM S:$G(DEF)'="" DIR("B")=DEF S:$G(SCR)'="" DIR("S")=SCR
- I $G(HLP)'="" S DIR("?")=HLP
- I $D(HLP) M DIR=HLP
- W $G(IOCUON) D ^DIR W $G(IOCUOFF)
- Q $S($D(DIROUT):U,$D(DIRUT):U,$D(DTOUT):U,$D(DUOUT):U,1:Y)
- PROMPT ; 'Message transmitted, message received...'
- I $$FMR("EA","Press <ENTER> to continue")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORVCOMONITOR 4419 printed Mar 13, 2025@21:39:50 Page 2
- ORVCOMONITOR ;SPFO/AJB - VISTA CUTOVER ;Feb 11, 2021@09:04:23
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**529**;DEC 17, 1997;Build 17
- +2 QUIT
- +3 ; see ORVCO for list of ICRs/DBIAs
- EN ;
- +1 NEW ANS,BASE,POP,X,Y
- +2 SET BASE=4
- DO PREP^XGF
- DO HEADER
- +3 FOR
- Begin DoDot:1
- +4 NEW JOB
- +5 IF '$$STATUS(.JOB)
- SET JOB=0
- DO IOXY^XGF(BASE+JOB+1,1)
- WRITE $$CJ^XLFSTR("< No Running Jobs >",80)
- DO IOXY^XGF(14,0)
- DO PROMPT
- SET ANS=U
- QUIT
- +6 SET JOB=$ORDER(JOB(""),-1)
- DO IOXY^XGF(BASE+JOB+1,1)
- +7 NEW DIR
- SET DIR="SAO^U:Update;S:Stop;Q:Quit"
- +8 SET DIR("L")="<Enter> to refresh the screen or (S)top a running Job # or (Q)uit"
- +9 SET ANS=$$FMR(.DIR,"Enter monitor action: ","UPDATE","^D MONHELP^ORVCOMONITOR")
- if ANS="Q"!(ANS=U)
- QUIT
- +10 IF ANS="S"
- Begin DoDot:2
- +11 DO CLEAR^XGF(0,1,23,80)
- DO HEADER
- DO STATUS(.JOB)
- +12 NEW ANS,DIR
- SET DIR="SAO^"
- SET DIR("L")="Enter a Job # from the following list: "
- +13 SET JOB=0
- FOR
- SET JOB=$ORDER(JOB(JOB))
- if '+JOB
- QUIT
- Begin DoDot:3
- +14 SET $PIECE(DIR,U,2)=$PIECE(DIR,U,2)_JOB(JOB)_":"_JOB(JOB)_$SELECT(+$ORDER(JOB(JOB)):";",1:"")
- +15 SET $PIECE(DIR("L"),":",2)=$PIECE(DIR("L"),":",2)_JOB(JOB)_$SELECT(+$ORDER(JOB(JOB)):", ",1:"")
- End DoDot:3
- +16 DO IOXY^XGF(BASE+$ORDER(JOB(""),-1)+1,1)
- +17 SET ANS=$$FMR(.DIR,"Enter a Job # from the list above: ","","^D JOBHELP^ORVCOMONITOR")
- if '+ANS
- QUIT
- +18 DO CLEAR^XGF(0,1,23,80)
- DO HEADER(1)
- DO STATUS(.JOB)
- +19 WRITE !!,"Asking Task Man to stop Job #: ",ANS
- +20 NEW INF,TASK
- SET INF=$NAME(^XTMP("ORVCO",ANS,"Info"))
- +21 SET TASK=0
- FOR
- SET TASK=$ORDER(@INF@(TASK))
- if '+TASK
- QUIT
- Begin DoDot:3
- +22 IF $$ASKSTOP^%ZTLOAD(TASK)
- End DoDot:3
- +23 DO IOXY^XGF(14,0)
- DO PROMPT
- End DoDot:2
- +24 DO CLEAR^XGF(0,0,23,80)
- DO HEADER
- +25 IF '$DATA(^XTMP("ORVCO"))
- SET JOB=0
- DO IOXY^XGF(BASE+JOB+1,1)
- WRITE $$CJ^XLFSTR("< No Running Jobs >",80)
- DO IOXY^XGF(14,0)
- DO PROMPT
- SET ANS=U
- QUIT
- End DoDot:1
- if ANS="Q"!(ANS=U)
- QUIT
- +26 DO CLEAR^XGF(0,0,23,80)
- DO CLEAN^XGF
- +27 QUIT
- STATUS(JOB) ;
- +1 NEW CNT
- SET (CNT,JOB)=0
- FOR
- SET JOB=$ORDER(^XTMP("ORVCO",JOB))
- if '+JOB
- QUIT
- Begin DoDot:1
- +2 NEW DATA,INF,USER,MODE,TYPE,THREAD,START
- +3 SET INF=$NAME(^XTMP("ORVCO",JOB,"Info"))
- +4 IF $DATA(@INF@("Single Patient"))
- QUIT
- +5 SET CNT=+$GET(CNT)+1
- SET JOB(CNT)=JOB
- +6 IF +$GET(@INF@("Calculating"))
- DO SAY^XGF((BASE+CNT),0,JOB)
- DO SAY^XGF((BASE+CNT),28,"< Evaluating Patients >")
- QUIT
- +7 ; job #
- SET DATA=$$SETSTR^VALM1(JOB,"",1,8)
- +8 ; user
- SET DATA=$$SETSTR^VALM1($$GET1^DIQ(200,+@INF@("User"),.01),DATA,10,18)
- +9 ; mode
- SET DATA=$$SETSTR^VALM1($SELECT(+@INF@("Mode"):"Create",1:"Test"),DATA,35,6)
- +10 ; type
- SET DATA=$$SETSTR^VALM1($SELECT(+$PIECE(@INF@("Mode"),U,2):"Reminders",1:"Summary"),DATA,43,9)
- +11 SET (THREAD("Active"),THREAD("Progress"),THREAD)=0
- FOR
- SET THREAD=$ORDER(@INF@(" Daemon",THREAD))
- if '+THREAD
- QUIT
- Begin DoDot:2
- +12 SET THREAD("Progress")=THREAD("Progress")+$GET(@INF@(" Daemon",THREAD,"Progress"))
- +13 IF '$DATA(@INF@(" Daemon",THREAD,"Stop Time"))
- SET THREAD("Active")=THREAD("Active")+1
- End DoDot:2
- +14 ; calculate completion %
- SET THREAD("Progress")=$EXTRACT(THREAD("Progress")/@INF@("Patients"),1,3)*100
- +15 ; completion
- SET DATA=$$SETSTR^VALM1(THREAD("Progress")_"%",DATA,32-$LENGTH(THREAD("Progress")),3)
- +16 ; calulate active threads
- SET THREAD=THREAD("Active")_$SELECT(@INF@("Threads")>9:" of ",1:" of ")_@INF@("Threads")
- +17 ; threads
- SET DATA=$$SETSTR^VALM1(THREAD,DATA,61-$LENGTH(THREAD),8)
- +18 ; start time
- SET DATA=$$SETSTR^VALM1($EXTRACT($$HTE^XLFDT(@INF@("Start Time")),1,18),DATA,63,18)
- +19 DO SAY^XGF((BASE+CNT),0,DATA)
- End DoDot:1
- +20 QUIT CNT
- +1 NEW DATA
- DO SAY^XGF(0,29,"Daemon* Monitoring Tool")
- DO SAY^XGF(0,72,$PIECE($$HTE^XLFDT($HOROLOG),"@",2))
- DO SAY^XGF(2,53,"Active")
- +2 SET DATA=$$SETSTR^VALM1("Job #","",1,7)
- +3 SET DATA=$$SETSTR^VALM1("User",DATA,10,4)
- +4 SET DATA=$$SETSTR^VALM1("Progress",DATA,25,8)
- +5 SET DATA=$$SETSTR^VALM1("Mode",DATA,35,4)
- +6 SET DATA=$$SETSTR^VALM1("Type",DATA,43,9)
- +7 SET DATA=$$SETSTR^VALM1("Threads",DATA,54,10)
- +8 SET DATA=$$SETSTR^VALM1("Start Date/Time",DATA,66,15)
- +9 WRITE !,IOUON,DATA,IOUOFF
- +10 if '+$GET(PARAM)
- DO SAY^XGF(21,0,"* In multitasking computer operating systems, a daemon is a computer program")
- +11 if '+$GET(PARAM)
- DO SAY^XGF(22,0," that runs as a background process rather than being under the direct control")
- +12 if '+$GET(PARAM)
- DO SAY^XGF(23,0," of an interactive user.")
- +13 QUIT
- MONHELP ;
- +1 WRITE !,"The following actions are available: <Enter>, S, or Q"
- +2 QUIT
- JOBHELP ;
- +1 WRITE !,"Enter the desired Job # or ^ to exit."
- +2 QUIT
- FMR(DIR,PRM,DEF,HLP,SCR) ; fileman reader
- +1 NEW DILN,DILOCKTM,DISYS
- +2 NEW DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- +3 SET DIR(0)=DIR
- if $GET(PRM)'=""
- SET DIR("A")=PRM
- if $GET(DEF)'=""
- SET DIR("B")=DEF
- if $GET(SCR)'=""
- SET DIR("S")=SCR
- +4 IF $GET(HLP)'=""
- SET DIR("?")=HLP
- +5 IF $DATA(HLP)
- MERGE DIR=HLP
- +6 WRITE $GET(IOCUON)
- DO ^DIR
- WRITE $GET(IOCUOFF)
- +7 QUIT $SELECT($DATA(DIROUT):U,$DATA(DIRUT):U,$DATA(DTOUT):U,$DATA(DUOUT):U,1:Y)
- PROMPT ; 'Message transmitted, message received...'
- +1 IF $$FMR("EA","Press <ENTER> to continue")
- +2 QUIT
