PSOVCC0 ;ORLFO/FJF/WC - PSO Activity Logs ; Mar 20, 2023@12:57:56
Source file <PSOVCC0.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 | 5 | PSO ECME LOG PSO ERX LOG PSO LOT EXPIRATION PSO TEMP ADDRESS UPDATE PSOVCC1 |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | EX2FM+10 |
| GET^DDE | PSOVGTADDR+23, ECME+14, ERX+15, LELF+15 |
| $$UPD^DGENDBS | PSOVPADDR+65 |
| $$FIND1^DIC | CNTCHK+3, CNTCHK+5 |
| $$GETDFN^MPIF001 | PSOVGTADDR+17 |
| $$GETADFN^MPIFAPI | PSOVPADDR+33 |
| $$RXVAL^PSOUTCRM | ECME+11, ERX+11, LELF+11 |
| $$SWAP^PSOUTCRM | NORXNER+10 |
| $$FMTHL7^XLFDT | TIDY+7, MERGE+3 |
| $$HTFM^XLFDT | TIDY+7, MERGE+3 |
| ENCODE^XLFJSON | NORXNER+8, TIDY+9 |
| $$UP^XLFSTR | PSOVPADDR+47, PSOVPADDR+61 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | PSOVPADDR+48 |
| ^TMP($J | ECME+13, ERX+13, LELF+13 |
| Name | Line Occurrences |
|---|---|
| $$CHOP | TIDY+11 |
| $$CNTCHK | PSOVPADDR+56 |
| $$EX2FM | PSOVPADDR+50, PSOVPADDR+51 |
| $$TRNSFRM | TIDY+14, TIDY+15 |
| J2MAR | PSOVPADDR+38 |
| MERGE | NORXNER+5 |
| NORXNER | ECME+9, ECME+11, ECME+15, ECME+16, ERX+9, ERX+11, ERX+16, ERX+17, LELF+9, LELF+11 , LELF+16, LELF+17 |
| TIDY | ECME+17, ERX+18, LELF+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EX2FM+11! |
| B | CHOP+1~, CHOP+3*, CHOP+5 |
| BRC | TRNSFRM~, TRNSFRM+6 |
| C | CHOP+1~, CHOP+5*, CHOP+6 |
| CNTRY | PSOVPADDR+55~, PSOVPADDR+56*, PSOVPADDR+57*, PSOVPADDR+58, CNTCHK~, CNTCHK+3, CNTCHK+5 |
| COUNTRY | CNTCHK+2~, CNTCHK+3*, CNTCHK+4, CNTCHK+5*, CNTCHK+6 |
| CT | TIDY+3~, TIDY+4*, TIDY+8, MERGE~, MERGE+4 |
| DFN | PSOVPADDR+32~, PSOVPADDR+33*, PSOVPADDR+35, PSOVPADDR+65, PSOVGTADDR+16~, PSOVGTADDR+17*, PSOVGTADDR+19, PSOVGTADDR+22, PSOVGTADDR+23 |
| ECM | NORXNER+12! |
| ECM("data" | MERGE+2*, MERGE+3*, MERGE+4* |
| ECMER | NORXNER+4*, NORXNER+12!, MERGE+2 |
| ERR | ECME+12~, ECME+15, ERX+12~, ERX+16, LELF+12~, LELF+16 |
| ERROR | NORXNER~, NORXNER+4 |
| FDA | PSOVPADDR+40~, PSOVPADDR+65 |
| FDA( | PSOVPADDR+41*, PSOVPADDR+42*, PSOVPADDR+43*, PSOVPADDR+44*, PSOVPADDR+48*, PSOVPADDR+49*, PSOVPADDR+50*, PSOVPADDR+51*, PSOVPADDR+52*, PSOVPADDR+53* , PSOVPADDR+54*, PSOVPADDR+58*, PSOVPADDR+62*, PSOVPADDR+63* |
| I | J2MAR+4~, J2MAR+6*, NTOS+2~, NTOS+5*, NTOS+6, CHOP+1~, CHOP+3*, CHOP+5* |
| JARR | J2MAR~ |
| L | NTOS+2~, NTOS+3*, NTOS+7*, NTOS+8 |
| LSUB | J2MAR+4~, J2MAR+5*, J2MAR+6 |
| M | NTOS+2~, NTOS+3*, NTOS+6*, NTOS+7 |
| P | CHOP+1~, CHOP+2*, CHOP+3, CHOP+4*, CHOP+5 |
| PSOVA1 | TIDY+3~, TIDY+5*, TIDY+6 |
| PSOVA2 | TIDY+3~ |
| PSOVA2("data" | TIDY+6*, TIDY+7*, TIDY+8* |
| PSOVADDR | PSOVPADDR~, PSOVPADDR+28, PSOVPADDR+38 |
| PSOVADDR( | J2MAR+6 |
| PSOVADDR("" | J2MAR+5 |
| PSOVADDR("County" | PSOVPADDR+59 |
| PSOVATYP | PSOVPADDR~, PSOVPADDR+29, PSOVGTADDR~, PSOVGTADDR+13 |
| PSOVCOUNTY | PSOVPADDR+60~, PSOVPADDR+61*, PSOVPADDR+62 |
| PSOVERR | PSOVPADDR+40~, PSOVPADDR+65, PSOVPADDR+66 |
| PSOVICN | PSOVPADDR~, PSOVPADDR+27, PSOVPADDR+33, PSOVGTADDR~, PSOVGTADDR+12, PSOVGTADDR+17, PSOVGTADDR+25 |
| PSOVIEN | ECME+12~, ECME+13*, ECME+14, ERX+12~, ERX+13*, ERX+15, LELF+12~, LELF+13*, LELF+15 |
| PSOVM | PSOVPADDR+38, J2MAR~ |
| PSOVM( | J2MAR+6* |
| PSOVM("City" | PSOVPADDR+44 |
| PSOVM("Country" | PSOVPADDR+56 |
| PSOVM("County" | PSOVPADDR+61 |
| PSOVM("EndDate" | PSOVPADDR+51 |
| PSOVM("PhoneNumber" | PSOVPADDR+52 |
| PSOVM("PostCode" | PSOVPADDR+54 |
| PSOVM("Province" | PSOVPADDR+53 |
| PSOVM("StartDate" | PSOVPADDR+50 |
| PSOVM("State" | PSOVPADDR+45, PSOVPADDR+47 |
| PSOVM("StreetL1" | PSOVPADDR+41 |
| PSOVM("StreetL2" | PSOVPADDR+42 |
| PSOVM("StreetL3" | PSOVPADDR+43 |
| PSOVM("Zip" | PSOVPADDR+49 |
| PSOVM("Zip+4" | PSOVPADDR+63 |
| PSOVO | ECME~, ERX~, LELF~, TIDY+11*, TIDY+14*, TIDY+15*, TIDY+16* |
| PSOVO(0 | NORXNER+6!, TIDY+12! |
| PSOVO(1 | ECME+16, ERX+17, LELF+17, NORXNER+7!, TIDY+2*, TIDY+4, TIDY+5, TIDY+10*, TIDY+11 |
| PSOVRT | NORXNER+2~, NORXNER+3*, NORXNER+8, NORXNER+9, NORXNER+11 |
| PSOVRTN | PSOVPADDR~, PSOVPADDR+27*, PSOVPADDR+28*, PSOVPADDR+29*, PSOVPADDR+35*, PSOVPADDR+65*, PSOVPADDR+66*, PSOVPADDR+67*, PSOVGTADDR~, PSOVGTADDR+12* , PSOVGTADDR+13*, PSOVGTADDR+19*, PSOVGTADDR+24*, PSOVGTADDR+25* |
| PSOVRXN | ECME~, ECME+9, ECME+11, ERX~, ERX+9, ERX+11, LELF~, LELF+9, LELF+11 |
| PSOVSTATE | PSOVPADDR+46~, PSOVPADDR+47*, PSOVPADDR+48 |
| PSOVTMP | PSOVGTADDR+23~ |
| PSOVTMP(1 | PSOVGTADDR+24 |
| QUERY | PSOVGTADDR+21~ |
| QUERY("PATIENT" | PSOVGTADDR+22* |
| S | CHOP~, CHOP+3 |
| SEP | TRNSFRM~, TRNSFRM+6 |
| W | NTOS+2~, NTOS+4*, NTOS+5 |
| X | EX2FM~, EX2FM+9*, EX2FM+11!, TRNSFRM~, TRNSFRM+6, NTOS~, NTOS+3, NTOS+4 |
| Y | EX2FM+8~, EX2FM+12, NTOS+2~ |
| ZXC | NORXNER+2~, NORXNER+9*, NORXNER+10*, NORXNER+11 |
