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

IB2P562.m

Go to the documentation of this file.
  1. IB2P562 ;ALB/BG - SPECIAL INP BILLING MENU OPTION;3/21/16
  1. ;;2.0;INTEGRATED BILLING;**562**;21-MAR-94;Build 10
  1. ;;Per VA Directive 6402, this routine should not be modified
  1. ;
  1. ;References to ^XPDMENU supported by DBIA #1157
  1. Q
  1. ;
  1. ;Post-init routine to add menu to Main menu option
  1. ;
  1. ;
  1. ADDMENU ;Add option to main menu
  1. N IBOM,IBMN,IBSYN,IBOPT
  1. S IBOM="" F IBOM=1:1 S IBMN=$P($TEXT(LIST+IBOM),";;",3),IBOPT=$P($TEXT(LIST+IBOM),";;",2),IBSYN=$P($TEXT(LIST+IBOM),";;",4) Q:IBOM="$$END"!(IBMN="") D
  1. . D ADD^XPDMENU(IBMN,IBOPT,IBSYN)
  1. D BMES^XPDUTL("Option added to Menu")
  1. Q
  1. ;
  1. LIST ;Options Info list
  1. ;;IB MT FIX/DISCH SPECIAL CASES;;IB MEANS TEST MENU;;SPFD
  1. ;;$$END
  1. ;