Routine: INHQRIN

Package	Total	Call Graph
IHS Generic Interface System	1	ERROR^INHS
Kernel	1	($$ADDM,$$DT)^%ZTFDT
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
WHAT()	; Get category for processing. ; Get WHAT SUBJECT FILTER from INV array (INV("QRD9"))
UID()
EN	; Entry point for inbound query processing.
LOGERR(E)	; Log error message E. Set values for ack error. ; Quit Lookup/Store routine.
WHEN	; Determine start and end dates. ; Get WHEN QTY/TIMING QUAL from INV array (INV("QRF9")) ; Sub-components: ; 4 - Start date/time ; 5 - End date/time ; Start date/time not required. Will default to T-(1 month). Derive ; FileMan date/time. Set INQA("INQFRM")=fileman start date.
MISC	; Set INDEST and Original Message (Query) message ID for processing. ; Set INOA("INDEST")=query destination ; Set INOA("INSTAT")=application accept
RAD	;;RAD^RAGISQ
LAB	;;LAB^LRGISQ
GETPAT(INXV)	; Get CHCS patient IEN ; Initialize variables for FileMan Lookup
PHR	;;PHR^ORGISQR
ALG	;;ALG^ORGISQR
WHO()	; Find CHCS patient ; Get WHO SUBJECT FILTER from INV array (INV("QRD8") ; Sub-components: ; 1 - CHCS Patient IEN ; 2 - Patient Family Name ; 3 - Patient Given Name ; 4 - Patient Middle Name/Initial ; 10 - Patient FMP/SSN ; If valid CHCS patient IEN, set INQA("INQPID")=IEN.
SBK	;;SBK^SDGISQ
PID	;;PID^DGGISQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WHO+13
^INTHU - [#4001]	MISC+4, MISC+5

Name	Field # of Occurrence
DIC	GETPAT+2~, GETPAT+7*
DIC(0	GETPAT+7*
E	LOGERR~, LOGERR+6
>> INOA("INDEST"	MISC+5*
>> INOA("INMIDGEN"	MISC+4*
>> INOA("INORIGID"	LOGERR+4*
>> INOA("INQDTM"	MISC+9*
>> INOA("INQPRI"	MISC+10*
>> INOA("INQRSP"	MISC+25
>> INOA("INQRSTAT"	MISC+25*
>> INOA("INQTAG"	MISC+11*
>> INOA("INQWHAT"	WHAT+2, MISC+13
>> INOA("INQWHO"	MISC+12*
>> INOA("INSTAT"	MISC+6, LOGERR+3
>> INODA	LOGERR+5*
INQA	EN+1~
INQA("INQCAT"	UID, UID+1, WHAT+2, WHAT+3!, WHAT+36, WHAT+40, WHAT+41, WHAT+42, WHAT+43, WHAT+44 , WHAT+45!, WHAT+46, WHEN+36
INQA("INQFRM"	WHEN+8*
INQA("INQPID"	WHO+13, WHO+15, WHO+19*
INQA("INQTHRU"	WHEN+16*
INQA("INQUID"	UID, UID+1
INQA("INQWHICH"	WHEN+34, WHEN+35, WHEN+36*
>> INQAPPL	MISC+16*, MISC+21
>> INV	UID, UID+1, WHO+12, WHO+13, WHO+15, WHO+18, WHAT+2, WHAT+12, WHEN+7, WHEN+15 , WHEN+34, MISC+9, MISC+11, MISC+12, MISC+13, LOGERR+4
INXV	EN+1~, UID, UID+1, WHO+12, WHO+13, WHO+15, WHO+18, WHO+19, WHAT+2, WHAT+3 , WHAT+12, WHAT+36, WHAT+40, WHAT+41, WHAT+42, WHAT+43, WHAT+44, WHEN+7, WHEN+8, WHEN+15* , WHEN+16, WHEN+36, GETPAT~, GETPAT+6, GETPAT+7
>> SUBDELIM	WHO+12
U	MISC+4, MISC+5
>> UIF	MISC+4, MISC+5
X	GETPAT+2~, GETPAT+7*
Y	GETPAT+2~
Y(1	GETPAT+11, GETPAT+14

Name	Field # of Occurrence
$T(@$PIECE^2;4(6)	MISC+16