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

AEFIN002.m

Go to the documentation of this file.
AEFIN002 ; ; 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)
 ;;=^DIZ(1991212,
 ;;^UTILITY(U,$J,1991212,0)
 ;;=AEF EMPLOYEE^1991212I^34^34
 ;;^UTILITY(U,$J,1991212,1,0)
 ;;=ANNE^890098890^2541231^F
 ;;^UTILITY(U,$J,1991212,1,1,0)
 ;;=^^2^2^3040105^
 ;;^UTILITY(U,$J,1991212,1,1,1,0)
 ;;=This is a nice lady.  She is married and lives with her husband and
 ;;^UTILITY(U,$J,1991212,1,1,2,0)
 ;;=3 cats.  
 ;;^UTILITY(U,$J,1991212,1,2)
 ;;=123 Wherever Ave^3^1;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,1,3,0)
 ;;=^1991212.09^3^3
 ;;^UTILITY(U,$J,1991212,1,3,1,0)
 ;;=PHOTOGRAPHY^4
 ;;^UTILITY(U,$J,1991212,1,3,2,0)
 ;;=TRAVEL^3
 ;;^UTILITY(U,$J,1991212,1,3,3,0)
 ;;=GARDENING^4
 ;;^UTILITY(U,$J,1991212,1,4)
 ;;=TEACHER^9999998.99
 ;;^UTILITY(U,$J,1991212,2,0)
 ;;=JOHN^234543456^2491205^M
 ;;^UTILITY(U,$J,1991212,2,1,0)
 ;;=^^3^3^3040105^
 ;;^UTILITY(U,$J,1991212,2,1,1,0)
 ;;=This man has lived in Phoenix most of his life.  He looks forward to 
 ;;^UTILITY(U,$J,1991212,2,1,2,0)
 ;;=retiring soon and expects to travel the country, boldly going where no 
 ;;^UTILITY(U,$J,1991212,2,1,3,0)
 ;;=man has gone before.
 ;;^UTILITY(U,$J,1991212,2,2)
 ;;=989 West Bananaboat Circle^3^4;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,2,3,0)
 ;;=^1991212.09^3^3
 ;;^UTILITY(U,$J,1991212,2,3,1,0)
 ;;=CAMPING^5
 ;;^UTILITY(U,$J,1991212,2,3,2,0)
 ;;=FISHING^4
 ;;^UTILITY(U,$J,1991212,2,3,3,0)
 ;;=HUNTING^3
 ;;^UTILITY(U,$J,1991212,2,4)
 ;;=POPE^33333
 ;;^UTILITY(U,$J,1991212,3,0)
 ;;=CARRIE^768787678^^F
 ;;^UTILITY(U,$J,1991212,3,4)
 ;;=PILL PUSHER^9898989
 ;;^UTILITY(U,$J,1991212,4,0)
 ;;=PAM^124345676^2610825^F
 ;;^UTILITY(U,$J,1991212,4,1,0)
 ;;=^1991212.05^1^1^3040122^
 ;;^UTILITY(U,$J,1991212,4,1,1,0)
 ;;=This is a test to see how the COMMENTS field works.
 ;;^UTILITY(U,$J,1991212,4,2)
 ;;=1432 Sleepy Hollow Road^11
 ;;^UTILITY(U,$J,1991212,4,3,0)
 ;;=^1991212.09^1^1
 ;;^UTILITY(U,$J,1991212,4,3,1,0)
 ;;=SHOPPING^5
 ;;^UTILITY(U,$J,1991212,4,4)
 ;;=PILOT^8990987
 ;;^UTILITY(U,$J,1991212,5,0)
 ;;=DEANN^123432123^2491207^F
 ;;^UTILITY(U,$J,1991212,5,1,0)
 ;;=^^2^2^3040122^
 ;;^UTILITY(U,$J,1991212,5,1,1,0)
 ;;=Enjoys small town life in the Colorado Rockies.  She is an excellent 
 ;;^UTILITY(U,$J,1991212,5,1,2,0)
 ;;=artist specializing in colored pencil and watercolor.
 ;;^UTILITY(U,$J,1991212,5,2)
 ;;=111 7th Street^6
 ;;^UTILITY(U,$J,1991212,5,3,0)
 ;;=^1991212.09^4^4
 ;;^UTILITY(U,$J,1991212,5,3,1,0)
 ;;=ART^5
 ;;^UTILITY(U,$J,1991212,5,3,2,0)
 ;;=HIKING^4
 ;;^UTILITY(U,$J,1991212,5,3,3,0)
 ;;=SKIING^3
 ;;^UTILITY(U,$J,1991212,5,3,4,0)
 ;;=KAYAKING^5
 ;;^UTILITY(U,$J,1991212,5,4)
 ;;=ARTIST^4567890
 ;;^UTILITY(U,$J,1991212,6,0)
 ;;=MICHAEL^787890989^2781003^M
 ;;^UTILITY(U,$J,1991212,6,1,0)
 ;;=^^2^2^3040122^
 ;;^UTILITY(U,$J,1991212,6,1,1,0)
 ;;=Michael is a very likeable young man.  He is very tall coming in at 
 ;;^UTILITY(U,$J,1991212,6,1,2,0)
 ;;=6'4". He is very knowledgable in the area of aviation.
 ;;^UTILITY(U,$J,1991212,6,2)
 ;;=546 Spring Flower Trail^3^4;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,6,3,0)
 ;;=^1991212.09^2^2
 ;;^UTILITY(U,$J,1991212,6,3,1,0)
 ;;=HUNTING^2
 ;;^UTILITY(U,$J,1991212,6,3,2,0)
 ;;=AUTO RACING^5
 ;;^UTILITY(U,$J,1991212,6,4)
 ;;=ZOOKEEPER^43567
 ;;^UTILITY(U,$J,1991212,7,0)
 ;;=CAROLYN^^2780330^F
 ;;^UTILITY(U,$J,1991212,7,2)
 ;;=1554 Aztec Road^3^4;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,7,3,0)
 ;;=^1991212.09^2^2
 ;;^UTILITY(U,$J,1991212,7,3,1,0)
 ;;=DANCING^5
 ;;^UTILITY(U,$J,1991212,7,3,2,0)
 ;;=SHOPPING^5
 ;;^UTILITY(U,$J,1991212,7,4)
 ;;=STUDENT^12345
 ;;^UTILITY(U,$J,1991212,8,0)
 ;;=BETTY
 ;;^UTILITY(U,$J,1991212,8,2)
 ;;=^5
 ;;^UTILITY(U,$J,1991212,8,4)
 ;;=QUEEN^
 ;;^UTILITY(U,$J,1991212,9,0)
 ;;=GEORGE^768787890^2530313^M
 ;;^UTILITY(U,$J,1991212,9,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,9,1,1,0)
 ;;=This employee has been with us for many years.  He is a very valuable 
 ;;^UTILITY(U,$J,1991212,9,1,2,0)
 ;;=asset to the company.
 ;;^UTILITY(U,$J,1991212,9,2)
 ;;=444 April Shower Lane^5^2;DIZ(1991216,
 ;;^UTILITY(U,$J,1991212,9,3,0)
 ;;=^1991212.09^3^3
 ;;^UTILITY(U,$J,1991212,9,3,1,0)
 ;;=WOODWORKING^5
 ;;^UTILITY(U,$J,1991212,9,3,2,0)
 ;;=SKATEBOARDING^0
 ;;^UTILITY(U,$J,1991212,9,3,3,0)
 ;;=GARDENING^2
 ;;^UTILITY(U,$J,1991212,9,4)
 ;;=ENGINEER^78909
 ;;^UTILITY(U,$J,1991212,10,0)
 ;;=JIM^656545434^2560501^M
 ;;^UTILITY(U,$J,1991212,10,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,10,1,1,0)
 ;;=Jim is a very hard worker and our company would be hard-pressed to 
 ;;^UTILITY(U,$J,1991212,10,1,2,0)
 ;;=replace him.  We should pay him more.
 ;;^UTILITY(U,$J,1991212,10,2)
 ;;=678 Honeysuckle Lane^5^1;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,10,3,0)
 ;;=^1991212.09^2^2
 ;;^UTILITY(U,$J,1991212,10,3,1,0)
 ;;=COMPUTERS^5
 ;;^UTILITY(U,$J,1991212,10,3,2,0)
 ;;=WELDING^1
 ;;^UTILITY(U,$J,1991212,10,4)
 ;;=WELDER^78909
 ;;^UTILITY(U,$J,1991212,11,0)
 ;;=MARTHA^565454378^2481215^F
 ;;^UTILITY(U,$J,1991212,11,1,0)
 ;;=^^3^3^3040130^
 ;;^UTILITY(U,$J,1991212,11,1,1,0)
 ;;=Martha came to us from our parent organization.  She has possesses 
 ;;^UTILITY(U,$J,1991212,11,1,2,0)
 ;;=valuable skills needed by our branch office.  We should pay her more 
 ;;^UTILITY(U,$J,1991212,11,1,3,0)
 ;;=money too.
 ;;^UTILITY(U,$J,1991212,11,2)
 ;;=7890 Maple Dr.^29^2;DIZ(1991216,
 ;;^UTILITY(U,$J,1991212,11,3,0)
 ;;=^1991212.09^3^3
 ;;^UTILITY(U,$J,1991212,11,3,1,0)
 ;;=KNITTING
 ;;^UTILITY(U,$J,1991212,11,3,2,0)
 ;;=SEWING
 ;;^UTILITY(U,$J,1991212,11,3,3,0)
 ;;=HORSES^5
 ;;^UTILITY(U,$J,1991212,11,4)
 ;;=PAPER SHUFFLER^87678
 ;;^UTILITY(U,$J,1991212,12,0)
 ;;=JERRY^878965678^2770913^M
 ;;^UTILITY(U,$J,1991212,12,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,12,1,1,0)
 ;;=Jerry is one of our younger employees.  He shows great potential and 
 ;;^UTILITY(U,$J,1991212,12,1,2,0)
 ;;=should advance quickly.
 ;;^UTILITY(U,$J,1991212,12,2)
 ;;=9887 Waterlily Dr.^29^1;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,12,3,0)
 ;;=^1991212.09^4^4
 ;;^UTILITY(U,$J,1991212,12,3,1,0)
 ;;=SKIING
 ;;^UTILITY(U,$J,1991212,12,3,2,0)
 ;;=MOUNTAIN CLIMBING
 ;;^UTILITY(U,$J,1991212,12,3,3,0)
 ;;=KAYAKING
 ;;^UTILITY(U,$J,1991212,12,3,4,0)
 ;;=SNOWBOARDING^3
 ;;^UTILITY(U,$J,1991212,12,4)
 ;;=DAREDEVIL^56653
 ;;^UTILITY(U,$J,1991212,13,0)
 ;;=JUNE^343212345^2680218^F
 ;;^UTILITY(U,$J,1991212,13,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,13,1,1,0)
 ;;=June shows a great aptitude for working with numbers and is always bright 
 ;;^UTILITY(U,$J,1991212,13,1,2,0)
 ;;=and cheery.  She frequently comes in early and works late.
 ;;^UTILITY(U,$J,1991212,13,2)
 ;;=8742 Mockingbird Lane^29^1;DIZ(1991216,
 ;;^UTILITY(U,$J,1991212,13,3,0)
 ;;=^1991212.09^2^2
 ;;^UTILITY(U,$J,1991212,13,3,1,0)
 ;;=SAND PAINTING^2
 ;;^UTILITY(U,$J,1991212,13,3,2,0)
 ;;=POTTERY^1
 ;;^UTILITY(U,$J,1991212,13,4)
 ;;=JR ACCOUNTANT^45890
 ;;^UTILITY(U,$J,1991212,14,0)
 ;;=ALLISON^676765654^2500812^F
 ;;^UTILITY(U,$J,1991212,14,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,14,1,1,0)
 ;;=This employee is one of our company's greatest assets.  She deserves a 
 ;;^UTILITY(U,$J,1991212,14,1,2,0)
 ;;=pay raise and a big promotion.
 ;;^UTILITY(U,$J,1991212,14,2)
 ;;=678 Bluebird Road^3^1;DIZ(1991214,
 ;;^UTILITY(U,$J,1991212,14,3,0)
 ;;=^1991212.09^2^2
 ;;^UTILITY(U,$J,1991212,14,3,1,0)
 ;;=ARCHITECTURE^4
 ;;^UTILITY(U,$J,1991212,14,3,2,0)
 ;;=READING^5
 ;;^UTILITY(U,$J,1991212,14,4)
 ;;=JUNIOR CEO^89009
 ;;^UTILITY(U,$J,1991212,15,0)
 ;;=JENNIFER^676565456^2600329^F
 ;;^UTILITY(U,$J,1991212,15,1,0)
 ;;=^^2^2^3040130^
 ;;^UTILITY(U,$J,1991212,15,1,1,0)
 ;;=Jenn is new to our company having started just under a year ago.  She is 
 ;;^UTILITY(U,$J,1991212,15,1,2,0)
 ;;=a fast learner and I believe she will fit in fine.
 ;;^UTILITY(U,$J,1991212,15,2)
 ;;=8900 8th St^3^1;DIZ(1991214,