Routine: PSUTL1

Information

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

Package	Total	Call Graph
Pharmacy Benefits Management	1	$$VALI^PSUTL
Registration	1	PID^VADPT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Pharmacy Benefits Management	10	PSUCP PSUCP2 PSUCS1 PSULR0 PSUOP0 PSUOP2 PSUUD1 PSUUD2 PSUV0 PSUV1

Name	Comments	DBIA/ICR reference
SECTNQ
TESTPAT(DFN)	;EP SCREEN AGAINST TEST PATIENTS (RETURN=1 IF TEST)
PURGEQ
PURGE	; remove outdated PSU namespace entries in ^XTMP
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
SECTN	;Service/Sections Array

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	PURGE+5, PURGE+6, PURGE+7!, PURGE+8!
^XTMP("PSU_"	XMY+6

Name	Field # of Occurrence
DFN	TESTPAT~, TESTPAT+1, TESTPAT+4
>> PSECT("AMBULA	TORY CARE" , SECTN+1*
>> PSECT("ANESTHESIOLOGY"	SECTN+2*
>> PSECT("CARDIOLOGY"	SECTN+3*
>> PSECT("CLINIC	AL PHARMACY" , SECTN+4*
>> PSECT("DENTAL"	SECTN+5*
>> PSECT("INTERM	EDIATE MEDICINE" , SECTN+6*
>> PSECT("MEDICINE"	SECTN+7*
>> PSECT("NEUROLOGY"	SECTN+8*
>> PSECT("NUCLEA	R MEDICINE" , SECTN+9*
>> PSECT("NURSING"	SECTN+10*
>> PSECT("ORTHOPEDICS"	SECTN+11*
>> PSECT("PSYCHIATRY"	SECTN+12*
>> PSECT("RADIOLOGY"	SECTN+13*
>> PSECT("SURGERY"	SECTN+14*
>> PSECT("UROLOGY"	SECTN+15*
PSUCDT	PURGE+1~, PURGE+3*, PURGE+8
>> PSUDUZ	XMY+12, XMY+16, XMY+20
PSUI	PURGE+1~, PURGE+4, PURGE+5, PURGE+6, PURGE+7, PURGE+8
>> PSUJOB	XMY+6
>> PSUMASF	XMY+9
>> PSUPBMG	XMY+11
PSUPDT	PURGE+1~, PURGE+6*, PURGE+7, PURGE+8
>> PSUXMYH(	XMY+12*
>> PSUXMYH("G.PS	U PBM" , XMY+11, U PBM@CMOP-NAT.MED.VA.GOV" , XMY+10
>> PSUXMYS1(	XMY+16*
>> PSUXMYS1("G.P	SU PBM" , XMY+15*
>> PSUXMYS2(	XMY+20*
>> PSUXMYS2("G.P	SU PBM" , XMY+19*
>> VA("PID"	TESTPAT+3
>> X	PURGE+3