Released XU*8*571 SEQ #457 Extracted from mail message **KIDS**:XU*8.0*571^ **INSTALL NAME** XU*8.0*571 "BLD",1365,0) XU*8.0*571^KERNEL^0^3110602^y "BLD",1365,1,0) ^^2^2^3110602^ "BLD",1365,1,1,0) Kernel patch XU*8*570; ADD A TAXONOMY FOR THE PERSON CLASS FILE. "BLD",1365,1,2,0) Please refer to the Description in Forum Patch Module for details. "BLD",1365,4,0) ^9.64PA^^ "BLD",1365,6.3) 1 "BLD",1365,"INID") ^y "BLD",1365,"INIT") POST^XU8P571 "BLD",1365,"KRN",0) ^9.67PA^9002226^21 "BLD",1365,"KRN",.4,0) .4 "BLD",1365,"KRN",.401,0) .401 "BLD",1365,"KRN",.402,0) .402 "BLD",1365,"KRN",.403,0) .403 "BLD",1365,"KRN",.5,0) .5 "BLD",1365,"KRN",.84,0) .84 "BLD",1365,"KRN",3.6,0) 3.6 "BLD",1365,"KRN",3.8,0) 3.8 "BLD",1365,"KRN",9.2,0) 9.2 "BLD",1365,"KRN",9.8,0) 9.8 "BLD",1365,"KRN",19,0) 19 "BLD",1365,"KRN",19.1,0) 19.1 "BLD",1365,"KRN",101,0) 101 "BLD",1365,"KRN",409.61,0) 409.61 "BLD",1365,"KRN",771,0) 771 "BLD",1365,"KRN",779.2,0) 779.2 "BLD",1365,"KRN",870,0) 870 "BLD",1365,"KRN",8989.51,0) 8989.51 "BLD",1365,"KRN",8989.52,0) 8989.52 "BLD",1365,"KRN",8994,0) 8994 "BLD",1365,"KRN",9002226,0) 9002226 "BLD",1365,"KRN","B",.4,.4) "BLD",1365,"KRN","B",.401,.401) "BLD",1365,"KRN","B",.402,.402) "BLD",1365,"KRN","B",.403,.403) "BLD",1365,"KRN","B",.5,.5) "BLD",1365,"KRN","B",.84,.84) "BLD",1365,"KRN","B",3.6,3.6) "BLD",1365,"KRN","B",3.8,3.8) "BLD",1365,"KRN","B",9.2,9.2) "BLD",1365,"KRN","B",9.8,9.8) "BLD",1365,"KRN","B",19,19) "BLD",1365,"KRN","B",19.1,19.1) "BLD",1365,"KRN","B",101,101) "BLD",1365,"KRN","B",409.61,409.61) "BLD",1365,"KRN","B",771,771) "BLD",1365,"KRN","B",779.2,779.2) "BLD",1365,"KRN","B",870,870) "BLD",1365,"KRN","B",8989.51,8989.51) "BLD",1365,"KRN","B",8989.52,8989.52) "BLD",1365,"KRN","B",8994,8994) "BLD",1365,"KRN","B",9002226,9002226) "BLD",1365,"QDEF") ^^^^NO^^^^NO^^NO "BLD",1365,"QUES",0) ^9.62^^ "INIT") POST^XU8P571 "MBREQ") 0 "PKG",3,-1) 1^1 "PKG",3,0) KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^ "PKG",3,20,0) ^9.402P^200^1 "PKG",3,20,200,0) 200^^XDRM200N "PKG",3,20,200,1) "PKG",3,20,"B",200,200) "PKG",3,22,0) ^9.49I^1^1 "PKG",3,22,1,0) 8.0^3090706^3090706^6 "PKG",3,22,1,"PAH",1,0) 571^3110602 "PKG",3,22,1,"PAH",1,1,0) ^^2^2^3110602 "PKG",3,22,1,"PAH",1,1,1,0) Kernel patch XU*8*570; ADD A TAXONOMY FOR THE PERSON CLASS FILE. "PKG",3,22,1,"PAH",1,1,2,0) Please refer to the Description in Forum Patch Module for details. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","XU8P571") 0^^B10297065^n/a "RTN","XU8P571",1,0) XU8P571 ; BA/BP - PERSON CLASSES; 05/10/11 "RTN","XU8P571",2,0) ;;8.0;KERNEL;**571**; July 10, 1995;Build 1 "RTN","XU8P571",3,0) ;;Per VHA Directive 2004-038, this routine should not be modified. "RTN","XU8P571",4,0) Q "RTN","XU8P571",5,0) ; "RTN","XU8P571",6,0) POST ; "RTN","XU8P571",7,0) D DEL ;clean entry 1170 if existed "RTN","XU8P571",8,0) D ADD ;add entry 1170 in the file "RTN","XU8P571",9,0) D DEF ;update definition for entries "RTN","XU8P571",10,0) Q "RTN","XU8P571",11,0) ; "RTN","XU8P571",12,0) ADD ;add the entry 1170 "RTN","XU8P571",13,0) N XUDATA "RTN","XU8P571",14,0) S XUDATA="1170^Other Service Providers^Genetic Counselor, MS^^V082201^170300000X^^I" "RTN","XU8P571",15,0) D ADD1(XUDATA) "RTN","XU8P571",16,0) Q "RTN","XU8P571",17,0) ; "RTN","XU8P571",18,0) ADD1(XUDATA) ; add single entry "RTN","XU8P571",19,0) N FDA,FDAIEN,XUD "RTN","XU8P571",20,0) S XUD=$G(XUDATA) "RTN","XU8P571",21,0) S FDAIEN(1)=$P(XUD,"^") "RTN","XU8P571",22,0) S FDA(8932.1,"+1,",.01)=$P(XUD,"^",2) "RTN","XU8P571",23,0) S FDA(8932.1,"+1,",1)=$P(XUD,"^",3) "RTN","XU8P571",24,0) S FDA(8932.1,"+1,",2)=$P(XUD,"^",4) "RTN","XU8P571",25,0) S FDA(8932.1,"+1,",3)="a" "RTN","XU8P571",26,0) S FDA(8932.1,"+1,",5)=$P(XUD,"^",5) "RTN","XU8P571",27,0) S FDA(8932.1,"+1,",6)=$P(XUD,"^",6) "RTN","XU8P571",28,0) S FDA(8932.1,"+1,",8)=$P(XUD,"^",7) "RTN","XU8P571",29,0) S FDA(8932.1,"+1,",90002)=$P(XUD,"^",8) "RTN","XU8P571",30,0) D UPDATE^DIE("","FDA","FDAIEN","ERR") "RTN","XU8P571",31,0) Q "RTN","XU8P571",32,0) ; "RTN","XU8P571",33,0) DEL ; Delete entries "RTN","XU8P571",34,0) N XU560,DIK,DA "RTN","XU8P571",35,0) S XU560=1170 S DIK="^USC(8932.1,",DA=XU560 D ^DIK "RTN","XU8P571",36,0) Q "RTN","XU8P571",37,0) ; "RTN","XU8P571",38,0) DEF ; Update definitions "RTN","XU8P571",39,0) N XUI "RTN","XU8P571",40,0) S XUI=1170 D DEF1(XUI) "RTN","XU8P571",41,0) Q "RTN","XU8P571",42,0) ; "RTN","XU8P571",43,0) DEF1(XUI) ; Update definition for single entry XUI "RTN","XU8P571",44,0) N XUI1,XUDATA,XUY "RTN","XU8P571",45,0) K ^TMP($J,"XUBA") "RTN","XU8P571",46,0) F XUY=1:1:100 S XUDATA=$T(@XUI+XUY) Q:XUDATA=" ;;END" D "RTN","XU8P571",47,0) . S ^TMP($J,"XUBA",XUI,XUY,0)=$P(XUDATA,";;",2) "RTN","XU8P571",48,0) S XUI1=XUI_"," "RTN","XU8P571",49,0) D WP^DIE(8932.1,XUI1,11,"K","^TMP($J,""XUBA"",XUI)") "RTN","XU8P571",50,0) K ^TMP($J,"XUBA") "RTN","XU8P571",51,0) Q "RTN","XU8P571",52,0) ; "RTN","XU8P571",53,0) 1170 ; "RTN","XU8P571",54,0) ;;A masters trained health care provider who collects and interprets "RTN","XU8P571",55,0) ;;genetic family histories; assesses the risk of disease occurrence or "RTN","XU8P571",56,0) ;;recurrence; identifies interventions to manage or ameliorate disease risk; "RTN","XU8P571",57,0) ;;educates about inheritance, testing, management, prevention, ethical "RTN","XU8P571",58,0) ;;issues, resources, and research; and counsels to promote informed choices "RTN","XU8P571",59,0) ;;and adaptation. Certification was established in 1993 by the American "RTN","XU8P571",60,0) ;;Board of Genetic Counseling and prior to that by the American Board of "RTN","XU8P571",61,0) ;;Medical Genetics. Requirements for experience, licensure, and job "RTN","XU8P571",62,0) ;;responsibilities vary among the states. "RTN","XU8P571",63,0) ;; "RTN","XU8P571",64,0) ;;Source: National Society of Genetic Counselors [7/1/2005: new] "RTN","XU8P571",65,0) ;;END "RTN","XU8P571",66,0) Q "RTN","XU8P571",67,0) ; "RTN","XU8P571",68,0) GETDATA ; get definitions "RTN","XU8P571",69,0) N XUI,XUY "RTN","XU8P571",70,0) S XUI=1170 "RTN","XU8P571",71,0) S XUY=$G(^USC(8932.1,XUI,11,0)),XUY=$P(XUY,"^",3) "RTN","XU8P571",72,0) I XUY>0 D GETDES(XUI,XUY) "RTN","XU8P571",73,0) Q "RTN","XU8P571",74,0) ; "RTN","XU8P571",75,0) GETDES(XUI,XUY) ; get single entry definition "RTN","XU8P571",76,0) N XUA,XUB "RTN","XU8P571",77,0) W !,XUI," ;" "RTN","XU8P571",78,0) F XUA=1:1:XUY W !," ;;",$G(^USC(8932.1,XUI,11,XUA,0)) "RTN","XU8P571",79,0) W !," ;;END" "RTN","XU8P571",80,0) Q "VER") 8.0^22.0 "BLD",1365,6) ^457 **END** **END**