Routine: HLCSHDR5

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables
Marked Items

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

Package

Total

Call Graph

Kernel

ENDR^%ZISS ($$CJ,$$REPEAT)^XLFSTR

VA Fileman

^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	;

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

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

Customize PDF page

Package: Health Level Seven

Routine: HLCSHDR5

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(FLDS+FIELD	ASKMSH+14
$T(FLDS+PCE	SHOWMSH+14, ASKMSH+7, MSH+5