Routine: INHVATR

Information

INHVATR(UIF,ERROR) ;JSH; 7 Aug 92 05:52;Transceiver/Receiver

Source file <INHVATR.m>

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: VERIFY+2
Function Call: WRITE	Prompt: !,"There "_$P("is ^are ",U,%'=1+1)_%_" message"_$E("s",%'=1)_" from SAIC-Care to DHCP not yet received." Line Location: VERIFY+6
Function Call: WRITE	Prompt: !?5,"Oldest was transmitted "_Y Condition for execution: % Line Location: VERIFY+6
Function Call: WRITE	Prompt: ! Line Location: VERIFY+7
Function Call: WRITE	Prompt: !,"There "_$P("is ^are ",U,%'=1+1)_%_" message"_$E("s",%'=1)_" from DHCP to SAIC-Care not yet received." Line Location: VERIFY+9
Function Call: WRITE	Prompt: !?5,"Oldest was transmitted "_Y Condition for execution: % Line Location: VERIFY+9
Routine Call	DIE Line Location: STORE+7 MP+1
Routine Call	%ZIS Line Location: VERIFY+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VERIFY+5, VERIFY+8
^INRHB("RUN"	LOOP, LP1+1*
^INVAS(	INHVATR+6, INHVATR+7, INHVATR+8, INHVATR+9, INHVATR+12, INHVATR+14, INHVATR+15, INHVATR+16, INHVATR+20, VERIFY+5
^INVAS("AP"	VERIFY+5
^INVAS(0	INHVATR+6, INHVATR+7*, INHVATR+8
^INVAX(	VERIFY+8, LP1+1, LP1+4, LP1+5, LP1+6, LP1+8, LP1+9, LP1+13, MP+1
^INVAX("AP"	VERIFY+8, LP1+2, LP1+5!, LP1+6!

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

Name	Field # of Occurrence
%	INHVATR+10, INHVATR+12, INHVATR+14, INHVATR+15, INHVATR+16, VERIFY+3~, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7 , VERIFY+8, VERIFY+9, LP1+8, LP1+9*
>> %1	LP1+8*, LP1+9
>> %2	LP1+9*
>> A	LP1+13*, LP1+14
>> ACK	LP1+11, LP1+15, STORE+3
>> DA	INHVATR+18, STORE+7, MP+1*
>> DEST	LP1+11, LP1+15, LP1+16, STORE+3
>> DIE	STORE+7, MP+1
>> DIK	INHVATR+18*
>> DR	STORE+7, MP+1
ERROR	INHVATR~
I	INHVATR+14, INHVATR+15, VERIFY+3~, VERIFY+4, VERIFY+5, VERIFY+7, VERIFY+8*
>> 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	INHVATR+6*, INHVATR+7, INHVATR+8, INHVATR+9, INHVATR+12, INHVATR+14, INHVATR+15, INHVATR+16, INHVATR+18, INHVATR+20
IOF	VERIFY+1, VERIFY+2
>> IOP	VERIFY+1*
>> LCT	INHVATR+10*
>> LINE	INHVATR+10, INHVATR+12
>> LINE(	INHVATR+14
>> MESSID	STORE+1*, STORE+3
U	INHVATR+6, INHVATR+7, INHVATR+9, INHVATR+16, VERIFY+6, VERIFY+9, LP1+6, LP1+12, LP1+13, LP1+16 , STORE+1
UIF	INHVATR~, INHVATR+10
>> X	LP1+12, LP1+16, STORE+3, STORE+5
>> XX	LP1+13*
Y	VERIFY+3~, VERIFY+5, VERIFY+6, VERIFY+8, VERIFY+9
>> Z	INHVATR+6, INHVATR+7

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