- IB2P562 ;ALB/BG - SPECIAL INP BILLING MENU OPTION;3/21/16
- ;;2.0;INTEGRATED BILLING;**562**;21-MAR-94;Build 10
- ;;Per VA Directive 6402, this routine should not be modified
- ;
- ;References to ^XPDMENU supported by DBIA #1157
- Q
- ;
- ;Post-init routine to add menu to Main menu option
- ;
- ;
- N IBOM,IBMN,IBSYN,IBOPT
- 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
- . D ADD^XPDMENU(IBMN,IBOPT,IBSYN)
- D BMES^XPDUTL("Option added to Menu")
- Q
- ;
- LIST ;Options Info list
- ;;IB MT FIX/DISCH SPECIAL CASES;;IB MEANS TEST MENU;;SPFD
- ;;$$END
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB2P562 696 printed Feb 18, 2025@23:32:06 Page 2
- IB2P562 ;ALB/BG - SPECIAL INP BILLING MENU OPTION;3/21/16
- +1 ;;2.0;INTEGRATED BILLING;**562**;21-MAR-94;Build 10
- +2 ;;Per VA Directive 6402, this routine should not be modified
- +3 ;
- +4 ;References to ^XPDMENU supported by DBIA #1157
- +5 QUIT
- +6 ;
- +7 ;Post-init routine to add menu to Main menu option
- +8 ;
- +9 ;
- +1 NEW IBOM,IBMN,IBSYN,IBOPT
- +2 SET IBOM=""
- FOR IBOM=1:1
- SET IBMN=$PIECE($TEXT(LIST+IBOM),";;",3)
- SET IBOPT=$PIECE($TEXT(LIST+IBOM),";;",2)
- SET IBSYN=$PIECE($TEXT(LIST+IBOM),";;",4)
- if IBOM="$$END"!(IBMN="")
- QUIT
- Begin DoDot:1
- +3 DO ADD^XPDMENU(IBMN,IBOPT,IBSYN)
- End DoDot:1
- +4 DO BMES^XPDUTL("Option added to Menu")
- +5 QUIT
- +6 ;
- LIST ;Options Info list
- +1 ;;IB MT FIX/DISCH SPECIAL CASES;;IB MEANS TEST MENU;;SPFD
- +2 ;;$$END
- +3 ;