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 temporary address in Patient file (#2)
; Input: PSOVICN (required) - Patient ICN ; PSOVADDR (required) - Address ; - format ARRAY(fieldname)=field_value ; - e.g. addr("City")="Alexandria" ; addr("Country")="Canada" ; addr("County")="Yorkshire" ; addr("EndDate")="10/31/2022" ; addr("PhoneNumber")="987-654-3219" ; addr("PostCode")="SK37 4ED9" ; addr("Province")="Saskatchewan" ; addr("StartDate")="09/01/2022" ; addr("State")="TX" ; addr("StreetL1")="Flat 9" ; addr("StreetL2")="The Orchards" ; addr("StreetL3")="Sharp Avenue" ; addr("Zip")=95739 ; addr("Zip+4")="95739-0001" ; PSOVATYP (required) - Indicator of which address is to be updated ; T - temporary address ; O - Other, yet to be determined ; ; Output: PSOVRTN - Return Value ; 1 for success ; -1 - error message for failure |
|
| J2MAR(JARR,PSOVM) | ; convert passed json into M array
; Input: ; JARR - json ; PSOVM - M array |
|
| EX2FM(X) | ; Conversion
|
|
| PSOVGTADDR(PSOVRTN,PSOVICN,PSOVATYP) | ; Retrieve address in Patient file (#2)
|
|
| CNTCHK(CNTRY) | ;
|
|
| 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 GET TEMPORARY ADDRESS | PSOVGTADDR |
| PSO LOT EXPIRATION | LELF |
| PSO TEMP ADDRESS UPDATE | PSOVPADDR |
| FileNo | Call Tags |
|---|---|
| ^HL(779.004 - [#779.004] | FIND1^DIC |
