source: FOIAVistA/tag/r/PAID-PRS/PRSAENT1.m@ 658

Last change on this file since 658 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 5.2 KB
Line 
1PRSAENT1 ;HISC/MGD-Entitlement String ;10/19/04
2 ;;4.0;PAID;**96**;Sep 21, 1995
3 ;
4 Q
5 ;
6HYBRID(IEN) ;
7 ;----------------------------------------------------------------------
8 ; The following code was added to address Public Law
9 ; P.L. 107-135 which adds mandatory Saturday (SP/SQ) and Sunday
10 ; (SA/SE) Premium Pay for all "Hybrid" title 38 employees.
11 ;
12 ; Input Vars:
13 ; IEN - the ien number of the employee in the PAID EMPLOYEE (#450)
14 ; file.
15 ;
16 ; Local Vars:
17 ; C0 - the 0 node of the employee from the PAID EMPLOYEE (#450)
18 ; file.
19 ; HYBRID - Is the employee a Hybrid that qualifies for Saturday and
20 ; Sunday premium pay after the passing of Public Law
21 ; P.L. 107-135.
22 ; 1 : Entitled to Saturday or Sunday Premium pay.
23 ; 0 : Not Entitled to Saturday or Sunday Premium pay.
24 ; OCODE - The employee's OCCUPATION SERIES & TITLE code.
25 ;
26 ; Output: HYBRID
27 ;
28 ;----------------------------------------------------------------------
29 ;
30 N C0,HYBRID,OCODE,PREM
31 S (HYBRID,PREM)=0
32 ;
33 Q:'+IEN HYBRID ; Quit if no IEN passed in.
34 ;
35 S C0=$G(^PRSPC(IEN,0))
36 Q:C0="" HYBRID ; Quit if no 0 node in 450
37 ;
38 S PREM=$P($G(^PRSPC(IEN,"PREMIUM")),U,6)
39 I "^E^F^"[("^"_PREM_"^") S PREM=1
40 ;
41 ; Check for Pay Plan A and Type of Appointment 5 or 6
42 I $P(C0,U,21)="A","^5^6^"[(U_$P(C0,U,43)_U),'PREM D
43 .;Check Occupational Series Code and Title Code.
44 . S OCODE=$P(C0,U,17)
45 . Q:OCODE=""
46 . ;
47 . ; For any OCC codes applicable to Hybrid employees translate any
48 . ; 6th position Alphas in the Title Code to its corresponding
49 . ; numerical equivalent before making the final comparison.
50 . ;
51 . I "^0180^0185^0601^0620^0630^0631^0633^0635^0636^"[$E(OCODE,1,4) D
52 . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
53 . I "^0640^0644^0647^0648^0649^0660^0661^0665^0667^"[$E(OCODE,1,4) D
54 . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
55 . I "^0669^0672^0675^0681^0682^0685^"[$E(OCODE,1,4) D
56 . . S $E(OCODE,6)=$TR($E(OCODE,6),"ABCDEFGHIJKLMNOPQR","123456789123456789")
57 . ;
58 . ; Check individual OCC codes
59 . ;
60 . I $E(OCODE,1,4)="0180" D ; Psychologist
61 . . I "^02^03^04^05^07^11^25^26^85^86^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
62 . . I "^87^92^95^96^97^98^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
63 . I $E(OCODE,1,4)="0185" D ; Social Worker
64 . . I "^02^03^04^05^51^57^58^59^61^62^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
65 . . I "^63^71^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
66 . I $E(OCODE,1,4)="0601" D ; Registered Respiratory Therapist
67 . . I "^31^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
68 . I $E(OCODE,1,4)="0601" D ; Nuclear Med Technologist
69 . . I "^13^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
70 . I $E(OCODE,1,4)="0604" D ; Chiropractor
71 . . I "^01^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
72 . I $E(OCODE,1,4)="0620" D ; Vocational/Practical Nurse
73 . . I "^01^02^03^04^05^06^12^13^14^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
74 . I $E(OCODE,1,4)="0630" D ; Dietitian
75 . . I "^18^20^59^61^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
76 . I $E(OCODE,1,4)="0631" D ; Occupational Therapist
77 . . I "^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
78 . I $E(OCODE,1,4)="0633" D ; Physical Therapist
79 . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
80 . I $E(OCODE,1,4)="0635" D ; Corrective Therapist
81 . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
82 . I $E(OCODE,1,4)="0636" D ; Therapy Assistant
83 . . I "^15^16^17^18^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
84 . I $E(OCODE,1,4)="0640" D ;Certified Respiratory Therapy Tech
85 . . I "^75^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
86 . I $E(OCODE,1,4)="0644" D ; Medical Technologist
87 . . I "^02^03^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
88 . I $E(OCODE,1,4)="0647" D ; Diagnostic Radiologic
89 . . I "^11^12^13^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
90 . I $E(OCODE,1,4)="0648" D ; Therapeutic Radiologic
91 . . I "^14^15^16^17^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
92 . I $E(OCODE,1,4)="0649" D ; Medical Instrument Technician
93 . . I "^15^16^17^18^19^21^22^23^24^25^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
94 . . I "^27^28^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
95 . I $E(OCODE,1,4)="0660" D ; Pharmacist
96 . . I "^02^03^04^05^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
97 . . I "^10^20^21^50^70^80^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
98 . I $E(OCODE,1,4)="0661" D ; Pharmacy Aid/Technician
99 . . I "^03^04^05^06^07^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
100 . I $E(OCODE,1,4)="0665" D ; Audiologist/Speech
101 . . I "^02^05^08^12^15^18^65^68^75^82^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
102 . I $E(OCODE,1,4)="0667" D ; Orthotist
103 . . I "^02^12^22^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
104 . I $E(OCODE,1,4)="0669" D ; Medical Records Administration
105 . . I "^03^04^05^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
106 . I $E(OCODE,1,4)="0672" D ; Prosthetic
107 . . I "^05^06^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
108 . I $E(OCODE,1,4)="0675" D ; Medical Records Technician
109 . . I "^01^02^04^05^06^08^09^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
110 . I $E(OCODE,1,4)="0681" D ; Dental Assistant
111 . . I "^03^04^05^06^07^09^42^45^48^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
112 . I $E(OCODE,1,4)="0682" D ; Dental Hygienist
113 . . I "^02^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
114 . I $E(OCODE,1,4)="0858" D ; Biomedical Engineer
115 . . I "^02^03^04^"[(U_$E(OCODE,5,6)_U) S HYBRID=1
116 ;
117 Q HYBRID ; Return whether or not the employee qualifies.
Note: See TracBrowser for help on using the repository browser.