- IBONI032 ; ; 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",999,99)
- ;;=55760,74724
- ;;^UTILITY(U,$J,"PRO",1000,0)
- ;;=IBTRC QUICK EDIT^Quick Edit^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1000,20)
- ;;=D QE^IBTRC1
- ;;^UTILITY(U,$J,"PRO",1000,99)
- ;;=55760,74724
- ;;^UTILITY(U,$J,"PRO",1001,0)
- ;;=IBTRC VIEW/EDIT^View/Edit Ins. Review^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1001,10,0)
- ;;=^101.01PA^0^0
- ;;^UTILITY(U,$J,"PRO",1001,20)
- ;;=D NX^IBTRC1("IBT EXPAND/EDIT COMMUNICATIONS")
- ;;^UTILITY(U,$J,"PRO",1001,99)
- ;;=55760,74724
- ;;^UTILITY(U,$J,"PRO",1002,0)
- ;;=IBTRC APPEAL/DENIALS^Appeals Edit^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1002,15)
- ;;=D BLD^IBTRC
- ;;^UTILITY(U,$J,"PRO",1002,20)
- ;;=D NX^IBTRCD1("IBT APPEAL/DENIAL EDITOR",1)
- ;;^UTILITY(U,$J,"PRO",1002,99)
- ;;=55760,74724
- ;;^UTILITY(U,$J,"PRO",1003,0)
- ;;=IBTRCD MENU^Insurance Actions Menu^^M^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1003,4)
- ;;=26^4
- ;;^UTILITY(U,$J,"PRO",1003,10,0)
- ;;=^101.01PA^12^12
- ;;^UTILITY(U,$J,"PRO",1003,10,1,0)
- ;;=1006^AA^11
- ;;^UTILITY(U,$J,"PRO",1003,10,1,"^")
- ;;=IBTRCD APPEAL INFO
- ;;^UTILITY(U,$J,"PRO",1003,10,2,0)
- ;;=1007^CI^12
- ;;^UTILITY(U,$J,"PRO",1003,10,2,"^")
- ;;=IBTRCD CONTACT INFO
- ;;^UTILITY(U,$J,"PRO",1003,10,3,0)
- ;;=1004^IU^21
- ;;^UTILITY(U,$J,"PRO",1003,10,3,"^")
- ;;=IBTRCD INSURANCE INFO
- ;;^UTILITY(U,$J,"PRO",1003,10,4,0)
- ;;=1005^AI^22
- ;;^UTILITY(U,$J,"PRO",1003,10,4,"^")
- ;;=IBTRCD ACTION INFO
- ;;^UTILITY(U,$J,"PRO",1003,10,5,0)
- ;;=1008^AC^31
- ;;^UTILITY(U,$J,"PRO",1003,10,5,"^")
- ;;=IBTRCD COMMENT INFO
- ;;^UTILITY(U,$J,"PRO",1003,10,6,0)
- ;;=1009^VP^32
- ;;^UTILITY(U,$J,"PRO",1003,10,6,"^")
- ;;=IBTRCD EDIT PT. INS.
- ;;^UTILITY(U,$J,"PRO",1003,10,7,0)
- ;;=927^EX^41
- ;;^UTILITY(U,$J,"PRO",1003,10,7,"^")
- ;;=IBCNS EXIT
- ;;^UTILITY(U,$J,"PRO",1003,10,8,0)
- ;;=1042^DU^35
- ;;^UTILITY(U,$J,"PRO",1003,10,8,"^")
- ;;=IBTRCD DIAGNOSIS UPDATE
- ;;^UTILITY(U,$J,"PRO",1003,10,9,0)
- ;;=1049^PU^36
- ;;^UTILITY(U,$J,"PRO",1003,10,9,"^")
- ;;=IBTRCD PROCEDURE UPDATE
- ;;^UTILITY(U,$J,"PRO",1003,10,10,0)
- ;;=1055^PV^37
- ;;^UTILITY(U,$J,"PRO",1003,10,10,"^")
- ;;=IBTRCD PROVIDER UPDATE
- ;;^UTILITY(U,$J,"PRO",1003,10,11,0)
- ;;=1061^CS^14
- ;;^UTILITY(U,$J,"PRO",1003,10,11,"^")
- ;;=IBTRCD STATUS CHANGE
- ;;^UTILITY(U,$J,"PRO",1003,10,12,0)
- ;;=1079^RW^39
- ;;^UTILITY(U,$J,"PRO",1003,10,12,"^")
- ;;=IBTRC PRINT REV WORKSHEET
- ;;^UTILITY(U,$J,"PRO",1003,15)
- ;;=I $G(IBFASTXT)=1 S VALMBCK="Q"
- ;;^UTILITY(U,$J,"PRO",1003,26)
- ;;=D SHOW^VALM
- ;;^UTILITY(U,$J,"PRO",1003,28)
- ;;=Select Action:
- ;;^UTILITY(U,$J,"PRO",1003,99)
- ;;=55824,41351
- ;;^UTILITY(U,$J,"PRO",1004,0)
- ;;=IBTRCD INSURANCE INFO^Ins. Co. Update^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1004,15)
- ;;=S VALMBG=9
- ;;^UTILITY(U,$J,"PRO",1004,20)
- ;;=D EDIT^IBTRCD1("[IBT INSURANCE INFO]")
- ;;^UTILITY(U,$J,"PRO",1004,99)
- ;;=55760,74727
- ;;^UTILITY(U,$J,"PRO",1005,0)
- ;;=IBTRCD ACTION INFO^Action Info^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1005,15)
- ;;=S VALMBG=1
- ;;^UTILITY(U,$J,"PRO",1005,20)
- ;;=D EDIT^IBTRCD1("[IBT ACTION INFO]")
- ;;^UTILITY(U,$J,"PRO",1005,99)
- ;;=55760,74726
- ;;^UTILITY(U,$J,"PRO",1006,0)
- ;;=IBTRCD APPEAL INFO^Appeal Address^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1006,15)
- ;;=S VALMBG=15
- ;;^UTILITY(U,$J,"PRO",1006,20)
- ;;=D EDIT^IBTRCD1("[IBT APPEAL INFO]")
- ;;^UTILITY(U,$J,"PRO",1006,99)
- ;;=55760,74726
- ;;^UTILITY(U,$J,"PRO",1007,0)
- ;;=IBTRCD CONTACT INFO^Contact Info^^A^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"PRO",1007,15)
- ;;=S VALMBG=1
- ;;^UTILITY(U,$J,"PRO",1007,20)
- ;;=D EDIT^IBTRCD1("[IBT CONTACT INFO]")
- IBONI032 ; ; 21-MAR-1994
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 FOR I=1:2
- SET X=$TEXT(Q+I)
- IF X=""
- QUIT
- SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
- SET X=$EXTRACT(X,4,999)
- IF $ASCII(Y)=126
- SET I=I+1
- SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
- IF $ASCII(Y)=61
- SET Y=$EXTRACT(Y,2,999)
- XECUTE NO
- IF '$TEST
- SET @X=Y
- Q QUIT
- +1 ;;^UTILITY(U,$J,"PRO",999,99)
- +2 ;;=55760,74724
- +3 ;;^UTILITY(U,$J,"PRO",1000,0)
- +4 ;;=IBTRC QUICK EDIT^Quick Edit^^A^^^^^^^^INTEGRATED BILLING
- +5 ;;^UTILITY(U,$J,"PRO",1000,20)
- +6 ;;=D QE^IBTRC1
- +7 ;;^UTILITY(U,$J,"PRO",1000,99)
- +8 ;;=55760,74724
- +9 ;;^UTILITY(U,$J,"PRO",1001,0)
- +10 ;;=IBTRC VIEW/EDIT^View/Edit Ins. Review^^A^^^^^^^^INTEGRATED BILLING
- +11 ;;^UTILITY(U,$J,"PRO",1001,10,0)
- +12 ;;=^101.01PA^0^0
- +13 ;;^UTILITY(U,$J,"PRO",1001,20)
- +14 ;;=D NX^IBTRC1("IBT EXPAND/EDIT COMMUNICATIONS")
- +15 ;;^UTILITY(U,$J,"PRO",1001,99)
- +16 ;;=55760,74724
- +17 ;;^UTILITY(U,$J,"PRO",1002,0)
- +18 ;;=IBTRC APPEAL/DENIALS^Appeals Edit^^A^^^^^^^^INTEGRATED BILLING
- +19 ;;^UTILITY(U,$J,"PRO",1002,15)
- +20 ;;=D BLD^IBTRC
- +21 ;;^UTILITY(U,$J,"PRO",1002,20)
- +22 ;;=D NX^IBTRCD1("IBT APPEAL/DENIAL EDITOR",1)
- +23 ;;^UTILITY(U,$J,"PRO",1002,99)
- +24 ;;=55760,74724
- +25 ;;^UTILITY(U,$J,"PRO",1003,0)
- +26 ;;=IBTRCD MENU^Insurance Actions Menu^^M^^^^^^^^INTEGRATED BILLING
- +27 ;;^UTILITY(U,$J,"PRO",1003,4)
- +28 ;;=26^4
- +29 ;;^UTILITY(U,$J,"PRO",1003,10,0)
- +30 ;;=^101.01PA^12^12
- +31 ;;^UTILITY(U,$J,"PRO",1003,10,1,0)
- +32 ;;=1006^AA^11
- +33 ;;^UTILITY(U,$J,"PRO",1003,10,1,"^")
- +34 ;;=IBTRCD APPEAL INFO
- +35 ;;^UTILITY(U,$J,"PRO",1003,10,2,0)
- +36 ;;=1007^CI^12
- +37 ;;^UTILITY(U,$J,"PRO",1003,10,2,"^")
- +38 ;;=IBTRCD CONTACT INFO
- +39 ;;^UTILITY(U,$J,"PRO",1003,10,3,0)
- +40 ;;=1004^IU^21
- +41 ;;^UTILITY(U,$J,"PRO",1003,10,3,"^")
- +42 ;;=IBTRCD INSURANCE INFO
- +43 ;;^UTILITY(U,$J,"PRO",1003,10,4,0)
- +44 ;;=1005^AI^22
- +45 ;;^UTILITY(U,$J,"PRO",1003,10,4,"^")
- +46 ;;=IBTRCD ACTION INFO
- +47 ;;^UTILITY(U,$J,"PRO",1003,10,5,0)
- +48 ;;=1008^AC^31
- +49 ;;^UTILITY(U,$J,"PRO",1003,10,5,"^")
- +50 ;;=IBTRCD COMMENT INFO
- +51 ;;^UTILITY(U,$J,"PRO",1003,10,6,0)
- +52 ;;=1009^VP^32
- +53 ;;^UTILITY(U,$J,"PRO",1003,10,6,"^")
- +54 ;;=IBTRCD EDIT PT. INS.
- +55 ;;^UTILITY(U,$J,"PRO",1003,10,7,0)
- +56 ;;=927^EX^41
- +57 ;;^UTILITY(U,$J,"PRO",1003,10,7,"^")
- +58 ;;=IBCNS EXIT
- +59 ;;^UTILITY(U,$J,"PRO",1003,10,8,0)
- +60 ;;=1042^DU^35
- +61 ;;^UTILITY(U,$J,"PRO",1003,10,8,"^")
- +62 ;;=IBTRCD DIAGNOSIS UPDATE
- +63 ;;^UTILITY(U,$J,"PRO",1003,10,9,0)
- +64 ;;=1049^PU^36
- +65 ;;^UTILITY(U,$J,"PRO",1003,10,9,"^")
- +66 ;;=IBTRCD PROCEDURE UPDATE
- +67 ;;^UTILITY(U,$J,"PRO",1003,10,10,0)
- +68 ;;=1055^PV^37
- +69 ;;^UTILITY(U,$J,"PRO",1003,10,10,"^")
- +70 ;;=IBTRCD PROVIDER UPDATE
- +71 ;;^UTILITY(U,$J,"PRO",1003,10,11,0)
- +72 ;;=1061^CS^14
- +73 ;;^UTILITY(U,$J,"PRO",1003,10,11,"^")
- +74 ;;=IBTRCD STATUS CHANGE
- +75 ;;^UTILITY(U,$J,"PRO",1003,10,12,0)
- +76 ;;=1079^RW^39
- +77 ;;^UTILITY(U,$J,"PRO",1003,10,12,"^")
- +78 ;;=IBTRC PRINT REV WORKSHEET
- +79 ;;^UTILITY(U,$J,"PRO",1003,15)
- +80 ;;=I $G(IBFASTXT)=1 S VALMBCK="Q"
- +81 ;;^UTILITY(U,$J,"PRO",1003,26)
- +82 ;;=D SHOW^VALM
- +83 ;;^UTILITY(U,$J,"PRO",1003,28)
- +84 ;;=Select Action:
- +85 ;;^UTILITY(U,$J,"PRO",1003,99)
- +86 ;;=55824,41351
- +87 ;;^UTILITY(U,$J,"PRO",1004,0)
- +88 ;;=IBTRCD INSURANCE INFO^Ins. Co. Update^^A^^^^^^^^INTEGRATED BILLING
- +89 ;;^UTILITY(U,$J,"PRO",1004,15)
- +90 ;;=S VALMBG=9
- +91 ;;^UTILITY(U,$J,"PRO",1004,20)
- +92 ;;=D EDIT^IBTRCD1("[IBT INSURANCE INFO]")
- +93 ;;^UTILITY(U,$J,"PRO",1004,99)
- +94 ;;=55760,74727
- +95 ;;^UTILITY(U,$J,"PRO",1005,0)
- +96 ;;=IBTRCD ACTION INFO^Action Info^^A^^^^^^^^INTEGRATED BILLING
- +97 ;;^UTILITY(U,$J,"PRO",1005,15)
- +98 ;;=S VALMBG=1
- +99 ;;^UTILITY(U,$J,"PRO",1005,20)
- +100 ;;=D EDIT^IBTRCD1("[IBT ACTION INFO]")
- +101 ;;^UTILITY(U,$J,"PRO",1005,99)
- +102 ;;=55760,74726
- +103 ;;^UTILITY(U,$J,"PRO",1006,0)
- +104 ;;=IBTRCD APPEAL INFO^Appeal Address^^A^^^^^^^^INTEGRATED BILLING
- +105 ;;^UTILITY(U,$J,"PRO",1006,15)
- +106 ;;=S VALMBG=15
- +107 ;;^UTILITY(U,$J,"PRO",1006,20)
- +108 ;;=D EDIT^IBTRCD1("[IBT APPEAL INFO]")
- +109 ;;^UTILITY(U,$J,"PRO",1006,99)
- +110 ;;=55760,74726
- +111 ;;^UTILITY(U,$J,"PRO",1007,0)
- +112 ;;=IBTRCD CONTACT INFO^Contact Info^^A^^^^^^^^INTEGRATED BILLING
- +113 ;;^UTILITY(U,$J,"PRO",1007,15)
- +114 ;;=S VALMBG=1
- +115 ;;^UTILITY(U,$J,"PRO",1007,20)
- +116 ;;=D EDIT^IBTRCD1("[IBT CONTACT INFO]")