ORMPS3 ;SLC/MKB - Process Pharmacy ORM msgs cont ;Jun 18, 2021@08:44:23
Source file <ORMPS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTR(X) | ; -- Return ptr to prompt OR GTX X
|
|
| PARENT | ; -- create parent order for backdoor complex renewals
; Expects ORIFN, ORIG, ORDIALOG() |
|
| P0 | ; -- just add conjunction, new dose if DAD already exists
|
|
| P1 | ; -- set up links
|
|
| NTE(ID) | ; -- Return subscript of NTE|ID segment
|
|
| NTXT(NTE) | ; -- Return string of text in ORMSG(NTE)
|
|
| ZSC() | ; -- Return subscript of ZSC segment
|
|
| NUMADDS() | ; -- count number of additives to determine type
|
|
| DURATION(X) | ; -- Returns "# units" from U# format
|
|
| UPD | ; -- Compare ORMSG to order, update responses [from SC^ORMPS]
; Also expects ORIFN,ORNP,ORCAT,OR3,RXE,ZRX,PKGIFN |
|
| CLNUPD | ;-- Update, if Clinic order ;p413
|
|
| VALUE(IFN,ID,INST) | ; -- Returns value of prompt by identifier ID
|
|
| VALTXT(IFN,ID) | ; -- Return string of text for prompt ID [assumes single instance]
; ID may be identifier name or Response IEN |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | Classic Fileman Calls |
