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 |