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 Apr 09, 2024@21:06:52 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
