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 Dec 13, 2024@02:05:41 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 ;