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 |
Name | Field # of Occurrence |
---|---|
^DIC | RESUME+7 |
FIELD^DID | RESUME+4 |
$$GET1^DIQ | EN+13 |
$$INPT^ORCD | EN+8, SET+5 |
ORDTEXT^ORCSAVE1 | EN2+13 |
AUDORDXX^ORDEA | EN2+28 |
CSVALUE^ORDEA | EN2+27 |
ORCAN^ORNORC | XX+4 |
DELOCC^OROCAPI1 | EN2+30 |
SAVEOC^OROCAPI1 | EN2+50 |
PKI^ORWDPS1 | EN2+6 |
$$NOW^XLFDT | XX+15, EN+7, EN2+38, EN2+63, ACTION+3, SET+5 |
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | FIELD^DID |
^DIC(9.4 - [#9.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | EN2+4, SET+5 |
^OR(100 - [#100] | XX+6, XX+9*, XX+10*, XX+11, XX+16, XX+19*, XX+20*, XX+21, XX+22, XX+23* , XX+24, XX+25, XX+26*, RN+6*, RN+7*, EN+11, EN1*, EN1+1*, EN1+2*, EN1+4* , EN1+5*, EN1+7*, EN1+8*, EN1+9*, EN1+10*, EN1+11*, EN1+12*, EN1+13*, EN1+14*, EN2+1 , EN2+3, EN2+10*, EN2+11!, EN2+12!, EN2+15*, EN2+18*, EN2+20, EN2+21, EN2+22, EN2+23 , EN2+24*, NEXTIFN+2, NEXTIFN+4, NEXTIFN+5, NEXTIFN+6*, NEXTIFN+7*, RESPONSE+2, RESPONSE+8*, RESPONSE+9*, RESPONSE+11* , RESPONSE+12*, RESPONSE+13*, R1+1!, R1+2!, R1+4, R1+5, R1+6*, R1+7*, R1+8*, RESUME+7* , PROVIDER+3*, PROVIDER+4*, ACTION+2, ACTION+5, ACTION+6, ACTION+8, ACTION+9, ACTION+11!, ACTION+12!, ACTION+13! , ACTION+14, ACTION+15*, ACTION+16*, ACTION+17*, ACTION+18*, ACTION+19*, ACTION+20*, ACTION+21*, ACTION+22*, SET+7* , SET+8*, SET+9*, SET+10*, SET+12* |
^ORD(100.02 - [#100.02] | EN+17, ACTION+4 |
^ORD(100.05 - [#100.05] | EN2+54*, EN2+61*, EN2+62*, EN2+63* |
^ORD(100.7 - [#100.7] | EN2+5 |
^ORD(101.41 - [#101.41] | EN+6, EN+7, EN+9, EN+12, EN1+17, SET+4 |
^TMP($J | EN2+45, EN2+58, EN2+59, EN2+61, EN2+62, EN2+64!, EN2+65! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CATG | EN+5~, EN+8*, EN1, EN2+6, SET+3~, SET+5*, SET+7 |
CDL | EN+5~, EN2+33*, EN2+34, EN2+35, EN2+36, EN2+37, EN2+38, EN2+46, EN2+47 |
CNT | EN+5~, EN2+33*, RESPONSE+1~, RESPONSE+3*, RESPONSE+7*, RESPONSE+8, RESPONSE+9, RESPONSE+11, RESPONSE+12, RESPONSE+13 , R1+3*, R1+6*, R1+8 |
CODE | ACTION~, ACTION+2, ACTION+8, ACTION+15, ACTION+17 |
DA | NEXTIFN+1~, NEXTIFN+6*, NEXTIFN+8, RESUME+3~, ACTION~, ACTION+1*, ACTION+2, ACTION+5, ACTION+6, ACTION+8 , ACTION+9, ACTION+11, ACTION+12, ACTION+13, ACTION+14, ACTION+15, ACTION+16, ACTION+17, ACTION+18, ACTION+19 , ACTION+20, ACTION+21, ACTION+22 |
DA(1 | RESUME+5* |
DG | EN+5~, EN+12*, EN1, EN1+11 |
>> DGPMT | EN+13 |
DGRP | ACTION+1~, ACTION+5*, ACTION+11, ACTION+18 |
DIC | RESUME+3~, RESUME+5* |
DIC("DR" | RESUME+6* |
DIC("P" | RESUME+6* |
DIC(0 | RESUME+5* |
>> DILOCKTM | NEXTIFN+2 |
DLAYGO | RESUME+3~, RESUME+6* |
DLG | SET~, SET+3, SET+4, SET+7 |
DT | RESUME+5 |
DUZ | EN+10, EN2+5, EN2+38, ACTION+3, SET+7, SET+8 |
HDR | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6*, NEXTIFN+7, ACTION+1~, ACTION+5*, ACTION+7*, ACTION+22* |
I | EN+5~, EN1+19~, EN1+21*, EN2+20*, EN2+21, EN2+22*, EN2+23, EN2+33*, EN2+34*, EN2+35 , EN2+36, EN2+37, EN2+38, EN2+39, EN2+40, EN2+42, EN2+43, EN2+44, EN2+45, EN2+46 , EN2+47, NEXTIFN+1~, NEXTIFN+5*, NEXTIFN+6, RESPONSE+1~, R1+1*, R1+3*, R1+4*, R1+5 |
IFN | RESUME~, RESUME+5, RESUME+7 |
>> INDICAT | EN1+4 |
INST | RESPONSE+1~, RESPONSE+6*, RESPONSE+7, RESPONSE+8 |
ITM | RESPONSE+1~, RESPONSE+4*, RESPONSE+8, RESPONSE+9 |
J | EN2+36~* |
LAST | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+5, ACTION+1~, ACTION+8*, ACTION+9, ACTION+10 |
LOC | EN+5~, EN+13*, EN+14*, EN1 |
LOG | EN+5~, EN+10*, EN1, EN1+1, EN1+2, EN1+5, EN1+7, EN1+11, EN1+12, EN1+13 |
LSTACT | XX+13~, XX+14*, XX+21*, XX+22, XX+23, XX+25, XX+26 |
MSG | RESUME+3~ |
MSG("SPECIFIER" | RESUME+6 |
NATR | EN+5~, EN+17*, EN1+2, ACTION+1~, ACTION+4*, ACTION+15 |
NEXT | ACTION+1~, ACTION+10*, ACTION+11, ACTION+12, ACTION+13, ACTION+14*, ACTION+15, ACTION+16, ACTION+17, ACTION+18 , ACTION+19, ACTION+20, ACTION+21, ACTION+22, ACTION+23 |
NODE | EN+5~, EN2+15*, EN2+16*, EN2+17*, EN2+18*, EN2+19*, EN2+21*, EN2+23* |
NOW | XX+13~, XX+15*, EN+5~, EN+7*, EN+10, EN2+24, SET+3~, SET+5*, SET+7, SET+8 , SET+9, SET+10 |
OCINST | EN2+53~*, EN2+54, EN2+56~, EN2+57*, EN2+61, EN2+62, EN2+63 |
OCRET | EN2+49~, EN2+50 |
OCRET( | EN2+53, EN2+57 |
OCTXT | EN2+56~*, EN2+59 |
OI | EN2+2~, EN2+3*, EN2+6 |
OLDEVT | XX+13~, XX+14*, XX+16*, XX+18, XX+19 |
OLDIFN | XX+5~*, XX+6*, XX+8, XX+9, XX+10, XX+11, XX+16, RN+4~*, RN+6, RN+7 |
OLDSTS | XX+13~, XX+14*, XX+16*, XX+18 |
OR0 | SET+3~, SET+4*, SET+7, SET+12 |
ORACT | PROVIDER+2~*, PROVIDER+3, PROVIDER+4 |
>> ORAPPT | EN1 |
ORCAT | NEW~, EN+8 |
>> ORCHECK | EN2+31 |
>> ORCHECK("NEW" | EN2+33, EN2+34, EN2+35, EN2+36*, EN2+37, EN2+46, EN2+47 |
ORCROC | EN2+32~, EN2+51 |
ORCROC( | EN2+43*, EN2+52, EN2+54 |
ORCROCI | EN2+52~*, EN2+53, EN2+54 |
ORCSORD | EN+5~, EN2+26*, EN2+27, EN2+28 |
>> ORDA | XX+7*, RN+5* |
>> ORDCNTRL | EN+15 |
ORDEA | EN2+7*, EN2+66! |
ORDER | PROVIDER~, PROVIDER+1, PROVIDER+2, PROVIDER+3, PROVIDER+4 |
ORDG | NEW~, EN+12 |
ORDIALOG | NEW~, EN+6, EN+7, EN+9, EN+12, EN1, EN1+8 |
ORDIALOG( | EN1+18, EN1+20, EN1+22*, RESPONSE+3, RESPONSE+4, RESPONSE+5, RESPONSE+6, RESPONSE+7 |
ORDIALOG("PREV" | EN1+1 |
ORDUZ | NEW~, EN+10 |
OREVENT | NEW~, EN+13, EN+18, EN1, EN1+14, SET+5, SET+6, SET+7 |
>> OREVTDF | XX+12 |
ORGLOB | EN2+41~, EN2+42*, EN2+45 |
ORI | EN2+41~, EN2+44*, EN2+45* |
ORIFN | XX+4, XX+5*, XX+6!, XX+7, XX+9, XX+10, XX+19, XX+20, XX+21, XX+22 , XX+23, XX+24, XX+25, XX+26, RN+4!, RN+5, RN+6, RN+7, EN+11, EN+18* , EN1, EN1+1, EN1+2, EN1+4, EN1+5, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11 , EN1+12, EN1+13, EN1+14, EN2*, EN2+1, EN2+3, EN2+10, EN2+11, EN2+12, EN2+13 , EN2+15, EN2+18, EN2+20, EN2+21, EN2+22, EN2+23, EN2+24, EN2+27, EN2+28, EN2+30 , EN2+38, RESPONSE+2, RESPONSE+8, RESPONSE+9, RESPONSE+11, RESPONSE+12, RESPONSE+13, R1+1, R1+2, R1+4 , R1+5, R1+6, R1+7, R1+8 |
>> ORIT | EN1+1, EN1+9, SET+7 |
ORK | EN+5~, EN2+48, EN2+50 |
ORK( | EN2+38*, EN2+39*, EN2+40, EN2+42, EN2+43, EN2+44*, EN2+45*, EN2+46*, EN2+47*, EN2+55 , EN2+56 |
ORKI | EN2+49~, EN2+55*, EN2+56, EN2+57 |
>> ORL | EN+14 |
ORLINE | EN2+41~, EN2+44*, EN2+45* |
ORLOC | SET+3~, SET+6*, SET+7 |
ORLOG | NEW~, EN+10 |
ORMONOI | EN2+58~*, EN2+59, EN2+61, EN2+62 |
ORMONOQ | EN2+58~*, EN2+60* |
>> ORNP | EN1, EN1+2, EN1+7, EN2+16, EN2+19, SET+7, SET+8 |
>> ORPIFN | SET+4*, SET+7, SET+8, SET+9, SET+10, SET+12 |
ORPKG | NEW~, EN+9 |
ORPKIU | EN2+2~, EN2+5*, EN2+6 |
ORRFSID | EN1+16~, EN1+17*, EN1+18, EN1+20, EN1+22 |
ORRULE | EN2+41~, EN2+42*, EN2+44, EN2+45 |
>> ORSLDEA | EN1+10 |
>> ORSLOG | SET+5 |
>> ORSRC | EN+15 |
>> ORTS | EN+14 |
>> ORVP | EN+6, EN1, EN1+11, EN1+12, EN1+13, EN1+14, EN2+6, SET+3, SET+7, SET+9 , SET+10 |
>> ORY | EN2+6, EN2+7 |
PAT | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7, ACTION+1~, ACTION+5*, ACTION+10, ACTION+11, ACTION+12, ACTION+18 , ACTION+19, ACTION+20 |
PATID | XX+13~, XX+24*, XX+26 |
PKG | EN+5~, EN+9*, EN+13, EN1, EN2+4, SET+3~, SET+5*, SET+7 |
PROMPT | RESPONSE+1~, RESPONSE+3*, RESPONSE+4, RESPONSE+5, RESPONSE+6, RESPONSE+7, RESPONSE+8 |
PROV | PROVIDER~, PROVIDER+1, PROVIDER+3, PROVIDER+4, ACTION~, ACTION+15, ACTION+17 |
REASON | ACTION~, ACTION+21 |
SIG | ACTION+1~, ACTION+5*, ACTION+15, ACTION+20 |
SIGNREQD | EN+5~, EN+7*, EN1, EN1+2, EN1+13 |
START | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7 |
STS | EN+5~, EN+11*, EN+18*, EN1+1, EN1+2, EN1+12, SET+3~, SET+5*, SET+7, SET+8 , SET+10 |
TOTAL | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6, ACTION+1~, ACTION+7*, ACTION+14*, ACTION+22 |
TRSPEC | EN+5~, EN+13*, EN+14*, EN1, SET+3~, SET+6*, SET+7 |
TXT | ACTION+1~, ACTION+6*, ACTION+15 |
TYPE | EN+5~, EN+15*, EN1+1, RESPONSE+1~, RESPONSE+5*, RESPONSE+10, RESPONSE+11, RESPONSE+12 |
U | XX+6, XX+9, XX+10, XX+16, XX+19, XX+20, XX+21, XX+23, XX+24, XX+25 , RN+6, RN+7, EN+7, EN+9, EN+11, EN+12, EN+15, EN1, EN1+1, EN1+2 , EN1+4, EN1+10, EN2+16, EN2+17, EN2+19, EN2+21, EN2+23, EN2+24, EN2+38, EN2+39 , EN2+43, EN2+63, NEXTIFN+4, NEXTIFN+6, RESPONSE+2, RESPONSE+8, RESPONSE+9, RESPONSE+13, R1+8, PROVIDER+3 , PROVIDER+4, ACTION+5, ACTION+6, ACTION+7, ACTION+9, ACTION+10, ACTION+11, ACTION+12, ACTION+13, ACTION+15 , ACTION+22, SET+7, SET+12 |
USR | EN+5~, EN+10*, EN1, EN1+2, EN2+17 |
VALUE | RESPONSE+1~, RESPONSE+7*, RESPONSE+10*, RESPONSE+11, RESPONSE+12 |
WHEN | XX+13~, XX+25*, XX+26, ACTION~, ACTION+3*, ACTION+15, ACTION+16, ACTION+17, ACTION+18, ACTION+19 , ACTION+20 |
WHO | ACTION~, ACTION+3*, ACTION+15 |
X | EN+5~, EN1+19~, EN1+20*, EN1+21*, EN1+22, EN2+21*, EN2+23*, EN2+37*, EN2+38, EN2+39 , RESPONSE+1~, R1+1*, R1+5*, R1+6, R1+7, RESUME+3~, RESUME+5*, ACTION+1~, ACTION+5*, ACTION+6* , ACTION+9*, ACTION+10, ACTION+11, ACTION+12, ACTION+13, SET+3~ |
Y | RESUME+3~, RESUME+7 |