PSODEAUT ;ALB/BI - DEA MANUAL ENTRY ;10/30/23 13:47
Source file <PSODEAUT.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) | ||
| FILEFMX | ||
| NPFILE(DNDEATXT,NPIEN,DNDEAIEN,SUFFIX) | ; -- File the DEA NUMBER 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) | ||
| DETOXDUP(DEA,DETOX,DUPDEA) | ||
| MBM(RET) | ; -- MEDS BY MAIL for ePCS GUI
|
|
| ENTRY(RESULT,INPUT) | ; -- remoteprocedure
|
|
| RECORD(LINE,NOW) | ;
|
|
| CLEARDTX(NPIEN) | ||
| GETDNDTX(NPIEN,DNDEAX) | ||
| WSGET(FG,DEA) | ; Function to Get the Remote DEA information, Return in FG.
; INPUT: DEA ;Properly formatted DEA Number for lookup. |
| FileNo | Call Tags |
|---|---|
| 200.5321 | GET1^DIQ, GETS^DIQ |
| ^XTV(8991.8 - [#8991.8] | GET1^DIQ |
| ^XTV(8991.9 - [#8991.9] | GET1^DIQ, GETS^DIQ |
