Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRSAENT1

PRSAENT1.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. HYBRID(IEN) ;
  1. ;----------------------------------------------------------------------
  1. ; The following code was added to address Public Law
  1. ; P.L. 107-135 which adds mandatory Saturday (SP/SQ) and Sunday
  1. ; (SA/SE) Premium Pay for all "Hybrid" title 38 employees.
  1. ;
  1. ; Input Vars:
  1. ; IEN - the ien number of the employee in the PAID EMPLOYEE (#450)
  1. ; file.
  1. ;
  1. ; Local Vars:
  1. ; C0 - the 0 node of the employee from the PAID EMPLOYEE (#450)
  1. ; file.
  1. ; HYBRID - Is the employee a Hybrid that qualifies for Saturday and
  1. ; Sunday premium pay after the passing of Public Law
  1. ; P.L. 107-135.
  1. ; 1 : Entitled to Saturday or Sunday Premium pay.
  1. ; 0 : Not Entitled to Saturday or Sunday Premium pay.
  1. ; OCODE - The employee's OCCUPATION SERIES & TITLE code.
  1. ;
  1. ; Output: HYBRID
  1. ;
  1. ;----------------------------------------------------------------------
  1. ;
  1. N C0,HYBRID,OCODE,PREM
  1. S (HYBRID,PREM)=0
  1. ;
  1. Q:'+IEN HYBRID ; Quit if no IEN passed in.
  1. ;
  1. S C0=$G(^PRSPC(IEN,0))
  1. Q:C0="" HYBRID ; Quit if no 0 node in 450
  1. ;
  1. S PREM=$P($G(^PRSPC(IEN,"PREMIUM")),U,6)
  1. I "^E^F^"[("^"_PREM_"^") S PREM=1
  1. ;
  1. ; Check for Pay Plan A and Type of Appointment 5 or 6
  1. I $P(C0,U,21)="A","^5^6^"[(U_$P(C0,U,43)_U),'PREM D
  1. .;Check Occupational Series Code and Title Code.
  1. . S OCODE=$P(C0,U,17)
  1. . Q:OCODE=""
  1. . ;
  1. . ; For any OCC codes applicable to Hybrid employees translate any
  1. . ; 6th position Alphas in the Title Code to its corresponding
  1. . ; numerical equivalent before making the final comparison.
  1. . ;
  1. . ;I "^0080^0081^0083^0085^0086^0301^0303^0350^3566^4805^7304^7305^"[$E(OCODE,1,4) D ;PRS*4*138
  1. . ;. S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
  1. . ;I "^7404^7408^5406^4742^5415^5309^5402^5703^4801^5306^1046^1001^"[$E(OCODE,1,4) D ;PRS*4*138
  1. . ;. S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
  1. . 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
  1. . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
  1. . I "^0640^0644^0647^0648^0649^0660^0661^0665^0667^"[$E(OCODE,1,4) D
  1. . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
  1. . 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
  1. . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
  1. . ;
  1. . ; Check individual OCC codes
  1. . ;
  1. . ;I $E(OCODE,1,4)="0080" D ; Security Officer
  1. . ;. I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0081" D ; Firefighter
  1. . ;. I "^03^04^05^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0083" D ; Detective
  1. . ;. I "^02^03^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0085" D ; Security Guard
  1. . ;. I "^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0086" D ; Security Clerk
  1. . ;. I "^01^02^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0301" D ; Patient Representative
  1. . ;. I "^68^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0303" D ; Medical Admin Assistant
  1. . ;. I "^03^04^16^19^45^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="0350" D ; X-Ray Film Proc Equ
  1. . ;. I "^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . I $E(OCODE,1,4)="0101" D ; Marriage Family Therapist, Licensed Mental Health Provider
  1. . . 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
  1. . I $E(OCODE,1,4)="0180" D ; Psychologist
  1. . . I "^02^03^04^05^07^10^11^26^85^86^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . . 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
  1. . I $E(OCODE,1,4)="0185" D ; Social Worker
  1. . . I "^02^03^04^05^10^51^57^58^59^61^62^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . . I "^63^64^66^71^72^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0601" D ; Registered Respiratory Therapist
  1. . . I "^22^23^25^31^43^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0601" D ; Nuclear Med Technologist
  1. . . I "^08^13^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0601" D ; Vist Coordinator
  1. . . I "^67^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141
  1. . I $E(OCODE,1,4)="0601" D ; Blind Rehab Specialist
  1. . . I "^68^69^71^72^73^74^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141
  1. . I $E(OCODE,1,4)="0601" D ; Medical Physicist
  1. . . 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
  1. . I $E(OCODE,1,4)="0620" D ; Vocational/Practical Nurse
  1. . . I "^01^02^03^04^05^06^12^13^14^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0621" D ; Nursing Assistant
  1. . . 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
  1. . I $E(OCODE,1,4)="0622" D ; Medical Supply Tech
  1. . . I "^04^05^06^07^08^09^11^12^13^14^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143
  1. . I $E(OCODE,1,4)="0630" D ; Dietitian
  1. . . I "^09^10^18^20^59^61^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0631" D ; Occupational Therapist
  1. . . I "^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0633" D ; Physical Therapist
  1. . . 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
  1. . I $E(OCODE,1,4)="0635" D ; Corrective Therapist
  1. . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0636" D ; Therapy Assistant
  1. . . I "^15^16^17^18^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0640" D ;Certified Respiratory Therapy Tech
  1. . . 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
  1. . . I "^45^46^47^48^49^51^53^54^55^56^57^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*155
  1. . I $E(OCODE,1,4)="0644" D ; Medical Technologist
  1. . . I "^02^03^05^10^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . . 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
  1. . I $E(OCODE,1,4)="0647" D ; Diagnostic Radiologic
  1. . . I "^11^12^13^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . . I "^19^21^22^23^24^25^26^27^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0648" D ; Therapeutic Radiologic
  1. . . I "^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0649" D ; Medical Instrument Technician
  1. . . I "^15^16^17^18^19^21^22^23^24^25^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . . I "^27^28^32^33^34^35^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . . I "^36^37^38^39^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*141
  1. . I $E(OCODE,1,4)="0660" D ; Pharmacist
  1. . . I "^02^03^04^05^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . . I "^10^13^15^20^21^41^50^70^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . . 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
  1. . I $E(OCODE,1,4)="0661" D ; Pharmacy Aid/Technician
  1. . . I "^03^04^06^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0665" D ; Audiologist/Speech
  1. . . 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
  1. . I $E(OCODE,1,4)="0667" D ; Orthotist
  1. . . 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
  1. . I $E(OCODE,1,4)="0669" D ; Medical Records Administration
  1. . . I "^03^04^05^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*130
  1. . I $E(OCODE,1,4)="0672" D ; Prosthetic
  1. . . 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
  1. . I $E(OCODE,1,4)="0675" D ; Medical Records Technician
  1. . . 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
  1. . I $E(OCODE,1,4)="0679" S HYBRID=1 ;Medical Support Assistant ;PRS*4*135
  1. . I $E(OCODE,1,4)="0681" D ; Dental Assistant
  1. . . I "^03^05^06^07^09^42^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="0682" D ; Dental Hygienist
  1. . . I "^02^04^05^06^07^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143
  1. . I $E(OCODE,1,4)="0858" D ; Biomedical Engineer
  1. . . I "^02^03^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
  1. . I $E(OCODE,1,4)="1601" D ; Biomedical equipment support specialist
  1. . . I "^02^03^04^05^06^07^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*143, PRS*4*155
  1. . I $E(OCODE,1,4)="0996" D ; Veterans Crisis Line Responder(VCLR)
  1. . . I "^06^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148
  1. . I $E(OCODE,1,4)="0188" D ; Recreation/Creative Arts Therapist
  1. . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*148
  1. . I $E(OCODE,1,4)="0646" D ; histopathology technician
  1. . . I "^02^05^06^07^08^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*153, PRS*4*155
  1. . I $E(OCODE,1,4)="0638" D ; Rec. Therapist
  1. . . 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
  1. . ;I $E(OCODE,1,4)="3566" D ; Housekeeping Aid
  1. . ;. I "^10^30^40^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="4805" D ; Medical Equipment
  1. . ;. I "^10^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="7304" D ; Laundry Worker
  1. . ;. I "^10^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="7305" D ; Laundry Machine Operator
  1. . ;. I "^50^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="7404" D ; Cook
  1. . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="7408" D ; Food Service Worker
  1. . ;. I "^10^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="5406" D ; Utility Systems Operator
  1. . ;. I "^30^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ;PRS*4*138
  1. . ;I $E(OCODE,1,4)="4742" S HYBRID=1 ; Utility Systems Operator ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="5415" D ; Air Conditioning Equipment Operator
  1. . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="5309" D ; Boiler Plant Equipment Mechanic
  1. . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="5402" D ; Boiler Plant Operator
  1. . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="5703" D ; Motor Vehicle Operator
  1. . ;. I "^60^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="4801" S HYBRID=1 ; Lead Equipment Servicer ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="5306" D ; Air Conditioning Equipment Mechanic
  1. . ;. I "^20^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="1046" D ; Clerk Translator
  1. . ;. I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. . ;I $E(OCODE,1,4)="1001" D ; Interpreter
  1. . ;. I "^11^"[(U_$E(OCODE,5,6)_U) S HYBRID=1 ; PRS*4*138
  1. ;
  1. Q HYBRID ; Return whether or not the employee qualifies.