Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORCSAVE

Package: Order Entry Results Reporting

Routine: ORCSAVE


Information

ORCSAVE ;SLC/MKB/JDL-Save ;Dec 02, 2021@13:09:37

Source Information

Source file <ORCSAVE.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Order Entry Results Reporting 6 $$INPT^ORCD  ORDTEXT^ORCSAVE1  (AUDORDXX,CSVALUE)^ORDEA  ORCAN^ORNORC  (DELOCC,SAVEOC)^OROCAPI1  PKI^ORWDPS1  
VA FileMan 3 ^DIC  FIELD^DID  $$GET1^DIQ  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
Order Entry Results Reporting 31 OR3C100  ORCACT2  ORCACT4  ORCDFH  ORCDFHO  ORCDFHTF  ORCDLG  ORCMED  
ORCONV3  ORCSEND  ORCSEND2  ORCSEND3  ORMBLDSD  ORMEVNT1  ORMFH  ORMFH1  
ORMGMRC  ORMLR  ORMLR1  ORMPS  ORMPS2  ORMPS3  ORMRA  ORMSD  
ORMVBEC  ORWD  ORWDFH  ORWDX3  ORWDXA  ORWDXM  ORWDXR  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] FIELD^DID
^DIC(9.4 - [#9.4] GET1^DIQ

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$NEXTIFN EN+18, SET+4
EN NEW+2, XX+7, RN+5
EN2 EN+11
RESPONSE EN2

Naked Globals

Name Field # of Occurrence
^( R1+1
^(0 RESPONSE+2, ACTION+5
^(1 SET+8*, SET+12*
^(3 XX+6, XX+9*, RN+6*, EN+11, ACTION+5, SET+7*
^(4.5 RESPONSE+2!
^(5 XX+10, RN+7
^(8 XX+6, ACTION+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CATG EN+5~, EN+8*, EN1EN2+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*, EN1EN1+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*, EN1EN1+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, EN1EN1+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, EN1EN1+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*
EN1EN1+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 EN1EN1+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, EN1EN1+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, EN1EN2+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*, EN1EN1+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, EN1EN1+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*, EN1EN1+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All