- 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 Feb 18, 2025@23:49:53 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