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

Package: Health Level Seven

Routine: HLCSHDR6


Information

HLCSHDR6 ;OIRMFO/LJA - Make HL7 header for TCP ;1/27/03 15:30

Source Information

Source file <HLCSHDR6.m>

Entry Points

Name Comments DBIA/ICR reference
MARKERRA ; Mark 772 & 773 entries in error (to stop messaging)...
MARKERRG ; Global-based error marking of 772, 773...
ERRQ
HDERR
ERR(FILE,IEN,ERREA) ; Change status to ERROR for 772 or 773 (if the P
; node status exists.)
EOR ;HLCSHDR6 - Make HL7 header for TCP ;1/27/03 15:30

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter ERROR REASON: "
  • Variable: ERREA
  • Timeout: 999
  • Line Location: MARKERRA+3
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: MARKERRA+4
Function Call: READ
  • Formatting: !!
  • Prompt: " 772: "
  • Variable: IEN772
  • Timeout: 9999
  • Line Location: MARKERRA+5
Function Call: WRITE
  • Prompt: !!,"772-0: "
  • Line Location: MARKERRA+7
Function Call: WRITE
  • Prompt: $E(N02,1,IOM-POSX)
  • Line Location: MARKERRA+9
Function Call: WRITE
  • Prompt: !,?(POSX-3),"P: ",$E(X,1,IOM-POSX)
  • Line Location: MARKERRA+10
Function Call: WRITE
  • Prompt: " P: ",$E(X,1,IOM-$X)
  • Line Location: MARKERRA+17
Function Call: WRITE
  • Prompt: "MSH: "
  • Line Location: MARKERRA+19
Function Call: WRITE
  • Prompt: $E(MSH,1,IOM-POSX)
  • Line Location: MARKERRA+24
Function Call: READ
  • Timeout: 999
  • Line Location: MARKERRA+26
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: MARKERRA+27
Function Call: WRITE
  • Prompt: !!,?10,"Marking 772's #",IEN772," errored... "
  • Line Location: MARKERRA+28
Function Call: WRITE
  • Prompt: $S(ERR:" done...",1:"Aborted!! "_$P(ERR,U,2)_"...")
  • Line Location: MARKERRA+30
Function Call: WRITE
  • Prompt: !,?10,"Marking 773's #",IEN773," errored... "
  • Line Location: MARKERRA+34
Function Call: WRITE
  • Prompt: $S(ERR:" done...",1:"Aborted!! "_$P(ERR,U,2)_"...")
  • Line Location: MARKERRA+36
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter ERROR REASON: "
  • Variable: ERREA
  • Timeout: 999
  • Line Location: MARKERRG+3
Function Call: WRITE
  • Prompt: !!,"No ^TMP(""HLCSHDR5 ERR"",$J) data exists..."
  • Line Location: MARKERRG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MARKERRG+6
Function Call: WRITE
  • Prompt: !!,"The entries in ^TMP(""HLCSHDR5 ERR"",$J) will be marked in error now."
  • Line Location: MARKERRG+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to start error marking... "
  • Variable: X
  • Timeout: 999
  • Line Location: MARKERRG+8
Function Call: WRITE
  • Prompt: !,"Marking 772's #",IEN772,"... "
  • Line Location: ERRQ+2
Function Call: WRITE
  • Prompt: $S(ERR:" done...",1:"Aborted!! "_$P(ERR,U,2)_"...")
  • Line Location: ERRQ+4
Function Call: WRITE
  • Prompt: !," - 773# ",IEN773," checked..."
  • Line Location: ERRQ+8
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Error Marking Utility",IOM)
  • Line Location: HDERR+0
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDERR+1
Info |  Source |  Entry Points |  Interaction Calls