Routine: PSUTL1

Information

PSUTL1 ;BIR/CFL - Subroutines for PBMS Modules ;25 AUG 1998

Source file <PSUTL1.m>

Name	Comments	DBIA/ICR reference
SECTN	;Service/Sections Array
SECTNQ
PURGE	; remove outdated PSU namespace entries in ^XTMP
PURGEQ
XMY	;EP Setup Mail Groups ; PSUXMYH() Mail Group for Hines Message and message to self/PBM group ; PSUXMYS1() Mail Group for Summary 1 & No Data Messages ; PSUXMYS2() Mail Group for Summary 2 Messages
XMYQ
TESTPAT(DFN)	;EP SCREEN AGAINST TEST PATIENTS (RETURN=1 IF TEST)