Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLUOPT5

HLUOPT5.m

Go to the documentation of this file.
  1. HLUOPT5 ;OIFO-O/LJA - Purging Entries in file #772 and #773 ;02/04/2004 16:37
  1. ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
  1. ;
  1. ; This routine was created by patch HL*1.6*109
  1. ;
  1. GRAPH ; Display graph for all entries in ^XTMP
  1. N DATA,DATE,END,HOLD,MAX,MULT,START,TXT,TYPE,VAL,XTMP
  1. ;
  1. ; Create HOLD(...) with entry data, and max values...
  1. S XTMP="HLUOPT1 "
  1. F S XTMP=$O(^XTMP(XTMP)) Q:XTMP'["HLUOPT1 " D
  1. .
  1. . S DATA=$G(^XTMP(XTMP,"RUN")) Q:$P(DATA,U,5)'["FINISHED" ;->
  1. .
  1. . S START=$P(DATA,U,2) QUIT:START'?7N.E ;->
  1. . S END=$P(DATA,U,4) QUIT:END'?7N.E ;->
  1. . S DIFF=$$FMDIFF^XLFDT(END,START,2) ; Hours difference
  1. . D HOLD(1,DIFF)
  1. .
  1. . S DEL772=$P(DATA,U,8)
  1. . D HOLD(2,DEL772)
  1. .
  1. . S DEL773=$P(DATA,U,10)
  1. . D HOLD(3,DEL773)
  1. .
  1. . S HOLD($P(XTMP," ",2))=DIFF_U_DEL772_U_DEL773
  1. ;
  1. QUIT:'$D(HOLD) ;->
  1. ;
  1. ; Calculate graph multiplier...
  1. F TYPE=1,2,3 D
  1. . S MAX=HOLD(TYPE)
  1. . S MULT(TYPE)=MAX/21\1
  1. ;
  1. W !,"VistA HL7 Purge Graph"
  1. W !,"Purge-Date | Purge-Time | 772 Deletions | 773 Deletions"
  1. W !,$$REPEAT^XLFSTR("=",IOM)
  1. W !,?12,"| Max Hr = ",$J(HOLD(1)/(3600),0,1)
  1. W ?35,"| Max # = ",$FN(HOLD(2),",")
  1. W ?58,"| Max # = ",$FN(HOLD(3),",")
  1. W !,$$REPEAT^XLFSTR("=",IOM)
  1. ;
  1. S DATE=0
  1. F S DATE=$O(HOLD(DATE)) Q:'DATE D
  1. .
  1. . QUIT:DATE'?7N1"."1.N ;->
  1. . S TXT=$$SDT^HLUOPT4(DATE)_" |"
  1. .
  1. . S DATA=HOLD(DATE) ; Get data...
  1. .
  1. . S VAL=$P(DATA,U) ; Time difference...
  1. . D PAD(VAL,21,1)
  1. .
  1. . S VAL=$P(DATA,U,2) ; #772 deleted...
  1. . D PAD(VAL,21,2)
  1. .
  1. . S VAL=$P(DATA,U,3) ; #773 deleted...
  1. . D PAD(VAL,21,3)
  1. .
  1. . W !,TXT
  1. ;
  1. Q
  1. ;
  1. PAD(NUM,COL,MULTNO) ; Add VAL to TXT...
  1. ; TXT -- req
  1. N CHAR
  1. S MULT=MULT(MULTNO)
  1. S CHAR=$S(MULT:$E($$REPEAT^XLFSTR("=",NUM\MULT),1,COL),1:"")
  1. S CHAR=$E(CHAR_$$REPEAT^XLFSTR(" ",COL),1,COL)
  1. S CHAR=CHAR_$S(MULTNO'=3:" |",1:"")
  1. S TXT=TXT_CHAR
  1. Q
  1. ;
  1. HOLD(NUM,VAL) ; Update HOLD(#)...
  1. S:'$D(HOLD(NUM)) HOLD(NUM)=VAL
  1. S:VAL>HOLD(NUM) HOLD(NUM)=VAL ; Largest value...
  1. Q
  1. ;
  1. GRAPHONE(XTMP) ; Display graph bar for one XTMP entry...
  1. ;
  1. Q
  1. ;
  1. SHOWALL(XTMP) ; Show all information
  1. N I,ACTIVE,COLNO,CURR,LAST,PCE1,PCE2,PCE3,PCE4,PCE5,PCE6,PCE7
  1. N PCE8,PCE9,PCE10,PCE11,PCE12,PCE13,PCE14,PMT
  1. S COLNO=5
  1. F D Q:'$$BTE(PMT,1,120) Q:'ACTIVE
  1. . S RUN=$G(^XTMP(XTMP,"RUN")) I RUN']"" W " no data..." QUIT ;->
  1. . F I=1:1:16 S CURR(I)=$P(RUN,U,I)
  1. . F I=1:1:16 S @("PCE"_I)=$P(RUN,U,I)
  1. . S PCE2=$$FMTE^XLFDT(PCE2),PCE3=$$FMTE^XLFDT(PCE3),PCE4=$$FMTE^XLFDT(PCE4)
  1. . W !!,$$CJ^XLFSTR(" "_$$FMTE^XLFDT($$NOW^XLFDT)_" ["_XTMP_"] ",IOM,"=")
  1. . W !,$$D(2),?COLNO,"Start time: ",?(COLNO+25),PCE2,$$S(2)
  1. . W !,$$D(3),?COLNO,"Last timestamp: ",?(COLNO+25),PCE3,$$S(3)
  1. . W !,$$D(4),?COLNO,"End time: ",?(COLNO+25),PCE4,$$S(4)
  1. . S PMT=$S(PCE4]"":"Press RETURN to exit... ",1:"Wait 120 seconds for refresh, or enter '^' to exit... ")
  1. . S ACTIVE=$S(PCE4]"":0,1:1) ; Is last job still running?
  1. . W !,$$D(5),?COLNO,"Status: ",?(COLNO+25),$J(PCE5,9),$$S(5,9)
  1. . W !,$$D(6),?COLNO,"Location: ",?(COLNO+25),$J(PCE6,9),$$S(6,9)
  1. . W !,$$D(1),?COLNO,"Task number: ",?(COLNO+25),$J(PCE1,9),$$S(1,9)
  1. . W !,$$REPEAT^XLFSTR("-",IOM)
  1. . W !,$$D(7),?COLNO,"#772 reviewed: ",?(COLNO+25),$J(PCE7,9),$$S(7,9)
  1. . W !,$$D(12),?COLNO,"#772 revw'd w/o purging: ",?(COLNO+25),$J(PCE12,9),$$S(12,9)
  1. . W !,$$D(11),?COLNO,"Last 772 reviewed: ",?(COLNO+25),$J(PCE11,9),$$S(11,9)
  1. . S X=$$D(11) I X']"" W $$SDT^HLUOPT4(PCE15)
  1. . W !,$$D(8),?COLNO,"#772 purged: ",?(COLNO+25),$J(PCE8,9),$$S(8,9)
  1. . W !,$$REPEAT^XLFSTR("-",IOM)
  1. . W !,$$D(9),?COLNO,"#773 reviewed: ",?(COLNO+25),$J(PCE9,9),$$S(9,9)
  1. . W !,$$D(14),?COLNO,"#773 revw'd w/o purging: ",?(COLNO+25),$J(PCE14,9),$$S(14,9)
  1. . W !,$$D(13),?COLNO,"Last 773 reviewed: ",?(COLNO+25),$J(PCE13,9),$$S(13,9)
  1. . S X=$$D(13) I X']"" W $$SDT^HLUOPT4(PCE16)
  1. . W !,$$D(10),?COLNO,"#773 purged: ",?(COLNO+25),$J(PCE10,9),$$S(10,9)
  1. . F I=1:1:14 S LAST(I)=$P(RUN,U,I)
  1. QUIT
  1. ;
  1. D(NO) ; Any change since last display?
  1. QUIT:'$D(LAST) "" ;->
  1. QUIT:CURR(NO)=LAST(NO) "" ;->
  1. QUIT "->"
  1. ;
  1. S(NO,COL) ; Display previous value....
  1. N TXT
  1. S TXT="",COL=+$G(COL)
  1. QUIT:'$D(LAST) $J("",COL) ;->
  1. QUIT:CURR(NO)=LAST(NO) $J("",COL) ;->
  1. S TXT=$E($$REPEAT^XLFSTR("_",IOM),1,53-$X)
  1. I NO>3 S TXT=TXT_LAST(NO) QUIT $J(TXT,COL) ;->
  1. I LAST(NO)?7N.E W $J(TXT_$$FMTE^XLFDT(LAST(NO)),COL)
  1. QUIT ""
  1. ;
  1. BTE(PMT,FF,TIMEOUT) ;
  1. N DIR,DIRUT,DTOUT,DUOUT,X,Y
  1. F X=1:1:$G(FF) W !
  1. S DIR(0)="EA",DIR("A")=PMT
  1. S:$G(TIMEOUT) DIR("T")=TIMEOUT
  1. D ^DIR
  1. QUIT:$D(DUOUT) "" ;->
  1. QUIT $S(Y=1!($D(DIRUT)):1,1:"") ; 1... if RETURN or timeout...
  1. ;
  1. EOR ;HLUOPT5 - Purging Entries in file #772 and #773 ;12/10/02 16:37