Released PRS*4*152 SEQ #140 Extracted from mail message **KIDS**:PRS*4.0*152^ **INSTALL NAME** PRS*4.0*152 "BLD",10729,0) PRS*4.0*152^PAID^0^3170919^y "BLD",10729,1,0) ^^2^2^3170919^ "BLD",10729,1,1,0) This patch contains updates to the Hybrid table for Occupation "BLD",10729,1,2,0) Series/Title Codes converting to Hybrid status. "BLD",10729,4,0) ^9.64PA^^ "BLD",10729,6.3) 1 "BLD",10729,"KRN",0) ^9.67PA^779.2^20 "BLD",10729,"KRN",.4,0) .4 "BLD",10729,"KRN",.401,0) .401 "BLD",10729,"KRN",.402,0) .402 "BLD",10729,"KRN",.403,0) .403 "BLD",10729,"KRN",.5,0) .5 "BLD",10729,"KRN",.84,0) .84 "BLD",10729,"KRN",3.6,0) 3.6 "BLD",10729,"KRN",3.8,0) 3.8 "BLD",10729,"KRN",9.2,0) 9.2 "BLD",10729,"KRN",9.8,0) 9.8 "BLD",10729,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",10729,"KRN",9.8,"NM",1,0) PRSAENT1^^0^B87994984 "BLD",10729,"KRN",9.8,"NM","B","PRSAENT1",1) "BLD",10729,"KRN",19,0) 19 "BLD",10729,"KRN",19.1,0) 19.1 "BLD",10729,"KRN",101,0) 101 "BLD",10729,"KRN",409.61,0) 409.61 "BLD",10729,"KRN",771,0) 771 "BLD",10729,"KRN",779.2,0) 779.2 "BLD",10729,"KRN",870,0) 870 "BLD",10729,"KRN",8989.51,0) 8989.51 "BLD",10729,"KRN",8989.52,0) 8989.52 "BLD",10729,"KRN",8994,0) 8994 "BLD",10729,"KRN","B",.4,.4) "BLD",10729,"KRN","B",.401,.401) "BLD",10729,"KRN","B",.402,.402) "BLD",10729,"KRN","B",.403,.403) "BLD",10729,"KRN","B",.5,.5) "BLD",10729,"KRN","B",.84,.84) "BLD",10729,"KRN","B",3.6,3.6) "BLD",10729,"KRN","B",3.8,3.8) "BLD",10729,"KRN","B",9.2,9.2) "BLD",10729,"KRN","B",9.8,9.8) "BLD",10729,"KRN","B",19,19) "BLD",10729,"KRN","B",19.1,19.1) "BLD",10729,"KRN","B",101,101) "BLD",10729,"KRN","B",409.61,409.61) "BLD",10729,"KRN","B",771,771) "BLD",10729,"KRN","B",779.2,779.2) "BLD",10729,"KRN","B",870,870) "BLD",10729,"KRN","B",8989.51,8989.51) "BLD",10729,"KRN","B",8989.52,8989.52) "BLD",10729,"KRN","B",8994,8994) "BLD",10729,"QDEF") ^^^^^^^^^^YES "BLD",10729,"QUES",0) ^9.62^^ "BLD",10729,"REQB",0) ^9.611^1^1 "BLD",10729,"REQB",1,0) PRS*4.0*148^1 "BLD",10729,"REQB","B","PRS*4.0*148",1) "MBREQ") 0 "PKG",408,-1) 1^1 "PKG",408,0) PAID^PRS^PAID "PKG",408,20,0) ^9.402P^^ "PKG",408,22,0) ^9.49I^1^1 "PKG",408,22,1,0) 4.0^2950912^2960130 "PKG",408,22,1,"PAH",1,0) 152^3170919 "PKG",408,22,1,"PAH",1,1,0) ^^2^2^3170919 "PKG",408,22,1,"PAH",1,1,1,0) This patch contains updates to the Hybrid table for Occupation "PKG",408,22,1,"PAH",1,1,2,0) Series/Title Codes converting to Hybrid status. "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") YES "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","PRSAENT1") 0^1^B87994984^B87554284 "RTN","PRSAENT1",1,0) PRSAENT1 ;HISC/MGD - Entitlement String ;9/19/17 1:30pm "RTN","PRSAENT1",2,0) ;;4.0;PAID;**96,130,135,138,141,143,147,148,152**;Sep 21, 1995;Build 1 "RTN","PRSAENT1",3,0) ;;Per VA Directive 6402, this routine should not be modified. "RTN","PRSAENT1",4,0) ; "RTN","PRSAENT1",5,0) Q "RTN","PRSAENT1",6,0) ; "RTN","PRSAENT1",7,0) HYBRID(IEN) ; "RTN","PRSAENT1",8,0) ;---------------------------------------------------------------------- "RTN","PRSAENT1",9,0) ; The following code was added to address Public Law "RTN","PRSAENT1",10,0) ; P.L. 107-135 which adds mandatory Saturday (SP/SQ) and Sunday "RTN","PRSAENT1",11,0) ; (SA/SE) Premium Pay for all "Hybrid" title 38 employees. "RTN","PRSAENT1",12,0) ; "RTN","PRSAENT1",13,0) ; Input Vars: "RTN","PRSAENT1",14,0) ; IEN - the ien number of the employee in the PAID EMPLOYEE (#450) "RTN","PRSAENT1",15,0) ; file. "RTN","PRSAENT1",16,0) ; "RTN","PRSAENT1",17,0) ; Local Vars: "RTN","PRSAENT1",18,0) ; C0 - the 0 node of the employee from the PAID EMPLOYEE (#450) "RTN","PRSAENT1",19,0) ; file. "RTN","PRSAENT1",20,0) ; HYBRID - Is the employee a Hybrid that qualifies for Saturday and "RTN","PRSAENT1",21,0) ; Sunday premium pay after the passing of Public Law "RTN","PRSAENT1",22,0) ; P.L. 107-135. "RTN","PRSAENT1",23,0) ; 1 : Entitled to Saturday or Sunday Premium pay. "RTN","PRSAENT1",24,0) ; 0 : Not Entitled to Saturday or Sunday Premium pay. "RTN","PRSAENT1",25,0) ; OCODE - The employee's OCCUPATION SERIES & TITLE code. "RTN","PRSAENT1",26,0) ; "RTN","PRSAENT1",27,0) ; Output: HYBRID "RTN","PRSAENT1",28,0) ; "RTN","PRSAENT1",29,0) ;---------------------------------------------------------------------- "RTN","PRSAENT1",30,0) ; "RTN","PRSAENT1",31,0) N C0,HYBRID,OCODE,PREM "RTN","PRSAENT1",32,0) S (HYBRID,PREM)=0 "RTN","PRSAENT1",33,0) ; "RTN","PRSAENT1",34,0) Q:'+IEN HYBRID ; Quit if no IEN passed in. "RTN","PRSAENT1",35,0) ; "RTN","PRSAENT1",36,0) S C0=$G(^PRSPC(IEN,0)) "RTN","PRSAENT1",37,0) Q:C0="" HYBRID ; Quit if no 0 node in 450 "RTN","PRSAENT1",38,0) ; "RTN","PRSAENT1",39,0) S PREM=$P($G(^PRSPC(IEN,"PREMIUM")),U,6) "RTN","PRSAENT1",40,0) I "^E^F^"[("^"_PREM_"^") S PREM=1 "RTN","PRSAENT1",41,0) ; "RTN","PRSAENT1",42,0) ; Check for Pay Plan A and Type of Appointment 5 or 6 "RTN","PRSAENT1",43,0) I $P(C0,U,21)="A","^5^6^"[(U_$P(C0,U,43)_U),'PREM D "RTN","PRSAENT1",44,0) .;Check Occupational Series Code and Title Code. "RTN","PRSAENT1",45,0) . S OCODE=$P(C0,U,17) "RTN","PRSAENT1",46,0) . Q:OCODE="" "RTN","PRSAENT1",47,0) . ; "RTN","PRSAENT1",48,0) . ; For any OCC codes applicable to Hybrid employees translate any "RTN","PRSAENT1",49,0) . ; 6th position Alphas in the Title Code to its corresponding "RTN","PRSAENT1",50,0) . ; numerical equivalent before making the final comparison. "RTN","PRSAENT1",51,0) . ; "RTN","PRSAENT1",52,0) . ;I "^0080^0081^0083^0085^0086^0301^0303^0350^3566^4805^7304^7305^"[$E(OCODE,1,4) D ;PRS*4*138 "RTN","PRSAENT1",53,0) . ;. S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789") "RTN","PRSAENT1",54,0) . ;I "^7404^7408^5406^4742^5415^5309^5402^5703^4801^5306^1046^1001^"[$E(OCODE,1,4) D ;PRS*4*138 "RTN","PRSAENT1",55,0) . ;. S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789") "RTN","PRSAENT1",56,0) . I "^0101^0180^0185^0601^0620^0621^0622^0630^0631^0633^0635^0636^"[$E(OCODE,1,4) D ;PRS*4*130 and PRS*4*138 and PRS*4*143 "RTN","PRSAENT1",57,0) . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789") "RTN","PRSAENT1",58,0) . I "^0640^0644^0647^0648^0649^0660^0661^0665^0667^"[$E(OCODE,1,4) D "RTN","PRSAENT1",59,0) . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789") "RTN","PRSAENT1",60,0) . I "^0669^0672^0675^0679^0681^0682^0685^1601^0858^0996^0188^"[$E(OCODE,1,4) D ;PRS*4*135, PRS*4*143, PRS*4*147, PRS*4*148 "RTN","PRSAENT1",61,0) . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789") "RTN","PRSAENT1",62,0) . ; "RTN","PRSAENT1",63,0) . ; Check individual OCC codes "RTN","PRSAENT1",64,0) . ; "RTN","PRSAENT1",65,0) . ;I $E(OCODE,1,4)="0080" D ; Security Officer "RTN","PRSAENT1",66,0) . ;. I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",67,0) . ;I $E(OCODE,1,4)="0081" D ; Firefighter "RTN","PRSAENT1",68,0) . ;. I "^03^04^05^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",69,0) . ;I $E(OCODE,1,4)="0083" D ; Detective "RTN","PRSAENT1",70,0) . ;. I "^02^03^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",71,0) . ;I $E(OCODE,1,4)="0085" D ; Security Guard "RTN","PRSAENT1",72,0) . ;. I "^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",73,0) . ;I $E(OCODE,1,4)="0086" D ; Security Clerk "RTN","PRSAENT1",74,0) . ;. I "^01^02^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",75,0) . ;I $E(OCODE,1,4)="0301" D ; Patient Representative "RTN","PRSAENT1",76,0) . ;. I "^68^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",77,0) . ;I $E(OCODE,1,4)="0303" D ; Medical Admin Assistant "RTN","PRSAENT1",78,0) . ;. I "^03^04^16^19^45^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",79,0) . ;I $E(OCODE,1,4)="0350" D ; X-Ray Film Proc Equ "RTN","PRSAENT1",80,0) . ;. I "^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",81,0) . I $E(OCODE,1,4)="0101" D ; Marriage Family Therapist, Licensed Mental Health Provider "RTN","PRSAENT1",82,0) . . I "^06^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",83,0) . I $E(OCODE,1,4)="0180" D ; Psychologist "RTN","PRSAENT1",84,0) . . I "^02^03^04^05^07^10^11^26^85^86^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",85,0) . . I "^87^92^95^96^97^98^18^19^20^21^22^23^25^28^29^31^32^33^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148 "RTN","PRSAENT1",86,0) . I $E(OCODE,1,4)="0185" D ; Social Worker "RTN","PRSAENT1",87,0) . . I "^02^03^04^05^10^51^57^58^59^61^62^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",88,0) . . I "^63^64^66^71^72^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",89,0) . I $E(OCODE,1,4)="0601" D ; Registered Respiratory Therapist "RTN","PRSAENT1",90,0) . . I "^22^23^25^31^43^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",91,0) . I $E(OCODE,1,4)="0601" D ; Nuclear Med Technologist "RTN","PRSAENT1",92,0) . . I "^08^13^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",93,0) . I $E(OCODE,1,4)="0601" D ; Vist Coordinator "RTN","PRSAENT1",94,0) . . I "^67^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141 "RTN","PRSAENT1",95,0) . I $E(OCODE,1,4)="0601" D ; Blind Rehab Specialist "RTN","PRSAENT1",96,0) . . I "^68^69^71^72^73^74^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141 "RTN","PRSAENT1",97,0) . I $E(OCODE,1,4)="0601" D ; Medical Physicist "RTN","PRSAENT1",98,0) . . I "^75^76^78^79^96^95^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143, PRS*4*148,PRS*4*152 "RTN","PRSAENT1",99,0) . I $E(OCODE,1,4)="0620" D ; Vocational/Practical Nurse "RTN","PRSAENT1",100,0) . . I "^01^02^03^04^05^06^12^13^14^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",101,0) . I $E(OCODE,1,4)="0621" D ; Nursing Assistant "RTN","PRSAENT1",102,0) . . I "^02^03^05^08^14^15^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130, PRS*4*143, PRS*4*147 "RTN","PRSAENT1",103,0) . I $E(OCODE,1,4)="0622" D ; Medical Supply Tech "RTN","PRSAENT1",104,0) . . I "^04^05^06^07^08^09^11^12^13^14^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143 "RTN","PRSAENT1",105,0) . I $E(OCODE,1,4)="0630" D ; Dietitian "RTN","PRSAENT1",106,0) . . I "^09^10^18^20^59^61^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",107,0) . I $E(OCODE,1,4)="0631" D ; Occupational Therapist "RTN","PRSAENT1",108,0) . . I "^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",109,0) . I $E(OCODE,1,4)="0633" D ; Physical Therapist "RTN","PRSAENT1",110,0) . . I "^02^15^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141 "RTN","PRSAENT1",111,0) . I $E(OCODE,1,4)="0635" D ; Corrective Therapist "RTN","PRSAENT1",112,0) . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",113,0) . I $E(OCODE,1,4)="0636" D ; Therapy Assistant "RTN","PRSAENT1",114,0) . . I "^15^16^17^18^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",115,0) . I $E(OCODE,1,4)="0640" D ;Certified Respiratory Therapy Tech "RTN","PRSAENT1",116,0) . . I "^75^27^35^79^80^81^82^83^84^85^86^87^88^89^41^42^43^44^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148,PRS*4*152 "RTN","PRSAENT1",117,0) . I $E(OCODE,1,4)="0644" D ; Medical Technologist "RTN","PRSAENT1",118,0) . . I "^02^03^05^10^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",119,0) . . I "^04^07^08^09^11^12^13^14^15^16^17^18^19^21^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143 "RTN","PRSAENT1",120,0) . I $E(OCODE,1,4)="0647" D ; Diagnostic Radiologic "RTN","PRSAENT1",121,0) . . I "^11^12^13^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",122,0) . . I "^19^21^22^23^24^25^26^27^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",123,0) . I $E(OCODE,1,4)="0648" D ; Therapeutic Radiologic "RTN","PRSAENT1",124,0) . . I "^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",125,0) . I $E(OCODE,1,4)="0649" D ; Medical Instrument Technician "RTN","PRSAENT1",126,0) . . I "^15^16^17^18^19^21^22^23^24^25^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",127,0) . . I "^27^28^32^33^34^35^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",128,0) . . I "^36^37^38^39^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141 "RTN","PRSAENT1",129,0) . I $E(OCODE,1,4)="0660" D ; Pharmacist "RTN","PRSAENT1",130,0) . . I "^02^03^04^05^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",131,0) . . I "^10^13^15^20^21^41^50^70^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",132,0) . . I "^16^17^18^19^81^82^83^84^86^87^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141 "RTN","PRSAENT1",133,0) . I $E(OCODE,1,4)="0661" D ; Pharmacy Aid/Technician "RTN","PRSAENT1",134,0) . . I "^03^04^06^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",135,0) . I $E(OCODE,1,4)="0665" D ; Audiologist/Speech "RTN","PRSAENT1",136,0) . . I "^02^04^05^06^07^08^12^15^18^65^68^75^82^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",137,0) . I $E(OCODE,1,4)="0667" D ; Orthotist "RTN","PRSAENT1",138,0) . . I "^02^12^22^23^24^25^26^27^28^29^31^32^33^34^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130, PRS*4*148 "RTN","PRSAENT1",139,0) . I $E(OCODE,1,4)="0669" D ; Medical Records Administration "RTN","PRSAENT1",140,0) . . I "^03^04^05^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",141,0) . I $E(OCODE,1,4)="0672" D ; Prosthetic "RTN","PRSAENT1",142,0) . . I "^05^06^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130 "RTN","PRSAENT1",143,0) . I $E(OCODE,1,4)="0675" D ; Medical Records Technician "RTN","PRSAENT1",144,0) . . I "^01^02^04^05^06^07^08^09^11^13^18^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130, PRS*4*147 "RTN","PRSAENT1",145,0) . I $E(OCODE,1,4)="0679" S HYBRID=1 ;Medical Support Assistant ;PRS*4*135 "RTN","PRSAENT1",146,0) . I $E(OCODE,1,4)="0681" D ; Dental Assistant "RTN","PRSAENT1",147,0) . . I "^03^05^06^07^09^42^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",148,0) . I $E(OCODE,1,4)="0682" D ; Dental Hygienist "RTN","PRSAENT1",149,0) . . I "^02^04^05^06^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143 "RTN","PRSAENT1",150,0) . I $E(OCODE,1,4)="0858" D ; Biomedical Engineer "RTN","PRSAENT1",151,0) . . I "^02^03^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 "RTN","PRSAENT1",152,0) . I $E(OCODE,1,4)="1601" D ; Biomedical equipment support specialist "RTN","PRSAENT1",153,0) . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143 "RTN","PRSAENT1",154,0) . I $E(OCODE,1,4)="0996" D ; Veterans Crisis Line Responder(VCLR) "RTN","PRSAENT1",155,0) . . I "^06^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148 "RTN","PRSAENT1",156,0) . I $E(OCODE,1,4)="0188" D ; Recreation/Creative Arts Therapist "RTN","PRSAENT1",157,0) . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148 "RTN","PRSAENT1",158,0) . ;I $E(OCODE,1,4)="3566" D ; Housekeeping Aid "RTN","PRSAENT1",159,0) . ;. I "^10^30^40^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",160,0) . ;I $E(OCODE,1,4)="4805" D ; Medical Equipment "RTN","PRSAENT1",161,0) . ;. I "^10^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",162,0) . ;I $E(OCODE,1,4)="7304" D ; Laundry Worker "RTN","PRSAENT1",163,0) . ;. I "^10^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",164,0) . ;I $E(OCODE,1,4)="7305" D ; Laundry Machine Operator "RTN","PRSAENT1",165,0) . ;. I "^50^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",166,0) . ;I $E(OCODE,1,4)="7404" D ; Cook "RTN","PRSAENT1",167,0) . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",168,0) . ;I $E(OCODE,1,4)="7408" D ; Food Service Worker "RTN","PRSAENT1",169,0) . ;. I "^10^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",170,0) . ;I $E(OCODE,1,4)="5406" D ; Utility Systems Operator "RTN","PRSAENT1",171,0) . ;. I "^30^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138 "RTN","PRSAENT1",172,0) . ;I $E(OCODE,1,4)="4742" S HYBRID=1 ; Utility Systems Operator ; PRS*4*138 "RTN","PRSAENT1",173,0) . ;I $E(OCODE,1,4)="5415" D ; Air Conditioning Equipment Operator "RTN","PRSAENT1",174,0) . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",175,0) . ;I $E(OCODE,1,4)="5309" D ; Boiler Plant Equipment Mechanic "RTN","PRSAENT1",176,0) . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",177,0) . ;I $E(OCODE,1,4)="5402" D ; Boiler Plant Operator "RTN","PRSAENT1",178,0) . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",179,0) . ;I $E(OCODE,1,4)="5703" D ; Motor Vehicle Operator "RTN","PRSAENT1",180,0) . ;. I "^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",181,0) . ;I $E(OCODE,1,4)="4801" S HYBRID=1 ; Lead Equipment Servicer ; PRS*4*138 "RTN","PRSAENT1",182,0) . ;I $E(OCODE,1,4)="5306" D ; Air Conditioning Equipment Mechanic "RTN","PRSAENT1",183,0) . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",184,0) . ;I $E(OCODE,1,4)="1046" D ; Clerk Translator "RTN","PRSAENT1",185,0) . ;. I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",186,0) . ;I $E(OCODE,1,4)="1001" D ; Interpreter "RTN","PRSAENT1",187,0) . ;. I "^11^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138 "RTN","PRSAENT1",188,0) ; "RTN","PRSAENT1",189,0) Q HYBRID ; Return whether or not the employee qualifies. "VER") 8.0^22.2 "BLD",10729,6) ^140 **END** **END**