ORCSAVE ;SLC/MKB/JDL-Save ;Dec 02, 2021@13:09:37
Source file <ORCSAVE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW(ORDIALOG,ORDG,ORPKG,ORCAT,OREVENT,ORDUZ,ORLOG) | ; -- New order
; Returns ORIFN = [new] order number, if created/saved |
|
| XX | ; -- save new/unreleased edited order into Orders file
; Requires: ORDIALOG() = array of dialog values ; ORIFN = IFN of original order that was edited |
|
| RN | ; -- save new/unreleased renewal order into Orders file
; Requires: ORDIALOG() = array of new dialog values ; ORIFN = IFN of original order that was renewed |
|
| EN | ; -- save new/unreleased order in ORDIALOG() into Orders file
; Requires: ORVP, ORNP [and ORL, ORTS, ORAPPT if available] ; If defined: ORCAT,ORPKG,ORDG,ORLOG,ORDUZ,OREVENT,ORDCNTRL,ORSRC ; (else use values from ORDIALOG and current state) |
|
| EN1 | ||
| EN2 | ||
| ENQ | ||
| NEXTIFN() | ; -- Returns next available ORIFN
|
|
| RESPONSE | ; -- Save responses in ORDIALOG() into ^OR(100,ORIFN,4.5)
|
|
| R1 | ; [Reset] Orderables
|
|
| RESUME(IFN) | ; -- add Response nodes for RESUME tray service
; S ^OR(100,+IFN,4.5,<next>,0)=DT_"^^^RESUME",^(1)=1 |
|
| PROVIDER(ORDER,PROV) | ; -- Change PROVider assigned to ORDER
|
|
| ACTION(CODE,DA,PROV,REASON,WHEN,WHO) | ; -- save new action
|
|
| SET(DLG) | ; -- Create new parent for order set ORDIALOG
; Returns ORPIFN = ifn of new parent order for set |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | FIELD^DID |
| ^DIC(9.4 - [#9.4] | GET1^DIQ |
