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

VEN8I01C.m

Go to the documentation of this file. 
  1. VEN8I01C ; 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,2985,0)
  1.  ;;=26^If using tobacco, drugs or alcohol, discuss available help, seek assistance^^CHA-AOD^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2985,2)
  1.  ;;=^^CHA-AOD^^^CHA-ALCOHOL AND OTHER DRUGS
  1.  ;;^UTILITY(U,$J,19707.17,2986,0)
  1.  ;;=26^Support friends who choose not to smoke, drink, use drugs^^CHA-AOD^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2986,2)
  1.  ;;=^^CHA-AOD^^^CHA-ALCOHOL AND OTHER DRUGS
  1.  ;;^UTILITY(U,$J,19707.17,2987,0)
  1.  ;;=18^Continue to maintain strong family relationships. ^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2987,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2988,0)
  1.  ;;=18^Develop good peer relationships and social support systems^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2988,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2989,0)
  1.  ;;=18^Use peer refusal skills to handle negative peer pressure^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2989,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2990,0)
  1.  ;;=18^Continue progress in independence^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2990,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2991,0)
  1.  ;;=18^Decision-making, anticipating consequences of your behavior^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2991,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2992,0)
  1.  ;;=18^Self image and peer pressure^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2992,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2993,0)
  1.  ;;=18^Importance of listening and communicating^^CHA-PA^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2993,2)
  1.  ;;=^^CHA-PA^^^CHA-PARENTING
  1.  ;;^UTILITY(U,$J,19707.17,2994,0)
  1.  ;;=24^Respect rights and needs of others^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2994,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2995,0)
  1.  ;;=24^Serve as a positive role model^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2995,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2996,0)
  1.  ;;=24^Learn new responsibilities and skills^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2996,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2997,0)
  1.  ;;=24^Become an informed health care consumer^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2997,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2998,0)
  1.  ;;=24^Ask for help entering the adult health care system^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2998,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,2999,0)
  1.  ;;=24^Discuss future reproductive plans^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,2999,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3000,0)
  1.  ;;=20^Discuss responsibilities involved (emotional, physical, financial)^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3000,2)
  1.  ;;=^^CHA-WL^^^
  1.  ;;^UTILITY(U,$J,19707.17,3001,0)
  1.  ;;=20^Eat a variety of healthy foods, be physically active^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3001,2)
  1.  ;;=^^CHA-WL^^^
  1.  ;;^UTILITY(U,$J,19707.17,3002,0)
  1.  ;;=20^Take a folic acid supplement daily before and during pregnancy^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3002,2)
  1.  ;;=^^CHA-WL^^^
  1.  ;;^UTILITY(U,$J,19707.17,3003,0)
  1.  ;;=20^Avoid tobacco, alcohol, drugs before and during pregnancy^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3003,2)
  1.  ;;=^^CHA-AOD^^^CHA-ALCOHOL AND OTHER DRUGS
  1.  ;;^UTILITY(U,$J,19707.17,3004,0)
  1.  ;;=20^Seek genetic counseling if needed^^^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3004,2)
  1.  ;;=^^CHA-WL^^^
  1.  ;;^UTILITY(U,$J,19707.17,3005,0)
  1.  ;;=25^Identify  and pursue talents and interests^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3005,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3006,0)
  1.  ;;=25^Plan for the future^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3006,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3007,0)
  1.  ;;=19^Ask for resources or referrals if needed^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3007,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3008,0)
  1.  ;;=19^Participate in community activities^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3008,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3009,0)
  1.  ;;=19^Explore cultural heritage, diversity^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3009,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3010,0)
  1.  ;;=19^Advocate for community programs^^CHA-BH^6100^7686^^^^^1^^200^252
  1.  ;;^UTILITY(U,$J,19707.17,3010,2)
  1.  ;;=^^CHA-BH^^^
  1.  ;;^UTILITY(U,$J,19707.17,3011,0)
  1.  ;;=9^Babbles^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3012,0)
  1.  ;;=9^Points or Gestures?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3013,0)
  1.  ;;=9^Any loss of language skills?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3014,0)
  1.  ;;=9^Responds when you call his/her name?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3015,0)
  1.  ;;=9^Shows interest in other children?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3016,0)
  1.  ;;=9^Brings objects to show you something?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3017,0)
  1.  ;;=9^Imitates you?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3018,0)
  1.  ;;=9^Looks at an object/toy you point to?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3019,0)
  1.  ;;=9^Seems oversensitive to noise?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3020,0)
  1.  ;;=9^Makes unusual movements near his/her face?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3021,0)
  1.  ;;=9^Have you ever wondered if he/she is deaf?^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3022,0)
  1.  ;;=9^Sometimes stares at nothing or wanders with no purpose? ^^^366^457^^^^^^^12^15
  1.  ;;^UTILITY(U,$J,19707.17,3023,0)
  1.  ;;=9^Babbles?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3024,0)
  1.  ;;=9^Points or Gestures?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3025,0)
  1.  ;;=9^Any loss of language skills?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3026,0)
  1.  ;;=9^Responds when you call his/her name?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3027,0)
  1.  ;;=9^Single words?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3028,0)
  1.  ;;=9^Shows interest in other children?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3029,0)
  1.  ;;=9^Brings objects to show you something?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3030,0)
  1.  ;;=9^Imitates you?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3031,0)
  1.  ;;=9^Looks at an object/toy you point to?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3032,0)
  1.  ;;=9^Seems oversensitive to noise?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3033,0)
  1.  ;;=9^Makes unusual movements near his/her face?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3034,0)
  1.  ;;=9^Have you ever wondered if he/she is deaf?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3035,0)
  1.  ;;=9^Sometimes stares at nothing or wanders with no purpose?^^^457^549^^^^^^^15^18
  1.  ;;^UTILITY(U,$J,19707.17,3036,0)
  1.  ;;=9^Babbles?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3037,0)
  1.  ;;=9^Points or Gestures?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3038,0)
  1.  ;;=9^Any loss of language skills?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3039,0)
  1.  ;;=9^Responds when you call his/her name?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3040,0)
  1.  ;;=9^Single words?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3041,0)
  1.  ;;=9^Shows interest in other children?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3042,0)
  1.  ;;=9^Brings objects to show you something?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3043,0)
  1.  ;;=9^Imitates you?^^^549^732^^^^^^^18^24
  1.  ;;^UTILITY(U,$J,19707.17,3044,0)
  1.  ;;=9^Looks at an object/toy you point to?^^^549^732^^^^^^^18^24