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

XU8P560.m

Go to the documentation of this file.
  1. XU8P560 ; BA/BP - PERSON CLASSES; 01/11/11
  1. ;;8.0;KERNEL;**560**; July 10, 1995;Build 1
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. POST ;
  1. D DEL ;clean entry 410,1167-1169 if existed
  1. D ADD ;add entry 410,1167-1169 in the file
  1. D DEF ;update definition for entries
  1. Q
  1. ;
  1. ADD ;add the entry 410,1167 and 1169
  1. N XUDATA S XUDATA="410^Respiratory, Rehabilitative and Restorative Service Providers^Orthotic Fitter^^V130207^225000000X^57^I"
  1. D ADD1(XUDATA)
  1. N XUDATA S XUDATA="1167^Other Service Providers Type^Lactation Consultant, Non-RN^^V070850^174N00000X^^I"
  1. D ADD1(XUDATA)
  1. N XUDATA S XUDATA="1168^Other Service Providers Type^Clinical Ethicist^^V081810^174V00000X^^I"
  1. D ADD1(XUDATA)
  1. N XUDATA S XUDATA="1169^Allopathic & Osteopathic Physicians^Electrodiagnostic Medicine^^V181550^204R00000X^13^I"
  1. D ADD1(XUDATA)
  1. Q
  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,"^",5)
  1. S FDA(8932.1,"+1,",6)=$P(XUD,"^",6)
  1. S FDA(8932.1,"+1,",8)=$P(XUD,"^",7)
  1. S FDA(8932.1,"+1,",90002)=$P(XUD,"^",8)
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q
  1. ;
  1. DEL ; Delete entries
  1. N XU560,DIK,DA
  1. F XU560=410,1167,1168,1169 D
  1. . S DIK="^USC(8932.1,",DA=XU560 D ^DIK
  1. Q
  1. ;
  1. DEF ; Update definitions
  1. N XUI
  1. F XUI=410,1167,1168,1169 D
  1. . D DEF1(XUI)
  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. 410 ;
  1. ;;An individual trained in the management of fitting prefabricated orthoses.
  1. ;;
  1. ;;Source: National Uniform Claim Committee
  1. ;;
  1. ;;Additional Resources: American Board for Certification in Orthotics,
  1. ;;Prosthetics and Pedorthics, Inc., www.abcop.org and Board of
  1. ;;Certification/Accreditation, International, www.bocusa.org.
  1. ;;END
  1. 1167 ;
  1. ;;An individual trained to provide breastfeeding assistance services to
  1. ;;both mothers and infants. Lactation Consultants are not required to be
  1. ;;nurses and are trained through specific courses of education. The
  1. ;;Lactation Consultant may have additional certification through a national
  1. ;;or international organization.
  1. ;;
  1. ;;Source: National Uniform Claim Committee
  1. ;;END
  1. 1168 ;
  1. ;;A clinical ethicist has been trained in bioethics and ethics case
  1. ;;consultation. The clinical ethicist addresses medical-ethical dilemmas
  1. ;;arising in clinical practice, such as end-of-life care, refusal of
  1. ;;treatment, and futility of care; assists patients and health care
  1. ;;providers with medical decision-making; and provides ethics education for
  1. ;;patients and families.
  1. ;;
  1. ;;Source: National Uniform Claim Committee
  1. ;;END
  1. 1169 ;
  1. ;;Electrodiagnostic medicine is the medical subspecialty that applies
  1. ;;neurophysiologic techniques to diagnose, evaluate, and treat patients
  1. ;;with impairments of the neurologic, neuromuscular, and/or muscular
  1. ;;systems. Qualified physicians are trained in performing
  1. ;;electrophysiological testing and interpretation of the test data. They
  1. ;;require knowledge in anatomy, physiology, kinesiology, histology, and
  1. ;;pathology of the brain, spinal cord, autonomic nerves, cranial nerves,
  1. ;;peripheral nerves, neuromuscular junction, and muscles. They must know
  1. ;;clinical features and treatment of diseases of the central, peripheral,
  1. ;;and autonomic nervous systems, as well as those of neuromuscular junction
  1. ;;and muscle. Physicians also require special knowledge about electric
  1. ;;signal processing, including waveform analysis, electronics and
  1. ;;instrumentation, stimulation and recording equipment, and statistics.
  1. ;;
  1. ;;Source: American Association of Neuromuscular & Electrodiagnostic
  1. ;;Medicine, 2011. www.aanem.org
  1. ;;END