PSOEPUT ;ALB/BI - DEA Manual Entry ;10/30/23 13:02
Source file <PSOEPUT.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
|
|
| DEANUMF2(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. |
| RPC Name | Call Tags |
|---|---|
| PSO EPCS ADD DEA | FILEFM |
| PSO EPCS DEADOJ | DEADOJ |
| PSO EPCS MBM | MBM |
| PSO EPCS REMOVE DEA | DEAREM |
| PSO EPCS DEA DUP CHECK | DUPCHK |
| PSO EPCS DEALIST | DEALIST |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
| 200.5321 | GET1^DIQ, GETS^DIQ |
| ^PS(59.7 - [#59.7] | GET1^DIQ |
| ^XTV(8991.8 - [#8991.8] | GET1^DIQ |
| ^XTV(8991.9 - [#8991.9] | GET1^DIQ, GETS^DIQ |
