Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ORY397

ORY397.m

Go to the documentation of this file.

ORY397 ;ISP/RFR - TEMP CODE FOR PATCH OR*3.0*397 ;Aug 29, 2019@12:18

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**397**;Dec 17, 1997;Build 22

SENDDLG(ANAME) ; Return true if the current order dialog should be sent

 I ANAME="GMRCOR CONSULT" Q 1

 I ANAME="GMRCOR REQUEST" Q 1

Q 0

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY397   283     printed  Sep 23, 2025@20:18:03                                                                                                                                                                                                       Page 2

ORY397    ;ISP/RFR - TEMP CODE FOR PATCH OR*3.0*397 ;Aug 29, 2019@12:18

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**397**;Dec 17, 1997;Build 22

 +2        QUIT

SENDDLG(ANAME) ; Return true if the current order dialog should be sent

 +1        IF ANAME="GMRCOR CONSULT"

               QUIT 1

 +2        IF ANAME="GMRCOR REQUEST"

               QUIT 1

 +3        QUIT 0