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

VENKI019.m

Go to the documentation of this file.
VENKI019 ; ; 16-MAR-2007
 ;;2.6;PCC+;;NOV 12, 2007
 Q:'DIFQR(19707.12)  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,19707.12,2840,2)
 ;;=^^CHA-PA
 ;;^UTILITY(U,$J,19707.12,2841,0)
 ;;=11^Engage in physical activity 30-60 minutes 3+ times a week^^CHA-PA^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2841,2)
 ;;=^^CHA-PA
 ;;^UTILITY(U,$J,19707.12,2842,0)
 ;;=11^Athletic conditioning, weights, fluids, weight gain/loss, supplements^^CHA-PA^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2842,2)
 ;;=^^CHA-PA
 ;;^UTILITY(U,$J,19707.12,2843,0)
 ;;=11^Limit TV and computer time^^CHA-PA^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2843,2)
 ;;=^^CHA-PA
 ;;^UTILITY(U,$J,19707.12,2844,0)
 ;;=11^Time management^^CHA-PA^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2844,2)
 ;;=^^CHA-PA
 ;;^UTILITY(U,$J,19707.12,2845,0)
 ;;=23^Use lap and shoulder belt in car; be sure passengers wear them too^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2846,0)
 ;;=23^Follow speed limits, drive responsibly, avoid distractions, driver's Ed^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2847,0)
 ;;=23^Don't drink alcohol^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2848,0)
 ;;=23^Alcohol consequences when driving, biking, swimming, operating machinery^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2849,0)
 ;;=23^Plan to rise with designated driver or call for ride if drinking^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2850,0)
 ;;=23^Limit sun, use sun screen, avoid tanning salons^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2851,0)
 ;;=23^Know fire and other emergency procedures^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2852,0)
 ;;=23^Use helmet on bikes or motorcycles^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2853,0)
 ;;=23^Use protective sports gear^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2854,0)
 ;;=23^Use protective gear at work, follow job safety rules^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2855,0)
 ;;=23^Don't carry or use weapons^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2856,0)
 ;;=23^Learn to swim^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2857,0)
 ;;=23^Learn to protect self from abuse^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2858,0)
 ;;=23^Deal with anger, resolve conflicts without violence^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2859,0)
 ;;=23^Personal safety - strangers, chat rooms^^^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2860,0)
 ;;=22^Take on new challenges to build confidence.^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2860,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2861,0)
 ;;=22^Continue to develop sense of identity and clarify values, beliefs^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2861,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2862,0)
 ;;=22^Trust own feelings, listen to good friends and valued adults^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2862,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2863,0)
 ;;=22^Seek help if often feel angry, depressed or hopeless^^CHA-BH^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2863,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2864,0)
 ;;=22^Set reasonable and challenging goals^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2864,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2865,0)
 ;;=22^Recognize and deal with stress^^CHA-BH^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2865,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2866,0)
 ;;=22^Understand and meet spiritual needs^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2866,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2867,0)
 ;;=22^Self-destructive behaviors^^CHA-BH^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2867,2)
 ;;=^^CHA-BH
 ;;^UTILITY(U,$J,19707.12,2868,0)
 ;;=14^Eat 3 nutritious meals a day and healthy snacks^^CHA-N^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2868,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2869,0)
 ;;=14^Eat most meals with family^^CHA-N^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2869,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2870,0)
 ;;=14^Limit high-fat and high-sugar foods^^CHA-N^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2870,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2871,0)
 ;;=14^Choose fruits, vegetables; less breads, cereals, grains^^CHA-N^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2871,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2872,0)
 ;;=14^Choose chicken, fish, only lean meat, only low-fat dairy products^^CHA-N^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2872,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2873,0)
 ;;=14^Maintain healthy weight with good nutrition and activity^^CHA-N^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2873,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2874,0)
 ;;=14^Ask about folic acid supplements^^CHA-N^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2874,2)
 ;;=^^CHA-N
 ;;^UTILITY(U,$J,19707.12,2875,0)
 ;;=15^Brush and floss daily^^CHA-DC^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2875,2)
 ;;=^^CHA-DC
 ;;^UTILITY(U,$J,19707.12,2876,0)
 ;;=15^Ask about fluoride, sealants^^CHA-DC^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2876,2)
 ;;=^^CHA-DC
 ;;^UTILITY(U,$J,19707.12,2877,0)
 ;;=15^Learn emergency dental care^^CHA-DC^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2877,2)
 ;;=^^CHA-DC
 ;;^UTILITY(U,$J,19707.12,2878,0)
 ;;=15^Schedule dental appointment^^CHA-DC^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2878,2)
 ;;=^^CHA-DC
 ;;^UTILITY(U,$J,19707.12,2879,0)
 ;;=15^Don't smoke or chew tobacco^^CHA-DC^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2879,2)
 ;;=^^CHA-DC
 ;;^UTILITY(U,$J,19707.12,2880,0)
 ;;=17^Identify adult who can give accurate information^^CHA-SX^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2880,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2881,0)
 ;;=17^Ask professional about puberty, sexual development, contraception, STD^^CHA-SX^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2881,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2882,0)
 ;;=17^Recognize that sexual feelings are normal^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2882,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2883,0)
 ;;=17^Having sex should be a well-thought-out decision^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2883,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2884,0)
 ;;=17^Delay having sex until mature enough to handle responsibilities^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2884,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2885,0)
 ;;=17^Learn how to say "no" to sex^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2885,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2886,0)
 ;;=17^Abstinence is still  the safest way to prevent both pregnancy and STD^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2886,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2887,0)
 ;;=17^If sexually active, discuss contraception, safer sex, STD prevention^^CHA-SX^4880^6100^^^^^0^^160^200
 ;;^UTILITY(U,$J,19707.12,2887,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2888,0)
 ;;=17^Ask if concerned about feelings for same or opposite sex^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2888,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2889,0)
 ;;=17^Limit sexual partners, use latex condoms and other barriers correctly^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2889,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2890,0)
 ;;=17^Physical changes in adolescence^^CHA-SX^4880^6100^^^^^1^^160^200
 ;;^UTILITY(U,$J,19707.12,2890,2)
 ;;=^^CHA-SX
 ;;^UTILITY(U,$J,19707.12,2891,0)
 ;;=26^Don't use tobacco, alcohol, drugs, diet pills, inhalants^^CHA-AOD^4880^6100^^^^^0^^160^200