Routine: SRHLPOST

Entry Points

Name	Comments	DBIA/ICR reference
NON
END
OBX
QRF
TCP(SRI,PRIMARY)	;
SETPRO(X,FLDS)	;
APP	;Create HL7 application in file 771
MES
MSH
MSG
QRD
AAIS
OBR
LL

Name	Field # of Occurrence
^DIC	APP+1, MSG, MSG+2, TCP+5, TCP+8, SETPRO+1
FILE^DICN	APP+3, MSG+1, MSG+4, AAIS+1, NON+3
^DIE	TCP+7, TCP+10, SETPRO+1
$$SITE^SROVAR	NON+2
$$PATCH^XPDUTL	TCP+1
BMES^XPDUTL	NON+1, END+1, MES, TCP+1, TCP+4, TCP+5, TCP+6, TCP+8, TCP+9, LL

Name	Line Occurrences (* Changed, ! Killed)
^DD(771	MSG+1, MSG+4
^HL(770 - [#770]	NON
^HL(771 - [#771]	APP+2, AAIS

Name	Field # of Occurrence
D0	SETPRO+1!
DA	MSG+1!, MSG+4!, AAIS+1!, NON+3!, TCP+7!, TCP+10!, SETPRO+1!*
DA(1	MSG+1, MSG+4
DD	APP+3!, MSG!, MSG+1!, MSG+4!, AAIS+1!, NON+3!
DIC	APP+1!, APP+3, MSG!, MSG+1!, MSG+2!, MSG+4!, AAIS+1!, NON+3!, TCP+5, TCP+7! , TCP+8, TCP+10!, SETPRO+1!*
DIC("DR"	APP+3, MSG+1, AAIS+1, NON+3, MSH, QRD, QRF, OBX, OBR*
DIC("P"	MSG+1, MSG+4
DIC(0	APP+1, APP+3, MSG, MSG+1, MSG+2, MSG+4, AAIS+1, NON+3, TCP+5, TCP+8 , SETPRO+1*
DIE	TCP+5, TCP+7!, TCP+8, TCP+10!, SETPRO+1!*
DLAYGO	TCP+5, TCP+7!, TCP+8, TCP+10!
DO	APP+3!, MSG!, MSG+1!, MSG+4!, AAIS+1!, NON+3!
DR	MSG+1!, MSG+4!, AAIS+1!, NON+3!, TCP+7!, TCP+10!, SETPRO+1!*
FLDS	SETPRO~, SETPRO+1
PRIMARY	TCP~, TCP+2, TCP+5, TCP+8, TCP+9
SITE	NON+2~*, NON+3
SRAPP	APP+1~, APP+2, APP+3, AAIS, AAIS+1, NON, NON+3, MES
SRCLNT	TCP+3~, LL+1, LL+2, LL+3, LL+4, LL+5, LL+6, LL+7, LL+8, LL+9* , LL+10*
SRHLX	TCP+3~
SRI	TCP~, TCP+2, TCP+5, TCP+6, LL+1, LL+2, LL+3, LL+4, LL+5, LL+6 , LL+7, LL+8, LL+9, LL+10
SRIEN	APP+1~, MSG*, MSG+1, MSG+4
SRMG	APP+1~*, APP+3, AAIS+1
SRX	APP+1~, MSG, MSG+1, MSG+2, MSG+4, TCP+5, TCP+7, TCP+8, TCP+10
SRZ	APP+1~, MSG, MSG+2, MSG+3
U	TCP+5, TCP+7, TCP+8, TCP+10
X	APP+1, APP+3, MSG, MSG+1, MSG+2, MSG+4, AAIS+1, NON+3, TCP+3~, TCP+5* , TCP+8, LL+1, LL+2, LL+3, LL+4, LL+5, LL+6, LL+7, LL+8, LL+9 , LL+10*, SETPRO~
>> Y	APP+1, APP+3, MSG, MSG+2, TCP+5, TCP+6, TCP+7, TCP+8, TCP+9, TCP+10 , SETPRO+1