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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls