Routine: HLOSITE

Information

HLOSITE ;ALB/CJM/OAK/PIJ-HL7 - API for getting site parameters ;03/26/2012

Source file <HLOSITE.m>

Name	Comments	DBIA/ICR reference
SYSPARMS(SYSTEM)	;Gets system parameters from file 779.1
SYSPURGE(PURGE)	;returns system purge parameters
GETNODE()	;
INC(VARIABLE,AMOUNT)	;
COUNT778()	;
COUNT777()	;
UPDCNTS(WORK)	;update the record counts for file 777,778
RCNT(ST)	;This section sets or reads the recount flag.
OLDPURGE()	;returns the retention time in days for unsent messages