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 |
