Routine: ORWLRAP2

Information

ORWLRAP2 ;SLC/JNM - ANATOMIC PATHOLOGY DIALOG SUPPORT ROUTINES ;Jul 13, 2022@08:14:55

Name	Comments	DBIA/ICR reference
GETDLGIEN()	; Returns the 101.45 IEN for the current quick order
ASKPROMPT(PROMPTID)	; Allow prompt selection in quick order ; PROMPTID: ; OPURG:URGENCY ; OPCDT:COLLECTION DATE/TIME ; OPSSB:SPECIMEN SUBMITTED BY ; OPCTY:COLLECTION TYPE ; OPHOF:HOW OFTEN ; OPSPH:SURGEON/PROVIDER ; OPODC:ORDER COMMENT
GETPAGECODES(CODE)	;
ASKPAGE(PAGEID)	; Allow page selection in quick order
ALLOWSPEC(SPEC)	; Allow specimens
GETCOUNT(IDX)	; Get the count of the spcific prompt
SHOWCOUNT(COUNT,DESC)	; Show count line
ISINVALID()	; Validate AP Dialog quick order before saving
PROMPTINFO(TYPE)	; Returns item info from the LR OTHER LAB AP TESTS order dialog ; Return Data = AP Dlg IEN^Item Multiple IEN^Child Dlg IEN
ISTEXT(LABIEN,PROMPTIEN)	;
OK2DELETE(DEFAULT)	;
GETDEFAULT(LABIEN,PROMPTIEN)	; Used by Input Template OR AP DIALOG EDIT TEMPLATE
GETPAGEID(LABIEN,PAGEIEN)	; Used by Input Template OR AP DIALOG EDIT TEMPLATE
GETPAGENAME(LABIEN,PAGEIEN,TYPE)	; Used by Input Template OR AP DIALOG EDIT TEMPLATE

Name	Line Occurrences
Function Call: WRITE	Prompt: " * "_COUNT_" "_DESC_SS_" found"_ZMSG_".",?SIZE,"*",! Line Location: SHOWCOUNT+3
Function Call: WRITE	Prompt: !,$C(7)," "_$$REPEAT^XLFSTR("*",SIZE+2),! Line Location: ISINVALID+13
Function Call: WRITE	Prompt: " * Anatomic Pathology Quick Order is not valid!",?SIZE,"*",! Line Location: ISINVALID+14
Function Call: WRITE	Prompt: " *",?SIZE,"*",! Line Location: ISINVALID+15
Function Call: WRITE	Prompt: " *",?SIZE,"*",! Line Location: ISINVALID+19
Function Call: WRITE	Prompt: " * The same number of Collection Samples, Specimens",?SIZE,"*",! Line Location: ISINVALID+20
Function Call: WRITE	Prompt: " * and Specimen Descriptions are required!",?SIZE,"*",! Line Location: ISINVALID+21
Function Call: WRITE	Prompt: " "_$$REPEAT^XLFSTR("*",SIZE+2),! Line Location: ISINVALID+22
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: OK2DELETE+8