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

IBONI032.m

Go to the documentation of this file.
  1. IBONI032 ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,"PRO",999,99)
  1. ;;=55760,74724
  1. ;;^UTILITY(U,$J,"PRO",1000,0)
  1. ;;=IBTRC QUICK EDIT^Quick Edit^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1000,20)
  1. ;;=D QE^IBTRC1
  1. ;;^UTILITY(U,$J,"PRO",1000,99)
  1. ;;=55760,74724
  1. ;;^UTILITY(U,$J,"PRO",1001,0)
  1. ;;=IBTRC VIEW/EDIT^View/Edit Ins. Review^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1001,10,0)
  1. ;;=^101.01PA^0^0
  1. ;;^UTILITY(U,$J,"PRO",1001,20)
  1. ;;=D NX^IBTRC1("IBT EXPAND/EDIT COMMUNICATIONS")
  1. ;;^UTILITY(U,$J,"PRO",1001,99)
  1. ;;=55760,74724
  1. ;;^UTILITY(U,$J,"PRO",1002,0)
  1. ;;=IBTRC APPEAL/DENIALS^Appeals Edit^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1002,15)
  1. ;;=D BLD^IBTRC
  1. ;;^UTILITY(U,$J,"PRO",1002,20)
  1. ;;=D NX^IBTRCD1("IBT APPEAL/DENIAL EDITOR",1)
  1. ;;^UTILITY(U,$J,"PRO",1002,99)
  1. ;;=55760,74724
  1. ;;^UTILITY(U,$J,"PRO",1003,0)
  1. ;;=IBTRCD MENU^Insurance Actions Menu^^M^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1003,4)
  1. ;;=26^4
  1. ;;^UTILITY(U,$J,"PRO",1003,10,0)
  1. ;;=^101.01PA^12^12
  1. ;;^UTILITY(U,$J,"PRO",1003,10,1,0)
  1. ;;=1006^AA^11
  1. ;;^UTILITY(U,$J,"PRO",1003,10,1,"^")
  1. ;;=IBTRCD APPEAL INFO
  1. ;;^UTILITY(U,$J,"PRO",1003,10,2,0)
  1. ;;=1007^CI^12
  1. ;;^UTILITY(U,$J,"PRO",1003,10,2,"^")
  1. ;;=IBTRCD CONTACT INFO
  1. ;;^UTILITY(U,$J,"PRO",1003,10,3,0)
  1. ;;=1004^IU^21
  1. ;;^UTILITY(U,$J,"PRO",1003,10,3,"^")
  1. ;;=IBTRCD INSURANCE INFO
  1. ;;^UTILITY(U,$J,"PRO",1003,10,4,0)
  1. ;;=1005^AI^22
  1. ;;^UTILITY(U,$J,"PRO",1003,10,4,"^")
  1. ;;=IBTRCD ACTION INFO
  1. ;;^UTILITY(U,$J,"PRO",1003,10,5,0)
  1. ;;=1008^AC^31
  1. ;;^UTILITY(U,$J,"PRO",1003,10,5,"^")
  1. ;;=IBTRCD COMMENT INFO
  1. ;;^UTILITY(U,$J,"PRO",1003,10,6,0)
  1. ;;=1009^VP^32
  1. ;;^UTILITY(U,$J,"PRO",1003,10,6,"^")
  1. ;;=IBTRCD EDIT PT. INS.
  1. ;;^UTILITY(U,$J,"PRO",1003,10,7,0)
  1. ;;=927^EX^41
  1. ;;^UTILITY(U,$J,"PRO",1003,10,7,"^")
  1. ;;=IBCNS EXIT
  1. ;;^UTILITY(U,$J,"PRO",1003,10,8,0)
  1. ;;=1042^DU^35
  1. ;;^UTILITY(U,$J,"PRO",1003,10,8,"^")
  1. ;;=IBTRCD DIAGNOSIS UPDATE
  1. ;;^UTILITY(U,$J,"PRO",1003,10,9,0)
  1. ;;=1049^PU^36
  1. ;;^UTILITY(U,$J,"PRO",1003,10,9,"^")
  1. ;;=IBTRCD PROCEDURE UPDATE
  1. ;;^UTILITY(U,$J,"PRO",1003,10,10,0)
  1. ;;=1055^PV^37
  1. ;;^UTILITY(U,$J,"PRO",1003,10,10,"^")
  1. ;;=IBTRCD PROVIDER UPDATE
  1. ;;^UTILITY(U,$J,"PRO",1003,10,11,0)
  1. ;;=1061^CS^14
  1. ;;^UTILITY(U,$J,"PRO",1003,10,11,"^")
  1. ;;=IBTRCD STATUS CHANGE
  1. ;;^UTILITY(U,$J,"PRO",1003,10,12,0)
  1. ;;=1079^RW^39
  1. ;;^UTILITY(U,$J,"PRO",1003,10,12,"^")
  1. ;;=IBTRC PRINT REV WORKSHEET
  1. ;;^UTILITY(U,$J,"PRO",1003,15)
  1. ;;=I $G(IBFASTXT)=1 S VALMBCK="Q"
  1. ;;^UTILITY(U,$J,"PRO",1003,26)
  1. ;;=D SHOW^VALM
  1. ;;^UTILITY(U,$J,"PRO",1003,28)
  1. ;;=Select Action:
  1. ;;^UTILITY(U,$J,"PRO",1003,99)
  1. ;;=55824,41351
  1. ;;^UTILITY(U,$J,"PRO",1004,0)
  1. ;;=IBTRCD INSURANCE INFO^Ins. Co. Update^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1004,15)
  1. ;;=S VALMBG=9
  1. ;;^UTILITY(U,$J,"PRO",1004,20)
  1. ;;=D EDIT^IBTRCD1("[IBT INSURANCE INFO]")
  1. ;;^UTILITY(U,$J,"PRO",1004,99)
  1. ;;=55760,74727
  1. ;;^UTILITY(U,$J,"PRO",1005,0)
  1. ;;=IBTRCD ACTION INFO^Action Info^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1005,15)
  1. ;;=S VALMBG=1
  1. ;;^UTILITY(U,$J,"PRO",1005,20)
  1. ;;=D EDIT^IBTRCD1("[IBT ACTION INFO]")
  1. ;;^UTILITY(U,$J,"PRO",1005,99)
  1. ;;=55760,74726
  1. ;;^UTILITY(U,$J,"PRO",1006,0)
  1. ;;=IBTRCD APPEAL INFO^Appeal Address^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1006,15)
  1. ;;=S VALMBG=15
  1. ;;^UTILITY(U,$J,"PRO",1006,20)
  1. ;;=D EDIT^IBTRCD1("[IBT APPEAL INFO]")
  1. ;;^UTILITY(U,$J,"PRO",1006,99)
  1. ;;=55760,74726
  1. ;;^UTILITY(U,$J,"PRO",1007,0)
  1. ;;=IBTRCD CONTACT INFO^Contact Info^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",1007,15)
  1. ;;=S VALMBG=1
  1. ;;^UTILITY(U,$J,"PRO",1007,20)
  1. ;;=D EDIT^IBTRCD1("[IBT CONTACT INFO]")