BPSGRPL.m

BPSGRPL ;BHAM ISC/BNT - ECME USER SCREEN GROUP PLAN ;01-NOV-07

 ;;1.0;E CLAIMS MGMT ENGINE;**7**;JUN 2004;Build 46

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; Main entry from ECME User Screen - Further Research Menu

EN ;

 N BPSOP,BPRTN

 D FULL^VALM1

 S BPSOP=$$PROMPT^BPSSCRCV("S^EPLA:Edit PLAN APPLICATION Sub-file;MGP:Match Group Plan to a Pharmacy Plan;MMGP:Match Multiple Group Plans to a Pharmacy Plan","Select Group Plan menu Option","")

 I BPSOP="^" S VALMBCK="R" Q

 S BPRTN=$S(BPSOP="EPLA":"^IBCNRE4",BPSOP="MGP":"EN^IBCNRPMT",BPSOP="MMGP":"EN^IBCNRPM1",1:"")

 D:BPRTN]"" @BPRTN

 ;

 S VALMBCK="R"

 Q

 ;

EXIT Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSGRPL   665     printed  Apr 09, 2024@20:57:58                                                                                                                                                                                                      Page 2

BPSGRPL   ;BHAM ISC/BNT - ECME USER SCREEN GROUP PLAN ;01-NOV-07

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**7**;JUN 2004;Build 46

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; Main entry from ECME User Screen - Further Research Menu

EN        ;

 +1        NEW BPSOP,BPRTN

 +2        DO FULL^VALM1

 +3        SET BPSOP=$$PROMPT^BPSSCRCV("S^EPLA:Edit PLAN APPLICATION Sub-file;MGP:Match Group Plan to a Pharmacy Plan;MMGP:Match Multiple Group Plans to a Pharmacy Plan","Select Group Plan menu Option","")

 +4        IF BPSOP="^"

               SET VALMBCK="R"

               QUIT 

 +5        SET BPRTN=$SELECT(BPSOP="EPLA":"^IBCNRE4",BPSOP="MGP":"EN^IBCNRPMT",BPSOP="MMGP":"EN^IBCNRPM1",1:"")

 +6        if BPRTN]""

               DO @BPRTN

 +7       ;

 +8        SET VALMBCK="R"

 +9        QUIT 

 +10      ;

EXIT       QUIT