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 |  Label References |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ENDR^%ZISS  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SAVEORIG ; Save value of original variables...
MSH() ;Build MSH array
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.
RESTORE ;
PRACTICE ; Practice MSH variables...
FLDS ; List of fields and their variables in MSH segment...
CHG(VAL,PCE) ; Has data been changed?
; MSHORIG -- req
DOWHAT() ; Reenter MSH or send message...
EOR ;HLCSHDR5 - Make HL7 header for TCP ;1/27/03 15:30
SHOWMSH ;
; MSHORIG -- req
YN(PMT,DEF,FF) ;
S(T,C)
ASKMSH ; Ask user to input different field values
MSHCONT ;

External References

Name Field # of Occurrence
ENDR^%ZISS MSHCONT+12, SHOWMSH+7
^DIR YN+5, DOWHAT+4, ASKMSH+11, ASKMSH+23
$$CJ^XLFSTR SHOWMSH+9
$$REPEAT^XLFSTR SHOWMSH+10, SHOWMSH+12

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
Routine Call
  • DIR
  • Line Location:
    • YN+5
    • DOWHAT+4
    • ASKMSH+11
    • ASKMSH+23

Label References

Name Line Occurrences
$$CHG SHOWMSH+24
$$DOWHAT MSHCONT+21
$$MSH MSHCONT+5, MSHCONT+8, SAVEORIG+11
$$S SHOWMSH+20
$$YN MSHCONT+26
ASKMSH MSHCONT+4
MSHCONT MSHCONT+22
RESTORE MSHCONT+27
SAVEORIG MSHALL+31
SHOWMSH MSHCONT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACCACK SAVEORIG+7, PRACTICE+6*
ACTION MSHALL+28~, MSHCONT+21*, MSHCONT+22
>> ANS ASKMSH+26*, ASKMSH+28, ASKMSH+31, ASKMSH+32
>> APPACK SAVEORIG+8, PRACTICE+6*
C S~, S+1
C2 SHOWMSH+2~, SHOWMSH+5*, SHOWMSH+11, SHOWMSH+20
C3 SHOWMSH+2~, SHOWMSH+5*, SHOWMSH+11, SHOWMSH+20
C4 SHOWMSH+2~, SHOWMSH+5*, SHOWMSH+11, SHOWMSH+21
CHANGE MSHALL+28~, MSHCONT+1, MSHCONT+2*, MSHCONT+7*
>> CLNTAPP SAVEORIG+4, PRACTICE+2*
>> CLNTFAC SAVEORIG+4, PRACTICE+2*
>> CNTRY SAVEORIG+8, PRACTICE+6*
DATA SHOWMSH+2~, SHOWMSH+14*, SHOWMSH+15, ASKMSH+1~, ASKMSH+7*, MSH+1~, MSH+5*, MSH+6
DEF YN~, YN+4
DIR YN+1~, DOWHAT+1~, ASKMSH+1~, ASKMSH+5*, ASKMSH+8*, ASKMSH+9, ASKMSH+21!
DIR("A" YN+3*, DOWHAT+3*, ASKMSH+10*, ASKMSH+22*
DIR("B" YN+4*, DOWHAT+3*
DIR(0 YN+3*, DOWHAT+2*, ASKMSH+9*, ASKMSH+22*
DIRUT YN+1~, DOWHAT+1~, ASKMSH+1~, ASKMSH+21!, ASKMSH+24
DTOUT YN+1~, DOWHAT+1~, ASKMSH+1~, ASKMSH+21!, ASKMSH+24
DUOUT YN+1~, DOWHAT+1~, ASKMSH+1~, ASKMSH+21!, ASKMSH+24
EC SHOWMSH+6~*, PRACTICE+1*
FF YN~, YN+2
FIELD ASKMSH+1~, ASKMSH+14*, ASKMSH+15, ASKMSH+16, ASKMSH+31, ASKMSH+32
FS MSHCONT+14, MSHCONT+15, MSHCONT+16, SHOWMSH+6~*, CHG+3, MSH+11, PRACTICE+1*
>> HLDATE SAVEORIG+5, PRACTICE+3*
>> HLID SAVEORIG+6, PRACTICE+4*
>> HLPID SAVEORIG+7, PRACTICE+4*
>> I YN+2*
IOF SHOWMSH+9
IOINHI MSHALL+28~, MSHCONT+17, SHOWMSH+2~, SHOWMSH+22
IOINORM MSHALL+28~, MSHCONT+19, SHOWMSH+2~, SHOWMSH+23
IOM SHOWMSH+9, SHOWMSH+10, SHOWMSH+12
>> MSGTYPE SAVEORIG+6, PRACTICE+3*
MSH SHOWMSH+2~, MSH+1~, MSH+3*, MSH+11*, MSH+13
MSHFINAL MSHALL+28~, MSHALL+32*, MSHCONT+5*, MSHCONT+6, MSHCONT+10, MSHCONT+11, MSHCONT+14, MSHCONT+16, MSHCONT+23, MSHCONT+28*
, RESTORE+11*
MSHLAST MSHALL+28~, MSHALL+32*, MSHCONT+6, MSHCONT+8*, MSHCONT+28*, RESTORE+11*
MSHORIG MSHALL+28~, MSHALL+32, MSHCONT+10, MSHCONT+11, MSHCONT+13, MSHCONT+16, MSHCONT+23, MSHCONT+28, SHOWMSH+4~*, CHG+3
, SAVEORIG+11*, RESTORE+11
PCE MSHALL+29~, MSHCONT+14*, MSHCONT+15, MSHCONT+16, SHOWMSH+2~, SHOWMSH+14*, SHOWMSH+17, SHOWMSH+18, SHOWMSH+19, SHOWMSH+20
, SHOWMSH+24, CHG~, CHG+3, ASKMSH+1~, ASKMSH+6*, ASKMSH+8, MSH+1~, MSH+5*, MSH+7, MSH+9
, MSH+10
PMT YN~, YN+3
>> PROT ASKMSH+32*, SAVEORIG+9, RESTORE+8*, PRACTICE+5*
REF SHOWMSH+2~, SHOWMSH+15*, SHOWMSH+16, SHOWMSH+17*, SHOWMSH+18, SHOWMSH+19, SHOWMSH+20, MSH+1~, MSH+6*, MSH+7*
, MSH+8, MSH+9, MSH+10
SAVE MSHALL+29~, SAVEORIG+1!
SAVE( RESTORE+5, RESTORE+7
SAVE("$P(PROT,U,9)" SAVEORIG+9*, RESTORE+8
SAVE("ACCACK" SAVEORIG+7*
SAVE("APPACK" SAVEORIG+8*
SAVE("CLNTAPP" SAVEORIG+4*
SAVE("CLNTFAC" SAVEORIG+4*
SAVE("CNTRY" SAVEORIG+8*
SAVE("HLDATE" SAVEORIG+5*
SAVE("HLID" SAVEORIG+6*
SAVE("HLPID" SAVEORIG+7*
SAVE("MSGTYPE" SAVEORIG+6*
SAVE("SECURITY" SAVEORIG+5*
SAVE("SERAPP" SAVEORIG+3*
SAVE("SERFAC" SAVEORIG+3*
>> SECURITY SAVEORIG+5, PRACTICE+3*
>> SERAPP SAVEORIG+3, PRACTICE+2*
>> SERFAC SAVEORIG+3, PRACTICE+2*
T S~, S+1
TAG SHOWMSH+2~, SHOWMSH+15*, SHOWMSH+20, MSH+1~
TITLE ASKMSH+1~, ASKMSH+7*, ASKMSH+8
>> TXTP PRACTICE+5*
U SHOWMSH+6, SHOWMSH+15, SHOWMSH+17, ASKMSH+7, ASKMSH+14, ASKMSH+32, MSH+6, MSH+7, SAVEORIG+9, RESTORE+8
, PRACTICE+1, PRACTICE+5
VAL SHOWMSH+2~, SHOWMSH+16*, SHOWMSH+18*, SHOWMSH+23, SHOWMSH+24, CHG~, CHG+4, ASKMSH+1~, ASKMSH+15*, ASKMSH+18
, ASKMSH+28, MSH+8*, MSH+9*, MSH+11, RESTORE+1~
VAL1 MSHALL+29~, MSHCONT+16*, MSHCONT+17
VAL2 MSHALL+29~, MSHCONT+16*, MSHCONT+17, MSHCONT+18
VALORIG CHG+2~, CHG+3*, CHG+4
VAR ASKMSH+1~, ASKMSH+7*, ASKMSH+8, ASKMSH+14*, ASKMSH+15, ASKMSH+16, ASKMSH+18, ASKMSH+31, RESTORE+1~, RESTORE+4*
, RESTORE+5*, RESTORE+6, RESTORE+7
X MSHALL+29~, MSHCONT+12*, YN+1~, DOWHAT+1~, SHOWMSH+2~, SHOWMSH+4*, SHOWMSH+7*, SHOWMSH+19*!, ASKMSH+1~, ASKMSH+16*!
, ASKMSH+21!, MSH+10*!
XEC SHOWMSH+2~, SHOWMSH+15*, SHOWMSH+18, SHOWMSH+19, SHOWMSH+22, SHOWMSH+24, MSH+1~, MSH+6*, MSH+8, MSH+9
, MSH+10
Y YN+1~, YN+6, DOWHAT+1~, DOWHAT+5, ASKMSH+1~, ASKMSH+12, ASKMSH+14, ASKMSH+21!, ASKMSH+26

Marked Items

Name Field # of Occurrence
$T(FLDS+FIELD ASKMSH+14
$T(FLDS+PCE SHOWMSH+14, ASKMSH+7, MSH+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items |  All