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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: HLUOPT6

Package: Health Level Seven

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

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All