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

IBONI022.m

Go to the documentation of this file.
IBONI022	; ; 21-MAR-1994
	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
	F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q	Q
	;;^UTILITY(U,$J,"PRO",922,10,4,"^")
	;;=IBCNSM ADD POLICY
	;;^UTILITY(U,$J,"PRO",922,10,5,0)
	;;=880^AB^14
	;;^UTILITY(U,$J,"PRO",922,10,5,"^")
	;;=IBCNSM UPDATE ANNUAL BENEFITS
	;;^UTILITY(U,$J,"PRO",922,10,6,0)
	;;=881^EI^23
	;;^UTILITY(U,$J,"PRO",922,10,6,"^")
	;;=IBCNSM UPDATE INS CO.
	;;^UTILITY(U,$J,"PRO",922,10,7,0)
	;;=882^WP^32
	;;^UTILITY(U,$J,"PRO",922,10,7,"^")
	;;=IBCNSM PRINT WORKSHEET
	;;^UTILITY(U,$J,"PRO",922,10,8,0)
	;;=883^PC^33
	;;^UTILITY(U,$J,"PRO",922,10,8,"^")
	;;=IBCNSM PRINT PATIENT INS
	;;^UTILITY(U,$J,"PRO",922,10,9,0)
	;;=884^VC^22
	;;^UTILITY(U,$J,"PRO",922,10,9,"^")
	;;=IBCNSM VERIFY INS
	;;^UTILITY(U,$J,"PRO",922,10,10,0)
	;;=904^DP^13
	;;^UTILITY(U,$J,"PRO",922,10,10,"^")
	;;=IBCNSM DELETE POLICY
	;;^UTILITY(U,$J,"PRO",922,10,11,0)
	;;=919^EA^14
	;;^UTILITY(U,$J,"PRO",922,10,11,"^")
	;;=IBCNSM EDIT ALL
	;;^UTILITY(U,$J,"PRO",922,10,12,0)
	;;=928^EX^34
	;;^UTILITY(U,$J,"PRO",922,10,13,0)
	;;=1081^PR^27
	;;^UTILITY(U,$J,"PRO",922,10,13,"^")
	;;=IBCNSM PERSONAL RIDERS
	;;^UTILITY(U,$J,"PRO",922,15)
	;;=I $G(IBFASTXT)=1 S VALMBCK="Q"
	;;^UTILITY(U,$J,"PRO",922,20)
	;;=
	;;^UTILITY(U,$J,"PRO",922,26)
	;;=D SHOW^VALM
	;;^UTILITY(U,$J,"PRO",922,28)
	;;=Select Action: 
	;;^UTILITY(U,$J,"PRO",922,99)
	;;=55886,42032
	;;^UTILITY(U,$J,"PRO",923,0)
	;;=IBCNSC INSURANCE CO^Insurance Company Edit^^M^^^^^^^^INTEGRATED BILLING
	;;^UTILITY(U,$J,"PRO",923,4)
	;;=26^4
	;;^UTILITY(U,$J,"PRO",923,10,0)
	;;=^101.01PA^13^13
	;;^UTILITY(U,$J,"PRO",923,10,1,0)
	;;=885^EA^25
	;;^UTILITY(U,$J,"PRO",923,10,1,"^")
	;;=IBCNSC INS CO EDIT ALL
	;;^UTILITY(U,$J,"PRO",923,10,2,0)
	;;=888^AO^21
	;;^UTILITY(U,$J,"PRO",923,10,2,"^")
	;;=IBCNSC INS CO APPEALS OFFICE
	;;^UTILITY(U,$J,"PRO",923,10,3,0)
	;;=889^IO^22
	;;^UTILITY(U,$J,"PRO",923,10,3,"^")
	;;=IBCNSC INS CO INQUIRY OFFICE
	;;^UTILITY(U,$J,"PRO",923,10,4,0)
	;;=887^MM^12
	;;^UTILITY(U,$J,"PRO",923,10,4,"^")
	;;=IBCNSC INS CO MAIN MAILING ADDRESS
	;;^UTILITY(U,$J,"PRO",923,10,5,0)
	;;=886^BP^11
	;;^UTILITY(U,$J,"PRO",923,10,5,"^")
	;;=IBCNSC INS CO BILLING PARAMETERS
	;;^UTILITY(U,$J,"PRO",923,10,6,0)
	;;=897^CC^32
	;;^UTILITY(U,$J,"PRO",923,10,6,1)
	;;=^/
	;;^UTILITY(U,$J,"PRO",923,10,6,"^")
	;;=IBCNSC INS CO CHANGE COMPANY
	;;^UTILITY(U,$J,"PRO",923,10,7,0)
	;;=899^RE^23
	;;^UTILITY(U,$J,"PRO",923,10,7,"^")
	;;=IBCNSC INS CO REMARKS
	;;^UTILITY(U,$J,"PRO",923,10,8,0)
	;;=900^SY^24
	;;^UTILITY(U,$J,"PRO",923,10,8,"^")
	;;=IBCNSC INS CO SYNONYMS
	;;^UTILITY(U,$J,"PRO",923,10,9,0)
	;;=901^AI^31
	;;^UTILITY(U,$J,"PRO",923,10,9,"^")
	;;=IBCNSC INS CO (IN)ACTIVATE COMPANY
	;;^UTILITY(U,$J,"PRO",923,10,10,0)
	;;=920^IC^13
	;;^UTILITY(U,$J,"PRO",923,10,10,"^")
	;;=IBCNSC INS CO INPT CLAIMS
	;;^UTILITY(U,$J,"PRO",923,10,11,0)
	;;=921^OC^14
	;;^UTILITY(U,$J,"PRO",923,10,11,"^")
	;;=IBCNSC INS CO OPT CLAIMS
	;;^UTILITY(U,$J,"PRO",923,10,12,0)
	;;=1102^PC^15
	;;^UTILITY(U,$J,"PRO",923,10,12,"^")
	;;=IBCNSC INS CO RX CLAIMS
	;;^UTILITY(U,$J,"PRO",923,10,13,0)
	;;=1103^EX^33
	;;^UTILITY(U,$J,"PRO",923,10,13,"^")
	;;=IBCNS QUIT
	;;^UTILITY(U,$J,"PRO",923,15)
	;;=I $G(IBFASTXT)=1 S VALMBCK="Q"
	;;^UTILITY(U,$J,"PRO",923,24)
	;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)
	;;^UTILITY(U,$J,"PRO",923,25)
	;;=
	;;^UTILITY(U,$J,"PRO",923,26)
	;;=D SHOW^VALM
	;;^UTILITY(U,$J,"PRO",923,28)
	;;=Select Action: 
	;;^UTILITY(U,$J,"PRO",923,99)
	;;=55907,38188
	;;^UTILITY(U,$J,"PRO",924,0)
	;;=IBCNSP POLICY MENU^Insurance Policy Menu^^M^^^^^^^^INTEGRATED BILLING
	;;^UTILITY(U,$J,"PRO",924,4)
	;;=26^4
	;;^UTILITY(U,$J,"PRO",924,10,0)
	;;=^101.01PA^12^12
	;;^UTILITY(U,$J,"PRO",924,10,1,0)
	;;=890^PI^11