PRSDAH1.m

PRSDAH1 ;HISC/DAD-BASIC EMPLOYEE FIELDS AD HOC REPORT GENERATOR ;04/18/95  10:58

 ;;4.0;PAID;;Sep 21, 1995

 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen

 S QAQMRTN="MENU^PRSDAH1",QAQORTN="OTHER^PRSDAH1",QAQDIC=450

 S QAQMHDR="Basic Employee Fields"

 D ^QAQAHOC0

 Q

MENU ; *** Build the menu array

 S QAQMENU=1

 F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X=""  S QAQMENU(QAQMENU)=X,QAQMENU=QAQMENU+1

 Q

OTHER ; *** Set up other (optional) EN1^DIP variables, e.g.

 ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG

 S ASKFLG="P" D ASK^PRSDPRNT K ASKFLG S:%=-1 QAQQUIT=1

 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"

 S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""

 Q

TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)

 ;;1^Employee Name^~.01;"Employee Name"^FAO^1:60^

 ;;1^Service^~458;"Service"^FAO^1:60^

 ;;1^Duty Station^~590;"Duty Station"^FAO^1:60^

 ;;1^Cost Center^~17;"Cost Center"^FAO^1:60^

 ;;1^Subacct Code^~18;"Subacct Code"^FAO^1:60^

 ;;1^Fund Control Point^~451;"Fund Control Point"^FAO^1:60^

 ;;1^SSN^~8;"SSN"^FAO^1:60^

 ;;1^Sex^~31;"Sex"^FAO^1:60^

 ;;1^Date of Birth^~32;"Date of Birth"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Station EOD^~2;"Station EOD"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Service Computation Date^~30;"Service Computation Date"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Duty Basis^~9;"Duty Basis"^FAO^1:60^

 ;;1^Pay Basis^~19;"Pay Basis"^FAO^1:60^

 ;;1^Normal Hours^~591;"Normal Hours"^FAO^1:60^

 ;;1^FTEE of Position^~450;"FTEE of Position"^NAO^-999999999:999999999:9^

 ;;1^Pay Plan^~20;"Pay Plan"^FAO^1:60^

 ;;1^Job Series^~15.5;"Job Series"^FAO^1:60^

 ;;1^Job Title^~16;"Job Title"^FAO^1:60^

 ;;1^Grade^~13;"Grade"^FAO^1:60^

 ;;1^Step^~38;"Step"^FAO^1:60^

 ;;1^Salary^~28;"Salary"^NAO^-999999999:999999999:9^

 ;;1^Assignment^~3;"Assignment"^FAO^1:60^

 ;;1^Functional Code^~12;"Functional Code"^FAO^1:60^

 ;;1^Citizenship^~4;"Citizenship"^FAO^1:60^

 ;;1^Perf/Profcy Rating Code^~22;"Perf/Profcy Rating Code"^FAO^1:60^

 ;;1^FLSA^~11;"FLSA"^FAO^1:60^

 ;;1^Retirement Code^~26;"Retirement Code"^FAO^1:60^

 ;;1^TSP Status^~409;"TSP Status"^FAO^1:60^

 ;;1^Health Insurance^~231;"Health Insurance"^FAO^1:60^

 ;;1^Life Insurance^~226;"Life Insurance"^FAO^1:60^

 ;;1^Salary Date^~27;"Salary Date"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Supervisory Level^~39;"Supervisory Level"^FAO^1:60^

 ;;1^Type of Appointment^~42;"Type of Appointment"^FAO^1:60^

 ;;1^Expiration of Limited Appt^~95;"Expiration of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Veterans Preference^~43;"Veterans Preference"^FAO^1:60^

 ;;1^Vet Status^~603;"Vet Status"^FAO^1:60^

 ;;1^Accession/Separation Code^~48;"Accession/Separation Code"^FAO^1:60^

 ;;1^Accession/Separation Eff Date^~49;"Accession/Separation Eff Date"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Accession/Separation NOA Code^~50;"Accession/Separation NOA Code"^FAO^1:60^

 ;;1^BUS Code^~52;"BUS Code"^FAO^1:60^

 ;;1^Union Code-1^~428;"Union Code-1"^FAO^1:60^

 ;;1^Union Dues Anniversary Date^~430;"Union Dues Anniversary Date"^DAO^::AETS^D DATE^QAQAHOC2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDAH1   3081     printed  Apr 09, 2024@21:27:05                                                                                                                                                                                                     Page 2

PRSDAH1   ;HISC/DAD-BASIC EMPLOYEE FIELDS AD HOC REPORT GENERATOR ;04/18/95  10:58

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2       ; *** Set up required and optional variables and call Ad Hoc Rpt Gen

 +3        SET QAQMRTN="MENU^PRSDAH1"

           SET QAQORTN="OTHER^PRSDAH1"

           SET QAQDIC=450

 +4        SET QAQMHDR="Basic Employee Fields"

 +5        DO ^QAQAHOC0

 +6        QUIT 

MENU      ; *** Build the menu array

 +1        SET QAQMENU=1

 +2        FOR QA=1:1

               SET X=$PIECE($TEXT(TEXT+QA),";;",2,99)

               if X=""

                   QUIT 

               SET QAQMENU(QAQMENU)=X

               SET QAQMENU=QAQMENU+1

 +3        QUIT 

OTHER     ; *** Set up other (optional) EN1^DIP variables, e.g.

 +1       ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG

 +2        SET ASKFLG="P"

           DO ASK^PRSDPRNT

           KILL ASKFLG

           if %=-1

               SET QAQQUIT=1

 +3        KILL QAQFOUND

           SET QAQFOUND=0

           SET DHIT="S QAQFOUND=1"

 +4        SET DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""

 +5        QUIT 

TEXT      ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)

 +1       ;;1^Employee Name^~.01;"Employee Name"^FAO^1:60^

 +2       ;;1^Service^~458;"Service"^FAO^1:60^

 +3       ;;1^Duty Station^~590;"Duty Station"^FAO^1:60^

 +4       ;;1^Cost Center^~17;"Cost Center"^FAO^1:60^

 +5       ;;1^Subacct Code^~18;"Subacct Code"^FAO^1:60^

 +6       ;;1^Fund Control Point^~451;"Fund Control Point"^FAO^1:60^

 +7       ;;1^SSN^~8;"SSN"^FAO^1:60^

 +8       ;;1^Sex^~31;"Sex"^FAO^1:60^

 +9       ;;1^Date of Birth^~32;"Date of Birth"^DAO^::AETS^D DATE^QAQAHOC2

 +10      ;;1^Station EOD^~2;"Station EOD"^DAO^::AETS^D DATE^QAQAHOC2

 +11      ;;1^Service Computation Date^~30;"Service Computation Date"^DAO^::AETS^D DATE^QAQAHOC2

 +12      ;;1^Duty Basis^~9;"Duty Basis"^FAO^1:60^

 +13      ;;1^Pay Basis^~19;"Pay Basis"^FAO^1:60^

 +14      ;;1^Normal Hours^~591;"Normal Hours"^FAO^1:60^

 +15      ;;1^FTEE of Position^~450;"FTEE of Position"^NAO^-999999999:999999999:9^

 +16      ;;1^Pay Plan^~20;"Pay Plan"^FAO^1:60^

 +17      ;;1^Job Series^~15.5;"Job Series"^FAO^1:60^

 +18      ;;1^Job Title^~16;"Job Title"^FAO^1:60^

 +19      ;;1^Grade^~13;"Grade"^FAO^1:60^

 +20      ;;1^Step^~38;"Step"^FAO^1:60^

 +21      ;;1^Salary^~28;"Salary"^NAO^-999999999:999999999:9^

 +22      ;;1^Assignment^~3;"Assignment"^FAO^1:60^

 +23      ;;1^Functional Code^~12;"Functional Code"^FAO^1:60^

 +24      ;;1^Citizenship^~4;"Citizenship"^FAO^1:60^

 +25      ;;1^Perf/Profcy Rating Code^~22;"Perf/Profcy Rating Code"^FAO^1:60^

 +26      ;;1^FLSA^~11;"FLSA"^FAO^1:60^

 +27      ;;1^Retirement Code^~26;"Retirement Code"^FAO^1:60^

 +28      ;;1^TSP Status^~409;"TSP Status"^FAO^1:60^

 +29      ;;1^Health Insurance^~231;"Health Insurance"^FAO^1:60^

 +30      ;;1^Life Insurance^~226;"Life Insurance"^FAO^1:60^

 +31      ;;1^Salary Date^~27;"Salary Date"^DAO^::AETS^D DATE^QAQAHOC2

 +32      ;;1^Supervisory Level^~39;"Supervisory Level"^FAO^1:60^

 +33      ;;1^Type of Appointment^~42;"Type of Appointment"^FAO^1:60^

 +34      ;;1^Expiration of Limited Appt^~95;"Expiration of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2

 +35      ;;1^Veterans Preference^~43;"Veterans Preference"^FAO^1:60^

 +36      ;;1^Vet Status^~603;"Vet Status"^FAO^1:60^

 +37      ;;1^Accession/Separation Code^~48;"Accession/Separation Code"^FAO^1:60^

 +38      ;;1^Accession/Separation Eff Date^~49;"Accession/Separation Eff Date"^DAO^::AETS^D DATE^QAQAHOC2

 +39      ;;1^Accession/Separation NOA Code^~50;"Accession/Separation NOA Code"^FAO^1:60^

 +40      ;;1^BUS Code^~52;"BUS Code"^FAO^1:60^

 +41      ;;1^Union Code-1^~428;"Union Code-1"^FAO^1:60^

 +42      ;;1^Union Dues Anniversary Date^~430;"Union Dues Anniversary Date"^DAO^::AETS^D DATE^QAQAHOC2