Routine: HLUOPT5

Information

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

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	($$FMDIFF,$$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
Health Level Seven	1	$$SDT^HLUOPT4
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Health Level Seven	1	HLUOPT4

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

External References

Name	Field # of Occurrence
^DIR	BTE+5
$$SDT^HLUOPT4	GRAPH+41, SHOWALL+22, SHOWALL+28
$$FMDIFF^XLFDT	GRAPH+11
$$FMTE^XLFDT	SHOWALL+8, SHOWALL+9, S+7
$$NOW^XLFDT	SHOWALL+9
$$CJ^XLFSTR	SHOWALL+9
$$REPEAT^XLFSTR	GRAPH+31, GRAPH+35, PAD+4, PAD+5, SHOWALL+18, SHOWALL+24, S+5

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
Routine Call	DIR Line Location: BTE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	GRAPH+5, GRAPH+7, SHOWALL+5

Label References

Name	Line Occurrences
$$BTE	SHOWALL+4
$$D	SHOWALL+10, SHOWALL+11, SHOWALL+12, SHOWALL+15, SHOWALL+16, SHOWALL+17, SHOWALL+19, SHOWALL+20, SHOWALL+21, SHOWALL+22 , SHOWALL+23, SHOWALL+25, SHOWALL+26, SHOWALL+27, SHOWALL+28, SHOWALL+29
$$S	SHOWALL+10, SHOWALL+11, SHOWALL+12, SHOWALL+15, SHOWALL+16, SHOWALL+17, SHOWALL+19, SHOWALL+20, SHOWALL+21, SHOWALL+23 , SHOWALL+25, SHOWALL+26, SHOWALL+27, SHOWALL+29
HOLD	GRAPH+12, GRAPH+15, GRAPH+18
PAD	GRAPH+46, GRAPH+49, GRAPH+52

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	SHOWALL+1~, SHOWALL+4, SHOWALL+14*
CHAR	PAD+2~, PAD+4, PAD+5, PAD+6*, PAD+7
COL	PAD~, PAD+4, PAD+5, S~, S+2*, S+3, S+4, S+6, S+7
COLNO	SHOWALL+1~, SHOWALL+3*, SHOWALL+10, SHOWALL+11, SHOWALL+12, SHOWALL+15, SHOWALL+16, SHOWALL+17, SHOWALL+19, SHOWALL+20 , SHOWALL+21, SHOWALL+23, SHOWALL+25, SHOWALL+26, SHOWALL+27, SHOWALL+29
CURR	SHOWALL+1~
CURR(	SHOWALL+6*, D+2, S+4
DATA	GRAPH+1~, GRAPH+7, GRAPH+9, GRAPH+10, GRAPH+14, GRAPH+17, GRAPH+43, GRAPH+45, GRAPH+48, GRAPH+51
DATE	GRAPH+1~, GRAPH+37, GRAPH+38, GRAPH+40, GRAPH+41, GRAPH+43
>> DEL772	GRAPH+14*, GRAPH+15, GRAPH+20
>> DEL773	GRAPH+17*, GRAPH+18, GRAPH+20
>> DIFF	GRAPH+11*, GRAPH+12, GRAPH+20
DIR	BTE+1~
DIR("A"	BTE+3*
DIR("T"	BTE+4*
DIR(0	BTE+3*
DIRUT	BTE+1~, BTE+7
DTOUT	BTE+1~
DUOUT	BTE+1~, BTE+6
END	GRAPH+1~, GRAPH+10*, GRAPH+11
FF	BTE~, BTE+2
HOLD	GRAPH+1~, GRAPH+22
HOLD(	GRAPH+20, GRAPH+26, GRAPH+38, GRAPH+43, HOLD+1, HOLD+2*
HOLD(1	GRAPH+32
HOLD(2	GRAPH+33
HOLD(3	GRAPH+34
I	SHOWALL+1~, SHOWALL+6, SHOWALL+7, SHOWALL+30*
IOM	GRAPH+31, GRAPH+35, SHOWALL+9, SHOWALL+18, SHOWALL+24, S+5
LAST	SHOWALL+1~, D+1, S+3
LAST(	SHOWALL+30*, D+2, S+4, S+6, S+7
MAX	GRAPH+1~, GRAPH+26*, GRAPH+27
MULT	GRAPH+1~, PAD+3*, PAD+4
MULT(	GRAPH+27*, PAD+3
MULTNO	PAD~, PAD+3, PAD+6
NO	D~, D+2, S~, S+4, S+6, S+7
NUM	PAD~, PAD+4, HOLD~, HOLD+1, HOLD+2
PCE1	SHOWALL+1~, SHOWALL+17
PCE10	SHOWALL+2~, SHOWALL+29
PCE11	SHOWALL+2~, SHOWALL+21
PCE12	SHOWALL+2~, SHOWALL+20
PCE13	SHOWALL+2~, SHOWALL+27
PCE14	SHOWALL+2~, SHOWALL+26
>> PCE15	SHOWALL+22
>> PCE16	SHOWALL+28
PCE2	SHOWALL+1~, SHOWALL+8*, SHOWALL+10
PCE3	SHOWALL+1~, SHOWALL+8*, SHOWALL+11
PCE4	SHOWALL+1~, SHOWALL+8*, SHOWALL+12, SHOWALL+13, SHOWALL+14
PCE5	SHOWALL+1~, SHOWALL+15
PCE6	SHOWALL+1~, SHOWALL+16
PCE7	SHOWALL+1~, SHOWALL+19
PCE8	SHOWALL+2~, SHOWALL+23
PCE9	SHOWALL+2~, SHOWALL+25
PMT	SHOWALL+2~, SHOWALL+4, SHOWALL+13*, BTE~, BTE+3
>> RUN	SHOWALL+5*, SHOWALL+6, SHOWALL+7, SHOWALL+30
START	GRAPH+1~, GRAPH+9*, GRAPH+11
TIMEOUT	BTE~, BTE+4
TXT	GRAPH+1~, GRAPH+41, GRAPH+54, PAD+7, S+1~, S+2, S+5, S+6*, S+7
TYPE	GRAPH+1~, GRAPH+25*, GRAPH+26, GRAPH+27
U	GRAPH+7, GRAPH+9, GRAPH+10, GRAPH+14, GRAPH+17, GRAPH+20, GRAPH+45, GRAPH+48, GRAPH+51, SHOWALL+6 , SHOWALL+7, SHOWALL+30
VAL	GRAPH+1~, GRAPH+45, GRAPH+46, GRAPH+48, GRAPH+49, GRAPH+51*, GRAPH+52, HOLD~, HOLD+1, HOLD+2
X	SHOWALL+22, SHOWALL+28, BTE+1~, BTE+2*
XTMP	GRAPH+1~, GRAPH+4, GRAPH+5, GRAPH+7, GRAPH+20, GRAPHONE~, SHOWALL~, SHOWALL+5, SHOWALL+9
Y	BTE+1~, BTE+7

Customize PDF page

Package: Health Level Seven