Routine: ORNORC

Information

ORNORC ; SLC/AJB - New Order Checks for Cancelled Orders ;Mar 03, 2023@13:15:07

Package	Total	Call Graph
VA FileMan	7	^%DT ^DIC ($$GET1,FILE)^DID (UPDATE,WP)^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
Kernel	4	($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT $$REPLACE^XLFSTR EN^XQORM EN^XUTMDEVQ
Order Entry Results Reporting	3	GETXTRA^ORCHECK GETOC2^OROCAPI1 EN^OROCLM

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORCSAVE ORK CANCELLED ORDER CHK VIEW ORNORC CANCEL OROCLM ORWDX3 ORWDXA ORWDXC

Entry Points

Name	Comments	DBIA/ICR reference
CANCEL(CHECKS,DFN,PACKAGE,LOC,DATA,STRT)	; capture a cancelled order
DELORC(ORVP,ORDIALOG)	; delete order checks from 100.3/avoid duplication in 100 & 100.05
ORCAN(ORIEN,OCC)	; order has been cancelled/changed after acceptance
EN	; main entry for creating a delimited report via HOST FILE or displaying CANCELLED ORDERS via ListManager
SETUP(SRCH)	; user required input for search parameters
LM	;
FIND(SRCH,LOC)	;
MATCH(INDEX,SRCHCRIT,DATA)	;
FLU(FILE)	; file lookup
SRCHCRIT(Y,PARAM,DEFAULT,MENU,PROMPT)	; get search criteria using menu & actions from the protocol file
REPORT(LOC)	; writes the data for the host file(s)
GODATA(FILE,IEN,STRT)	; get and output the file data
FILEDD(FILENUM)	; establishes file/field sequence via the data dictionary ; IA #999 ; FCNT,SEQ must be set prior to calling
HDR	; write field names for the column headers
QM(DATA,QM)	; for excel importing as csv, replace a single double quote with two double quotes

External References

Name	Field # of Occurrence
^%DT	LM+3
^DIC	FLU+4
$$GET1^DID	GODATA+12, GODATA+15, GODATA+19, GODATA+21, GODATA+24, HDR+11
FILE^DID	FLU+2, HDR+3
UPDATE^DIE	CANCEL+14, CANCEL+27, CANCEL+38, ORCAN+9, ORCAN+14, ORCAN+20
WP^DIE	CANCEL+39, CANCEL+41
^DIK	DELORC+10
$$GET1^DIQ	REPORT+13
GETS^DIQ	ORCAN+11, ORCAN+16, FIND+8, FIND+14, GODATA+3
^DIR	SETUP+8, LM+6, LM+9
GETXTRA^ORCHECK	CANCEL+37
GETOC2^OROCAPI1	ORCAN+2, FIND+12, REPORT+15
EN^OROCLM	EN+15
$$DT^XLFDT	CANCEL+4, CANCEL+44, CANCEL+45, DELORC+4, LM+2, LM+4, LM+5
$$FMADD^XLFDT	CANCEL+44, LM+2
$$FMTE^XLFDT	LM+2, LM+5
$$NOW^XLFDT	CANCEL+7, ORCAN+4
$$REPLACE^XLFSTR	QM+1
EN^XQORM	SRCHCRIT+5
EN^XUTMDEVQ	EN+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !!,"Search parameter entry aborted.",! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+12
Function Call: WRITE	Prompt: !!,"Task #",ZTSK Line Location: EN+13
Function Call: WRITE	Prompt: !!,"Your report will be located:",!!,$P(SRCH("DLM"),U),$P(SRCH("DLM"),U,2) Line Location: SETUP+11
Function Call: WRITE	Prompt: ! Line Location: LM+3
Function Call: WRITE	Prompt: ! Line Location: LM+14
Function Call: WRITE	Prompt: ! Line Location: LM+20
Function Call: WRITE	Prompt: ! Line Location: LM+22
Function Call: WRITE	Prompt: ! Line Location: LM+24
Function Call: WRITE	Prompt: ! Line Location: LM+26
Function Call: WRITE	Prompt: $C(182) Line Location: REPORT+18
Function Call: WRITE	Prompt: $C(182) Line Location: REPORT+20
Function Call: WRITE	Prompt: $C(182) Line Location: REPORT+21
Function Call: WRITE	Prompt: $$QM(DATA(FN,SIEN,FLD,NUM)) Line Location: GODATA+14
Function Call: WRITE	Prompt: ! Condition for execution: +$O(DATA(FN,SIEN,FLD,NUM)) Line Location: GODATA+14
Function Call: WRITE	Prompt: $C(34) Line Location: GODATA+18
Function Call: WRITE	Prompt: DELIM Line Location: GODATA+19
Function Call: WRITE	Prompt: $$QM("") Line Location: GODATA+22
Function Call: WRITE	Prompt: DELIM Line Location: GODATA+23
Function Call: WRITE	Prompt: $$QM("") Line Location: GODATA+25
Function Call: WRITE	Prompt: DELIM Line Location: GODATA+26
Function Call: WRITE	Prompt: X,! Line Location: HDR+6
Function Call: WRITE	Prompt: $$QM($$GET1^DID(FN,FLD,,"LABEL"),1) Line Location: HDR+11
Function Call: WRITE	Prompt: DELIM Line Location: HDR+11
Routine Call	DIC Line Location: FLU+4
Routine Call	DIE Line Location: CANCEL+14 CANCEL+27 CANCEL+38 ORCAN+9 ORCAN+14 ORCAN+20
Routine Call	DIE Line Location: CANCEL+39 CANCEL+41
Routine Call	DIR Line Location: SETUP+8 LM+6 LM+9

Used in RPC

RPC Name	Call Tags
ORNORC CANCEL	CANCEL

FileNo	Call Tags
^OR(100 - [#100]	GETS^DIQ
^ORD(100.05 - [#100.05]	GETS^DIQ
^OR(100.3 - [#100.3]	Classic Fileman Calls, GET1^DIQ, WP^DIE
100.32	WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FILEDD+3, FILEDD+4
^OR(100.3 - [#100.3]	CANCEL+17, CANCEL+18, FIND+1
^ORD(101 - [#101]	SRCHCRIT+2
^TMP("ORCHK"	EN+3
^XTMP("ORCHECK-"	CANCEL+4, CANCEL+44, CANCEL+45, DELORC+2, DELORC+5, DELORC+9, DELORC+11!

Label References

Name	Line Occurrences
$$FLU	LM+14, LM+20, LM+22, LM+24, LM+26
$$MATCH	FIND+19
$$QM	GODATA+14, GODATA+15, GODATA+22, GODATA+25, HDR+11
$$SRCHCRIT	LM+11, LM+16, LM+28
FILEDD	REPORT+7, GODATA+5, FILEDD+7
FIND	EN+6
GODATA	REPORT+12, REPORT+14, REPORT+18, REPORT+20
HDR	REPORT+9
SETUP	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LM+2~*, LM+3!
%DT("A"	LM+2*
%DT("B"	LM+2*
%DT(0	LM+2*
%ZIS	EN+8~, EN+10*, EN+12
BDT	FIND+1~, FIND+2*
CHECKS	CANCEL~
CHECKS(	CANCEL+29, CANCEL+31, CANCEL+32, CANCEL+33
CNT	REPORT+16~, REPORT+18, GODATA+7~, GODATA+10, GODATA+11, GODATA+17, GODATA+20, HDR+1~, HDR+2, HDR+4 , HDR+5
CONT	EN+2~, EN+3, EN+5, LM+9, LM+12, LM+13, LM+15, LM+19, LM+21, LM+23 , LM+25, LM+27, LM+28*
DA	DELORC+10~*
DATA	CANCEL~, CANCEL+30~, CANCEL+37, ORCAN+11~, ORCAN+16~, FIND+3~, MATCH~, MATCH+1, MATCH+6, MATCH+8 , MATCH+9, GODATA+1~, QM~, QM+1*, QM+2
DATA(	CANCEL+19, CANCEL+21, CANCEL+22, CANCEL+23, CANCEL+24, CANCEL+25, CANCEL+26, ORCAN+12, ORCAN+13, ORCAN+17 , ORCAN+18, ORCAN+19, FIND+19, GODATA+8, GODATA+9, GODATA+13, GODATA+14, GODATA+15, GODATA+16
DATA("CDL"	FIND+13, FIND+16
DATA("LOCATION"	FIND+9*
DATA("ORDCHECK"	FIND+13, FIND+15
DATA("ORDITEM"	FIND+10, FIND+11
DATA("PATIENT"	FIND+9*
DATA("USER"	FIND+9*
DATA1	FIND+7~, FIND+10*, FIND+11
DATA1(	FIND+10, FIND+11, FIND+15, FIND+16
DATA1(100	FIND+9
DEFAULT	SRCHCRIT~, SRCHCRIT+4
DELIM	REPORT+2~*, GODATA+19, GODATA+23, GODATA+26, HDR+5, HDR+11
DFN	CANCEL~, CANCEL+4, CANCEL+8, CANCEL+45, ORCAN+5
DIC	FLU+1~, FLU+3*
DIC("A"	FLU+3*
DIC(0	FLU+3*
DIK	DELORC+10~*
DIR	SETUP+1~, LM+2~
DIR("?"	LM+5*
DIR("A"	SETUP+3, LM+4, LM+8*
DIR("B"	SETUP+3, LM+4, LM+8*
DIR("L"	SETUP+4, SETUP+5, SETUP+6, SETUP+7
DIR(0	SETUP+2, LM+4, LM+8*
>> DIRUT	LM+9
DSC	EN+8~, EN+11*, EN+12
DT	LM+2
>> DUOUT	LM+9
DUZ	CANCEL+4, CANCEL+9, CANCEL+44, CANCEL+45, DELORC+2, DELORC+5, DELORC+9, DELORC+11, ORCAN+6
FCNT	REPORT+1~, REPORT+7, FILEDD+8, HDR+2*, HDR+4, HDR+5
FCNT(	REPORT+7*, HDR+2, HDR+4, HDR+5
FILE	FLU~, FLU+2, GODATA~, GODATA+3, GODATA+5, HDR+1~, HDR+2*, HDR+3, HDR+4, HDR+5
FILENUM	FILEDD~, FILEDD+3, FILEDD+4, FILEDD+6, FILEDD+8
FINFO	FLU+1~
FINFO("GLOBAL	NAME" , FLU+3
FINFO("NAME"	FLU+3
FLD	GODATA+2~, GODATA+6, GODATA+9, GODATA+12, GODATA+13, GODATA+14, GODATA+15, GODATA+19, GODATA+21, GODATA+24 , FILEDD+2~, FILEDD+3, FILEDD+4, FILEDD+6, FILEDD+8, HDR+8~, HDR+9, HDR+10, HDR+11
FLDORD	REPORT+1~, REPORT+9!, GODATA+1~
FLDORD(	GODATA+6, GODATA+19, GODATA+21, GODATA+23, GODATA+24, GODATA+26, FILEDD+6, FILEDD+8, HDR+9, HDR+10 , HDR+11
FN	GODATA+2~, GODATA+6, GODATA+8, GODATA+9, GODATA+12, GODATA+13, GODATA+14, GODATA+15, GODATA+16, GODATA+19 , GODATA+21, GODATA+24, HDR+8~, HDR+9, HDR+10, HDR+11
GBL	FIND+1~*, FIND+2, FIND+5, FIND+6, MATCH+2, MATCH+5, MATCH+7
I	SRCHCRIT+1~
IEN	CANCEL+30~, ORCAN+11~, ORCAN+12, ORCAN+13, ORCAN+16~, FIND+1~, FIND+2, FIND+5, FIND+6, FIND+22 , MATCH+2, MATCH+5, MATCH+7, REPORT+1~, REPORT+10, REPORT+12, REPORT+13, GODATA~, GODATA+3*
IEN(1	CANCEL+39
INDEX	MATCH~, MATCH+2, MATCH+4, MATCH+5, MATCH+7, MATCH+8
IOF	EN+1
IOM	REPORT+1~*
IOP	EN+8~
JOB	DELORC+3~, DELORC+4*, DELORC+5, DELORC+9, DELORC+11
LOC	CANCEL~, CANCEL+10, DELORC+1~, DELORC+7, DELORC+8, EN+2~, EN+3, EN+6, EN+15, EN+16 , FIND~, FIND+22, REPORT~, REPORT+10, REPORT+22
MATCH	FIND+3~, FIND+19, FIND+20*, FIND+21
MENU	SRCHCRIT~, SRCHCRIT+2
NAME	HDR+3~
NAME("NAME"	HDR+5
NODE	FILEDD+2~, FILEDD+3
NODE0	FILEDD+4~*, FILEDD+5, FILEDD+6, FILEDD+7
NUM	CANCEL+19~, CANCEL+20, CANCEL+21, CANCEL+22, CANCEL+23, CANCEL+24, CANCEL+25, CANCEL+26, CANCEL+29, CANCEL+31 , CANCEL+32, CANCEL+33, DELORC+3~, DELORC+7, DELORC+8, GODATA+13~, GODATA+14
OCC	ORCAN~, ORCAN+7
OIEN	FIND+6~*, FIND+8, FIND+9, FIND+12, FIND+13, FIND+15, FIND+16
ORCHECK	DELORC+3~, DELORC+5*, DELORC+6, DELORC+9, DELORC+10
ORCHK	ORCAN+1~, ORCAN+2, ORCAN+15, ORCAN+16, ORCAN+17, ORCAN+18, ORCAN+19, FIND+7~, FIND+12, FIND+13 , FIND+14, FIND+15, FIND+16, REPORT+11~, REPORT+15, REPORT+16*, REPORT+18, REPORT+20
ORCHK(	ORCAN+15, FIND+13, FIND+15, FIND+16, REPORT+16
ORDATA	CANCEL+1~, CANCEL+27, ORCAN+3~, ORCAN+13~, ORCAN+16~
ORDATA(	CANCEL+7, CANCEL+8, CANCEL+9, CANCEL+10, CANCEL+11, CANCEL+12, CANCEL+13, CANCEL+22, CANCEL+25, CANCEL+31 , CANCEL+32, CANCEL+33, CANCEL+34, CANCEL+35, CANCEL+36, CANCEL+37, ORCAN+4, ORCAN+5, ORCAN+6, ORCAN+7* , ORCAN+8, ORCAN+13, ORCAN+17, ORCAN+18, ORCAN+19*
ORDER	REPORT+11~, REPORT+13*, REPORT+14, REPORT+15, REPORT+16
ORDIALOG	DELORC~, DELORC+1
ORDITM	CANCEL+1~, CANCEL+16, CANCEL+17, CANCEL+18
ORDT	DELORC+3~, DELORC+4*, DELORC+5, DELORC+9
ORIEN	CANCEL+1~, ORCAN~, ORCAN+2, ORCAN+8, ORCAN+11, ORCAN+15
ORIEN(1	CANCEL+2, CANCEL+4, CANCEL+5, CANCEL+6!, CANCEL+17, CANCEL+18, CANCEL+22, CANCEL+25, CANCEL+31, CANCEL+32 , CANCEL+33, CANCEL+34, CANCEL+35, CANCEL+36, CANCEL+37, CANCEL+39, CANCEL+41, CANCEL+43, CANCEL+45, ORCAN+13 , ORCAN+17, ORCAN+18, ORCAN+19
ORIENS	CANCEL+1~
ORITEMS	CANCEL+1~, CANCEL+2, CANCEL+18, CANCEL+21, CANCEL+23, CANCEL+24, CANCEL+26, CANCEL+45, DELORC+3~, DELORC+7* , DELORC+8*, DELORC+9
ORMSG	CANCEL+1~, CANCEL+14, CANCEL+27, CANCEL+38, CANCEL+39, ORCAN+3~, ORCAN+9
ORVP	DELORC~, DELORC+1*, DELORC+5, DELORC+9, DELORC+11
ORXTRA	CANCEL+30~, CANCEL+35*, CANCEL+37
PACKAGE	CANCEL~, CANCEL+12
PARAM	SRCHCRIT~, SRCHCRIT+4
PIECE	FILEDD+2~, FILEDD+3
POP	EN+2~, EN+8~, SETUP+1~
PROMPT	SRCHCRIT~, SRCHCRIT+4
QM	QM~, QM+2
RTN	EN+8~, EN+11*, EN+12
SEQ	REPORT+1~, REPORT+7, GODATA+6, GODATA+19, GODATA+21, GODATA+23, GODATA+24, GODATA+26, FILEDD+6, FILEDD+8 , HDR+8~, HDR+9*, HDR+10, HDR+11
SIEN	GODATA+7~, GODATA+8, GODATA+9, GODATA+13, GODATA+14, GODATA+15, GODATA+16
SRCH	EN+2~, EN+4, EN+6, EN+15, SETUP~, FIND~, FIND+17*, FIND+18, FIND+19
SRCH(	FIND+17, FIND+19, MATCH+2
SRCH("ADATE"	LM+1, LM+3*, LM+4, LM+5, FIND+2
SRCH("BDATE"	LM+1, LM+6*, FIND+2
SRCH("CDL"	LM+27, LM+29, LM+30*
SRCH("DLM"	EN+7, SETUP+9*
SRCH("LOCATION"	LM+13, LM+14*
SRCH("OCCURRENCE"	LM+15, LM+17, LM+18*, FIND+5
SRCH("ORDCHECK"	LM+25, LM+26*
SRCH("ORDITEM"	LM+23, LM+24*
SRCH("PATIENT"	LM+19, LM+20*
SRCH("USER"	LM+21, LM+22*
SRCHCRIT	SETUP+1~, LM+11, LM+12, LM+13, LM+15, LM+16~, LM+17, LM+18, LM+19, LM+21 , LM+23, LM+25, LM+27, LM+28~*, LM+29, LM+30, MATCH~, MATCH+1, MATCH+4, MATCH+5 , MATCH+6, MATCH+7, MATCH+9
SRCHCRIT(	LM+13, LM+15, LM+18, LM+19, LM+21, LM+23, LM+25, LM+27, LM+30
STRT	CANCEL~, CANCEL+13, GODATA~, GODATA+4
U	CANCEL+18, CANCEL+23, CANCEL+24, CANCEL+25, CANCEL+26, CANCEL+31, CANCEL+32, CANCEL+33, CANCEL+44, DELORC+8 , LM+4, LM+18, LM+30, FIND+11, FIND+15, FIND+16, FIND+19, FIND+20, MATCH+4, MATCH+5 , MATCH+6, MATCH+7, MATCH+9, FILEDD+5, FILEDD+6, FILEDD+7
X	EN+2~, SETUP+1~, LM+2~, LM+12, LM+13, LM+15, LM+16~, LM+17, LM+18, LM+19* , LM+21, LM+23, LM+25, LM+27, LM+28~, LM+29, LM+30, MATCH+3~, MATCH+4, MATCH+5 , MATCH+6, MATCH+7, MATCH+8, MATCH+9, FLU+1~, SRCHCRIT+1~, REPORT+7~, HDR+1~, HDR+5, HDR+6 , QM+1~
X(""""	QM+1*
XQORM	SRCHCRIT+1~, SRCHCRIT+2*, SRCHCRIT+3
XQORM("A"	SRCHCRIT+4*
XQORM("B"	SRCHCRIT+4*
XQORM(0	SRCHCRIT+4*
Y	EN+2~, SETUP+1~, SETUP+8, SETUP+9, LM+2~, LM+3, LM+6, LM+9, MATCH+3~, MATCH+5 , MATCH+6, MATCH+7, MATCH+9*, MATCH+10, FLU+1~, FLU+5, SRCHCRIT~, SRCHCRIT+6
ZTSAVE	EN+8~, EN+12
ZTSAVE("JOB"	EN+9*
ZTSAVE("LOC"	EN+9*
ZTSAVE("SRCH"	EN+9*
ZTSK	EN+8~, EN+13

Customize PDF page

Package: Order Entry Results Reporting