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

Package: Health Level Seven

Routine: HLCSHDR5


Information

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

Source Information

Source file <HLCSHDR5.m>

Entry Points

Name Comments DBIA/ICR reference
MSHALL ; Allows application developer, in test and development environments,
; to change almost every field in the MSH segment. This feature
; allows the testing of the ramifications of MSH field changes, avoiding
; the need to edit protocol file (and other file) entries from which
; the MSH segment fields are derived.
MSHCONT ;
YN(PMT,DEF,FF) ;
DOWHAT() ; Reenter MSH or send message...
SHOWMSH ;
; MSHORIG -- req
S(T,C)
CHG(VAL,PCE) ; Has data been changed?
; MSHORIG -- req
ASKMSH ; Ask user to input different field values
MSH() ;Build MSH array
SAVEORIG ; Save value of original variables...
RESTORE ;
FLDS ; List of fields and their variables in MSH segment...
PRACTICE ; Practice MSH variables...
EOR ;HLCSHDR5 - Make HL7 header for TCP ;1/27/03 15:30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The MSH segment was not changed..."
  • Line Location: MSHCONT+10
Function Call: WRITE
  • Prompt: !!,MSHORIG,!!," changed to...",!!
  • Line Location: MSHCONT+13
Function Call: WRITE
  • Prompt: VAL2
  • Line Location: MSHCONT+18
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: MSHCONT+19
Function Call: WRITE
  • Prompt: !!,"You have made some changes to the original MSH segment. Do you want to"
  • Line Location: MSHCONT+24
Function Call: WRITE
  • Prompt: !,"""forget"" these changes, and reset the MSH segment to it's original state?"
  • Line Location: MSHCONT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR("MSH Segment Values",IOM)
  • Line Location: SHOWMSH+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: SHOWMSH+10
Function Call: WRITE
  • Prompt: !,"#",?C2,"Field",?C3,"Variable",?C4,"Value"
  • Line Location: SHOWMSH+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SHOWMSH+12
Function Call: WRITE
  • Prompt: !,$J(PCE,2),?C2,$$S(TAG,12),?C3,$$S(REF,18)
  • Line Location: SHOWMSH+20
Function Call: WRITE
  • Prompt: ?C4
  • Line Location: SHOWMSH+21
Function Call: WRITE
  • Prompt: IOINHI
  • Line Location: SHOWMSH+22
Function Call: WRITE
  • Prompt: VAL,IOINORM
  • Line Location: SHOWMSH+23
Function Call: WRITE
  • Prompt: $S(XEC=1:$$CHG(VAL,PCE),1:"")
  • Line Location: SHOWMSH+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKMSH+3
Function Call: WRITE
  • Prompt: !!,"Current '",VAR,"' value = ",VAL
  • Line Location: ASKMSH+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKMSH+19
Function Call: WRITE
  • Prompt: " nothing changed..."
  • Line Location: ASKMSH+28
Function Call: WRITE
  • Prompt: " changed..."
  • Line Location: ASKMSH+33
Info |  Source |  Entry Points |  Interaction Calls