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 |