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 |  All
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 [ 12/23/2003 3:53 PM ]

Source Information

Source file <HLCSHDR6.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Health Level Seven 1 STATUS^HLTF0  
Kernel 1 ($$CJ,$$REPEAT)^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
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
MARKERRA ; Mark 772 & 773 entries in error (to stop messaging)...
HDERR
MARKERRG ; Global-based error marking of 772, 773...
ERRQ

External References

Name Field # of Occurrence
STATUS^HLTF0 ERR+21
$$CJ^XLFSTR HDERR
$$REPEAT^XLFSTR MARKERRA+4, HDERR+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Enter ERROR REASON: "
  • Formatting: !!
  • Timeout: 999
  • Variable: ERREA
  • Line Location: MARKERRA+3
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: MARKERRA+4
Function Call: READ
  • Prompt: " 772: "
  • Formatting: !!
  • Timeout: 9999
  • Variable: IEN772
  • 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
  • Prompt: "Enter ERROR REASON: "
  • Formatting: !!
  • Timeout: 999
  • Variable: ERREA
  • 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
  • Prompt: "Press RETURN to start error marking... "
  • Formatting: !!
  • Timeout: 999
  • Variable: X
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] MARKERRA+6, MARKERRA+10, ERR+7, ERR+18
^HLMA - [#773] MARKERRA+17, MARKERRA+21, ERR+12, ERR+18
^HLMA("B" MARKERRA+12, MARKERRA+14, ERRQ+6
^TMP("HLCSHDR5 ERR" MARKERRG+4, ERRQ+1

Label References

Name Line Occurrences
$$ERR MARKERRA+29, MARKERRA+35, ERRQ+3, ERRQ+7
HDERR MARKERRA+2, MARKERRG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZHO MARKERRA+1~, MARKERRG+1~
DATA ERR+3~, ERR+18*, ERR+19
ERR MARKERRA+1~, MARKERRA+29*, MARKERRA+30, MARKERRA+35*, MARKERRA+36, MARKERRG+1~, ERRQ+3*, ERRQ+4, ERRQ+7*, ERR+3~
, ERR+5, ERR+6*, ERR+7*, ERR+9, ERR+11*, ERR+12*
ERREA MARKERRA+1~, MARKERRA+3*, MARKERRA+29, MARKERRA+35, MARKERRG+1~, MARKERRG+3*, ERRQ+3, ERRQ+7, ERR~, ERR+14
, ERR+21
FILE ERR~, ERR+5, ERR+9, ERR+18
HLD MARKERRA+1~, MARKERRA+11!, MARKERRA+31, MARKERRG+1~
HLD( MARKERRA+16*, MARKERRA+33
HLTCP MARKERRA+1~, MARKERRG+1~, ERR+3~, ERR+10*
IEN ERR~, ERR+7, ERR+12, ERR+18, ERR+21
IEN772 MARKERRA+1~, MARKERRA+4, MARKERRA+5*, MARKERRA+6, MARKERRA+10, MARKERRA+12, MARKERRA+14, MARKERRA+28, MARKERRA+29, MARKERRG+1~
, ERRQ*, ERRQ+1*, ERRQ+2, ERRQ+3, ERRQ+6
IEN773 MARKERRA+1~, MARKERRA+13*, MARKERRA+14*, MARKERRA+16, MARKERRA+17, MARKERRA+21, MARKERRA+32*, MARKERRA+33*, MARKERRA+34, MARKERRA+35
, MARKERRG+1~, ERRQ+5*, ERRQ+6*, ERRQ+7, ERRQ+8
IOF HDERR
IOM MARKERRA+4, MARKERRA+9, MARKERRA+10, MARKERRA+17, MARKERRA+24, MARKERRA+25, HDERR, HDERR+1
MSH MARKERRA+1~, MARKERRA+21*, MARKERRA+22, MARKERRA+24, MARKERRA+25*, MARKERRG+1~
N02 MARKERRA+1~, MARKERRA+6*, MARKERRA+9, MARKERRG+1~
POSX MARKERRA+1~, MARKERRA+8*, MARKERRA+9, MARKERRA+10, MARKERRA+12, MARKERRA+15, MARKERRA+18, MARKERRA+20*, MARKERRA+23, MARKERRA+24
, MARKERRA+25, MARKERRG+1~
U MARKERRA+3, MARKERRA+30, MARKERRA+36, MARKERRG+3, ERRQ+4, ERR+5, ERR+9, ERR+19
X MARKERRA+1~, MARKERRA+10*, MARKERRA+17*, MARKERRA+26*, MARKERRG+1~, MARKERRG+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All