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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLCSHDR4

Package: Health Level Seven

Routine: HLCSHDR4


Information

HLCSHDR4 ;SFIRMFO/LJA - Reset MSH Segment Fields ;3/24/2004 14:27

Source Information

Source file <HLCSHDR4.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 2

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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All