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 |
