Routine: PSOEPU1

Information

PSOEPU1 ;ALB/BI - DEA Manual Entry ;11/3/21 14:56

Source file <PSOEPU1.m>

Name	Comments	DBIA/ICR reference
WSGET(FG,DEA)	; Function to Get the Remote DEA information, Return in FG. ; INPUT: DEA ;Properly formatted DEA Number for lookup.
FILEFM(RET,DATA,NPIEN)
FILEFMX
DNDEAGET(RET,DEA)	;
CLEARINP(NPIEN)
DTXCHK(RET,DEA,DETOX)	; -- Check Detox Number
DETOXDUP(DEA,DETOX,DUPDEA)
PRVRDTX(DEA)
GTDNDTX(NPIEN)
VANUMCHK(RET,VANUM,NPIEN)	;Check that the VA# is unique
FILEFMA(RET,FIELD,DATA,NPIEN)
FILEFMAX
SETINP(NPIEN)	;SET THE INPATIENT FLAG IF ONLY ONE INDIVIDUAL DEA NUMBER
SETINP2(NPIEN,NPDEAIEN)	;Set the inpatient flag if other dea has no inpat flag ; NPIEN - Provider ien in file #200 being filed ; NPDEAIEN - New dea multiple ien with no inp flag
NPSCHDL(RET,NPIEN)
NPSCHDF(RET,NPIEN,DATA)	; -- RPC to file the file #200 schedule information for a single provider. ; INPUT: NPIEN - NEW PERSON FILE #200 INTERNAL ENTRY NUMBER ; ; DATA - A STRING OF DEA INFORMATION DELIMITED BY THE "^" ; 1 - SCHEDULE II NARCOTIC ; 2 - SCHEDULE II NON-NARCOTIC ; 3 - SCHEDULE III NARCOTIC ; 4 - SCHEDULE III NON-NARCOTIC ; 5 - SCHEDULE IV ; 6 - SCHEDULE V
OPTNDESC(RET,OPTNM)	; -- RPC to return Option file #19 description word processing text ; INPUT: OPTNM - NAME FIELD OF THE OPTION ; ; OUTPUT: RET ARRAY - OPTION FILE #19 DESCRIPTION WORD PROCESSING TEXT