PSOEPUT2 ;BIR/TJL - ePCS Broker Utilities ;11/1/23 12:05
Source file <PSOEPUT2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 7 | PSO EPCS FIELD HELP PSO EPCS GET LIST PSO EPCS PSDRPH FILER PSO EPCS SYSTEM DATE TIME PSO EPCS TOPIC HELP PSODEAUT PSOEPUT |
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
|
Name | Field # of Occurrence |
---|---|
^%DT | EPCSDATE+12 |
NOW^%DTC | SETENV+3 |
^DIC | EPCSHELP+13 |
$$FIND1^DIC | PSDKEY+8, PSDKEY+15, PSDKEY+16, PSDKEY+27 |
UPDATE^DIE | DELMULT+10, PSDKEY+26, RECORD+4 |
^DIK | PSDKEY+21 |
$$GET1^DIQ | DELMULT+7, DELMULT+8 |
D^DIQ | EPCSDATE+14 |
^DIR | ASK+8 |
$$HTE^XLFDT | PSDKEY+31 |
$$LKUP^XPDKEY | PSDKEY+11 |
$$GET^XUA4A72 | PROV+19 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.2 - [#9.2] | EPCSHELP+13, EPCSHELP+15 |
^TMP("EPCSHELP" | EPCSHELP+11!, EPCSHELP+13*, EPCSHELP+14, EPCSHELP+15*, EPCSHELP+16 |
^TMP("EPCSSRCH" | SRCLST+17!, EXIT!, SORT+3, SORT+4 |
^TMP($J | SRCLST+17!, EXIT+1, SORT+4*, PROV+18*, PROV+20* |
^VA(200 - [#200] | PROV+15, PROV+16, DELMULT+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | EPCSDATE+12* |
>> %DT(0 | EPCSDATE+12* |
COUNT | SORT+1~, SORT+2*, SORT+3*, SORT+4, PROV+13~*, PROV+15 |
DA | DELMULT+4~, PSDKEY+21* |
DA(1 | PSDKEY+21* |
DATE | PROV+13~, PROV+14*, PROV+19 |
DATESTR | EPCSDATE+9~, EPCSDATE+11*, EPCSDATE+12 |
DEATXT | DELMULT~, DELMULT+5, DELMULT+6 |
DEATYPE | DELMULT+4~, DELMULT+8* |
DELEG | ASK~, ASK+4*, ASK+5, ASK+6 |
DIC | EPCSHELP+9~, EPCSHELP+12*, EPCSDATE+9~ |
DIC(0 | EPCSHELP+12* |
DIE | DELMULT+4~ |
DIK | PSDKEY+21!* |
DIR | ASK+3~, ASK+8! |
DIR("A" | ASK+5*, ASK+6* |
DIR("B" | ASK+7* |
DIR(0 | ASK+8* |
DNDEAIEN | DELMULT+4~, DELMULT+7*, DELMULT+8 |
DR | DELMULT+4~ |
DT | SETENV+3* |
DTIME | SETENV+2* |
DUZ | SETENV+1, SETENV+2* |
DUZ(0 | SETENV+2* |
EPCSARY | EPCSHELP~, EPCSHELP+10, EPCSDATE~, EPCSDATE+11, SRCLST~, SRCLST+15, SRCLST+19 |
EPCSDATE | EPCSDATE+9~ |
EPCSDIR | SRCLST+13~, SRCLST+15*, SRCLST+16, PROV+15, PROV+16 |
EPCSFILE | SRCLST+13~, SRCLST+15*, SRCLST+18, SRCLST+20 |
EPCSNUM | SRCLST+13~, SRCLST+19*, SRCLST+20, PROV~, PROV+13 |
EPCSORD | SRCLST+13~, SRCLST+16* |
EPCSSTR | SRCLST+13~, SRCLST+15*, PROV+14 |
EPCSUTN | PROV+13~, PROV+19*, PROV+20 |
FDA | DELMULT+4~, RECORD+1~ |
FDA( | PSDKEY+26*, RECORD+2*, RECORD+3* |
FDA(1 | DELMULT+9* |
FROM | PROV+13~, PROV+14*, PROV+15*, PROV+16, PROV+18, PROV+20 |
HELPDA | EPCSHELP+9~, EPCSHELP+10*, EPCSHELP+12 |
I | PROV+13~*, PROV+15, PROV+18*, PROV+20*, RECORD+1~, RECORD+2* |
IEN | PROV+13~, PROV+16*, PROV+17, PROV+18, PROV+19, PROV+20, RECORD+1~ |
IENS | DELMULT+4~ |
LINE | RECORD~, RECORD+2 |
MSG | RECORD+1~ |
MSGROOT | DELMULT+4~, DELMULT+10 |
NAME | ASK~, ASK+5, ASK+6 |
NOW | PSDKEY+31*, PSDKEY+32, RECORD~, RECORD+3 |
NPDEAIEN | DELMULT+4~, DELMULT+6*, DELMULT+7, DELMULT+9 |
NPIEN | DELMULT~, DELMULT+5, DELMULT+6, DELMULT+7, DELMULT+9 |
PSOACTION | PSDKEY~, PSDKEY+9*, PSDKEY+10, PSDKEY+19, PSDKEY+24, PSDKEY+32 |
PSOACTOR | PSDKEY~, PSDKEY+9*, PSDKEY+14, PSDKEY+16, PSDKEY+32 |
PSOIGNORE | PSDKEY+6~, PSDKEY+7*, PSDKEY+20*, PSDKEY+25*, PSDKEY+30 |
PSOINPUT | PSDKEY+6~, PSDKEY+32* |
PSOKEY | PSDKEY+6~, PSDKEY+11*, PSDKEY+12, PSDKEY+21 |
PSOKSTAT | PSDKEY+6~, PSDKEY+8*, PSDKEY+20, PSDKEY+25 |
PSOMSG | PSDKEY+6~ |
PSOMSG("DIERR" | PSDKEY+27 |
PSOSUBJ | PSDKEY~, PSDKEY+8, PSDKEY+9*, PSDKEY+13, PSDKEY+15, PSDKEY+21, PSDKEY+26, PSDKEY+27, PSDKEY+32 |
REPORT | PROV+13~, PROV+14*, PROV+18 |
RESULTS | EPCSHELP~, EPCSHELP+16*, EPCSDATE~, EPCSDATE+13*, EPCSDATE+14*, EPCSDATE+15*, SRCLST~, EXIT+1*, PSDKEY~, PSDKEY+7! , PSDKEY+10*, PSDKEY+12*, PSDKEY+13*, PSDKEY+14*, PSDKEY+15*, PSDKEY+16*, PSDKEY+26, PSDKEY+27*, PSDKEY+35* |
RETURN | DELMULT~, DELMULT+5*, DELMULT+11* |
TYPE | ASK~, ASK+5, ASK+6 |
U | EPCSHELP+15, EPCSDATE+11, EPCSDATE+15, SRCLST+15, SRCLST+19, SORT+4, SETENV+2*, RECORD+2 |
VALUE | RECORD+1~, RECORD+2* |
X | EPCSHELP+9~, EPCSHELP+12*, EPCSDATE+9~, EPCSDATE+12*, SETENV+3 |
Y | EPCSHELP+9~, EPCSHELP+13, EPCSHELP+15, EPCSDATE+9~, EPCSDATE+13, EPCSDATE+14, EPCSDATE+15, ASK+3~, ASK+9 |