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