Routine: ORWUL

Information

ORWUL ; SLC/KCM/JLI - Listview Selection ; JUN 18, 2024@15:40

Source file <ORWUL.m>

Name	Comments	DBIA/ICR reference
QV4DG(VAL,DGRP)	; return the quick order list, given a display group name
QV4NM(VAL,QVNAM)
QVSUB(LST,IEN,FIRST,LAST)
QODIS(IEN,SUB)	;Determines if personal quick order is disabled
QOPOS(QOIEN)	; Matching given IEN to Quick Order Shortname to determine piece position for file 101.43.
ORDITMCHK(IEN,ISMRK,SUB)	; Flag to determine if orderable item is marked for current pharmacy package. ; Returns 1 if ord. item not marked for pharmacy package. 0 if ord. item marked for current package. ; IEN - Quick View Display IEN
ORDINFCHK(IEN)	;Infusion/Clinic Infusion Orderable Item Check. Returns 1 if ord. item not marked for pharmacy package.
QVIDX(VAL,IEN,FROM)
FV4DG(VAL,DGNM)
FVSUB(LST,IEN,FIRST,LAST)
FVIDX(VAL,IEN,FROM)
FVBLDQ(DGNM,ATTEMPT)
FVBLD	; rebuild an ORWSET entry ; ATTEMPT, UPDTIME, DGNM expected in environment
FVBLDX	; -- clean up ^XTMP node
FVCLN	; clean up old set-type entries in the 101.44
QVSAVE(LVW,X,QLST)
MVRX	; move pharmacy quick orders into 101.44
MVALL	; move all quick order lists into 101.44
MVQO(DGNM)
ZCLEAN	; cleanup ORWDQ entries in Quick View file

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"deleting "_ANAM Line Location: ZCLEAN+4
Function Call: WRITE	Prompt: !,"rebuilding entries" Line Location: ZCLEAN+7

FileNo	Call Tags
^ORD(101.44 - [#101.44]	Classic Fileman Calls