Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ENDR^%ZISS  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
Health Level Seven 2 $$BTE^HLCSMON  (GRAPH,SHOWALL)^HLUOPT5  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Health Level Seven 3 HL PURGE JOB REVIEW  HLUOPT1  HLUOPT5  

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

External References

Name Field # of Occurrence
ENDR^%ZISS SHOWXTMP+3
^DIR ACTION+9, INIT+29, INIT+41, INIT+53, INIT+63, INIT+78, INIT+87
$$BTE^HLCSMON ASKSHOW+12, SHOWXTMP+20, LOCKTELL+4
GRAPH^HLUOPT5 ASKSHOW+11
SHOWALL^HLUOPT5 ASKSHOW+7
$$FMADD^XLFDT XTMPBEGN+3, INIT+14, INIT+15, INIT+16, INIT+17, INIT+22, INIT+28
$$FMTE^XLFDT SDT+2, INIT+28, INIT+40, INIT+52, INIT+77
$$NOW^XLFDT LINERUN+11, XTMPBEGN+2, XTMPUPD+4, XTMPUPD+8
$$REPEAT^XLFSTR SHOWNUM+12, LINERUN+8

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
Routine Call
  • DIR
  • Line Location:
    • ACTION+9
    • INIT+29
    • INIT+41
    • INIT+53
    • INIT+63
    • INIT+78
    • INIT+87

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLCS(869.3 - [#869.3] INIT+5, INIT+6
^XTMP( SHOWXTMP+9, SHOWNUM+5, SHOWNUM+7, LINERUN+3, XTMPBEGN+3*, XTMPBEGN+4*, XTMPUPD+7, XTMPUPD+22*
^XTMP("HLUOPT1 9999999.999999" ASKSHOW+2, SHOWXTMP+7

Label References

Name Line Occurrences
$$ACTION ASKSHOW+6
$$SDT LINERUN+5, LINERUN+6, LINERUN+7, LINERUN+11
LINERUN SHOWXTMP+32, SHOWNUM+15
SHOWNUM SHOWXTMP+12
SHOWXTMP SHOW120+1, ASKSHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT SHOWXTMP+1~, SHOWXTMP+30, SHOWXTMP+31*, SHOWXTMP+35*
ACTION ASKSHOW+1~, ASKSHOW+6*, ASKSHOW+7, ASKSHOW+8, ASKSHOW+9
ACTIVE SHOWXTMP+1~, SHOWXTMP+8*, SHOWXTMP+9*, SHOWXTMP+12, SHOWXTMP+18, SHOWNUM+5
CT SHOWXTMP+28*, SHOWXTMP+31*, SHOWXTMP+34*, SHOWNUM+1~, SHOWNUM+6*, SHOWNUM+7, SHOWNUM+8*, LINERUN+8
DATE SDT~, SDT+1, SDT+2
DIR ACTION+1~, INIT+20~, INIT+31!, INIT+43!, INIT+55!, INIT+64!, INIT+80!, INIT+89!
DIR("?" ACTION+3*, ACTION+4*, ACTION+5*, ACTION+6*, ACTION+7*, ACTION+8*, INIT+26*, INIT+27*, INIT+28*, INIT+38*
, INIT+39*, INIT+40*, INIT+50*, INIT+51*, INIT+52*, INIT+61*, INIT+62*, INIT+75*, INIT+76*, INIT+77*
, INIT+86*
DIR("A" INIT+23*, INIT+24*, INIT+35*, INIT+36*, INIT+47*, INIT+48*, INIT+59*, INIT+69*, INIT+70*, INIT+71*
, INIT+72*, INIT+73*, INIT+84*
DIR("B" INIT+25*, INIT+37*, INIT+49*, INIT+60*, INIT+74*, INIT+85*
DIR(0 ACTION+2*, INIT+22*, INIT+34*, INIT+46*, INIT+58*, INIT+68*, INIT+83*
DIRUT ACTION+1~, INIT+20~, INIT+29, INIT+41, INIT+53, INIT+63, INIT+78, INIT+87
DT LINERUN+6, LINERUN+7, INIT+14, INIT+15, INIT+16, INIT+17, INIT+22, INIT+28
DTOUT ACTION+1~
DUOUT ACTION+1~
DUZ XTMPBEGN+3
HDR SHOWXTMP+1~, SHOWXTMP+4*, SHOWNUM+12, LINERUN+8
HLDEF INIT+3~, INIT+4*, INIT+7, INIT+11
>> HLEXIT INIT+29*, INIT+41*, INIT+53*, INIT+63*, INIT+66, INIT+78*, INIT+87*
HLIEN INIT+3~, INIT+5*, INIT+6
>> HLPDT("ALL" INIT+16*, INIT+54*
>> HLPDT("COMP" INIT+14*, INIT+30*, INIT+34, INIT+40, INIT+92*
>> HLPDT("ERR" INIT+17*, INIT+65*, INIT+79*
>> HLPDT("WAIT" INIT+15*, INIT+42*, INIT+46, INIT+52, INIT+68, INIT+77, INIT+92*
HLREC INIT+3~, INIT+6*, INIT+7*, INIT+10, INIT+11*, INIT+14, INIT+15, INIT+16, INIT+17, INIT+25
, INIT+37, INIT+49, INIT+74
>> HLTASK INIT+88*
HOLD SHOWNUM+1~, SHOWNUM+10
HOLD( SHOWNUM+9*, SHOWNUM+14
I LINERUN+1~, LINERUN+4*, INIT+3~, INIT+7*
IOF ASKSHOW+10
IOINHI SHOWXTMP+1~, SHOWXTMP+25
IOINORM SHOWXTMP+1~, SHOWXTMP+25
IOM SHOWNUM+12, LINERUN+8
NOW XTMPBEGN+1~, XTMPBEGN+2*, XTMPBEGN+3, XTMPBEGN+4, XTMPUPD+1~, XTMPUPD+4*, XTMPUPD+9
NUM SHOWNUM~, SHOWNUM+7
PCE1 LINERUN+1~, LINERUN+9
PCE10 LINERUN+1~, LINERUN+10
PCE11 LINERUN+1~
PCE12 LINERUN+2~
PCE13 LINERUN+2~
PCE14 LINERUN+2~
PCE2 LINERUN+1~, LINERUN+5*, LINERUN+6, LINERUN+7, LINERUN+9
PCE3 LINERUN+1~, LINERUN+5*, LINERUN+6*, LINERUN+9
PCE4 LINERUN+1~, LINERUN+5*, LINERUN+7*, LINERUN+9
PCE5 LINERUN+1~
PCE6 LINERUN+1~
PCE7 LINERUN+1~
PCE8 LINERUN+1~, LINERUN+9
PCE9 LINERUN+1~
RUN LINERUN+3*, LINERUN+4, XTMPUPD+1~, XTMPUPD+7*, XTMPUPD+8*, XTMPUPD+9*, XTMPUPD+10*, XTMPUPD+11*, XTMPUPD+12*, XTMPUPD+13*
, XTMPUPD+14*, XTMPUPD+15*, XTMPUPD+16*, XTMPUPD+17*, XTMPUPD+18*, XTMPUPD+19*, XTMPUPD+20*, XTMPUPD+21*, XTMPUPD+22
SEC SHOWXTMP~, SHOWXTMP+15*, SHOWXTMP+24, SHOWXTMP+33
STATUS XTMPUPD~, XTMPUPD+9, XTMPUPD+10
U SHOWXTMP+9, LINERUN+4, XTMPBEGN+3, XTMPBEGN+4, XTMPUPD+8, XTMPUPD+9, XTMPUPD+10, XTMPUPD+11, XTMPUPD+12, XTMPUPD+13
, XTMPUPD+14, XTMPUPD+15, XTMPUPD+16, XTMPUPD+17, XTMPUPD+18, XTMPUPD+19, XTMPUPD+20, XTMPUPD+21, INIT+7, INIT+10
, INIT+14, INIT+15, INIT+16, INIT+17, INIT+25, INIT+37, INIT+49, INIT+74
WHERE XTMPUPD~, XTMPUPD+11
X ASKSHOW+12*, ACTION+1~, SHOWXTMP+1~, SHOWXTMP+3*, SHOWXTMP+9*, SHOWXTMP+20*, SHOWXTMP+33*, LOCKTELL+1~, LOCKTELL+4*, INIT+20~
XTMP ASKSHOW+1~, ASKSHOW+2*, ASKSHOW+7, SHOWXTMP+1~, SHOWXTMP+7*, SHOWXTMP+9, SHOWXTMP+18, SHOWXTMP+32, SHOWNUM+1~, SHOWNUM+3*
, SHOWNUM+5*, SHOWNUM+7*, SHOWNUM+9, SHOWNUM+13*, SHOWNUM+14*, SHOWNUM+15, LINERUN~, LINERUN+3, XTMPBEGN+2*, XTMPBEGN+3
, XTMPBEGN+4, XTMPUPD~, XTMPUPD+7, XTMPUPD+22
XTMP(772 XTMPUPD+12, XTMPUPD+13, XTMPUPD+16, XTMPUPD+17, XTMPUPD+20
XTMP(773 XTMPUPD+14, XTMPUPD+15, XTMPUPD+18, XTMPUPD+19, XTMPUPD+21
Y ACTION+1~, ACTION+10, INIT+20~, INIT+30, INIT+42, INIT+54, INIT+65, INIT+79, INIT+88
>> ZTQUEUED INIT+13
>> ZTSK XTMPBEGN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All