Routine: ORCMEDT1

Information

ORCMEDT1 ;SLC/MKB-QO,Set editor ;Aug 18, 2022@08:07

Name	Comments	DBIA/ICR reference
OI	; -- Enter/edit generic orderable items
DGRP()	; -- Returns sub-display group of Nursing or Other for generic OI
QUICK	; -- Enter/edit quick order dialogs
QCK0(ORQDLG)	; -- edit quick order ORQDLG
Q1
QQ
QR
OK(OK2PLACE)	; -- Ready to save?
SAVE
AUTO(DLG)	; -- set AutoAccept flag for GUI
SET	; -- Order Sets
SET0(ORSET)	; -- edit order set ORSET
S1
S2
PROTOCOL	; -- Convert additional protocols to dialogs
ONE(PITEM,ORADD,ERROR)	; -- Convert single item protocol, add to menu(s)
ADD
FINDXUTL(MENU,ITEM)	; -- Returns position of ITEM in MENU
MENU()	; -- Add converted item to menus?
EXPLAIN	;Give reason why user can't set auto-accept to yes
ISAPDLG(DA)	; Is order dialog ANATOMIC PATHOLOGY

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: OI+2
Function Call: WRITE	Prompt: ! Line Location: OI+3
Function Call: WRITE	Prompt: ! Line Location: QUICK+2
Function Call: WRITE	Prompt: ! Line Location: QCK0+10
Function Call: WRITE	Prompt: ! Line Location: SET+2
Function Call: WRITE	Prompt: !,"ORDER SET COMPONENTS:" Line Location: S1+1
Function Call: READ	Formatting: ! Prompt: "Press <return> to continue ..." Variable: X Timeout: DTIME Line Location: S1+6
Function Call: WRITE	Prompt: !?3,SEQ,?10,$P(^ORD(101.41,ITM,0),U) Line Location: S1+7
Function Call: WRITE	Prompt: ! Line Location: S2+0
Function Call: WRITE	Prompt: ! Line Location: PROTOCOL+2
Function Call: WRITE	Prompt: " done." Line Location: PROTOCOL+4
Function Call: WRITE	Prompt: " unable to convert.",!,">> "_$P(ORERR,U,2) Line Location: PROTOCOL+5
Function Call: WRITE	Prompt: "." Line Location: ADD+0
Function Call: WRITE	Prompt: !!,"The combination of VERIFY set to NO and ASK FOR ANOTHER ORDER set to",!,"YES, DON'T ASK and AUTO-ACCEPT set to YES is not allowed." Line Location: EXPLAIN+1
Function Call: WRITE	Prompt: !!,"This combination of settings could cause CPRS to enter into an infinite loop",!,"creating the same order over and over. If you wish to have" Line Location: EXPLAIN+2
Function Call: WRITE	Prompt: !,"AUTO-ACCEPT set to YES you must change one of the other two fields",!,"to a different value.",!!,"AUTO-ACCEPT is being set to NO for you." Line Location: EXPLAIN+3