HLCSHDR3 ;SFIRMFO/LJA - Reset MSH Segment Fields ;03/24/04 11:19
Source file <HLCSHDR3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ; Called from HEADER^HLCSHDR1 & BHSHDR^HLCSHDR1, which is called by
; GENERATE^HLMA & GENACK^HLMA1. |
|
MSHCHG(HLEID,EIDS,MTIEN,IEN,SERAPP,SERFAC,CLNTAPP,CLNTFAC,HLPARR) | ; The parameters
; are the required input variables. Call here "by reference". |
|
SET91M(PCE,MSH,PREM,POSTM) | ; If M code re/set the MSH field, record...
|
|
HLMSHPRO() | ; Determines whether to use the generic HLP("SUBSCRIBER") data,
; or instead - if existent - the HLP("SUBSCRIBER",#)=SUB PROTOCOL^... data |
|
FIND101(PROTNM) | ; Find 101 entry...
|
|
SHOW773(IEN773) | ; Show reset info from 773 entry...
|
|
EOR | ;HLCSHDR3 - Reset MSH Segment Fields ;9/12/02 11:50
|
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | Classic Fileman Calls |