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: HLUOPT4

Package: Health Level Seven

Routine: HLUOPT4


Information

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

Source Information

Source file <HLUOPT4.m>

Entry Points

Name Comments DBIA/ICR reference
SHOW120 ; Call SHOWXTMP with 30 second redisplay...
ASKSHOW ; Ask whether want to monitor purging job progress...
ACTION() ;
SHOWXTMP(SEC) ; Continual redisplay of purging progress ever SEC seconds...
SHOWNUM(NUM) ; Show last NUM entries...
LINERUN(XTMP) ; Display one line...
SDT(DATE) ; Return shortened form of date...
XTMPBEGN ; Initialize ^XTMP nodes for use in purging monitoring...
XTMPUPD(XTMP,STATUS,WHERE) ; Update the data in purging's ^XTMP...
LOCKTELL ; Process is locked, so new purge job can't be started...
INIT ; Moved here from HLUOPT1 (ran out of room)
; If no data are stored in file 869.3, fields 41, 42, and 43,
; the default number for these fields is 7, 30, 90, respectively.
EOR ;HLUOPT4 - Purging Entries in file #772 and #773 ;12/10/02 16:37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"As purging jobs run, they record critical information in the ^XTMP global for"
  • Line Location: ASKSHOW+3
Function Call: WRITE
  • Prompt: !,"later review. (This information is updated every two minutes.) You can view"
  • Line Location: ASKSHOW+4
Function Call: WRITE
  • Prompt: !,"purge information now..."
  • Line Location: ASKSHOW+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASKSHOW+10
Function Call: WRITE
  • Prompt: !!,"There is no currently running purge job..."
  • Line Location: SHOWXTMP+19
Function Call: WRITE
  • Prompt: !!,"Any old jobs that exist will be shown above. The current (or last) purge job"
  • Line Location: SHOWXTMP+22
Function Call: WRITE
  • Prompt: !,"is shown below. The information on each line will automatically refresh"
  • Line Location: SHOWXTMP+23
Function Call: WRITE
  • Prompt: !,"every ",SEC," seconds (or whenever you press RETURN.)"
  • Line Location: SHOWXTMP+24
Function Call: WRITE
  • Prompt: !!,IOINHI,"Note!!",IOINORM," Enter '^' when you are ready to exit."
  • Line Location: SHOWXTMP+25
Function Call: WRITE
  • Prompt: !!,"Current (or last) purge job..."
  • Line Location: SHOWXTMP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWXTMP+27
Function Call: READ
  • Variable: X
  • Timeout: SEC
  • Line Location: SHOWXTMP+33
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWXTMP+34
Function Call: WRITE
  • Prompt: !!,"Recent purge runs..."
  • Line Location: SHOWNUM+11
Function Call: WRITE
  • Prompt: !!,HDR,!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: SHOWNUM+12
Function Call: WRITE
  • Prompt: !,HDR,!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: LINERUN+8
Function Call: WRITE
  • Prompt: !,$J(PCE1,12),?14,PCE2,?26,PCE3,?38,PCE4,?50,$J(PCE8,8)
  • Line Location: LINERUN+9
Function Call: WRITE
  • Prompt: ?59,$J(PCE10,8)
  • Line Location: LINERUN+10
Function Call: WRITE
  • Prompt: ?69,$$SDT($$NOW^XLFDT)
  • Line Location: LINERUN+11
Function Call: WRITE
  • Prompt: !!,"The '^HL(""HLUOPT1"")' lock is already owned by another purge job! So, this"
  • Line Location: LOCKTELL+2
Function Call: WRITE
  • Prompt: !,"purge job cannot be started."
  • Line Location: LOCKTELL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+53
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+63
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+78
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+87
Function Call: WRITE
  • Prompt: !," "
  • Line Location: INIT+90
Info |  Source |  Entry Points |  Interaction Calls