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

IBONI010.m

Go to the documentation of this file.
  1. IBONI010 ; ; 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",817,20)
  1. ;;=D SETUP^IBDF6A
  1. ;;^UTILITY(U,$J,"PRO",817,28)
  1. ;;=Add To Setup
  1. ;;^UTILITY(U,$J,"PRO",817,99)
  1. ;;=55852,54041
  1. ;;^UTILITY(U,$J,"PRO",818,0)
  1. ;;=IBDF DELETE FROM CLINIC SETUP^Delete from Setup^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",818,1,0)
  1. ;;=^^1^1^2930127^
  1. ;;^UTILITY(U,$J,"PRO",818,1,1,0)
  1. ;;=Allows the user to select a form and deletes it from the clinic setup.
  1. ;;^UTILITY(U,$J,"PRO",818,2,0)
  1. ;;=^101.02A^1^1
  1. ;;^UTILITY(U,$J,"PRO",818,2,1,0)
  1. ;;=DC
  1. ;;^UTILITY(U,$J,"PRO",818,2,"B","DC",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",818,20)
  1. ;;=D DSETUP^IBDF6C
  1. ;;^UTILITY(U,$J,"PRO",818,28)
  1. ;;=Delete From Clinic Setup:
  1. ;;^UTILITY(U,$J,"PRO",818,99)
  1. ;;=55852,54043
  1. ;;^UTILITY(U,$J,"PRO",819,0)
  1. ;;=IBDF DELETE A BLOCK^Delete Block^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",819,1,0)
  1. ;;=^^1^1^2930127^^
  1. ;;^UTILITY(U,$J,"PRO",819,1,1,0)
  1. ;;=Allows the user to select a block from the form and delete it.
  1. ;;^UTILITY(U,$J,"PRO",819,2,0)
  1. ;;=^101.02A^1^1
  1. ;;^UTILITY(U,$J,"PRO",819,2,1,0)
  1. ;;=DB
  1. ;;^UTILITY(U,$J,"PRO",819,2,"B","DB",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",819,20)
  1. ;;=D DELETE^IBDF5
  1. ;;^UTILITY(U,$J,"PRO",819,28)
  1. ;;=Delete a Block:
  1. ;;^UTILITY(U,$J,"PRO",819,99)
  1. ;;=55852,54043
  1. ;;^UTILITY(U,$J,"PRO",820,0)
  1. ;;=IBDF RESIZE BLOCK (WHILE EDITING BLOCK)^Block Size^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",820,1,0)
  1. ;;=^^2^2^2930510^
  1. ;;^UTILITY(U,$J,"PRO",820,1,1,0)
  1. ;;=This allows the user to change the height and width of the block while he
  1. ;;^UTILITY(U,$J,"PRO",820,1,2,0)
  1. ;;=is editing the block.
  1. ;;^UTILITY(U,$J,"PRO",820,2,0)
  1. ;;=^101.02A^2^2
  1. ;;^UTILITY(U,$J,"PRO",820,2,1,0)
  1. ;;=RS
  1. ;;^UTILITY(U,$J,"PRO",820,2,2,0)
  1. ;;=BS
  1. ;;^UTILITY(U,$J,"PRO",820,2,"B","BS",2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",820,2,"B","RS",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",820,20)
  1. ;;=D RESIZE^IBDF9
  1. ;;^UTILITY(U,$J,"PRO",820,99)
  1. ;;=55852,54049
  1. ;;^UTILITY(U,$J,"PRO",821,0)
  1. ;;=IBDF EDIT NAME,HEADER,OUTLINE^Header/Descr/Outline^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",821,1,0)
  1. ;;=^^1^1^2930201^
  1. ;;^UTILITY(U,$J,"PRO",821,1,1,0)
  1. ;;=Allows editing of the block header and outline type.
  1. ;;^UTILITY(U,$J,"PRO",821,2,0)
  1. ;;=^101.02A^1^1
  1. ;;^UTILITY(U,$J,"PRO",821,2,1,0)
  1. ;;=EH
  1. ;;^UTILITY(U,$J,"PRO",821,2,"B","EH",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",821,20)
  1. ;;=D EDITBLK^IBDF9
  1. ;;^UTILITY(U,$J,"PRO",821,99)
  1. ;;=55852,54045
  1. ;;^UTILITY(U,$J,"PRO",822,0)
  1. ;;=IBDF DATA FIELD^Data Field^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",822,1,0)
  1. ;;=^^2^2^2930322^
  1. ;;^UTILITY(U,$J,"PRO",822,1,1,0)
  1. ;;=Allows the user to create a new data field or edit or delete an already
  1. ;;^UTILITY(U,$J,"PRO",822,1,2,0)
  1. ;;=existing one.
  1. ;;^UTILITY(U,$J,"PRO",822,2,0)
  1. ;;=^101.02A^2^1
  1. ;;^UTILITY(U,$J,"PRO",822,2,2,0)
  1. ;;=DF
  1. ;;^UTILITY(U,$J,"PRO",822,2,"B","DF",2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",822,20)
  1. ;;=D FIELD^IBDF9B
  1. ;;^UTILITY(U,$J,"PRO",822,99)
  1. ;;=55852,54043
  1. ;;^UTILITY(U,$J,"PRO",823,0)
  1. ;;=IBDF STRAIGHT LINE^Straight Line^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",823,1,0)
  1. ;;=^^2^2^2930324^^
  1. ;;^UTILITY(U,$J,"PRO",823,1,1,0)
  1. ;;=Allows a straight line, either horizontal or vertical, to be created,
  1. ;;^UTILITY(U,$J,"PRO",823,1,2,0)
  1. ;;=deleted or edited.
  1. ;;^UTILITY(U,$J,"PRO",823,2,0)
  1. ;;=^101.02A^2^1
  1. ;;^UTILITY(U,$J,"PRO",823,2,2,0)
  1. ;;=LN
  1. ;;^UTILITY(U,$J,"PRO",823,2,"B","LN",2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",823,20)
  1. ;;=D LINE^IBDF9D
  1. ;;^UTILITY(U,$J,"PRO",823,99)
  1. ;;=55852,54050
  1. ;;^UTILITY(U,$J,"PRO",824,0)
  1. ;;=IBDF EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING
  1. ;;^UTILITY(U,$J,"PRO",824,1,0)
  1. ;;=^^2^2^2930817^^^^