ORSPECAUTH ;SLC/AGP/GSN - Ordering Special Authorities ;Dec 03, 2025@07:24:59
Source file <ORSPECAUTH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RETURNPARAMS(RESULT) | ;
|
|
| CHECKORDER(ORIFN,ORDA,ORPSO) | ;Order checks
|
|
| GETENVIND(RESULTS,ORIEN,CHECKMULT) | ;Get SA indicators for this order
|
|
| GETFROMMULT(RESULTS,ORIEN) | ;Build SA new mult structure
|
|
| GETHL7(ORMSG,ORIFN) | ;Receive from OP pharm ZSC HL7 order add/update ZSC Segs(s) (old and/or new SA structures)
; New mult ZSC array structure example Old single ZSC fixed fields structure example ; 4 pcs ZSC|1|SC|1 9 pcs ZSC|1|1||||||0 ; ZSC|2|MST|0 ; ZSC|3|AO|1 |
|
| UPDATE112(OIEN,ID,VAL,TMPARR) | ;Add/Update new SA mult file #100.0112
|
|
| SETHL7(ORMSG,START,ORIEN) | ;Send to OP pharm New or Old HL7 ZSC structure
; AGP met with Pharmacy they were okay with the HL7 changes, however a project has not been stood up may change when Pharmacy start works on it |
|
| SETOLD(OLDSTR,SEQMAP,PARRAY,CDE,VALUE) | ;
|
|
| FINDSABYCODE(ARR,CODE) | ;Find IDX for SA CODE in an ORSA type array
|
|
| FINDTMPIDX(ARR,CODE,OCNT) | ;Find IDX for SA CODE in an TMPARR type array
|
|
| SAFORORDER(TMPARR,HASIND,SEQMAP,OCNT,ORIFN,ORSA) | ;Merge an orders base JSON SA seqmap type array with SA tmparr per Codes (index to index)
|
|
| SAFORORDERS(RESULTS,IJSON) | ;
|
|
| SAFORORDERSX | ;
|
|
| SETERROR(RESULTS,ERROR) | ;
|
|
| UPDATEORDERSA(RESULTS,IJSON) | ;update an Orders SA values new mult
|
|
| UPDATEORDERSAX | ;
|
|
| OLDSC(J) | ; -- Returns name of SC field by piece number
|
|
| OLDCODE(J) | ; -- Returns code of SC field by piece number
|
|
| CODETOOLD(J) | ; -- Returns pso old fixed string piece number per CODE.
|
|
| ZSC(ORMSG) | ;Find the index of the 1st ZSC seg & the number of pieces in the ZSC segment. (New mult ZSCs, including "ZSC", will have 5 pieces and old >5)
|
| RPC Name | Call Tags |
|---|---|
| ORSPECAUTH SAFORORDERS | SAFORORDERS |
| ORSPECAUTH UPDATEORDERSA | UPDATEORDERSA |
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | FIND1^DIC |
