Routine: INHVAX

Information

INHVAX(UIF,ERROR) ;JSH; 21 Jul 92 10:28;Transceiver/Receiver

Source Information

Source file <INHVAX.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	WAIT^DICD ^DICN ^DIE IX1^DIK
IHS Generic Interface System	3	$$NEW^INHD ENR^INHE GETLINE^INHOU
Uncategorized	3	VAR^DWUTL $$NOW^UTDT ^UTSRD
Kernel	1	^%ZTLOAD

Entry Points

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

External References

Name	Field # of Occurrence
^%ZTLOAD	CONVERT+11
WAIT^DICD	CONVERT+8
^DICN	INHVAX+7
^DIE	STORE+8, MP+1
IX1^DIK	INHVAX+19
VAR^DWUTL	CONVERT+1
$$NEW^INHD	STORE+4
ENR^INHE	LP1+9, LP1+11, NOCON+1, NOCON+3, STORE+1, STORE+6
GETLINE^INHOU	INHVAX+11
$$NOW^UTDT	INHVAX+7
^UTSRD	CONVERT+2, CONVERT+3, CONVERT+5, CONVERT+6, CONVERT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: LP1+17
Function Call: WRITE	Prompt: @IOF Line Location: CONVERT+2
Function Call: WRITE	Prompt: ! Line Location: CONVERT+3
Function Call: WRITE	Prompt: ! Line Location: CONVERT+5
Function Call: WRITE	Prompt: ! Line Location: CONVERT+7
Routine Call	DIE Line Location: STORE+8 MP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^INRHB("RUN"	LOOP, LP1+1, CONVERT+9*
^INVA(	INHVAX+9, INHVAX+10, INHVAX+13, INHVAX+15, INHVAX+16, INHVAX+17*, INHVAX+21, LP1+1, LP1+4, LP1+5 , LP1+7, LP1+8, NOCON, MP+1
^INVA("APS"	LP1+2

Label References

Name	Line Occurrences
LOOP	WAIT+1
LP1	LP1+4, LP1+5, LP1+14, LP1+15, MP+1
MP	LP1+9, LP1+11, NOCON+1, NOCON+3, STORE+1, STORE+6
NOCON	LP1+12
STORE	LP1+10
WAIT	LP1+2

Naked Globals

Name	Field # of Occurrence
^(	LP1+7, LP1+8
^(0	NOCON*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INHVAX+11, INHVAX+13, INHVAX+15, INHVAX+16, INHVAX+17, LP1+7, LP1+8*
>> %1	LP1+7*, LP1+8
>> %2	LP1+8*
>> A	NOCON*, NOCON+1
>> ACK	LP1+10, LP1+17, NOCON+2*, STORE+4
CONVERT	RECEIVE+1!, LP1+2, LP1+12, LP1+14, STORE+2, CONVERT+1!, CONVERT+2*
CONVERT("C"	LP1+16, CONVERT+5*
CONVERT("COUNT"	LP1+16, CONVERT+9
CONVERT(0	LP1+15, CONVERT+4*
>> DA	INHVAX+19, STORE+8, MP+1*
>> DEST	LP1+10, NOCON+2, NOCON+3, STORE+4
DIC	INHVAX+5~, INHVAX+7*
DIC(0	INHVAX+7*
>> DIE	STORE+8, MP+1
>> DIK	INHVAX+19*
DLAYGO	INHVAX+5~, INHVAX+7*
>> DR	STORE+8, MP+1
ERROR	INHVAX~
ERROR(1	INHVAX+8*
>> I	INHVAX+15*, INHVAX+16
>> IN	LOOP, LP1+1, LP1+2, LP1+4, LP1+5, LP1+7, LP1+8, LP1+9, LP1+11, NOCON , NOCON+1, NOCON+3, STORE+1, STORE+6, STORE+8, MP+1, CONVERT+6*
>> INBPN	LOOP, LP1+1, LP1+9, LP1+11, NOCON+1, NOCON+3, STORE+1, STORE+6, CONVERT+9*
INDATA	LP1+6!
INDATA(	LP1+7, LP1+8
INDATA(1	STORE+1
INDATA(2	LP1+9, LP1+10, LP1+11
INDATA(3	LP1+15
>> ING	LP1+6*
>> INZ	INHVAX+9*, INHVAX+10, INHVAX+13, INHVAX+15, INHVAX+16, INHVAX+17, INHVAX+19, INHVAX+21
IOF	CONVERT+2
>> ITERC	CONVERT+7*, CONVERT+10
>> LCT	INHVAX+11*
>> LINE	INHVAX+11, INHVAX+13
>> LINE(	INHVAX+15
>> MESSID	STORE+1, STORE+2, STORE+4
>> SYSTEM	INHVAX+5, INHVAX+10, RECEIVE+1, LP1+2, CONVERT+9*
U	INHVAX+10, INHVAX+17, LP1+5, LP1+11, LP1+14, LP1+15, NOCON, NOCON+3, STORE+1, STORE+2 , CONVERT+3, CONVERT+5, CONVERT+6, CONVERT+7
UIF	INHVAX~, INHVAX+11
>> X	INHVAX+7, LP1+11, LP1+14, NOCON+3, STORE+2, STORE+4, STORE+6, CONVERT+2, CONVERT+3, CONVERT+4 , CONVERT+5, CONVERT+6, CONVERT+7, CONVERT+10*
>> XX	NOCON*
>> Y	INHVAX+8, INHVAX+9
>> ZTDESC	CONVERT+11*
>> ZTIO	CONVERT+11*
>> ZTRTN	CONVERT+11*
>> ZTSAVE("*"	CONVERT+11*

Marked Items

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

Customize PDF page

Package: IHS Generic Interface System

Routine: INHVAX

Call Graph Total: 11