IBONI004 ; ; 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",785,1,4,0)
;;=and the event record was left open, this action may be used to close
;;^UTILITY(U,$J,"PRO",785,1,5,0)
;;=the event record.
;;^UTILITY(U,$J,"PRO",785,4)
;;=^^^Change Status
;;^UTILITY(U,$J,"PRO",785,20)
;;=D CS^IBECEA51
;;^UTILITY(U,$J,"PRO",785,99)
;;=55642,37634
;;^UTILITY(U,$J,"PRO",786,0)
;;=IBACME LAST CALC^Last Calc Date^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",786,1,0)
;;=^^5^5^2930826^
;;^UTILITY(U,$J,"PRO",786,1,1,0)
;;=This action is used to adjust the last day that a patient was billing
;;^UTILITY(U,$J,"PRO",786,1,2,0)
;;=for the Means Test hospital or nursing home per diem charge. If an
;;^UTILITY(U,$J,"PRO",786,1,3,0)
;;=event record is open and the patient still admitted, the nightly
;;^UTILITY(U,$J,"PRO",786,1,4,0)
;;=compilation will start billing the patient on the day following the
;;^UTILITY(U,$J,"PRO",786,1,5,0)
;;='Last Calculated' date.
;;^UTILITY(U,$J,"PRO",786,4)
;;=^^^Last Calc Date
;;^UTILITY(U,$J,"PRO",786,20)
;;=D LC^IBECEA51
;;^UTILITY(U,$J,"PRO",786,99)
;;=55642,37687
;;^UTILITY(U,$J,"PRO",794,0)
;;=IBDF EDIT SELECTION LIST MENU^EDIT SELECTION LIST^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",794,1,0)
;;=^^2^2^2930423^^
;;^UTILITY(U,$J,"PRO",794,1,1,0)
;;=Displays all the selection groups defined for the list and provides
;;^UTILITY(U,$J,"PRO",794,1,2,0)
;;=a menu of actions for editing the contents of the list.
;;^UTILITY(U,$J,"PRO",794,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",794,10,0)
;;=^101.01PA^7^7
;;^UTILITY(U,$J,"PRO",794,10,1,0)
;;=795^AG^1^^^Add Group
;;^UTILITY(U,$J,"PRO",794,10,1,"^")
;;=IBDF ADD GROUP
;;^UTILITY(U,$J,"PRO",794,10,2,0)
;;=796^DG^2^^^Delete Group
;;^UTILITY(U,$J,"PRO",794,10,2,"^")
;;=IBDF DELETE GROUP
;;^UTILITY(U,$J,"PRO",794,10,3,0)
;;=797^GH^4^^^Group Header/Order
;;^UTILITY(U,$J,"PRO",794,10,3,"^")
;;=IBDF EDIT GROUP HDR/ORDER
;;^UTILITY(U,$J,"PRO",794,10,4,0)
;;=800^GC^3^^^Group's Contents
;;^UTILITY(U,$J,"PRO",794,10,4,"^")
;;=IBDF DISPLAY GRP'S SLCTNS FOR EDIT
;;^UTILITY(U,$J,"PRO",794,10,5,0)
;;=824^EX^7^^^Exit
;;^UTILITY(U,$J,"PRO",794,10,5,"^")
;;=IBDF EXIT
;;^UTILITY(U,$J,"PRO",794,10,6,0)
;;=1070^AB^5^^^Add Blank
;;^UTILITY(U,$J,"PRO",794,10,6,"^")
;;=IBDF ADD BLANK GROUP
;;^UTILITY(U,$J,"PRO",794,10,7,0)
;;=1071^FA^6^^^Format All
;;^UTILITY(U,$J,"PRO",794,10,7,"^")
;;=IBDF FORMAT ALL SELECTIONS
;;^UTILITY(U,$J,"PRO",794,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",794,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",794,99)
;;=55865,38871
;;^UTILITY(U,$J,"PRO",795,0)
;;=IBDF ADD GROUP^Add Group^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",795,1,0)
;;=^^1^1^2930607^^^
;;^UTILITY(U,$J,"PRO",795,1,1,0)
;;=Adds a new group to the selection list.
;;^UTILITY(U,$J,"PRO",795,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",795,2,1,0)
;;=AG
;;^UTILITY(U,$J,"PRO",795,2,"B","AG",1)
;;=
;;^UTILITY(U,$J,"PRO",795,20)
;;=D ADDGRP^IBDF3
;;^UTILITY(U,$J,"PRO",795,99)
;;=55852,54041
;;^UTILITY(U,$J,"PRO",796,0)
;;=IBDF DELETE GROUP^Delete Group^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",796,1,0)
;;=^^3^3^2930510^
;;^UTILITY(U,$J,"PRO",796,1,1,0)
;;=
;;^UTILITY(U,$J,"PRO",796,1,2,0)
;;=Allows the user to select a group. The selected group, along with all of
;;^UTILITY(U,$J,"PRO",796,1,3,0)
;;=its selections, is deleted.
;;^UTILITY(U,$J,"PRO",796,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",796,2,1,0)
;;=DG
;;^UTILITY(U,$J,"PRO",796,2,"B","DG",1)
;;=
;;^UTILITY(U,$J,"PRO",796,20)
;;=D DELGRP^IBDF3
;;^UTILITY(U,$J,"PRO",796,99)
;;=55852,54043
IBONI004 ; ; 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",785,1,4,0)
+2 ;;=and the event record was left open, this action may be used to close
+3 ;;^UTILITY(U,$J,"PRO",785,1,5,0)
+4 ;;=the event record.
+5 ;;^UTILITY(U,$J,"PRO",785,4)
+6 ;;=^^^Change Status
+7 ;;^UTILITY(U,$J,"PRO",785,20)
+8 ;;=D CS^IBECEA51
+9 ;;^UTILITY(U,$J,"PRO",785,99)
+10 ;;=55642,37634
+11 ;;^UTILITY(U,$J,"PRO",786,0)
+12 ;;=IBACME LAST CALC^Last Calc Date^^A^^^^^^^^INTEGRATED BILLING
+13 ;;^UTILITY(U,$J,"PRO",786,1,0)
+14 ;;=^^5^5^2930826^
+15 ;;^UTILITY(U,$J,"PRO",786,1,1,0)
+16 ;;=This action is used to adjust the last day that a patient was billing
+17 ;;^UTILITY(U,$J,"PRO",786,1,2,0)
+18 ;;=for the Means Test hospital or nursing home per diem charge. If an
+19 ;;^UTILITY(U,$J,"PRO",786,1,3,0)
+20 ;;=event record is open and the patient still admitted, the nightly
+21 ;;^UTILITY(U,$J,"PRO",786,1,4,0)
+22 ;;=compilation will start billing the patient on the day following the
+23 ;;^UTILITY(U,$J,"PRO",786,1,5,0)
+24 ;;='Last Calculated' date.
+25 ;;^UTILITY(U,$J,"PRO",786,4)
+26 ;;=^^^Last Calc Date
+27 ;;^UTILITY(U,$J,"PRO",786,20)
+28 ;;=D LC^IBECEA51
+29 ;;^UTILITY(U,$J,"PRO",786,99)
+30 ;;=55642,37687
+31 ;;^UTILITY(U,$J,"PRO",794,0)
+32 ;;=IBDF EDIT SELECTION LIST MENU^EDIT SELECTION LIST^^M^^^^^^^^INTEGRATED BILLING
+33 ;;^UTILITY(U,$J,"PRO",794,1,0)
+34 ;;=^^2^2^2930423^^
+35 ;;^UTILITY(U,$J,"PRO",794,1,1,0)
+36 ;;=Displays all the selection groups defined for the list and provides
+37 ;;^UTILITY(U,$J,"PRO",794,1,2,0)
+38 ;;=a menu of actions for editing the contents of the list.
+39 ;;^UTILITY(U,$J,"PRO",794,4)
+40 ;;=26^4
+41 ;;^UTILITY(U,$J,"PRO",794,10,0)
+42 ;;=^101.01PA^7^7
+43 ;;^UTILITY(U,$J,"PRO",794,10,1,0)
+44 ;;=795^AG^1^^^Add Group
+45 ;;^UTILITY(U,$J,"PRO",794,10,1,"^")
+46 ;;=IBDF ADD GROUP
+47 ;;^UTILITY(U,$J,"PRO",794,10,2,0)
+48 ;;=796^DG^2^^^Delete Group
+49 ;;^UTILITY(U,$J,"PRO",794,10,2,"^")
+50 ;;=IBDF DELETE GROUP
+51 ;;^UTILITY(U,$J,"PRO",794,10,3,0)
+52 ;;=797^GH^4^^^Group Header/Order
+53 ;;^UTILITY(U,$J,"PRO",794,10,3,"^")
+54 ;;=IBDF EDIT GROUP HDR/ORDER
+55 ;;^UTILITY(U,$J,"PRO",794,10,4,0)
+56 ;;=800^GC^3^^^Group's Contents
+57 ;;^UTILITY(U,$J,"PRO",794,10,4,"^")
+58 ;;=IBDF DISPLAY GRP'S SLCTNS FOR EDIT
+59 ;;^UTILITY(U,$J,"PRO",794,10,5,0)
+60 ;;=824^EX^7^^^Exit
+61 ;;^UTILITY(U,$J,"PRO",794,10,5,"^")
+62 ;;=IBDF EXIT
+63 ;;^UTILITY(U,$J,"PRO",794,10,6,0)
+64 ;;=1070^AB^5^^^Add Blank
+65 ;;^UTILITY(U,$J,"PRO",794,10,6,"^")
+66 ;;=IBDF ADD BLANK GROUP
+67 ;;^UTILITY(U,$J,"PRO",794,10,7,0)
+68 ;;=1071^FA^6^^^Format All
+69 ;;^UTILITY(U,$J,"PRO",794,10,7,"^")
+70 ;;=IBDF FORMAT ALL SELECTIONS
+71 ;;^UTILITY(U,$J,"PRO",794,26)
+72 ;;=D SHOW^VALM
+73 ;;^UTILITY(U,$J,"PRO",794,28)
+74 ;;=Select Action:
+75 ;;^UTILITY(U,$J,"PRO",794,99)
+76 ;;=55865,38871
+77 ;;^UTILITY(U,$J,"PRO",795,0)
+78 ;;=IBDF ADD GROUP^Add Group^^A^^^^^^^^INTEGRATED BILLING
+79 ;;^UTILITY(U,$J,"PRO",795,1,0)
+80 ;;=^^1^1^2930607^^^
+81 ;;^UTILITY(U,$J,"PRO",795,1,1,0)
+82 ;;=Adds a new group to the selection list.
+83 ;;^UTILITY(U,$J,"PRO",795,2,0)
+84 ;;=^101.02A^1^1
+85 ;;^UTILITY(U,$J,"PRO",795,2,1,0)
+86 ;;=AG
+87 ;;^UTILITY(U,$J,"PRO",795,2,"B","AG",1)
+88 ;;=
+89 ;;^UTILITY(U,$J,"PRO",795,20)
+90 ;;=D ADDGRP^IBDF3
+91 ;;^UTILITY(U,$J,"PRO",795,99)
+92 ;;=55852,54041
+93 ;;^UTILITY(U,$J,"PRO",796,0)
+94 ;;=IBDF DELETE GROUP^Delete Group^^A^^^^^^^^
+95 ;;^UTILITY(U,$J,"PRO",796,1,0)
+96 ;;=^^3^3^2930510^
+97 ;;^UTILITY(U,$J,"PRO",796,1,1,0)
+98 ;;=
+99 ;;^UTILITY(U,$J,"PRO",796,1,2,0)
+100 ;;=Allows the user to select a group. The selected group, along with all of
+101 ;;^UTILITY(U,$J,"PRO",796,1,3,0)
+102 ;;=its selections, is deleted.
+103 ;;^UTILITY(U,$J,"PRO",796,2,0)
+104 ;;=^101.02A^1^1
+105 ;;^UTILITY(U,$J,"PRO",796,2,1,0)
+106 ;;=DG
+107 ;;^UTILITY(U,$J,"PRO",796,2,"B","DG",1)
+108 ;;=
+109 ;;^UTILITY(U,$J,"PRO",796,20)
+110 ;;=D DELGRP^IBDF3
+111 ;;^UTILITY(U,$J,"PRO",796,99)
+112 ;;=55852,54043
