Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: HLUOPT5

Package: Health Level Seven

Routine: HLUOPT5


Information

HLUOPT5 ;OIFO-O/LJA - Purging Entries in file #772 and #773 ;02/04/2004 16:37

Source Information

Source file <HLUOPT5.m>

Entry Points

Name Comments DBIA/ICR reference
GRAPH ; Display graph for all entries in ^XTMP
PAD(NUM,COL,MULTNO) ; Add VAL to TXT...
; TXT -- req
HOLD(NUM,VAL) ; Update HOLD(#)...
GRAPHONE(XTMP) ; Display graph bar for one XTMP entry...
SHOWALL(XTMP) ; Show all information
D(NO) ; Any change since last display?
S(NO,COL) ; Display previous value....
BTE(PMT,FF,TIMEOUT) ;
EOR ;HLUOPT5 - Purging Entries in file #772 and #773 ;12/10/02 16:37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"VistA HL7 Purge Graph"
  • Line Location: GRAPH+29
Function Call: WRITE
  • Prompt: !,"Purge-Date | Purge-Time | 772 Deletions | 773 Deletions"
  • Line Location: GRAPH+30
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: GRAPH+31
Function Call: WRITE
  • Prompt: !,?12,"| Max Hr = ",$J(HOLD(1)/(3600),0,1)
  • Line Location: GRAPH+32
Function Call: WRITE
  • Prompt: ?35,"| Max # = ",$FN(HOLD(2),",")
  • Line Location: GRAPH+33
Function Call: WRITE
  • Prompt: ?58,"| Max # = ",$FN(HOLD(3),",")
  • Line Location: GRAPH+34
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: GRAPH+35
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: GRAPH+54
Function Call: WRITE
  • Prompt: " no data..."
  • Line Location: SHOWALL+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" "_$$FMTE^XLFDT($$NOW^XLFDT)_" ["_XTMP_"] ",IOM,"=")
  • Line Location: SHOWALL+9
Function Call: WRITE
  • Prompt: !,$$D(2),?COLNO,"Start time: ",?(COLNO+25),PCE2,$$S(2)
  • Line Location: SHOWALL+10
Function Call: WRITE
  • Prompt: !,$$D(3),?COLNO,"Last timestamp: ",?(COLNO+25),PCE3,$$S(3)
  • Line Location: SHOWALL+11
Function Call: WRITE
  • Prompt: !,$$D(4),?COLNO,"End time: ",?(COLNO+25),PCE4,$$S(4)
  • Line Location: SHOWALL+12
Function Call: WRITE
  • Prompt: !,$$D(5),?COLNO,"Status: ",?(COLNO+25),$J(PCE5,9),$$S(5,9)
  • Line Location: SHOWALL+15
Function Call: WRITE
  • Prompt: !,$$D(6),?COLNO,"Location: ",?(COLNO+25),$J(PCE6,9),$$S(6,9)
  • Line Location: SHOWALL+16
Function Call: WRITE
  • Prompt: !,$$D(1),?COLNO,"Task number: ",?(COLNO+25),$J(PCE1,9),$$S(1,9)
  • Line Location: SHOWALL+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: SHOWALL+18
Function Call: WRITE
  • Prompt: !,$$D(7),?COLNO,"#772 reviewed: ",?(COLNO+25),$J(PCE7,9),$$S(7,9)
  • Line Location: SHOWALL+19
Function Call: WRITE
  • Prompt: !,$$D(12),?COLNO,"#772 revw'd w/o purging: ",?(COLNO+25),$J(PCE12,9),$$S(12,9)
  • Line Location: SHOWALL+20
Function Call: WRITE
  • Prompt: !,$$D(11),?COLNO,"Last 772 reviewed: ",?(COLNO+25),$J(PCE11,9),$$S(11,9)
  • Line Location: SHOWALL+21
Function Call: WRITE
  • Prompt: $$SDT^HLUOPT4(PCE15)
  • Line Location: SHOWALL+22
Function Call: WRITE
  • Prompt: !,$$D(8),?COLNO,"#772 purged: ",?(COLNO+25),$J(PCE8,9),$$S(8,9)
  • Line Location: SHOWALL+23
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: SHOWALL+24
Function Call: WRITE
  • Prompt: !,$$D(9),?COLNO,"#773 reviewed: ",?(COLNO+25),$J(PCE9,9),$$S(9,9)
  • Line Location: SHOWALL+25
Function Call: WRITE
  • Prompt: !,$$D(14),?COLNO,"#773 revw'd w/o purging: ",?(COLNO+25),$J(PCE14,9),$$S(14,9)
  • Line Location: SHOWALL+26
Function Call: WRITE
  • Prompt: !,$$D(13),?COLNO,"Last 773 reviewed: ",?(COLNO+25),$J(PCE13,9),$$S(13,9)
  • Line Location: SHOWALL+27
Function Call: WRITE
  • Prompt: $$SDT^HLUOPT4(PCE16)
  • Line Location: SHOWALL+28
Function Call: WRITE
  • Prompt: !,$$D(10),?COLNO,"#773 purged: ",?(COLNO+25),$J(PCE10,9),$$S(10,9)
  • Line Location: SHOWALL+29
Function Call: WRITE
  • Prompt: $J(TXT_$$FMTE^XLFDT(LAST(NO)),COL)
  • Line Location: S+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BTE+2
Info |  Source |  Entry Points |  Interaction Calls