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

VEN8I01B.m

Go to the documentation of this file. 
  1. VEN8I01B ; 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,2940,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2941,0)
  1.  ;;=23^Limit sun, use sun screen, avoid tanning salons^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2941,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2942,0)
  1.  ;;=23^Know fire and other emergency procedures^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2942,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2943,0)
  1.  ;;=23^Use helmet on bikes or motorcycles^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2943,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2944,0)
  1.  ;;=23^Use protective sports gear^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2944,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2945,0)
  1.  ;;=23^Use protective gear at work, follow job safety rules^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2945,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2946,0)
  1.  ;;=23^Avoid high noise levels, especially with earphones^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2946,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2947,0)
  1.  ;;=23^Don't carry or use weapons^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2947,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2948,0)
  1.  ;;=23^Learn to protect self from abuse^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2948,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2949,0)
  1.  ;;=23^Deal with anger, resolve conflicts without violence^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2949,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2950,0)
  1.  ;;=23^Personal safety - strangers, chat rooms^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2950,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2951,0)
  1.  ;;=23^Driver's Ed^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2951,2)
  1.  ;;=^^CHA-S^^^CHA-SAFETY
  1.  ;;^UTILITY(U,$J,19707.17,2952,0)
  1.  ;;=22^Take on new challenges to build confidence.^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2952,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2953,0)
  1.  ;;=22^Continue to develop sense of identity and clarify values, beliefs^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2953,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2954,0)
  1.  ;;=22^Trust own feelings, listen to good friends and valued adults^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2954,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2955,0)
  1.  ;;=22^Seek help if often feel angry, depressed or hopeless^^CHA-BH^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2955,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2956,0)
  1.  ;;=22^Set reasonable and challenging goals^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2956,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2957,0)
  1.  ;;=22^Recognize and deal with stress^^CHA-BH^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2957,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2958,0)
  1.  ;;=22^Understand and meet spiritual needs^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2958,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2959,0)
  1.  ;;=22^Self-destructive behaviors^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2959,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2960,0)
  1.  ;;=14^Eat 3 nutritious meals a day at regular times^^CHA-N^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2960,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2961,0)
  1.  ;;=14^Limit high-fat and high-sugar foods^^CHA-N^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2961,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2962,0)
  1.  ;;=14^Healthy diet - 1: Fruits, vegetables; less breads, cereals, grains^^CHA-N^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2962,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2963,0)
  1.  ;;=14^Healthy diet - 2:, Chicken, fish, only lean meat and low-fat dairy products^^CHA-N^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2963,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2964,0)
  1.  ;;=14^Maintain healthy weight with good nutrition and activity^^CHA-N^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2964,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2965,0)
  1.  ;;=14^Eat in pleasant surroundings with companions^^CHA-N^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2965,2)
  1.  ;;=^^CHA-N^^^CHA-NUTRITION
  1.  ;;^UTILITY(U,$J,19707.17,2966,0)
  1.  ;;=15^Brush and floss daily^^CHA-DC^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2966,2)
  1.  ;;=^^CHA-DC^^^CHA-DENTAL CARIES
  1.  ;;^UTILITY(U,$J,19707.17,2967,0)
  1.  ;;=15^Learn emergency dental care^^CHA-DC^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2967,2)
  1.  ;;=^^CHA-DC^^^CHA-DENTAL CARIES
  1.  ;;^UTILITY(U,$J,19707.17,2968,0)
  1.  ;;=15^Schedule dental appointment^^CHA-DC^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2968,2)
  1.  ;;=^^CHA-DC^^^CHA-DENTAL CARIES
  1.  ;;^UTILITY(U,$J,19707.17,2969,0)
  1.  ;;=15^Ask dentist to check wisdom teeth^^CHA-DC^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2969,2)
  1.  ;;=^^CHA-DC^^^CHA-DENTAL CARIES
  1.  ;;^UTILITY(U,$J,19707.17,2970,0)
  1.  ;;=15^Don't smoke or chew tobacco^^CHA-DC^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2970,2)
  1.  ;;=^^CHA-DC^^^CHA-DENTAL CARIES
  1.  ;;^UTILITY(U,$J,19707.17,2971,0)
  1.  ;;=17^Contraception^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2971,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2972,0)
  1.  ;;=17^STD prevention^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2972,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2973,0)
  1.  ;;=17^Gay, lesbian, bisexual issues^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2973,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2974,0)
  1.  ;;=17^Discuss other questions and concerns^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2974,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2975,0)
  1.  ;;=17^Delay having sex until older^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2975,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2976,0)
  1.  ;;=17^Celibacy^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2976,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2977,0)
  1.  ;;=17^Having sex should be a well-thought-out decision^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2977,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2978,0)
  1.  ;;=17^Learn how to resist sexual pressures^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2978,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2979,0)
  1.  ;;=17^Abstinence is still the safest way to prevent both pregnancy and STD^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2979,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2980,0)
  1.  ;;=17^If sexually active, discuss contraception, safer sex, STD prevention^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2980,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2981,0)
  1.  ;;=17^Limit sexual partners^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2981,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2982,0)
  1.  ;;=17^Use latex condoms and other barriers correctly^^CHA-SX^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2982,2)
  1.  ;;=^^CHA-SX^^^CHA-SEXUALITY
  1.  ;;^UTILITY(U,$J,19707.17,2983,0)
  1.  ;;=26^Don't use tobacco, alcohol, drugs, diet pills, inhalants^^CHA-AOD^6100^7686^^^^^0^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2983,2)
  1.  ;;=^^CHA-AOD^^^CHA-ALCOHOL AND OTHER DRUGS
  1.  ;;^UTILITY(U,$J,19707.17,2984,0)
  1.  ;;=26^Don't sell drugs^^CHA-AOD^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2984,2)
  1.  ;;=^^CHA-AOD^^^CHA-ALCOHOL AND OTHER DRUGS