PRSDAH2 ;HISC/DAD-TITLE 38 EMPLOYEE FIELDS AD HOC REPORT GENERATOR ;04/19/95 08:55
;;4.0;PAID;;Sep 21, 1995
; *** Set up required and optional variables and call Ad Hoc Rpt Gen
S QAQMRTN="MENU^PRSDAH2",QAQORTN="OTHER^PRSDAH2",QAQDIC=450
S QAQMHDR="Title 38 Employee Fields"
D ^QAQAHOC0
Q
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^SSN^~8^FAO^1:60^
;;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^Assignment^~3;"Assignment"^FAO^1:60^
;;1^Functional Code^~12;"Functional Code"^FAO^1:60^
;;1^Grade^~13;"Grade"^FAO^1:60^
;;1^Salary^~28;"Salary"^NAO^-999999999:999999999:9^
;;1^Type of Appointment^~42;"Type of Appointment"^FAO^1:60^
;;1^Duty Basis^~9;"Duty Basis"^FAO^1:60^
;;1^Special Salary Adjustment^~150;"Special Salary Adjustment"^NAO^-999999999:999999999:9^
;;1^Chief Nurse Level^~604;"Chief Nurse Level"^FAO^1:60^
;;1^Nurse Pay Schedule^~605;"Nurse Pay Schedule"^FAO^1:60^
;;1^State of Licensure^~152;"State of Licensure"^FAO^1:60^
;;1^Expiration of Licensure^~90;"Expiration of Licensure"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Expiration of Limited Appt^~95;"Expiration of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Date of Grade for T38 Emp^~105;"Date of Grade for T38 Emp"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Date of Entry to T38 Position^~106;"Date of Entry to T38 Position"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Education^~10;"Education"^FAO^1:60^
;;1^College Major^~5;"College Major"^FAO^1:60^
;;1^Date Grad from Prof School^~107;"Date Grad from Prof School"^DAO^::AETS^D DATE^QAQAHOC2
;;1^VA Service Date^~154;"VA Service Date"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Salary Date^~27;"Salary Date"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Step Rate Review^~109;"Step Rate Review"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Proficiency Date^~112;"Proficiency Date"^DAO^::AETS^D DATE^QAQAHOC2
;;1^2-Year Prob Period Completion^~94;"2-Year Prob Period Completion"^DAO^::AETS^D DATE^QAQAHOC2
;;1^Citizenship^~4;"Citizenship"^FAO^1:60^
;;1^Country of Birth^~127;"Country of Birth"^FAO^1:60^
;;1^Special Pay Ret Ded^~147;"Special Pay Ret Ded"^FAO^1:60^
;;1^Special Pay Annual Amt^~142;"Special Pay Annual Amt"^NAO^-999999999:999999999:9^
;;1^Special Pay Rate Difference^~82;"Special Pay Rate Difference"^NAO^-999999999:999999999:9^
;;1^Physician And Dentist Pay Cap^~705;"Physician And Dentist Pay Cap"^NAO^-999999999:999999999:9^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDAH2 3025 printed Dec 13, 2024@02:25:05 Page 2
PRSDAH2 ;HISC/DAD-TITLE 38 EMPLOYEE FIELDS AD HOC REPORT GENERATOR ;04/19/95 08:55
+1 ;;4.0;PAID;;Sep 21, 1995
+2 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
+3 SET QAQMRTN="MENU^PRSDAH2"
SET QAQORTN="OTHER^PRSDAH2"
SET QAQDIC=450
+4 SET QAQMHDR="Title 38 Employee Fields"
+5 DO ^QAQAHOC0
+6 QUIT
+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^SSN^~8^FAO^1:60^
+5 ;;1^Pay Plan^~20;"Pay Plan"^FAO^1:60^
+6 ;;1^Job Series^~15.5;"Job Series"^FAO^1:60^
+7 ;;1^Job Title^~16;"Job Title"^FAO^1:60^
+8 ;;1^Assignment^~3;"Assignment"^FAO^1:60^
+9 ;;1^Functional Code^~12;"Functional Code"^FAO^1:60^
+10 ;;1^Grade^~13;"Grade"^FAO^1:60^
+11 ;;1^Salary^~28;"Salary"^NAO^-999999999:999999999:9^
+12 ;;1^Type of Appointment^~42;"Type of Appointment"^FAO^1:60^
+13 ;;1^Duty Basis^~9;"Duty Basis"^FAO^1:60^
+14 ;;1^Special Salary Adjustment^~150;"Special Salary Adjustment"^NAO^-999999999:999999999:9^
+15 ;;1^Chief Nurse Level^~604;"Chief Nurse Level"^FAO^1:60^
+16 ;;1^Nurse Pay Schedule^~605;"Nurse Pay Schedule"^FAO^1:60^
+17 ;;1^State of Licensure^~152;"State of Licensure"^FAO^1:60^
+18 ;;1^Expiration of Licensure^~90;"Expiration of Licensure"^DAO^::AETS^D DATE^QAQAHOC2
+19 ;;1^Expiration of Limited Appt^~95;"Expiration of Limited Appt"^DAO^::AETS^D DATE^QAQAHOC2
+20 ;;1^Date of Grade for T38 Emp^~105;"Date of Grade for T38 Emp"^DAO^::AETS^D DATE^QAQAHOC2
+21 ;;1^Date of Entry to T38 Position^~106;"Date of Entry to T38 Position"^DAO^::AETS^D DATE^QAQAHOC2
+22 ;;1^Education^~10;"Education"^FAO^1:60^
+23 ;;1^College Major^~5;"College Major"^FAO^1:60^
+24 ;;1^Date Grad from Prof School^~107;"Date Grad from Prof School"^DAO^::AETS^D DATE^QAQAHOC2
+25 ;;1^VA Service Date^~154;"VA Service Date"^DAO^::AETS^D DATE^QAQAHOC2
+26 ;;1^Salary Date^~27;"Salary Date"^DAO^::AETS^D DATE^QAQAHOC2
+27 ;;1^Step Rate Review^~109;"Step Rate Review"^DAO^::AETS^D DATE^QAQAHOC2
+28 ;;1^Proficiency Date^~112;"Proficiency Date"^DAO^::AETS^D DATE^QAQAHOC2
+29 ;;1^2-Year Prob Period Completion^~94;"2-Year Prob Period Completion"^DAO^::AETS^D DATE^QAQAHOC2
+30 ;;1^Citizenship^~4;"Citizenship"^FAO^1:60^
+31 ;;1^Country of Birth^~127;"Country of Birth"^FAO^1:60^
+32 ;;1^Special Pay Ret Ded^~147;"Special Pay Ret Ded"^FAO^1:60^
+33 ;;1^Special Pay Annual Amt^~142;"Special Pay Annual Amt"^NAO^-999999999:999999999:9^
+34 ;;1^Special Pay Rate Difference^~82;"Special Pay Rate Difference"^NAO^-999999999:999999999:9^
+35 ;;1^Physician And Dentist Pay Cap^~705;"Physician And Dentist Pay Cap"^NAO^-999999999:999999999:9^
