Routine: HLUOPT6

Information

HLUOPT6 ;CIOFO-O/LJA - Fix zero node of file 772 or 773 ;02/04/2004 09:02

Source Information

Source file <HLUOPT6.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	ENDR^%ZISS ^%ZTLOAD ($$CJ,$$REPEAT)^XLFSTR
MailMan	1	^XMD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
FILE(LIST)	; Ask which files to correct.. ; IOINHI,IOINORM -- req
EOR	; HLUOPT6 - Fix zero node of file 772 or 773 ;5/12/03 09:02
FIXZERO	; Reset piece 3 & 4 of zero node of file 772 &/or 773...
BTE(PMT,FF)	;
MSGBODY	; Add message bode... ; LIST,ZERO -- req
QUEUE	;
SH0(TXT)	; Highlight 3rd and 4th pieces... ; IOINHI,IOINORM -- req
CORR(FILE,ZERO)	; Correct zero node for file... ; NOTE: No purging actions should be occurring now...
EX
ZTSK	;
MAIL	; Send Mailman message.
MAILADD(T)
HD

External References

Name	Field # of Occurrence
ENDR^%ZISS	FIXZERO+4
^%ZTLOAD	ZTSK+5
^DIR	BTE+4, FILE+14
$$CJ^XLFSTR	FILE+5, HD
$$REPEAT^XLFSTR	FILE+6, HD+1
^XMD	MAIL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?3,IOINHI,"Note:",IOINORM," ",IOINHI Line Location: FIXZERO+5
Function Call: WRITE	Prompt: "This utility should be run when no purge processes are running.",IOINORM Line Location: FIXZERO+6
Function Call: WRITE	Prompt: ! Line Location: FIXZERO+8
Function Call: WRITE	Prompt: !!,"The process which fixes the zero node will now be queued to a background job." Line Location: FIXZERO+14
Function Call: WRITE	Prompt: !,"When complete, a verification Mailman message will be sent to you on this" Line Location: FIXZERO+15
Function Call: WRITE	Prompt: !,"system." Line Location: FIXZERO+16
Function Call: WRITE	Prompt: " exiting... " Line Location: FIXZERO+18
Function Call: WRITE	Prompt: !!,"Queued to task# ",ZTSK,"..." Line Location: ZTSK+6
Function Call: WRITE	Prompt: ! Line Location: BTE+2
Function Call: WRITE	Prompt: !!,"Select the file(s) now whose zero nodes should be corrected." Line Location: FILE+4
Function Call: WRITE	Prompt: !!,?10,$$CJ^XLFSTR("Zero Node Current Value",60) Line Location: FILE+5
Function Call: WRITE	Prompt: !,?10,$$REPEAT^XLFSTR("-",60) Line Location: FILE+6
Function Call: WRITE	Prompt: !,?13,"^HL(772,0) = " Line Location: FILE+7
Function Call: WRITE	Prompt: !,?13,"^HLMA(0) = " Line Location: FILE+9
Function Call: WRITE	Prompt: ! Line Location: FILE+11
Function Call: WRITE	Prompt: $P(TXT,U,1,2),U,IOINHI,$P(TXT,U,3),IOINORM,U,IOINHI,$P(TXT,U,4),IOINORM Line Location: SH0+3
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("File 772/773 Header Correction",IOM) Line Location: HD+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EX+0
Routine Call	DIR Line Location: BTE+4 FILE+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(772 - [#772]	CORR+16, CORR+17*, CORR+18, FILE+8
^HLMA(0	CORR+21, CORR+22*, CORR+23, FILE+10
^TMP($J	MAIL+4!, MAIL+9!, MAILADD*

Label References

Name	Line Occurrences
$$BTE	FIXZERO+9, FIXZERO+17, FIXZERO+20
CORR	QUEUE+4
EX	FIXZERO+3
FILE	FIXZERO+13
HD	FIXZERO+2, FIXZERO+11
MAIL	QUEUE+5
MAILADD	MSGBODY+4, MSGBODY+7, MSGBODY+8, MSGBODY+9
MSGBODY	MAIL+6
SH0	FILE+8, FILE+10
ZTSK	FIXZERO+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CT	CORR+2~, CORR+8, CORR+11, CORR+13, MSGBODY+2~, MSGBODY+3*, MSGBODY+4
DIR	BTE+1~, FILE+2~
DIR("A"	BTE+3, FILE+13
DIR(0	BTE+3, FILE+12
DIRUT	BTE+1~, BTE+5, FILE+2~, FILE+15
DTOUT	BTE+1~, BTE+5, FILE+2~, FILE+15
DUOUT	BTE+1~, BTE+5, FILE+2~, FILE+15
DUZ	MAIL+7
FF	BTE~, BTE+2
FILE	FIXZERO+1~, QUEUE+1~, QUEUE+2, QUEUE+3, QUEUE+4, CORR~, CORR+4, CORR+5, CORR+6, CORR+13 , CORR+15, CORR+20, MSGBODY+2~, MSGBODY+3, MSGBODY+5, MSGBODY+6*, MSGBODY+8, MSGBODY+9
GBL	FIXZERO+1~, CORR+2~, CORR+4*, CORR+9, CORR+10
GBL0	CORR+2~, CORR+5*, CORR+6
I	EX~*
IEN	CORR+2~, CORR+8, CORR+9, CORR+10, CORR+11
IOF	HD
IOINHI	FIXZERO+1~, FIXZERO+5, SH0+3
IOINORM	FIXZERO+1~, FIXZERO+5, FIXZERO+6, SH0+3
IOM	HD, HD+1
IOSL	FIXZERO+8
LAST	CORR+2~, CORR+8, CORR+11, CORR+13
LIST	FIXZERO+1~, FIXZERO+13, FILE~, FILE+3!
LIST(	QUEUE+3, MSGBODY+3, MSGBODY+6
LIST(0	MSGBODY+4
LIST(772	FILE+16, FILE+18
LIST(773	FILE+17, FILE+18
NEW0	CORR+2~, CORR+13*, CORR+17, CORR+22
NO	MAIL+1~, MAIL+5, MAILADD
PCE	SH0+2~
PMT	BTE~, BTE+3
T	MAILADD~, EX~*
TEXT	MAIL+1~
TXT	FILE+2~, SH0~, SH0+3
U	CORR+10, CORR+13, SH0+3
VAL	SH0+2~
X	FIXZERO+1~, FIXZERO+4, FIXZERO+17, FIXZERO+20, BTE+1~, BTE+2, FILE+2~
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+3*
>> XMY(	MAIL+7*
XMZ	MAIL+1~
Y	FIXZERO+1~, BTE+1~, BTE+6, FILE+2~, FILE+15, FILE+16, FILE+17, FILE+18
ZERO	QUEUE+1~, QUEUE+4, CORR~
ZERO(1	CORR+6*, CORR+13, MSGBODY+8
ZERO(2	CORR+13*, MSGBODY+9
ZTDESC	ZTSK+1~, ZTSK+2*
ZTDTH	ZTSK+1~, ZTSK+2*
ZTIO	ZTSK+1~, ZTSK+2*
ZTRTN	ZTSK+1~, ZTSK+3*
>> ZTSAVE("LIST("	ZTSK+4*
ZTSK	ZTSK+1~, ZTSK+6

Marked Items

Name	Field # of Occurrence
$T(EX+I	EX

Customize PDF page

Package: Health Level Seven

Routine: HLUOPT6

Call Graph Total: 5