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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: HLCSHDR4

Package: Health Level Seven

Routine: HLCSHDR4


Information

HLCSHDR4 ;SFIRMFO/LJA - Reset MSH Segment Fields ;10/09/2007 15:05

Source Information

Source file <HLCSHDR4.m>

Entry Points

Name Comments DBIA/ICR reference
DEBUG(STORE) ; If HLP set up for debugging, capture VIEW...
; HLMSH773 -- req
SHOW
SHOW773(I773) ; Show Dynamic Routing MSH Field Reset Details
LINE(HDR,PCE1,PCE2,PCE3) ; Print one comparison line...
HDR(NUM,DATA)
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.)
FIELDS ; Display the Protocol file fields used by the VistA HL7 package,
; when messages are received, to find the event and subscriber
; protocols.
HD
EXPL
EXPL1(PMT,FF) ;
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
    MVAR(FLD,VAR,VARO) ; Generic resetting of variable...
    MSHBUILD(TYPE) ; Build MSH using current variables...
    EOR ;HLCSHDR4 - Reset MSH Segment Fields ;9/12/02 11:50

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Formatting: !!
    • Prompt: "Enter 773 IEN: "
    • Variable: I773
    • Timeout: 60
    • 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
    • Variable: ANS
    • Timeout: 60
    • 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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORD(101 - [#101] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call