PSOVCC0 ;ORLFO/FJF/WC - PSO Activity Logs ; Mar 20, 2023@12:57:56
Source file <PSOVCC0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PSOVPADDR(PSOVRTN,PSOVICN,PSOVADDR,PSOVATYP) | ;
; Update addresses in Patient file |
|
| TEMPFDA | ; create FDA array for temporary address
|
|
| MAILFDA | ; create FDA array for mailing address
|
|
| J2MAR(JARR,PSOVM) | ; convert passed json into M array
; Input: ; JARR - json ; PSOVM - M array |
|
| EX2FM(X) | ; Conversion
|
|
| PSOVDELAD(PSOVRTN,PSOVICN) | ; delete temporary address
|
|
| PSOVRETADDR(PSOVRTN,PSOVICN,PSOVATYP) | ; Retrieve address from Patient file (#2)
|
|
| CNTCHK(CNTRY) | ;
|
|
| PSOVTAAF(PSOVRTN,PSOVICN,PSOVSTA,PSOVSTRT,PSOVEND) | ; Activation Flag
|
|
| ECME(PSOVO,PSOVRXN) | ||
| ERX(PSOVO,PSOVRXN) | ||
| LELF(PSOVO,PSOVRXN) | ||
| NORXNER(ERROR) | ; handle messages for input parameter issue or no data
|
|
| TRNSFRM(X,SEP,BRC) | ; remove extra quotes from string
|
|
| TIDY() | ; tidy up output string
|
|
| MERGE(CT) | ; merge into output array as json
|
|
| NTOS(X) | ; convert numbers to strings
|
|
| CHOP(S) | ; remove "\ and \" from input S
|
| RPC Name | Call Tags |
|---|---|
| PSO ECME LOG | ECME |
| PSO ERX LOG | ERX |
| PSO LOT EXPIRATION | LELF |
| PSO ADDRESS UPDATE | PSOVPADDR |
| PSO GET ADDRESS | PSOVRETADDR |
| PSO TEMP ADDRESS ACTIVE FLAG | PSOVTAAF |
| PSO DEL TEMPORARY ADDRESS | PSOVDELAD |
| FileNo | Call Tags |
|---|---|
| ^HL(779.004 - [#779.004] | FIND1^DIC |
