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

IBINI06X.m

Go to the documentation of this file.
  1. IBINI06X ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQR(356.5) 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,356.5,364,0)
  1. ;;=364^2930000^4.3
  1. ;;^UTILITY(U,$J,356.5,365,0)
  1. ;;=365^2930000^10.9
  1. ;;^UTILITY(U,$J,356.5,366,0)
  1. ;;=366^2930000^10.3
  1. ;;^UTILITY(U,$J,356.5,367,0)
  1. ;;=367^2930000^6.5
  1. ;;^UTILITY(U,$J,356.5,368,0)
  1. ;;=368^2930000^7.6
  1. ;;^UTILITY(U,$J,356.5,369,0)
  1. ;;=369^2930000^4.8
  1. ;;^UTILITY(U,$J,356.5,370,0)
  1. ;;=370^2930000^6.6
  1. ;;^UTILITY(U,$J,356.5,371,0)
  1. ;;=371^2930000^4.4
  1. ;;^UTILITY(U,$J,356.5,372,0)
  1. ;;=372^2930000^3.7
  1. ;;^UTILITY(U,$J,356.5,373,0)
  1. ;;=373^2930000^2.5
  1. ;;^UTILITY(U,$J,356.5,374,0)
  1. ;;=374^2930000^3.5
  1. ;;^UTILITY(U,$J,356.5,375,0)
  1. ;;=375^2930000^13.1
  1. ;;^UTILITY(U,$J,356.5,376,0)
  1. ;;=376^2930000^3.4
  1. ;;^UTILITY(U,$J,356.5,377,0)
  1. ;;=377^2930000^5.1
  1. ;;^UTILITY(U,$J,356.5,378,0)
  1. ;;=378^2930000^3.6
  1. ;;^UTILITY(U,$J,356.5,379,0)
  1. ;;=379^2930000^3
  1. ;;^UTILITY(U,$J,356.5,380,0)
  1. ;;=380^2930000^2.8
  1. ;;^UTILITY(U,$J,356.5,381,0)
  1. ;;=381^2930000^2.5
  1. ;;^UTILITY(U,$J,356.5,382,0)
  1. ;;=382^2930000^1.5
  1. ;;^UTILITY(U,$J,356.5,383,0)
  1. ;;=383^2930000^5.1
  1. ;;^UTILITY(U,$J,356.5,384,0)
  1. ;;=384^2930000^2.6
  1. ;;^UTILITY(U,$J,356.5,385,0)
  1. ;;=385^2930000^2.7
  1. ;;^UTILITY(U,$J,356.5,386,0)
  1. ;;=386^2930000^149
  1. ;;^UTILITY(U,$J,356.5,387,0)
  1. ;;=387^2930000^5.5
  1. ;;^UTILITY(U,$J,356.5,388,0)
  1. ;;=388^2930000^0
  1. ;;^UTILITY(U,$J,356.5,389,0)
  1. ;;=389^2930000^9.5
  1. ;;^UTILITY(U,$J,356.5,390,0)
  1. ;;=390^2930000^16.1
  1. ;;^UTILITY(U,$J,356.5,391,0)
  1. ;;=391^2930000^0
  1. ;;^UTILITY(U,$J,356.5,392,0)
  1. ;;=392^2930000^14.1
  1. ;;^UTILITY(U,$J,356.5,393,0)
  1. ;;=393^2930000^0
  1. ;;^UTILITY(U,$J,356.5,394,0)
  1. ;;=394^2930000^10.5
  1. ;;^UTILITY(U,$J,356.5,395,0)
  1. ;;=395^2930000^6.5
  1. ;;^UTILITY(U,$J,356.5,396,0)
  1. ;;=396^2930000^4
  1. ;;^UTILITY(U,$J,356.5,397,0)
  1. ;;=397^2930000^7.5
  1. ;;^UTILITY(U,$J,356.5,398,0)
  1. ;;=398^2930000^8.4
  1. ;;^UTILITY(U,$J,356.5,399,0)
  1. ;;=399^2930000^5.4
  1. ;;^UTILITY(U,$J,356.5,400,0)
  1. ;;=400^2930000^13.4
  1. ;;^UTILITY(U,$J,356.5,401,0)
  1. ;;=401^2930000^16.1
  1. ;;^UTILITY(U,$J,356.5,402,0)
  1. ;;=402^2930000^5.3
  1. ;;^UTILITY(U,$J,356.5,403,0)
  1. ;;=403^2930000^12.1
  1. ;;^UTILITY(U,$J,356.5,404,0)
  1. ;;=404^2930000^6.3
  1. ;;^UTILITY(U,$J,356.5,405,0)
  1. ;;=405^2930000^2.9
  1. ;;^UTILITY(U,$J,356.5,406,0)
  1. ;;=406^2930000^15.3
  1. ;;^UTILITY(U,$J,356.5,407,0)
  1. ;;=407^2930000^6.6
  1. ;;^UTILITY(U,$J,356.5,408,0)
  1. ;;=408^2930000^8.6
  1. ;;^UTILITY(U,$J,356.5,409,0)
  1. ;;=409^2930000^9.1
  1. ;;^UTILITY(U,$J,356.5,410,0)
  1. ;;=410^2930000^3.7
  1. ;;^UTILITY(U,$J,356.5,411,0)
  1. ;;=411^2930000^3.8
  1. ;;^UTILITY(U,$J,356.5,412,0)
  1. ;;=412^2930000^2.9
  1. ;;^UTILITY(U,$J,356.5,413,0)
  1. ;;=413^2930000^10.8
  1. ;;^UTILITY(U,$J,356.5,414,0)
  1. ;;=414^2930000^6.8
  1. ;;^UTILITY(U,$J,356.5,415,0)
  1. ;;=415^2930000^20.7
  1. ;;^UTILITY(U,$J,356.5,416,0)
  1. ;;=416^2930000^10.5
  1. ;;^UTILITY(U,$J,356.5,417,0)
  1. ;;=417^2930000^9
  1. ;;^UTILITY(U,$J,356.5,418,0)
  1. ;;=418^2930000^8.4
  1. ;;^UTILITY(U,$J,356.5,419,0)
  1. ;;=419^2930000^7.5
  1. ;;^UTILITY(U,$J,356.5,420,0)
  1. ;;=420^2930000^6
  1. ;;^UTILITY(U,$J,356.5,421,0)
  1. ;;=421^2930000^5.6
  1. ;;^UTILITY(U,$J,356.5,422,0)
  1. ;;=422^2930000^5.3
  1. ;;^UTILITY(U,$J,356.5,423,0)
  1. ;;=423^2930000^11.9
  1. ;;^UTILITY(U,$J,356.5,424,0)
  1. ;;=424^2930000^24.8
  1. ;;^UTILITY(U,$J,356.5,425,0)
  1. ;;=425^2930000^8.7
  1. ;;^UTILITY(U,$J,356.5,426,0)
  1. ;;=426^2930000^11.7
  1. ;;^UTILITY(U,$J,356.5,427,0)
  1. ;;=427^2930000^12
  1. ;;^UTILITY(U,$J,356.5,428,0)
  1. ;;=428^2930000^16.6
  1. ;;^UTILITY(U,$J,356.5,429,0)
  1. ;;=429^2930000^20.4
  1. ;;^UTILITY(U,$J,356.5,430,0)
  1. ;;=430^2930000^19.3
  1. ;;^UTILITY(U,$J,356.5,431,0)
  1. ;;=431^2930000^17.4
  1. ;;^UTILITY(U,$J,356.5,432,0)
  1. ;;=432^2930000^15.8
  1. ;;^UTILITY(U,$J,356.5,433,0)
  1. ;;=433^2930000^4.8
  1. ;;^UTILITY(U,$J,356.5,434,0)
  1. ;;=434^2930000^8.6
  1. ;;^UTILITY(U,$J,356.5,435,0)
  1. ;;=435^2930000^11.6