HLCSHDR5 ;OIRMFO/LJA - Make HL7 header for TCP ;1/27/03 15:30
Source file <HLCSHDR5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
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. |
|
MSHCONT | ;
|
|
YN(PMT,DEF,FF) | ;
|
|
DOWHAT() | ; Reenter MSH or send message...
|
|
SHOWMSH | ;
; MSHORIG -- req |
|
S(T,C) | ||
CHG(VAL,PCE) | ; Has data been changed?
; MSHORIG -- req |
|
ASKMSH | ; Ask user to input different field values
|
|
MSH() | ;Build MSH array
|
|
SAVEORIG | ; Save value of original variables...
|
|
RESTORE | ;
|
|
FLDS | ; List of fields and their variables in MSH segment...
|
|
PRACTICE | ; Practice MSH variables...
|
|
EOR | ;HLCSHDR5 - Make HL7 header for TCP ;1/27/03 15:30
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
>> | 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 |