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

ORY332.m

Go to the documentation of this file.

ORY332 ;;SLCOIFO - Pre and Post-init for patch OR*3*332

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**332**;;Build 44

PRE ;Pre-Init Entry Point

 D PARVAL

POST ;Post-Init Entry Point

PARVAL ;Set Param Val

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

 I ANAME="VBEC BLOOD BANK" Q 1

Q 0

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY332   330     printed  Apr 09, 2024@21:33:52                                                                                                                                                                                                       Page 2

ORY332    ;;SLCOIFO - Pre and Post-init for patch OR*3*332

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**332**;;Build 44

 +2       ;

PRE       ;Pre-Init Entry Point

 +1        DO PARVAL

 +2        QUIT

POST      ;Post-Init Entry Point

 +1        QUIT

PARVAL    ;Set Param Val

 +1        QUIT

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

 +1        IF ANAME="VBEC BLOOD BANK"

               QUIT 1

 +2        QUIT 0