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

AEFIN004.m

Go to the documentation of this file.
  1. AEFIN004 ; ; 27-FEB-2004
  1. ;;1.0;ANNETEST;;FEB 27, 2004
  1. Q:'DIFQR(1991212) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,1991212,28,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,28,1,1,0)
  1. ;;=Tim goes out of his way to please folks. There is never a dull moment
  1. ;;^UTILITY(U,$J,1991212,28,1,2,0)
  1. ;;=when he is around.
  1. ;;^UTILITY(U,$J,1991212,28,2)
  1. ;;=9879 Desert Flower Ave^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,28,3,0)
  1. ;;=^1991212.09^2^2
  1. ;;^UTILITY(U,$J,1991212,28,3,1,0)
  1. ;;=GUITAR^5
  1. ;;^UTILITY(U,$J,1991212,28,3,2,0)
  1. ;;=KARIOKE^1
  1. ;;^UTILITY(U,$J,1991212,28,4)
  1. ;;=MAIL CLERK^87876
  1. ;;^UTILITY(U,$J,1991212,29,0)
  1. ;;=URSULA^787876765^2751013^F
  1. ;;^UTILITY(U,$J,1991212,29,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,29,1,1,0)
  1. ;;=Ursa has a very diverse and interesting background and brings many good
  1. ;;^UTILITY(U,$J,1991212,29,1,2,0)
  1. ;;=qualities to our company.
  1. ;;^UTILITY(U,$J,1991212,29,2)
  1. ;;=6547 Moss Lane^6^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,29,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,29,3,1,0)
  1. ;;=PAINTING^3
  1. ;;^UTILITY(U,$J,1991212,29,3,2,0)
  1. ;;=DESIGN^4
  1. ;;^UTILITY(U,$J,1991212,29,3,3,0)
  1. ;;=ROCK COLLECTING^5
  1. ;;^UTILITY(U,$J,1991212,29,4)
  1. ;;=DESIGNER^67876
  1. ;;^UTILITY(U,$J,1991212,30,0)
  1. ;;=VIVIAN^565654345^2780729^F
  1. ;;^UTILITY(U,$J,1991212,30,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,30,1,1,0)
  1. ;;=Viv is very punctual and dependable. She is solid as a rock and everyone
  1. ;;^UTILITY(U,$J,1991212,30,1,2,0)
  1. ;;=depends on her.
  1. ;;^UTILITY(U,$J,1991212,30,2)
  1. ;;=2345 Arrowhead Dr.^6^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,30,3,0)
  1. ;;=^1991212.09^2^2
  1. ;;^UTILITY(U,$J,1991212,30,3,1,0)
  1. ;;=FLOWER ARRANGING
  1. ;;^UTILITY(U,$J,1991212,30,3,2,0)
  1. ;;=DRAWING^4
  1. ;;^UTILITY(U,$J,1991212,30,4)
  1. ;;=PENCIL PUSHER^78987
  1. ;;^UTILITY(U,$J,1991212,31,0)
  1. ;;=WILLIAM^767656545^2681206^M
  1. ;;^UTILITY(U,$J,1991212,31,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,31,1,1,0)
  1. ;;=Bill is very friendy and energetic. He gets along exceptionally well
  1. ;;^UTILITY(U,$J,1991212,31,1,2,0)
  1. ;;=with everyone in the company.
  1. ;;^UTILITY(U,$J,1991212,31,2)
  1. ;;=7123 Babbling Brook Lane^6^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,31,3,0)
  1. ;;=^1991212.09^1^1
  1. ;;^UTILITY(U,$J,1991212,31,3,1,0)
  1. ;;=PROSPECTING^3
  1. ;;^UTILITY(U,$J,1991212,31,4)
  1. ;;=DEVELOPER^89098
  1. ;;^UTILITY(U,$J,1991212,32,0)
  1. ;;=XAVIER^909878767^2630319^M
  1. ;;^UTILITY(U,$J,1991212,32,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,32,1,1,0)
  1. ;;=Interesting person. He is very private and keeps to himself and always
  1. ;;^UTILITY(U,$J,1991212,32,1,2,0)
  1. ;;=completes assignments on time with a minimum of supervision.
  1. ;;^UTILITY(U,$J,1991212,32,2)
  1. ;;=333 Boxelder Road^6
  1. ;;^UTILITY(U,$J,1991212,32,4)
  1. ;;=ACCOUNTANT^89878
  1. ;;^UTILITY(U,$J,1991212,33,0)
  1. ;;=YVONNE^^2660616^F
  1. ;;^UTILITY(U,$J,1991212,33,2)
  1. ;;=7854 Easy Street^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,33,4)
  1. ;;=WORKERBEE^67890
  1. ;;^UTILITY(U,$J,1991212,34,0)
  1. ;;=ZELDA^^2550515^F
  1. ;;^UTILITY(U,$J,1991212,34,2)
  1. ;;=3322 Beehive Road^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,34,3,0)
  1. ;;=^1991212.09
  1. ;;^UTILITY(U,$J,1991212,34,4)
  1. ;;=WORKERBEE^89878