PSOEPUT2 ;BIR/TJL - ePCS Broker Utilities ;11/1/23 12:05
Source file <PSOEPUT2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EPCSHELP(RESULTS,EPCSARY) | ;
|
|
EPCSDATE(RESULTS,EPCSARY) | ;
|
|
SRCLST(RESULTS,EPCSARY) | ;
|
|
EXIT | ||
SORT | ;Order the data to be returned by the broker
|
|
PROV(EPCSNUM) | ;Return a set of providers from the NEW PERSON file
|
|
SETENV | ;
|
|
DELMULT(RETURN,NPIEN,DEATXT) | ; Remove DEA multiple (#53.21) from the NEW PERSON file (#200)
; INPUT: NPIEN - NEW PERSON FILE #200 INTERNAL ENTRY NUMBER ; DEATXT - PROPERLY FORMATTED DEA NUMBER ; OUTPUT: RETURN - 1 for SUCCESS, 0 for UNSUCCESSFUL |
|
ASK(TYPE,NAME,DELEG) | ;Ask user if Allocate/De-allocate or Delegate/Un-delegate - returns y/n
|
|
PSDKEY(RESULTS,PSOSUBJ,PSOACTOR,PSOACTION) | ;Allocate/De-allocate the PSDRPH key
; RESULTS - Success or Failure of the allocation/deallocation of the PSDRPH key. ; PSOSUBJ - The user to whom the PSDRPH key is being allocated/deallocated ; PSOACTOR - The user performing the allocation/deallocation of the PSDRPH key. ; PSOACTION - Action to perform - 1=Allocate, 0=Deallocate |
|
RECORD(LINE,NOW) | ;Record the edited data into audit file #8991.7
|
RPC Name | Call Tags |
---|---|
PSO EPCS SYSTEM DATE TIME | EPCSDATE |
PSO EPCS FIELD HELP | EPCSHELP |
PSO EPCS GET LIST | SRCLST |
PSO EPCS TOPIC HELP | EPCSHELP |
PSO EPCS PSDRPH FILER | PSDKEY |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls, FIND1^DIC |
200.051 | FIND1^DIC |
200.5321 | GET1^DIQ |
^XTV(8991.9 - [#8991.9] | GET1^DIQ |
^DIC(9.2 - [#9.2] | Classic Fileman Calls |