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 |