PRSAENT1 ;HISC/MGD-Entitlement String ;10/19/04
 ;;4.0;PAID;**96**;Sep 21, 1995
 ;
 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 "^0180^0185^0601^0620^0630^0631^0633^0635^0636^"[$E(OCODE,1,4) D
 . . 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^0681^0682^0685^"[$E(OCODE,1,4) D
 . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
 . ;
 . ; Check individual OCC codes
 . ;
 . I $E(OCODE,1,4)="0180" D       ; Psychologist
 . . I "^02^03^04^05^07^11^25^26^85^86^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . . I "^87^92^95^96^97^98^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0185" D       ; Social Worker
 . . I "^02^03^04^05^51^57^58^59^61^62^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . . I "^63^71^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0601" D       ; Registered Respiratory Therapist
 . . I "^31^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0601" D       ; Nuclear Med Technologist
 . . I "^13^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0604" D       ; Chiropractor
 . . I "^01^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . 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)="0630" D       ; Dietitian
 . . I "^18^20^59^61^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . 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^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . 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^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0644" D       ; Medical Technologist
 . . I "^02^03^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . 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 $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^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . 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^20^21^50^70^80^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0661" D       ; Pharmacy Aid/Technician
 . . I "^03^04^05^06^07^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0665" D       ; Audiologist/Speech
 . . I "^02^05^08^12^15^18^65^68^75^82^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0667" D       ; Orthotist
 . . I "^02^12^22^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0669" D       ; Medical Records Administration
 . . I "^03^04^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0672" D       ; Prosthetic
 . . I "^05^06^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0675" D       ; Medical Records Technician
 . . I "^01^02^04^05^06^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0681" D       ; Dental Assistant
 . . I "^03^04^05^06^07^09^42^45^48^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0682" D       ; Dental Hygienist
 . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 . I $E(OCODE,1,4)="0858" D       ; Biomedical Engineer
 . . I "^02^03^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
 ;
 Q HYBRID  ; Return whether or not the employee qualifies.