Routine: HDISDOL

Information

HDISDOL ;BPFO/DTG - LOOK UP SDO CODES FOR ORDERABLE ITEMS; Apr 07, 2018@12:42

Source file <HDISDOL.m>

Name	Comments	DBIA/ICR reference
EN	; lookup orderable items for lab ; pick area
AREA	; only for Lab
ASK	; partial, all, or item
ALL	;get all of the orderable items for an area
SING	; single lookup select
PART	; enter partial name for lookup
P2
INFO	; Display message, clear screen
INFOQS	; display quick stats for data return
INFOL	; Display Lab message, clear screen
INFOO	; output quick stats
QUIT	; exit here
CHKO(HOI)	;check if order belongs to the correct area
GETNAM(A)	; get orderable item name if single order
GOTO	; ; display quick summary
TYPE	; determine output format
DEVICE
DASK	; double dare for local device if type is ALL
DISER	; display return error type
DISTXT	; error text

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Type Not Selected." Line Location: ASK+9
Function Call: WRITE	Prompt: !,*7,"Invalid Type Entered." Line Location: ASK+10
Function Call: WRITE	Prompt: !,*7,"Type Not Selected. Quiting" Line Location: ASK+15
Function Call: WRITE	Prompt: !,*7," Collecting SDO's",! Line Location: ALL+4
Function Call: WRITE	Prompt: *7,!,"Invalid Item" Line Location: SING+8
Function Call: WRITE	Prompt: *7,!,"Orderable Item NOT Associated to Selected Area: LABORATORY" Line Location: SING+13
Function Call: WRITE	Prompt: *7,!!," None of The Partial Matches Are Associated to The Selected Area: LABORATORY" Line Location: P2+0
Function Call: WRITE	Prompt: !,*7," Collecting SDO's",! Line Location: P2+2
Function Call: WRITE	Prompt: !,MSG(A) Line Location: INFOO+2
Function Call: WRITE	Prompt: !,*7,"Output Type Not Selected" Line Location: TYPE+9
Function Call: WRITE	Prompt: !,*7,"Valid Type Not Selected. Default to Report" Line Location: TYPE+10
Function Call: WRITE	Prompt: !,*7,"No Device Selected" Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,*7,"....Outputting...",!! Line Location: DEVICE+11

FileNo	Call Tags
^ORD(101.43 - [#101.43]	LIST^DIC
101.439	LIST^DIC