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

AEFIN003.m

Go to the documentation of this file.
  1. AEFIN003 ; ; 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,15,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,15,3,1,0)
  1. ;;=BIRDWATCHING^4
  1. ;;^UTILITY(U,$J,1991212,15,3,2,0)
  1. ;;=HIKING^5
  1. ;;^UTILITY(U,$J,1991212,15,3,3,0)
  1. ;;=PHOTOGRAPHY^4
  1. ;;^UTILITY(U,$J,1991212,15,4)
  1. ;;=TECHNICIAN^45890
  1. ;;^UTILITY(U,$J,1991212,16,0)
  1. ;;=BERTHA^789098789^2400721^F
  1. ;;^UTILITY(U,$J,1991212,16,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,16,1,1,0)
  1. ;;=Bertha has been with the company since the beginning. She has seen many
  1. ;;^UTILITY(U,$J,1991212,16,1,2,0)
  1. ;;=employees come and go. She is the cornerstone of the office.
  1. ;;^UTILITY(U,$J,1991212,16,2)
  1. ;;=555 Junebug Lane^45^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,16,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,16,3,1,0)
  1. ;;=WEAVING^5
  1. ;;^UTILITY(U,$J,1991212,16,3,2,0)
  1. ;;=SPINNING^4
  1. ;;^UTILITY(U,$J,1991212,16,3,3,0)
  1. ;;=PLAYING CARDS^5
  1. ;;^UTILITY(U,$J,1991212,16,4)
  1. ;;=SR EXECUTIVE^2909098
  1. ;;^UTILITY(U,$J,1991212,17,0)
  1. ;;=ELIZABETH^390918278^2580417^F
  1. ;;^UTILITY(U,$J,1991212,17,1,0)
  1. ;;=^^3^3^3040130^
  1. ;;^UTILITY(U,$J,1991212,17,1,1,0)
  1. ;;=Elizabeth is a "take charge" individual who always knows what needs to be
  1. ;;^UTILITY(U,$J,1991212,17,1,2,0)
  1. ;;=done and gets it done. Our company relies heavily on her during crises.
  1. ;;^UTILITY(U,$J,1991212,17,1,3,0)
  1. ;;=She is irreplaceable.
  1. ;;^UTILITY(U,$J,1991212,17,2)
  1. ;;=7890 Bunnyrabbit Road^6^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,17,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,17,3,1,0)
  1. ;;=GLASS BLOWING^0
  1. ;;^UTILITY(U,$J,1991212,17,3,2,0)
  1. ;;=PLAYING GUITAR^2
  1. ;;^UTILITY(U,$J,1991212,17,3,3,0)
  1. ;;=MOVIES^3
  1. ;;^UTILITY(U,$J,1991212,17,4)
  1. ;;=ASST CHIEF^1098909
  1. ;;^UTILITY(U,$J,1991212,18,0)
  1. ;;=RICK^349098676^2791009^M
  1. ;;^UTILITY(U,$J,1991212,18,1,0)
  1. ;;=^1991212.05^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,18,1,1,0)
  1. ;;=Rick is a young man who is new to our company. He shows great potential,
  1. ;;^UTILITY(U,$J,1991212,18,1,2,0)
  1. ;;=but needs more training to reach his potential.
  1. ;;^UTILITY(U,$J,1991212,18,2)
  1. ;;=8789 Cherry Tree Lane^45^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,18,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,18,3,1,0)
  1. ;;=SKYDIVING^5
  1. ;;^UTILITY(U,$J,1991212,18,3,2,0)
  1. ;;=SURFING^1
  1. ;;^UTILITY(U,$J,1991212,18,3,3,0)
  1. ;;=BOATING^4
  1. ;;^UTILITY(U,$J,1991212,18,4)
  1. ;;=CLERK^25890
  1. ;;^UTILITY(U,$J,1991212,19,0)
  1. ;;=FRAN^656567890^2620624^F
  1. ;;^UTILITY(U,$J,1991212,19,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,19,1,1,0)
  1. ;;=Francine possesses outstanding organizational skills. She has been
  1. ;;^UTILITY(U,$J,1991212,19,1,2,0)
  1. ;;=instrumental in revising many office procedures for efficiency.
  1. ;;^UTILITY(U,$J,1991212,19,2)
  1. ;;=234 Grasshopper Lane^3^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,19,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,19,3,1,0)
  1. ;;=CROSSWORD PUZZLES^4
  1. ;;^UTILITY(U,$J,1991212,19,3,2,0)
  1. ;;=TRAVEL^3
  1. ;;^UTILITY(U,$J,1991212,19,3,3,0)
  1. ;;=SINGING^2
  1. ;;^UTILITY(U,$J,1991212,19,4)
  1. ;;=ADMIN ASSISTANT^45123
  1. ;;^UTILITY(U,$J,1991212,20,0)
  1. ;;=QUINCY^545434321^2720717^M
  1. ;;^UTILITY(U,$J,1991212,20,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,20,1,1,0)
  1. ;;=Quincy brings unique talents to our company. I believe he will go far if
  1. ;;^UTILITY(U,$J,1991212,20,1,2,0)
  1. ;;=he stays with us.
  1. ;;^UTILITY(U,$J,1991212,20,2)
  1. ;;=6789 Lizzardhead Hwy^6^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,20,3,0)
  1. ;;=^1991212.09^2^2
  1. ;;^UTILITY(U,$J,1991212,20,3,1,0)
  1. ;;=DOG TRAINING^0
  1. ;;^UTILITY(U,$J,1991212,20,3,2,0)
  1. ;;=RAQUETBALL^3
  1. ;;^UTILITY(U,$J,1991212,20,4)
  1. ;;=COPYWRITER^57876
  1. ;;^UTILITY(U,$J,1991212,21,0)
  1. ;;=HAROLD^^2501117^M
  1. ;;^UTILITY(U,$J,1991212,21,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,21,1,1,0)
  1. ;;=What can we say about Harold? He's a great guy. He brightens up even
  1. ;;^UTILITY(U,$J,1991212,21,1,2,0)
  1. ;;=the most gloomy day.
  1. ;;^UTILITY(U,$J,1991212,21,2)
  1. ;;=2342 Bright Star Ave^6^4;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,21,3,0)
  1. ;;=^1991212.09^1^1
  1. ;;^UTILITY(U,$J,1991212,21,3,1,0)
  1. ;;=GOLF^2
  1. ;;^UTILITY(U,$J,1991212,21,4)
  1. ;;=ARCHITECT^789098
  1. ;;^UTILITY(U,$J,1991212,22,0)
  1. ;;=ISADORA^875776567^2651031^F
  1. ;;^UTILITY(U,$J,1991212,22,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,22,1,1,0)
  1. ;;=This lady is a whirlwind when there is a job to be done. She is
  1. ;;^UTILITY(U,$J,1991212,22,1,2,0)
  1. ;;=extremely talented and efficient.
  1. ;;^UTILITY(U,$J,1991212,22,2)
  1. ;;=986 Starlight Way^3^2;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,22,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,22,3,1,0)
  1. ;;=ASTRONOMY^4
  1. ;;^UTILITY(U,$J,1991212,22,3,2,0)
  1. ;;=GEOLOGY^5
  1. ;;^UTILITY(U,$J,1991212,22,3,3,0)
  1. ;;=PALENTOLOGY^4
  1. ;;^UTILITY(U,$J,1991212,22,4)
  1. ;;=ADMINISTRATOR^789876
  1. ;;^UTILITY(U,$J,1991212,23,0)
  1. ;;=KARLA^454343234^2730525^F
  1. ;;^UTILITY(U,$J,1991212,23,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,23,1,1,0)
  1. ;;=This employee started with our company a few months ago. We have great
  1. ;;^UTILITY(U,$J,1991212,23,1,2,0)
  1. ;;=expectations for her.
  1. ;;^UTILITY(U,$J,1991212,23,2)
  1. ;;=8769 Chickadee Lane^3^2;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,23,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,23,3,1,0)
  1. ;;=VOLUNTEER WORK^5
  1. ;;^UTILITY(U,$J,1991212,23,3,2,0)
  1. ;;=READING^5
  1. ;;^UTILITY(U,$J,1991212,23,3,3,0)
  1. ;;=COOKING^2
  1. ;;^UTILITY(U,$J,1991212,23,4)
  1. ;;=JR ASSISTANT^45656
  1. ;;^UTILITY(U,$J,1991212,24,0)
  1. ;;=LEO^878909898^2760229^M
  1. ;;^UTILITY(U,$J,1991212,24,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,24,1,1,0)
  1. ;;=As his name implies, Leo is a strong leader and others look to him for
  1. ;;^UTILITY(U,$J,1991212,24,1,2,0)
  1. ;;=guidance.
  1. ;;^UTILITY(U,$J,1991212,24,2)
  1. ;;=932 Apple Blossom Way^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,24,3,0)
  1. ;;=^1991212.09^3^3
  1. ;;^UTILITY(U,$J,1991212,24,3,1,0)
  1. ;;=COOKING^4
  1. ;;^UTILITY(U,$J,1991212,24,3,2,0)
  1. ;;=COMPUTER GAMES^1
  1. ;;^UTILITY(U,$J,1991212,24,3,3,0)
  1. ;;=MUSIC^5
  1. ;;^UTILITY(U,$J,1991212,24,4)
  1. ;;=DEVELOPER^90999
  1. ;;^UTILITY(U,$J,1991212,25,0)
  1. ;;=NANCY^234545678^2550515^F
  1. ;;^UTILITY(U,$J,1991212,25,1,0)
  1. ;;=^^3^3^3040130^
  1. ;;^UTILITY(U,$J,1991212,25,1,1,0)
  1. ;;=This employee has a very interesting way of looking at things. She has
  1. ;;^UTILITY(U,$J,1991212,25,1,2,0)
  1. ;;=devised unusual solutions to unusual situations. She thinks outside the
  1. ;;^UTILITY(U,$J,1991212,25,1,3,0)
  1. ;;=box.
  1. ;;^UTILITY(U,$J,1991212,25,2)
  1. ;;=6789 Butterfly Road^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,25,3,0)
  1. ;;=^1991212.09^2^2
  1. ;;^UTILITY(U,$J,1991212,25,3,1,0)
  1. ;;=BEACH COMBING^4
  1. ;;^UTILITY(U,$J,1991212,25,3,2,0)
  1. ;;=SHOPPING^3
  1. ;;^UTILITY(U,$J,1991212,25,4)
  1. ;;=DESIGNER^78909
  1. ;;^UTILITY(U,$J,1991212,26,0)
  1. ;;=OSCAR^787876765^2670627^M
  1. ;;^UTILITY(U,$J,1991212,26,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,26,1,1,0)
  1. ;;=Oscar is above average in every way. He is a great asset to the company
  1. ;;^UTILITY(U,$J,1991212,26,1,2,0)
  1. ;;=and we are fortunate to have him.
  1. ;;^UTILITY(U,$J,1991212,26,2)
  1. ;;=3456 Horseshoe Bend Road^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,26,3,0)
  1. ;;=^1991212.09^2^2
  1. ;;^UTILITY(U,$J,1991212,26,3,1,0)
  1. ;;=FISHING^3
  1. ;;^UTILITY(U,$J,1991212,26,3,2,0)
  1. ;;=AIRPLANES^4
  1. ;;^UTILITY(U,$J,1991212,26,4)
  1. ;;=ACCOUNTANT^89000
  1. ;;^UTILITY(U,$J,1991212,27,0)
  1. ;;=SALLY^676765654^2880818^F
  1. ;;^UTILITY(U,$J,1991212,27,1,0)
  1. ;;=^^2^2^3040130^
  1. ;;^UTILITY(U,$J,1991212,27,1,1,0)
  1. ;;=Sally is very pleasant and always pitches in when help is needed. I see
  1. ;;^UTILITY(U,$J,1991212,27,1,2,0)
  1. ;;=a great future for her in this company.
  1. ;;^UTILITY(U,$J,1991212,27,2)
  1. ;;=9878 Pinetree Road^3^3;DIZ(1991214,
  1. ;;^UTILITY(U,$J,1991212,27,3,0)
  1. ;;=^1991212.09^1^1
  1. ;;^UTILITY(U,$J,1991212,27,3,1,0)
  1. ;;=MACRAME^4
  1. ;;^UTILITY(U,$J,1991212,27,4)
  1. ;;=CLERK^34333
  1. ;;^UTILITY(U,$J,1991212,28,0)
  1. ;;=TIMOTHY^102910291^2711111^M