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