ORCSAVE ;SLC/MKB/JDL-Save ;18-Jul-2013 14:23;PLS
Source file <ORCSAVE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ACTION(CODE,DA,PROV,REASON,WHEN,WHO) | ; -- save new action
|
|
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) |
|
R1 | ; [Reset] Orderables
|
|
ENQ | ||
SET(DLG) | ; -- Create new parent for order set ORDIALOG
; Returns ORPIFN = ifn of new parent order for set |
|
EN2 | ||
EN1 | ||
XX | ; -- save new/unreleased edited order into Orders file
; Requires: ORDIALOG() = array of dialog values ; ORIFN = IFN of original order that was edited |
|
PROVIDER(ORDER,PROV) | ; -- Change PROVider assigned to ORDER
|
|
NEW(ORDIALOG,ORDG,ORPKG,ORCAT,OREVENT,ORDUZ,ORLOG) | ; -- New order
; Returns ORIFN = [new] order number, if created/saved |
|
RN | ; -- save new/unreleased renewal order into Orders file
; Requires: ORDIALOG() = array of new dialog values ; ORIFN = IFN of original order that was renewed |
|
NEXTIFN() | ; -- Returns next available ORIFN
|
|
RESPONSE | ; -- Save responses in ORDIALOG() into ^OR(100,ORIFN,4.5)
|
|
RESUME(IFN) | ; -- add Response nodes for RESUME tray service
; S ^OR(100,+IFN,4.5,<next>,0)=DT_"^^^RESUME",^(1)=1 |
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(100 | RESUME+5 |
^DIC(9.4 - [#9.4] | EN2+4, SET+5 |
^OR(100 - [#100] | XX+5, XX+8*, XX+9*, XX+10, XX+18*, XX+19*, XX+20, XX+21, XX+22*, XX+23 , XX+24, XX+25*, RN+6*, RN+7*, EN+10, EN1*, EN1+1*, EN1+2*, EN1+3*, EN1+4* , EN1+5*, EN1+6*, EN1+7*, EN2+1, EN2+3, EN2+7!, EN2+8*, EN2+10, EN2+11, EN2+12 , EN2+13, EN2+14*, EN2+15!, EN2+18*, EN2+19*, EN2+20*, EN2+25, EN2+30, 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+6*, 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*, SET+7*, SET+8*, SET+9*, SET+10*, SET+12* |
^ORD(100.01 - [#100.01] | EN2+26 |
^ORD(100.02 - [#100.02] | EN+17, ACTION+4 |
^ORD(101.41 - [#101.41] | EN+6, EN+7, EN+9, EN+11, EN1+10, SET+4 |
^TMP("BEHPSHMX" | EN2+22, EN2+24 |
Name | Line Occurrences |
---|---|
$$ACTION | EN2+31 |
$$NEXTIFN | EN+18, SET+4 |
EN | NEW+2, XX+6, RN+5 |
EN2 | EN+10 |
RESPONSE | EN2 |
Name | Field # of Occurrence |
---|---|
^( | R1+1 |
^($J | EN2+24! |
^(0 | XX+15, RESPONSE+2, ACTION+5 |
^(1 | EN2+19*, SET+8*, SET+12* |
^(3 | XX+5, XX+8*, XX+15, RN+6*, EN+10, ACTION+5, SET+7* |
^(4.5 | RESPONSE+2! |
^(5 | XX+9, RN+7 |
^(8 | XX+5, ACTION+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CATG | EN+5~, EN+8*, EN1, EN2+5, SET+3~, SET+5*, SET+7 |
CDL | EN+5~, EN2+16*, EN2+17 |
CNT | EN+5~, EN2+16*, EN2+18*, EN2+19, EN2+20, 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+14 |
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 |
DA(1 | RESUME+4* |
DG | EN+5~, EN+11*, EN1, EN1+4 |
>> DGPMT | EN+12 |
DGRP | ACTION+1~, ACTION+5*, ACTION+11, ACTION+16 |
DIC | RESUME+3~, RESUME+4* |
DIC("DR" | RESUME+5* |
DIC("P" | RESUME+5* |
DIC(0 | RESUME+4* |
DLG | SET~, SET+3, SET+4, SET+7 |
DT | RESUME+4 |
DUZ | EN+16, EN2+5, EN2+31, EN2+35, ACTION+3, SET+7, SET+8 |
HDR | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6*, NEXTIFN+7, ACTION+1~, ACTION+5*, ACTION+7*, ACTION+20* |
I | EN+5~, EN1+12~, EN1+14*, EN2+10*, EN2+11, EN2+12*, EN2+13, EN2+16*, EN2+17*, NEXTIFN+1~ , NEXTIFN+2*, NEXTIFN+5*, NEXTIFN+6, RESPONSE+1~, R1+1*, R1+3*, R1+4*, R1+5 |
IFN | RESUME~, RESUME+4, RESUME+6 |
INST | RESPONSE+1~, RESPONSE+6*, RESPONSE+7, RESPONSE+8 |
ITM | RESPONSE+1~, RESPONSE+4*, RESPONSE+8, RESPONSE+9 |
LAST | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+5, ACTION+1~, ACTION+8*, ACTION+9, ACTION+10 |
LOC | EN+5~, EN+12*, EN+13*, EN+14*, EN1 |
LOG | EN+5~, EN+16*, EN1, EN1+1, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6 |
LSTACT | XX+12~, XX+13*, XX+20*, XX+21, XX+22, XX+24, XX+25 |
MSCAX | EN2+23~, EN2+31*, EN2+32, EN2+33 |
MSCCODE | EN2+23~, EN2+30*, EN2+31 |
MSCFDA | EN2+23~ |
MSCFDA( | EN2+34*, EN2+35* |
MSCIEN | EN2+23~, EN2+24*, EN2+28, EN2+31, EN2+33 |
MSCIENS | EN2+23~, EN2+33*, EN2+34, EN2+35 |
MSCSTAT | EN2+23~, EN2+25*, EN2+26*, EN2+27, EN2+28 |
NATR | EN+5~, EN+17*, EN1+2, ACTION+1~, ACTION+4*, ACTION+14 |
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 |
NODE | EN+5~, EN2+8*, EN2+9*, EN2+11*, EN2+13* |
NOW | XX+12~, XX+14*, EN+5~, EN+7*, EN+16, EN2+14, SET+3~, SET+5*, SET+7, SET+8 , SET+9, SET+10 |
OI | EN2+2~, EN2+3*, EN2+5 |
OLDEVT | XX+12~, XX+13*, XX+15*, XX+17, XX+18 |
OLDIFN | XX+4~*, XX+5*, XX+7, XX+8, XX+9, XX+10, RN+4~*, RN+6, RN+7 |
OLDSTS | XX+12~, XX+13*, XX+15*, XX+17 |
OR0 | SET+3~, SET+4*, SET+7, SET+12 |
ORACT | PROVIDER+2~*, PROVIDER+3, PROVIDER+4 |
>> ORAPPT | EN1 |
ORCAT | NEW~, EN+8 |
>> ORCHECK | EN2+15 |
>> ORCHECK("NEW" | EN2+16, EN2+17 |
>> ORDA | XX+6*, RN+5* |
>> ORDCNTRL | EN+15 |
ORDEA | EN2+6*, EN2+37! |
ORDER | PROVIDER~, PROVIDER+1, PROVIDER+2, PROVIDER+3, PROVIDER+4 |
ORDG | NEW~, EN+11 |
ORDIALOG | NEW~, EN+6, EN+7, EN+9, EN+11, EN1 |
ORDIALOG( | EN1+11, EN1+13, EN1+15*, RESPONSE+3, RESPONSE+4, RESPONSE+5, RESPONSE+6, RESPONSE+7 |
ORDIALOG("PREV" | EN1+1 |
ORDUZ | NEW~, EN+16 |
OREVENT | NEW~, EN+12, EN+18, EN1, EN1+7, SET+5, SET+6, SET+7 |
>> OREVTDF | XX+11 |
ORIFN | XX+4*, XX+5!, XX+6, XX+8, XX+9, XX+18, XX+19, XX+20, XX+21, XX+22 , XX+23, XX+24, XX+25, RN+4!, RN+5, RN+6, RN+7, EN+10, EN+18*, EN1 , EN1+1, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN2*, EN2+1, EN2+3 , EN2+7, EN2+8, EN2+10, EN2+11, EN2+12, EN2+13, EN2+14, EN2+15, EN2+18, EN2+19 , EN2+20, EN2+25, EN2+30, 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, SET+7 |
>> ORL | EN+13 |
ORLOC | SET+3~, SET+6*, SET+7 |
ORLOG | NEW~, EN+16 |
>> ORNP | EN1, EN1+2, EN2+9, SET+7, SET+8 |
>> ORPIFN | SET+4*, SET+7, SET+8, SET+9, SET+10, SET+12 |
ORPKG | NEW~, EN+9 |
ORRFSID | EN1+9~, EN1+10*, EN1+11, EN1+13, EN1+15 |
>> ORSLOG | SET+5 |
>> ORSRC | EN+15 |
>> ORTS | EN+13 |
>> ORVP | EN+6, EN1, EN1+4, EN1+5, EN1+6, EN1+7, EN2+5, SET+3, SET+7, SET+9 , SET+10 |
>> ORY | EN2+5, EN2+6 |
PAT | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7, ACTION+1~, ACTION+5*, ACTION+10, ACTION+11, ACTION+12, ACTION+16 , ACTION+17, ACTION+18 |
PATID | XX+12~, XX+23*, XX+25 |
PKG | EN+5~, EN+9*, EN+12, 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+14 |
REASON | ACTION~, ACTION+19 |
SIG | ACTION+1~, ACTION+5*, ACTION+14, ACTION+18 |
SIGNREQD | EN+5~, EN+7*, EN1, EN1+2, EN1+6 |
START | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7 |
STS | EN+5~, EN+10*, EN+18*, EN1+1, EN1+2, EN1+5, SET+3~, SET+5*, SET+7, SET+8 , SET+10 |
TOTAL | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6, ACTION+1~, ACTION+7*, ACTION+13*, ACTION+20 |
TRSPEC | EN+5~, EN+12*, EN+13*, EN1, SET+3~, SET+6*, SET+7 |
TXT | ACTION+1~, ACTION+6*, ACTION+14 |
TYPE | EN+5~, EN+15*, EN1+1, EN2+22, RESPONSE+1~, RESPONSE+5*, RESPONSE+10, RESPONSE+11, RESPONSE+12 |
U | XX+5, XX+8, XX+9, XX+15, XX+18, XX+19, XX+20, XX+22, XX+23, XX+24 , RN+6, RN+7, EN+7, EN+9, EN+10, EN+11, EN+15, EN1, EN1+1, EN1+2 , EN2+9, EN2+11, EN2+13, EN2+14, EN2+19, EN2+20, EN2+25, EN2+30, NEXTIFN+4, NEXTIFN+6 , RESPONSE+2, RESPONSE+8, RESPONSE+9, RESPONSE+13, R1+8, RESUME+5, PROVIDER+3, PROVIDER+4, ACTION+5, ACTION+6 , ACTION+7, ACTION+9, ACTION+10, ACTION+11, ACTION+12, ACTION+14, ACTION+20, SET+7, SET+12 |
USR | EN+5~, EN+16*, EN1, EN1+2 |
VALUE | RESPONSE+1~, RESPONSE+7*, RESPONSE+10*, RESPONSE+11, RESPONSE+12 |
WHEN | XX+12~, XX+24*, XX+25, ACTION~, ACTION+3*, ACTION+14, ACTION+15, ACTION+16, ACTION+17, ACTION+18 |
WHO | ACTION~, ACTION+3*, ACTION+14 |
X | EN+5~, EN1+12~, EN1+13*, EN1+14*, EN1+15, EN2+11*, EN2+13*, EN2+17*, EN2+18, EN2+19 , RESPONSE+1~, R1+1*, R1+5*, R1+6, R1+7, RESUME+3~, RESUME+4*, ACTION+1~, ACTION+5*, ACTION+6* , ACTION+9*, ACTION+10, ACTION+11, ACTION+12, SET+3~ |
Y | RESUME+3~, RESUME+6 |