XUEPCSUT ;ALB/BI - DEA Manual Entry ;11/15/21 09:20
Source file <XUEPCSUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEALIST(RET,NPIEN) | ||
| DEADOJ(RET,DEA) | ||
| DEAREM(RET,NPIEN,DEATXT) | ||
| VIEWFM(RET,DEA) | ||
| FILEWS(RET,ARRAY) | ||
| DEACOPY(FG) | ; -- Private Subroutine to Copy import data in the GETS Array
; POSTAL^XIPUTL used in agreement with Integration Agreement: 3618 |
|
| FILEFM(RET,DATA,NPIEN) | ||
| NPFILE(DNDEATXT,NPIEN,DNDEAIEN,SUFFIX) | ; -- File the DEA NUMBER in the NEW PERSON FILE #200.
|
|
| NPSFILE(NPIEN,DATA) | ; -- File the DEA institutional schedules in the NEW PERSON FILE #200.
|
|
| PROVTYPE(BA) | ||
| CONVNAME(CN) | ||
| GETS(DEAIEN,GETS) | ||
| DEANUM(X) | ; -- Check DEA # part
|
|
| DEANUMFL(X) | ;Check DEA # First Letter Part
|
|
| DUPCHK(RET,DEATXT,SUFFIX) | ||
| DETOXCHK(BAC) | ||
| MBM(RET) | ; -- MEDS BY MAIL for ePCS GUI
|
|
| ENTRY(RESULT,INPUT) | ; -- remoteprocedure
|
|
| RECORD(LINE,NOW) | ;
|
|
| CLEARDTX(NPIEN) | ||
| GETDNDTX(NPIEN) | ||
| WSGET(FG,DEA) | ; Function to Get the Remote DEA information, Return in FG.
; INPUT: DEA ;Properly formatted DEA Number for lookup. |
