Routine: INHVATRP

Information

INHVATRP(UIF,ERROR) ;JSH; 11 Feb 93 12:34;Transceiver / Receiver

Source file <INHVATRP.m>

Package	Total	Call Graph
IHS Generic Interface System	3	$$NEW^INHD ENR^INHE GETLINE^INHOU
VA Fileman	2	^DIE IX1^DIK
Uncategorized	1	$$NOW^UTDT

Name	Comments	DBIA/ICR reference
PATLRM	;;MICROBIOLOGY RESULTS
MP	;Mark as processed, unlock and return to loop
INPHR	;;INPATIENT PHARMACY CONVERSION
REGTAB	;;INSURANCE CONVERSION
SYSUSR	;;USER/PERSON/PROVIDER CONVERSION
RECEIVE	;Receiver
PATLRG	;;GENERAL LAB RESULTS
PATLRA	;;AP RESULTS
LP1	;Look for a message using the APS cross reference
PATPHARM	;;PHARMACY PATIENT UPDATE
DEST	;The following tags are used to determine destination
PATADM	;;PATIENT ID-IN
LOOP
PATREG	;;ADD/UPDATE PATIENT REGISTRATION
OUTPHR	;;OUTPATIENT PHARMACY CONVERSION
PATBILL	;;BILLING PATIENT
PATADT	;;ADT/PTF CONVERSION
REGTAX	;;DISABILITY CONDITION CONVERSION
STORE	;store in UIF
WAIT	;

Name	Line Occurrences (* Changed, ! Killed)
^INRHB("RUN"	LOOP*, LP1+1
^INVAX(	INHVATRP+8, INHVATRP+9, INHVATRP+11, INHVATRP+12, INHVATRP+15, INHVATRP+17, INHVATRP+18, INHVATRP+19, INHVATRP+23, LP1+1 , LP1+4, LP1+5, LP1+6, LP1+8, LP1+9, LP1+13, MP+1
^INVAX("APS"	LP1+2, LP1+5!
^INVAX(0	INHVATRP+8, INHVATRP+10

Name	Field # of Occurrence
^(	LP1+8, LP1+9
^(0	LP1+13*

Name	Field # of Occurrence
>> %	INHVATRP+13, INHVATRP+15, INHVATRP+17, INHVATRP+18, INHVATRP+19, LP1+8, LP1+9*
>> %1	LP1+8*, LP1+9
>> %2	LP1+9*
>> A	LP1+13*, LP1+14
>> ACK	LP1+11, LP1+15, STORE+3
CONVERT	RECEIVE+1!, LP1+2
>> DA	INHVATRP+21, STORE+7, MP+1*
>> DEST	LP1+11, LP1+15, LP1+16, STORE+3
DIC	INHVATRP+5~
>> DIE	STORE+7, MP+1
>> DIK	INHVATRP+21*
DLAYGO	INHVATRP+5~
>> DR	STORE+7, MP+1
ERROR	INHVATRP~
>> I	INHVATRP+17*, INHVATRP+18
>> IN	LOOP, LP1+1, LP1+2, LP1+4, LP1+5, LP1+6, LP1+8, LP1+9, LP1+10, LP1+12 , LP1+13, LP1+14, LP1+16, STORE+1, STORE+5, STORE+7, MP+1
>> INBPN	LOOP, LP1+1, LP1+10, LP1+12, LP1+14, LP1+16, STORE+1, STORE+5
INDATA	LP1+7!
INDATA(	LP1+8, LP1+9
INDATA(1	STORE+1
INDATA(2	LP1+10, LP1+11, LP1+12
>> ING	LP1+7*
>> INZ	INHVATRP+8*, INHVATRP+9, INHVATRP+11, INHVATRP+12, INHVATRP+15, INHVATRP+17, INHVATRP+18, INHVATRP+19, INHVATRP+21, INHVATRP+23
>> LCT	INHVATRP+13*
>> LINE	INHVATRP+13, INHVATRP+15
>> LINE(	INHVATRP+17
>> MESSID	STORE+1*, STORE+3
>> SYSTEM	INHVATRP+5, INHVATRP+12, RECEIVE+1, LP1+2, LP1+5
U	INHVATRP+8, INHVATRP+9, INHVATRP+12, INHVATRP+19, LP1+6, LP1+12, LP1+13, LP1+16, STORE+1
UIF	INHVATRP~, INHVATRP+13
>> X	INHVATRP+7, LP1+12, LP1+16, STORE+3*, STORE+5
>> XX	LP1+13*
>> Z	INHVATRP+8, INHVATRP+9

Name	Field # of Occurrence
$T(@$PIECE^2;4(5)	LP1+15