Routine: XUPSPRA

Information

XUPSPRA ;ALB/CMC - Build PRA segment;Aug 6, 2010

Source file <XUPSPRA.m>

Name	Comments	DBIA/ICR reference
EN(XUPSIEN,XUPSSTR,HL)	;
QUIT
DEAXDT(DEA)	; 689 - Return Expiration Date for DEA
PRXDT(IEN)	; 689 - called from PRXDT^XUSER
PRDEA(IEN)	; 689 - Called from PRDEA^XUSER
PRSCH(IEN,SCHTYP)	; 689 - Called from PRSCH^XUSER ; IEN : PROVIDER DUZ ; SCHTYP : NULL or 0 = First Active DEA Number ; 1 = Inpatient DEA ; 2 = First Institutional DEA
DEASCH(DEA)	; 689 - Return DEA schedules for DEA ; DEA number