Routine: HLCSHDR4

Package	Total	Call Graph
Kernel	4	ENDR^%ZISS DOLRO^%ZOSV ($$FMADD,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	2	EN1^DIP ^DIR
Health Level Seven	1	UPDATE^HLTF0

Package	Total	Caller Graph
Health Level Seven	2	HL PROTOCOL MSG FIELDS REPORT HLCSHDR3

Entry Points

Name	Comments	DBIA/ICR reference
LINE(HDR,PCE1,PCE2,PCE3)	; Print one comparison line...
DEBUG(STORE)	; If HLP set up for debugging, capture VIEW... ; HLMSH773 -- req
SHOW
FIELDS	; Display the Protocol file fields used by the VistA HL7 package, ; when messages are received, to find the event and subscriber ; protocols.
HDR(NUM,DATA)
M	; Covered by Integration Agreement #3988 ; Application developers may call here when creating new messages, ; when experimenting with M code to evaluate and conditionally change ; routing-related fields.	ICR #3988 Status: Active Usage: Supported
EOR	;HLCSHDR4 - Reset MSH Segment Fields ;9/12/02 11:50
EXPL1(PMT,FF)	;
MSHBUILD(TYPE)	; Build MSH using current variables...
HD
EXPL
MVAR(FLD,VAR,VARO)	; Generic resetting of variable...
SET(NEW,VAR,PCE)	; This subroutine performs these actions: ; (1) Resets variables used in MSH segment ; (2) Resets SERAPP and CLNTAPP in ^HLMA(#,0) ; (3) Sets HLMSH91 nodes if overwrite occurs by ARRAY value. ; If overwrite occurs by M code, the overwrite has already ; been recorded in HLMSH91. (An overwrite produced by M code ; is never overwritten by ARRAY data.)
SHOW773(I773)	; Show Dynamic Routing MSH Field Reset Details

External References

Name	Field # of Occurrence
ENDR^%ZISS	M+8
DOLRO^%ZOSV	DEBUG+33
EN1^DIP	FIELDS+11
^DIR	EXPL1+5
UPDATE^HLTF0	SET+39, SET+40
$$FMADD^XLFDT	DEBUG+11
$$NOW^XLFDT	DEBUG+8
$$CJ^XLFSTR	SHOW773+10, HDR+2, HDR+3, HD
$$REPEAT^XLFSTR	SHOW773+21, HD+1, M+27, MVAR+17

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter 773 IEN: " Formatting: !! Timeout: 60 Variable: I773 Line Location: SHOW+1
Function Call: WRITE	Prompt: " no debug data found..." Line Location: SHOW773+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" 773 # "_I773_" ",IOM,"=") Line Location: SHOW773+10
Function Call: WRITE	Prompt: ! Line Location: SHOW773+14
Function Call: WRITE	Prompt: !!,$E(MSH,1,IOM) Line Location: SHOW773+17
Function Call: WRITE	Prompt: !!,?C1,"Original (91)",?2,"Array (90)",?3,"MSH-Segment" Line Location: SHOW773+20
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: SHOW773+21
Function Call: WRITE	Prompt: !,HDR,":",?C1,P1,?2,P2,?3,P3,$S(P4]"":" ["_P4_"]",1:"") Line Location: LINE+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("---------- "_TXT_" ----------",IOM) Line Location: HDR+2
Function Call: WRITE	Prompt: $$CJ^XLFSTR(DATA,IOM) Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: FIELDS+7
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("HL7 Protocol Messaging Fields",IOM) Line Location: HD+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+1
Function Call: WRITE	Prompt: !,"This 'HL7 Protocol Messaging Fields' report holds information that will help" Line Location: HD+2
Function Call: WRITE	Prompt: !,"you determine the effects from changes to routing-related fields in the MSH" Line Location: HD+3
Function Call: WRITE	Prompt: !,"segment when messages are sent between or within VistA HL7 systems." Line Location: HD+4
Function Call: WRITE	Prompt: !,"Additional explanation is included at the bottom of the report." Line Location: HD+5
Function Call: WRITE	Prompt: ! Line Location: EXPL1+3
Function Call: WRITE	Prompt: !!,"The original MSH segment is...",!!,IOINHI,MSHOLD,IOINORM Line Location: M+11
Function Call: WRITE	Prompt: !!,"The MSH segment, after modification by passed-in data, is..." Line Location: M+13
Function Call: WRITE	Prompt: !!,IOINHI,MSHPRE,IOINORM Line Location: M+14
Function Call: WRITE	Prompt: !!,"Before your changes above, the modified MSH segment was..." Line Location: M+23
Function Call: WRITE	Prompt: !!,IOINHI,MSHPRE,IOINORM Line Location: M+24
Function Call: WRITE	Prompt: !!,"After your changes, the MSH segment is..." Line Location: M+25
Function Call: WRITE	Prompt: !!,IOINHI,MSHNEW,IOINORM Line Location: M+26
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",IOM) Line Location: M+27
Function Call: WRITE	Prompt: !!,"Message being sent..." Line Location: M+28
Function Call: WRITE	Prompt: ! Line Location: M+29
Function Call: WRITE	Prompt: !!,?4,"Protocol-derived value of ",FLD,": " Line Location: MVAR+3
Function Call: WRITE	Prompt: IOINHI,@VARO,IOINORM Line Location: MVAR+4
Function Call: WRITE	Prompt: !,"Passed-in value of ",FLD," (",VAR,"): " Line Location: MVAR+5
Function Call: WRITE	Prompt: IOINHI,@VAR,IOINORM Line Location: MVAR+6
Function Call: WRITE	Prompt: !,?10,"Enter new value for ",FLD,": " Line Location: MVAR+7
Function Call: READ	Timeout: 60 Variable: ANS Line Location: MVAR+8
Function Call: WRITE	Prompt: !!,?10,"No changes will be made..." Line Location: MVAR+10
Function Call: WRITE	Prompt: !!,?10,"The variable ",IOINHI,VAR,IOINORM Line Location: MVAR+13
Function Call: WRITE	Prompt: " will be changed to '",IOINHI,ANS,IOINORM,"'." Line Location: MVAR+14
Function Call: WRITE	Prompt: !,?10,"This value will be stored in the ",FLD Line Location: MVAR+15
Function Call: WRITE	Prompt: !,?10,"field in the MSH segment..." Line Location: MVAR+16
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",IOM) Line Location: MVAR+17
Routine Call	DIR Line Location: EXPL1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(771 - [#771]	SET+33, SET+34
^HL(772 - [#772]	MSHBUILD+3, MSHBUILD+10
^HLMA - [#773]	SHOW773+3, SHOW773+7
^XTMP(	DEBUG+11, DEBUG+13, DEBUG+19, DEBUG+20, DEBUG+23, DEBUG+24, DEBUG+27, DEBUG+28*

Label References

Name	Line Occurrences
$$EXPL1	EXPL
$$MSHBUILD	M+10, M+21
HD	FIELDS+5
HDR	SHOW773+12, SHOW773+15
LINE	SHOW773+22, SHOW773+23, SHOW773+24, SHOW773+25
MVAR	M+16, M+17, M+18, M+19
SHOW773	SHOW+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACCACK	MSHBUILD+3, MSHBUILD+10
ANS	MVAR+2~, MVAR+8*, MVAR+9, MVAR+11, MVAR+12, MVAR+14
>> APPACK	MSHBUILD+3, MSHBUILD+10
BY	FIELDS+3~, FIELDS+9*
>> C1	SHOW773+19*, SHOW773+20, LINE+3
>> C2	SHOW773+19*
>> C3	SHOW773+19*
>> CLNTAPP	MSHBUILD+3, MSHBUILD+8
>> CLNTFAC	MSHBUILD+3, MSHBUILD+9
>> CNTRY	MSHBUILD+3, MSHBUILD+10
DATA	HDR~, HDR+3
DIC	FIELDS+3~, FIELDS+9*
DIOEND	FIELDS+3~, FIELDS+10*
DIR	EXPL1+1~
DIR("A"	EXPL1+4*
DIR(0	EXPL1+4*
DIRUT	EXPL1+1~
DIV	SHOW773+1~, SHOW773+8*, LINE+2
DTOUT	EXPL1+1~
DUOUT	EXPL1+1~
>> EC	MSHBUILD+2
FF	EXPL1~, EXPL1+3
FLD	MVAR~, MVAR+3, MVAR+5, MVAR+7, MVAR+15
>> FS	MSHBUILD+2, MSHBUILD+4, MSHBUILD+11
HDR	LINE~, LINE+3
>> HLDATE	MSHBUILD+3, MSHBUILD+10
>> HLID	MSHBUILD+3, MSHBUILD+10
>> HLMSH772	DEBUG+27
>> HLMSH773	DEBUG+10
>> HLMSH91	SET+22, SET+25*
>> HLMSHPRE	DEBUG+27
>> HLMSHPRO	DEBUG+28
>> HLMSHPRS	DEBUG+27
>> HLMSHRAN	DEBUG+23, MSHBUILD+8
>> HLMSHRAO	DEBUG+23
>> HLMSHRFN	DEBUG+24, MSHBUILD+9
>> HLMSHRFO	DEBUG+24
>> HLMSHSAN	DEBUG+19, MSHBUILD+6
>> HLMSHSAO	DEBUG+19
>> HLMSHSFN	DEBUG+20, MSHBUILD+7
>> HLMSHSFO	DEBUG+20
>> HLPID	MSHBUILD+3, MSHBUILD+10
>> HLRAN	DEBUG+23
>> HLRFN	DEBUG+24
>> HLSAN	DEBUG+19
>> HLSFN	DEBUG+20
HLTCP	SET+8~, SET+38*
I	EXPL~*
I773	SHOW~, SHOW+1*, SHOW+2, SHOW773~, SHOW773+3, SHOW773+7, SHOW773+10
IEN771N	SET+8~, SET+34*, SET+37, SET+39, SET+40
IEN771O	SET+8~, SET+33*, SET+37
IOF	HD
IOINHI	M+6~, M+11, M+14, M+24, M+26, MVAR+4, MVAR+6, MVAR+13, MVAR+14
IOINORM	M+6~, M+11, M+14, M+24, M+26, MVAR+4, MVAR+6, MVAR+13, MVAR+14
IOM	SHOW773+10, SHOW773+17, SHOW773+21, HDR+2, HDR+3, HD, HD+1, M+27, MVAR+17
IOST	EXPL1+2
L	FIELDS+3~, FIELDS+9*
>> MSGTYPE	MSHBUILD+3, MSHBUILD+10
MSH	SHOW773+1~, SHOW773+7, SHOW773+8, SHOW773+17, LINE+2, MSHBUILD+1~, MSHBUILD+2, MSHBUILD+4, MSHBUILD+11, MSHBUILD+12
MSHNEW	M+6~, M+21*, M+22, M+26
MSHOLD	M+6~, M+10*, M+11, M+12
MSHPRE	M+6~, M+10*, M+12, M+14, M+22, M+24
>> MTIENS	SET+39, SET+40
N90	SHOW773+1~, SHOW773+3*, SHOW773+4, SHOW773+12, LINE+2
N91	SHOW773+1~, SHOW773+3*, SHOW773+4, SHOW773+15, LINE+2
NEW	SET~, SET+14, SET+15, SET+19, SET+34
NOW	DEBUG+3~, DEBUG+8*, DEBUG+11, DEBUG+27
NUM	DEBUG+3~, DEBUG+13*, DEBUG+19, DEBUG+20, DEBUG+23, DEBUG+24, DEBUG+27, DEBUG+28, DEBUG+32, HDR~ , HDR+1
P1	LINE+1~, LINE+2*, LINE+3
P2	LINE+1~, LINE+2*, LINE+3
P3	LINE+1~, LINE+2*, LINE+3
P4	LINE+1~, LINE+2*, LINE+3
PCE	SET~, SET+22, SET+25, SET+28, SET+39, SET+40, MSHBUILD+1~, MSHBUILD+3, MSHBUILD+4, MSHBUILD+10 , MSHBUILD+11
PCE1	LINE~, LINE+2
PCE2	LINE~, LINE+2
PCE3	LINE~, LINE+2
PMT	EXPL1~, EXPL1+4
>> PRE	SET+11*, SET+15, SET+25, SET+33
>> PROT	MSHBUILD+3, MSHBUILD+10
RAN	MSHBUILD+1~, MSHBUILD+8*, MSHBUILD+10
RFN	MSHBUILD+1~, MSHBUILD+9*, MSHBUILD+10
SAN	MSHBUILD+1~, MSHBUILD+6*, MSHBUILD+10
>> SECURITY	MSHBUILD+3, MSHBUILD+10
>> SERAPP	MSHBUILD+3, MSHBUILD+6
>> SERFAC	MSHBUILD+3, MSHBUILD+7
SFN	MSHBUILD+1~, MSHBUILD+7*, MSHBUILD+10
STORE	DEBUG~, DEBUG+6*, DEBUG+16, DEBUG+31
T	EXPL~
TXT	HDR~, HDR+1*, HDR+2
>> TXTP	MSHBUILD+3, MSHBUILD+10
TYPE	MSHBUILD~, MSHBUILD+3, MSHBUILD+5
U	DEBUG+11, DEBUG+19, DEBUG+20, DEBUG+23, DEBUG+24, DEBUG+27, LINE+2, SET+22, SET+25, MVAR+9 , MVAR+11, MSHBUILD+3, MSHBUILD+10
VAR	DEBUG+3~, SET~, SET+11, SET+19, MVAR~, MVAR+5, MVAR+6, MVAR+12, MVAR+13
VARO	MVAR~, MVAR+4
VARS	DEBUG+3~
X	DEBUG+3~, DEBUG+32, EXPL1+1~, EXPL1+3, M+6~, M+8*
XTMP	DEBUG+3~, DEBUG+10*, DEBUG+11, DEBUG+13, DEBUG+19, DEBUG+20, DEBUG+23, DEBUG+24, DEBUG+27, DEBUG+28 , DEBUG+32
Y	EXPL1+1~, EXPL1+6

Customize PDF page

Package: Health Level Seven

Routine: HLCSHDR4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: