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