Routine: SDPHARM1

Information

SDPHARM1 ;BIRMINGHAM OIFO/RON - Determine default Institution/Station no. ; 8/9/03

Source file <SDPHARM1.m>

Name	Comments	DBIA/ICR reference
DEF(SDPSODFN)	;Pass in Patient	ICR #4196 Status: Active Usage: Private
INIT	;Initialize variables
PAT	;
CPAIR(SDPSOCL0)	;Get credit pair
DIV(SDPSOCL0)	;Get facility division name and number
PRIAPT(SDPSOPAT)	;Find nearest Primary care appt, past or future	ICR #4196 Status: Active Usage: Private
APPX	;
APPE	;