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

XU8P616.m

Go to the documentation of this file. 
  1. XU8P616 ; BA/BP - PERSON CLASSES;01/10/13
  1.  ;;8.0;KERNEL;**616**; July 10, 1995;Build 5
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  Q
  1.  ; Update Person Class file for 01/01/2013
  1. POST ;
  1.  D DEL ;clean entry 1212-1217 if existed
  1.  D DEL858 ; clean entry 858 before update
  1.  D ADD ;add entry 1212-1217 in the file
  1.  D DEF ;update definition for entries
  1.  Q
  1.  ;
  1. ADD ;add the entry 1212-1217
  1.  N XUDATA
  1.  S XUDATA="1212^Other Service Providers^Case Manager/Care Coordinator^^a^^V080101^171M00000X^^^^I"
  1.  D ADD1(XUDATA)
  1.  N XUDATA
  1.  S XUDATA="1213^Other Service Providers^Community Health Worker^^a^^V080400^172V00000X^^^^I"
  1.  D ADD1(XUDATA)
  1.  N XUDATA
  1.  S XUDATA="1214^Other Service Providers^Interpreter^^a^^V080300^171R00000X^^^^I"
  1.  D ADD1(XUDATA)
  1.  N XUDATA
  1.  S XUDATA="1215^Other Service Providers^Mechanotherapist^^a^^V080600^172M00000X^^^^I"
  1.  D ADD1(XUDATA)
  1.  S XUDATA="1216^Dental Providers^Dentist^Dentist Anesthesiologist^a^^V030490^1223D0004X^^^^I"
  1.  D ADD1(XUDATA)
  1.  N XUDATA
  1.  S XUDATA="1217^Ambulatory Health Care Facilities^Clinic/Center^Birthing^a^^^261QB0400X^^^^N"
  1.  D ADD1(XUDATA)
  1.  N XUDATA
  1.  S XUDATA="858^Allopathic and Osteopathic Physicians^Pediatrics^Sports Medicine^a^^V182522^2080S0010X^^37^^I"
  1.  D ADD1(XUDATA)
  1.  Q
  1.  ;^USC(8932.1,D0,0)= (#.01) PROVIDER TYPE [1F] ^ (#1) CLASSIFICATION [2F] ^ 
  1.  ;                ==>(#2) AREA OF SPECIALIZATION [3F] ^ (#3) STATUS [4S] ^ (#4) 
  1.  ;                ==>DATE INACTIVATED [5D] ^ (#5) VA CODE [6F] ^ (#6) X12 CODE 
  1.  ;                ==>[7F] ^ (#7) reserved [8F] ^ (#8) SPECIALTY CODE [9F] ^ 
  1.  ;^USC(8932.1,D0,11,0)=^8932.111^^  (#11) DEFINITION
  1.  ;^USC(8932.1,D0,11,D1,0)= (#.01) DEFINITION [1W] ^ 
  1.  ;^USC(8932.1,D0,90002)=  ^ (#90002) INDIVIDUAL/NON [2S] ^
  1.  ;
  1. ADD1(XUDATA) ; add single entry
  1.  N FDA,FDAIEN,XUD
  1.  S XUD=$G(XUDATA)
  1.  S FDAIEN(1)=$P(XUD,"^")
  1.  S FDA(8932.1,"+1,",.01)=$P(XUD,"^",2)
  1.  S FDA(8932.1,"+1,",1)=$P(XUD,"^",3)
  1.  S FDA(8932.1,"+1,",2)=$P(XUD,"^",4)
  1.  S FDA(8932.1,"+1,",3)="a"
  1.  S FDA(8932.1,"+1,",5)=$P(XUD,"^",7)
  1.  S FDA(8932.1,"+1,",6)=$P(XUD,"^",8)
  1.  S FDA(8932.1,"+1,",8)=$P(XUD,"^",10)
  1.  S FDA(8932.1,"+1,",90002)=$P(XUD,"^",12)
  1.  D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1.  Q
  1.  ;
  1. DEL ; Delete entries
  1.  N XU581,DIK,DA
  1.  F XU581=1212:1:1217 S DIK="^USC(8932.1,",DA=XU581 D ^DIK 
  1.  Q
  1.  ;
  1. DEL858 ; delete entry 858 before update
  1.  N DIR,DA
  1.  S DIK="^USC(8932.1,",DA=858 D ^DIK
  1.  Q
  1.  ;
  1. DEF ; Update definitions
  1.  N XUI F XUI=1212:1:1217 D DEF1(XUI)
  1.  N XUI D DEF1(858)
  1.  Q
  1.  ;
  1. DEF1(XUI) ; Update definition for single entry XUI
  1.  N XUI1,XUDATA,XUY
  1.  K ^TMP($J,"XUBA")
  1.  F XUY=1:1:100 S XUDATA=$T(@XUI+XUY) Q:XUDATA=" ;;END"  D 
  1.  . S ^TMP($J,"XUBA",XUI,XUY,0)=$P(XUDATA,";;",2)
  1.  S XUI1=XUI_","
  1.  D WP^DIE(8932.1,XUI1,11,"K","^TMP($J,""XUBA"",XUI)")
  1.  K ^TMP($J,"XUBA")
  1.  Q
  1.  ;
  1. GETDEF ; get definitions
  1.  N XUI,XUY
  1.  F XUI=1212:1:1217 D
  1.  . S XUY=$G(^USC(8932.1,XUI,11,0)),XUY=$P(XUY,"^",3)
  1.  . I XUY>0 D GETDES(XUI,XUY)
  1.  Q
  1.  ;
  1. GETDES(XUI,XUY) ; get single entry definition
  1.  N XUA,XUB
  1.  W !,XUI," ;"
  1.  F XUA=1:1:XUY W !," ;;",$G(^USC(8932.1,XUI,11,XUA,0))
  1.  W !," ;;END"
  1.  Q
  1. GET ;
  1.  N XU591
  1.  F XU591=1212:1:1217 D GET1(XU591)
  1.  Q
  1.  ;
  1. GET1(XUIEN) ; Get information of given entry from Person Class file.
  1.  N XUI
  1.  S XUI=" ;;"_XUIEN_"^"_$G(^USC(8932.1,XUIEN,0))
  1.  S $P(XUI,"^",12)=$G(^USC(8932.1,XUIEN,90002))
  1.  W !," N XUDATA"
  1.  W !," S XUDATA=","""",$P(XUI,";;",2),""""
  1.  W !," D ADD1(XUDATA)"
  1.  Q
  1.  ;
  1. 1212 ;
  1.  ;;A person who provides case management services and assists an individual 
  1.  ;;in gaining access to needed medical, social, educational, and/or other 
  1.  ;;services. The person has the ability to provide an assessment and review 
  1.  ;;of completed plan of care on a periodic basis. This person is also able 
  1.  ;;to take collaborative action to coordinate the services with other 
  1.  ;;providers and monitor the enrollee's progress toward the cost-effective 
  1.  ;;achievement of objectives specified in the plan of care. Credentials may 
  1.  ;;vary from an experience in the fields of psychology, social work, 
  1.  ;;rehabilitation, nursing or a closely related human service field, to a 
  1.  ;;related Assoc of Arts Degree or to nursing credentials. Some states may 
  1.  ;;require certification in case management.
  1.  ;;END
  1. 1213 ;
  1.  ;;Community health workers (CHW) are lay members of communities who work 
  1.  ;;either for pay or as volunteers in association with the local health care 
  1.  ;;system in both urban and rural environments and usually share ethnicity, 
  1.  ;;language, socioeconomic status and life experiences with the community 
  1.  ;;members they serve. They have been identified by many titles such as 
  1.  ;;community health advisors, lay health advocates, promotores(as), 
  1.  ;;outreach educators, community health representatives, peer health 
  1.  ;;promoters, and peer health educators. CHWs offer interpretation and 
  1.  ;;translation services, provide culturally appropriate health education and 
  1.  ;;information, assist people in receiving the care they need, give informal 
  1.  ;;counseling and guidance on health behaviors, advocate for individual and 
  1.  ;;community health needs, and provide some direct services such as first 
  1.  ;;aid and blood pressure screening. Some examples of these practitioners 
  1.  ;;are Community Health Aides or Practitioners established under 25 USC 
  1.  ;;1616 (l) under HHS, Indian Health Service, Public Health Service.
  1.  ;;END
  1. 1214 ;
  1.  ;;An Interpreter is a person who translates oral communication between two 
  1.  ;;or more people. This includes translating from one language to another or 
  1.  ;;interpreting sign language. An interpreter is necessary for medical care 
  1.  ;;when the patient does not speak the language of the health care provider 
  1.  ;;or when the patient has a disability involving spoken language.
  1.  ;;END
  1. 1215 ;
  1.  ;;A practitioner of mechanotherapy examines patients by verbal inquiry, 
  1.  ;;examination of the musculoskeletal system by hand, and visual inspection 
  1.  ;;and observation. In the treatment of patients, mechanotherapists employ 
  1.  ;;the techniques of advised or supervised exercise; electrical 
  1.  ;;neuromuscular stimulation; massage or manipulation; or air, water, heat, 
  1.  ;;cold, sound, or infrared ray therapy.
  1.  ;;END
  1. 1216 ;
  1.  ;;A dentist who has successfully completed an accredited postdoctoral 
  1.  ;;anesthesiology residency training program for dentists of two or more 
  1.  ;;years duration, in accord with Commission on Dental Accreditation's 
  1.  ;;Standards for Dental Anesthesiology Residency Programs, and/or meets the 
  1.  ;;eligibility requirements for examination by the American Dental Board of 
  1.  ;;Anesthesiology.
  1.  ;; 
  1.  ;;Source: The American Society of Dentist Anesthesiologists.
  1.  ;;END
  1. 1217 ;
  1.  ;;A freestanding birth center is a health facility other than a hospital 
  1.  ;;where childbirth is planned to occur away from the pregnant woman's 
  1.  ;;residence, and that provides prenatal, labor and delivery, and postpartum 
  1.  ;;care, as well as other ambulatory services for women and newborns.
  1.  ;; 
  1.  ;;Source: Summarized from Social Security Act [42 U.S.C. 1396d(1)(3)(B)].
  1.  ;;END
  1. 858 ;
  1.  ;;A pediatrician who is responsible for continuous care in the field of 
  1.  ;;sports medicine, not only for the enhancement of health and fitness, but 
  1.  ;;also for the prevention of injury and illness. A sports medicine 
  1.  ;;physician must have knowledge and experience in the promotion of wellness 
  1.  ;;and the prevention of injury. Knowledge about special areas of medicine 
  1.  ;;such as exercise physiology, biomechanics, nutrition, psychology, 
  1.  ;;physical rehabilitation, epidemiology, physical evaluation, injuries 
  1.  ;;(treatment and prevention and referral practice) and the role of exercise 
  1.  ;;in promoting a healthy lifestyle are essential to the practice of sports 
  1.  ;;medicine. The sports medicine physician requires special education to 
  1.  ;;provide the knowledge to improve the healthcare of the individual engaged 
  1.  ;;in physical exercise (sports) whether as an individual or in team 
  1.  ;;participation.   Source: American Board of Medical Specialties, 2007. 
  1.  ;;www.abms.org [7/1/2007: definition added, source added; 7/1/2011: 
  1.  ;;modified source]
  1.  ;; 
  1.  ;;Additional Resources: American Board of Pediatrics, 2007. 
  1.  ;;http://www.abp.org/. American Osteopathic Board of Pediatrics, 2007. 
  1.  ;;http://www.osteopathic.org/certification
  1.  ;; 
  1.  ;;Board certification for Medical Doctors (MDs) is provided by the American 
  1.  ;;Board of Pediatrics. Board certification for Doctors of Osteopathy (DOs) 
  1.  ;;is provided by the American Osteopathic Board of Pediatrics. 
  1.  ;;END