source: FOIAVistA/trunk/r/PAID-PRS/PRSDAH4.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 4.1 KB
Line 
1PRSDAH4 ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE PAID EMPLOYEE FILE (#450) ;05/23/95 14:17
2 ;;4.0;PAID;;Sep 21, 1995
3 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
4 S QAQMRTN="MENU^PRSDAH4",QAQORTN="OTHER^PRSDAH4",QAQDIC=450
5 S QAQMHDR="Followup Code Fields"
6 D ^QAQAHOC0
7 Q
8MENU ; *** Build the menu array
9 S QAQMENU=1
10 F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X="" S QAQMENU(QAQMENU)=X,QAQMENU=QAQMENU+1
11 Q
12OTHER ; *** Set up other (optional) EN1^DIP variables, e.g.
13 ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG
14 S ASKFLG="P" D ASK^PRSDPRNT K ASKFLG S:%=-1 QAQQUIT=1
15 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
16 S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
17 Q
18TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
19 ;;1^Employee Name^~.01;"Employee Name"^FAO^1:60^
20 ;;1^Service^~458;"Service"^FAO^1:60^
21 ;;1^Placement Followup^~91;"Placement Followup"^DAO^::AETS^D DATE^QAQAHOC2
22 ;;1^Conversion To Career Tenure^~93;"Conversion To Career Tenure"^DAO^::AETS^D DATE^QAQAHOC2
23 ;;1^Expiration Of Limited Appt^~95;"Expiration Of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2
24 ;;1^Expiration Of Formal Detail^~96;"Expiration Of Formal Detail"^DAO^::AETS^D DATE^QAQAHOC2
25 ;;1^Redetermination Of WGI^~97;"Redetermination Of WGI"^DAO^::AETS^D DATE^QAQAHOC2
26 ;;1^Eligible For Drug Testing^~115.17;"Eligible For Drug Testing"^FAO^1:60^
27 ;;1^Followup Code 08^~97.1;"Followup Code 08"^DAO^::AETS^D DATE^QAQAHOC2
28 ;;1^Elig For Conv To Comp Service^~98;"Elig For Conv To Comp Service"^DAO^::AETS^D DATE^QAQAHOC2
29 ;;1^Annual Leave Restriction^~92;"Annual Leave Restriction"^DAO^::AETS^D DATE^QAQAHOC2
30 ;;1^Obligated Service^~99;"Obligated Service"^DAO^::AETS^D DATE^QAQAHOC2
31 ;;1^Expiration Of Grade Retention^~100;"Expiration Of Grade Retention"^DAO^::AETS^D DATE^QAQAHOC2
32 ;;1^Supervisor/Mgr Prob Period^~102;"Supervisor/Mgr Prob Period"^DAO^::AETS^D DATE^QAQAHOC2
33 ;;1^Beginning Of Nonpay Status^~103;"Beginning Of Nonpay Status"^DAO^::AETS^D DATE^QAQAHOC2
34 ;;1^1-Year Prob Period Completion^~104;"1-Year Prob Period Completion"^DAO^::AETS^D DATE^QAQAHOC2
35 ;;1^Federal Service Date^~110;"Federal Service Date"^DAO^::AETS^D DATE^QAQAHOC2
36 ;;1^Career Promotion Determination^~111;"Career Promotion Determination"^DAO^::AETS^D DATE^QAQAHOC2
37 ;;1^Expiration Of FERS Period^~113;"Expiration Of FERS Period"^DAO^::AETS^D DATE^QAQAHOC2
38 ;;1^Temporary Health Benefits Elig^~114;"Temporary Health Benefits Elig"^DAO^::AETS^D DATE^QAQAHOC2
39 ;;1^Expiration Of Geo Location Pay^~114.1;"Expiration Of Geo Location Pay"^DAO^::AETS^D DATE^QAQAHOC2
40 ;;1^Followup Code S*^~115.16;"Followup Code S*"^DAO^::AETS^D DATE^QAQAHOC2
41 ;;1^Followup Code 30^~116.01;"Followup Code 30"^DAO^::AETS^D DATE^QAQAHOC2
42 ;;1^Followup Code 31^~116.02;"Followup Code 31"^DAO^::AETS^D DATE^QAQAHOC2
43 ;;1^Followup Code 32^~116.03;"Followup Code 32"^DAO^::AETS^D DATE^QAQAHOC2
44 ;;1^Followup Code 33^~116.04;"Followup Code 33"^DAO^::AETS^D DATE^QAQAHOC2
45 ;;1^Followup Code 34^~116.05;"Followup Code 34"^DAO^::AETS^D DATE^QAQAHOC2
46 ;;1^Followup Code 35^~116.06;"Followup Code 35"^DAO^::AETS^D DATE^QAQAHOC2
47 ;;1^Followup Code 36^~116.07;"Followup Code 36"^DAO^::AETS^D DATE^QAQAHOC2
48 ;;1^Followup Code 37^~116.08;"Followup Code 37"^DAO^::AETS^D DATE^QAQAHOC2
49 ;;1^Followup Code 38^~116.09;"Followup Code 38"^DAO^::AETS^D DATE^QAQAHOC2
50 ;;1^Followup Code 39^~116.1;"Followup Code 39"^DAO^::AETS^D DATE^QAQAHOC2
51 ;;1^Followup Code 40^~116.11;"Followup Code 40"^DAO^::AETS^D DATE^QAQAHOC2
52 ;;1^Followup Code 41^~116.12;"Followup Code 41"^DAO^::AETS^D DATE^QAQAHOC2
53 ;;1^Followup Code 42^~116.13;"Followup Code 42"^DAO^::AETS^D DATE^QAQAHOC2
54 ;;1^Followup Code 43^~116.14;"Followup Code 43"^DAO^::AETS^D DATE^QAQAHOC2
55 ;;1^Followup Code 44^~116.15;"Followup Code 44"^DAO^::AETS^D DATE^QAQAHOC2
56 ;;1^Followup Code 45^~116.16;"Followup Code 45"^DAO^::AETS^D DATE^QAQAHOC2
57 ;;1^Followup Code 46^~116.17;"Followup Code 46"^DAO^::AETS^D DATE^QAQAHOC2
58 ;;1^Followup Code 47^~116.18;"Followup Code 47"^DAO^::AETS^D DATE^QAQAHOC2
59 ;;1^Followup Code 48^~116.19;"Followup Code 48"^DAO^::AETS^D DATE^QAQAHOC2
60 ;;1^Followup Code 49^~116.2;"Followup Code 49"^DAO^::AETS^D DATE^QAQAHOC2
Note: See TracBrowser for help on using the repository browser.