| 1 | PRSDAH1 ;HISC/DAD-BASIC EMPLOYEE FIELDS AD HOC REPORT GENERATOR ;04/18/95 10:58
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
|
|---|
| 4 | S QAQMRTN="MENU^PRSDAH1",QAQORTN="OTHER^PRSDAH1",QAQDIC=450
|
|---|
| 5 | S QAQMHDR="Basic Employee Fields"
|
|---|
| 6 | D ^QAQAHOC0
|
|---|
| 7 | Q
|
|---|
| 8 | MENU ; *** 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
|
|---|
| 12 | OTHER ; *** 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
|
|---|
| 18 | TEXT ;;*** 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^Duty Station^~590;"Duty Station"^FAO^1:60^
|
|---|
| 22 | ;;1^Cost Center^~17;"Cost Center"^FAO^1:60^
|
|---|
| 23 | ;;1^Subacct Code^~18;"Subacct Code"^FAO^1:60^
|
|---|
| 24 | ;;1^Fund Control Point^~451;"Fund Control Point"^FAO^1:60^
|
|---|
| 25 | ;;1^SSN^~8;"SSN"^FAO^1:60^
|
|---|
| 26 | ;;1^Sex^~31;"Sex"^FAO^1:60^
|
|---|
| 27 | ;;1^Date of Birth^~32;"Date of Birth"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 28 | ;;1^Station EOD^~2;"Station EOD"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 29 | ;;1^Service Computation Date^~30;"Service Computation Date"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 30 | ;;1^Duty Basis^~9;"Duty Basis"^FAO^1:60^
|
|---|
| 31 | ;;1^Pay Basis^~19;"Pay Basis"^FAO^1:60^
|
|---|
| 32 | ;;1^Normal Hours^~591;"Normal Hours"^FAO^1:60^
|
|---|
| 33 | ;;1^FTEE of Position^~450;"FTEE of Position"^NAO^-999999999:999999999:9^
|
|---|
| 34 | ;;1^Pay Plan^~20;"Pay Plan"^FAO^1:60^
|
|---|
| 35 | ;;1^Job Series^~15.5;"Job Series"^FAO^1:60^
|
|---|
| 36 | ;;1^Job Title^~16;"Job Title"^FAO^1:60^
|
|---|
| 37 | ;;1^Grade^~13;"Grade"^FAO^1:60^
|
|---|
| 38 | ;;1^Step^~38;"Step"^FAO^1:60^
|
|---|
| 39 | ;;1^Salary^~28;"Salary"^NAO^-999999999:999999999:9^
|
|---|
| 40 | ;;1^Assignment^~3;"Assignment"^FAO^1:60^
|
|---|
| 41 | ;;1^Functional Code^~12;"Functional Code"^FAO^1:60^
|
|---|
| 42 | ;;1^Citizenship^~4;"Citizenship"^FAO^1:60^
|
|---|
| 43 | ;;1^Perf/Profcy Rating Code^~22;"Perf/Profcy Rating Code"^FAO^1:60^
|
|---|
| 44 | ;;1^FLSA^~11;"FLSA"^FAO^1:60^
|
|---|
| 45 | ;;1^Retirement Code^~26;"Retirement Code"^FAO^1:60^
|
|---|
| 46 | ;;1^TSP Status^~409;"TSP Status"^FAO^1:60^
|
|---|
| 47 | ;;1^Health Insurance^~231;"Health Insurance"^FAO^1:60^
|
|---|
| 48 | ;;1^Life Insurance^~226;"Life Insurance"^FAO^1:60^
|
|---|
| 49 | ;;1^Salary Date^~27;"Salary Date"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 50 | ;;1^Supervisory Level^~39;"Supervisory Level"^FAO^1:60^
|
|---|
| 51 | ;;1^Type of Appointment^~42;"Type of Appointment"^FAO^1:60^
|
|---|
| 52 | ;;1^Expiration of Limited Appt^~95;"Expiration of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 53 | ;;1^Veterans Preference^~43;"Veterans Preference"^FAO^1:60^
|
|---|
| 54 | ;;1^Vet Status^~603;"Vet Status"^FAO^1:60^
|
|---|
| 55 | ;;1^Accession/Separation Code^~48;"Accession/Separation Code"^FAO^1:60^
|
|---|
| 56 | ;;1^Accession/Separation Eff Date^~49;"Accession/Separation Eff Date"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
| 57 | ;;1^Accession/Separation NOA Code^~50;"Accession/Separation NOA Code"^FAO^1:60^
|
|---|
| 58 | ;;1^BUS Code^~52;"BUS Code"^FAO^1:60^
|
|---|
| 59 | ;;1^Union Code-1^~428;"Union Code-1"^FAO^1:60^
|
|---|
| 60 | ;;1^Union Dues Anniversary Date^~430;"Union Dues Anniversary Date"^DAO^::AETS^D DATE^QAQAHOC2
|
|---|
