Routine: INHUT5

Information

INHUT5 ;JPD,KAC; 6 Feb 96 13:25;utilities

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC MUMPS^DIED ^DIM
IHS Generic Interface System	1	$$SC^INHUTIL1
Uncategorized	1	$$CR^UTSRD

Package	Total	Caller Graph
IHS Generic Interface System	7	INHRDUP INHRDUP1 INHSYS03 INHSYS04 INHSYS10 INHUT INHUT6

Name	Comments	DBIA/ICR reference
FINDRID(INSRDATA,INDEST)	; $$function - Determine if there is a match of ; RouteID in 1st subscript of INSRDATA array ; Input: ; INSRDATA - array of RouteID nodes to be checked with Destination Route ID table ; INDEST - INTERFACE DESTINATION IEN containing list of RouteIDs to ck
RCVSCRN(INSRCTL,INSRDATA,INA,INDA)	; Default Inbound Receiver screen. ; Provides screening logic based on minimum requirements for ; accepting a message at the Receiver process.
DATIM()	;date/time function ; Returns: Y - Date/time
MUMPS	; Input transform for Selective Routing M Code free text fields (SRMC). ; Customized input transform adds ability to check for application ; team code that uses argumentless Locks or Kills.
INITIALS(X)	;Make initials from name ; Input: X (req) = name from which to extract initials ; format : LAST,FIRST MIDDLE ; Output: returns initials
RPTFOOT()	;Report Footer
NUM(X)	;--Converts a string to a number ; Input - X - String ; Returns - Numeric value

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RPTFOOT+1
Function Call: WRITE	Prompt: !,?IOM/2-11,"* End of Report *" Line Location: RPTFOOT+2
Function Call: WRITE	Prompt: ! Line Location: RPTFOOT+3

Name	Field # of Occurrence
%	DATIM+2~, DATIM+3, FINDRID+10~, FINDRID+13*
%H	DATIM+2~
%I	DATIM+2~
FNDDEST	FINDRID+10~, FINDRID+13*, FINDRID+14
I	NUM+3~, NUM+4*
INA	RCVSCRN~
INDA	RCVSCRN~
INDELIM	RCVSCRN+32~, RCVSCRN+37*, RCVSCRN+38
INDEST	FINDRID~, FINDRID+13
INRCVFAC	RCVSCRN+32~, RCVSCRN+38*, RCVSCRN+40
INSRCTL	RCVSCRN~
INSRCTL("INDEST"	RCVSCRN+46
INSRCTL("MSH"	RCVSCRN+34, RCVSCRN+37, RCVSCRN+38
INSRDATA	FINDRID~, RCVSCRN~, RCVSCRN+33!, RCVSCRN+34, RCVSCRN+46
INSRDATA(	FINDRID+13, RCVSCRN+40*
IOM	RPTFOOT+2
IOSL	RPTFOOT+1
IOST	RPTFOOT+3
X	INITIALS~, INITIALS+4, NUM~, NUM+4, DATIM+2~, MUMPS+11, MUMPS+13!, MUMPS+15!
Y	NUM+3~, NUM+4, NUM+5, DATIM+2~, DATIM+3, DATIM+4