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

VEN8I018.m

Go to the documentation of this file. 
  1. VEN8I018 ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 
  1.  ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
  1.  Q:'DIFQR(19707.17)  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,19707.17,2811,0)
  1.  ;;=24^Respect rights and needs of others^^CHA-BH^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2811,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2812,0)
  1.  ;;=24^Share in household chores^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2812,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2813,0)
  1.  ;;=24^Take on new responsibilities^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2813,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2814,0)
  1.  ;;=24^Increased independence and decision making^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2814,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2815,0)
  1.  ;;=24^Learn new skills (CPR, child care)^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2815,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2816,0)
  1.  ;;=25^Discuss school transitions^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2816,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2817,0)
  1.  ;;=25^Become responsible for attendance, homework, course selection^^CHA-BH^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2817,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2818,0)
  1.  ;;=25^Discuss frustrations or thoughts of dropping out^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2818,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2819,0)
  1.  ;;=25^Participate in school activities^^CHA-BH^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2819,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2820,0)
  1.  ;;=25^Identify  and pursue talents and interests^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2820,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2821,0)
  1.  ;;=19^Ask for resources or referrals if needed^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2821,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2822,0)
  1.  ;;=19^Participate in volunteer, religious or recreational activities^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2822,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2823,0)
  1.  ;;=19^Explore heritage, cultural diversity^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2823,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2824,0)
  1.  ;;=19^Participate in peer-mediated conflict management training^^CHA-BH^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2824,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2825,0)
  1.  ;;=21^Spend time with adolescent^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2825,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2826,0)
  1.  ;;=21^Show affection and praise good behavior^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2826,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2827,0)
  1.  ;;=21^Model respect, family values, safe driving practices, healthy behaviors^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2827,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2828,0)
  1.  ;;=21^Respect teen's need for privacy^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2828,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2829,0)
  1.  ;;=21^Establish realistic expectations, clear limits, consequences.^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2829,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2830,0)
  1.  ;;=21^Anticipate challenges to parental authority^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2830,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2831,0)
  1.  ;;=21^Minimize criticism.  Avoid nagging and negative messages^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2831,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2832,0)
  1.  ;;=21^Emphasize importance of school, show interest in school activities^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2832,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2833,0)
  1.  ;;=21^Ask for resources or referrals if needed^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2833,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2834,0)
  1.  ;;=21^Keep guns unloaded and locked up, or remove from home.^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2834,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2835,0)
  1.  ;;=21^Normal development^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2835,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2836,0)
  1.  ;;=21^Signs of emotional/physical disease^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2836,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2837,0)
  1.  ;;=21^Be a healthy  role model^^CHA-PA^3843^4880^^^^^1^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2837,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2838,0)
  1.  ;;=21^Help teens avoid harmful behaviors (drugs, alcohol, tobacco or sex)^^CHA-PA^3843^4880^^^^^0^^126^160
  1.  ;;^UTILITY(U,$J,19707.17,2838,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2839,0)
  1.  ;;=11^Keep home and car smoke-free^^CHA-PA^4880^6100^^^^^0^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2839,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2840,0)
  1.  ;;=11^Try to get 8 hours of sleep a night^^CHA-PA^4880^6100^^^^^0^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2840,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2841,0)
  1.  ;;=11^Engage in physical activity 30-60 minutes 3+ times a week^^CHA-PA^4880^6100^^^^^0^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2841,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2842,0)
  1.  ;;=11^Athletic conditioning, weights, fluids, weight gain/loss, supplements^^CHA-PA^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2842,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2843,0)
  1.  ;;=11^Limit TV and computer time^^CHA-PA^4880^6100^^^^^0^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2843,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2844,0)
  1.  ;;=11^Time management^^CHA-PA^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2844,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2845,0)
  1.  ;;=23^Use lap and shoulder belt in car; be sure passengers wear them too^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2845,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2846,0)
  1.  ;;=23^Follow speed limits, drive responsibly, avoid distractions, driver's Ed^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2846,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2847,0)
  1.  ;;=23^Don't drink alcohol^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2847,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2848,0)
  1.  ;;=23^Alcohol consequences when driving, biking, swimming, operating machinery^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2848,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2849,0)
  1.  ;;=23^Plan to rise with designated driver or call for ride if drinking^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2849,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2850,0)
  1.  ;;=23^Limit sun, use sun screen, avoid tanning salons^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2850,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2851,0)
  1.  ;;=23^Know fire and other emergency procedures^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2851,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2852,0)
  1.  ;;=23^Use helmet on bikes or motorcycles^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2852,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2853,0)
  1.  ;;=23^Use protective sports gear^^^4880^6100^^^^^1^^160^200
  1.  ;;^UTILITY(U,$J,19707.17,2853,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2854,0)
  1.  ;;=23^Use protective gear at work, follow job safety rules^^^4880^6100^^^^^1^^160^200