ORY309.m

ORY309 ;;SLCOIFO - Pre and Post-init for patch OR*3*309

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**309**;;Build 26

 ;

PRE ;Pre-Init Entry Point

 D PARVAL

 Q

POST ;Post-Init Entry Point

 Q

PARVAL ;Set Param Val

 N X

 S X=$$GET^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","OR VBECS LEGACY REPORT",1)

 I X'="0" D EN^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","OR VBECS LEGACY REPORT",1,"1")

 Q

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 ---ORY309   506     printed  Apr 09, 2024@21:36:20                                                                                                                                                                                                       Page 2

ORY309    ;;SLCOIFO - Pre and Post-init for patch OR*3*309

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**309**;;Build 26

 +2       ;

PRE       ;Pre-Init Entry Point

 +1        DO PARVAL

 +2        QUIT 

POST      ;Post-Init Entry Point

 +1        QUIT 

PARVAL    ;Set Param Val

 +1        NEW X

 +2        SET X=$$GET^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","OR VBECS LEGACY REPORT",1)

 +3        IF X'="0"

               DO EN^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","OR VBECS LEGACY REPORT",1,"1")

 +4        QUIT 

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

 +1        IF ANAME="VBEC BLOOD BANK"

               QUIT 1

 +2        QUIT 0