Routine: PRSDAH4

PRSDAH4 ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE PAID EMPLOYEE FILE (#450) ;05/23/95  14:17

 ;;4.0;PAID;;Sep 21, 1995

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

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

 S QAQMHDR="Followup Code Fields"

 D ^QAQAHOC0

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

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 !!"""

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^Placement Followup^~91;"Placement Followup"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Conversion To Career Tenure^~93;"Conversion To Career Tenure"^DAO^::AETS^D DATE^QAQAHOC2

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

 ;;1^Expiration Of Formal Detail^~96;"Expiration Of Formal Detail"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Redetermination Of WGI^~97;"Redetermination Of WGI"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Eligible For Drug Testing^~115.17;"Eligible For Drug Testing"^FAO^1:60^

 ;;1^Followup Code 08^~97.1;"Followup Code 08"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Elig For Conv To Comp Service^~98;"Elig For Conv To Comp Service"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Annual Leave Restriction^~92;"Annual Leave Restriction"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Obligated Service^~99;"Obligated Service"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Expiration Of Grade Retention^~100;"Expiration Of Grade Retention"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Supervisor/Mgr Prob Period^~102;"Supervisor/Mgr Prob Period"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Beginning Of Nonpay Status^~103;"Beginning Of Nonpay Status"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^1-Year Prob Period Completion^~104;"1-Year Prob Period Completion"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Federal Service Date^~110;"Federal Service Date"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Career Promotion Determination^~111;"Career Promotion Determination"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Expiration Of FERS Period^~113;"Expiration Of FERS Period"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Temporary Health Benefits Elig^~114;"Temporary Health Benefits Elig"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Expiration Of Geo Location Pay^~114.1;"Expiration Of Geo Location Pay"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code S*^~115.16;"Followup Code S*"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 30^~116.01;"Followup Code 30"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 31^~116.02;"Followup Code 31"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 32^~116.03;"Followup Code 32"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 33^~116.04;"Followup Code 33"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 34^~116.05;"Followup Code 34"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 35^~116.06;"Followup Code 35"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 36^~116.07;"Followup Code 36"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 37^~116.08;"Followup Code 37"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 38^~116.09;"Followup Code 38"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 39^~116.1;"Followup Code 39"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 40^~116.11;"Followup Code 40"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 41^~116.12;"Followup Code 41"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 42^~116.13;"Followup Code 42"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 43^~116.14;"Followup Code 43"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 44^~116.15;"Followup Code 44"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 45^~116.16;"Followup Code 45"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 46^~116.17;"Followup Code 46"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 47^~116.18;"Followup Code 47"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 48^~116.19;"Followup Code 48"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Followup Code 49^~116.2;"Followup Code 49"^DAO^::AETS^D DATE^QAQAHOC2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDAH4   4224     printed  Mar 13, 2025@21:30:10                                                                                                                                                                                                     Page 2

PRSDAH4   ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE PAID EMPLOYEE FILE (#450) ;05/23/95  14:17

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

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

 +3        SET QAQMRTN="MENU^PRSDAH4"

           SET QAQORTN="OTHER^PRSDAH4"

           SET QAQDIC=450

 +4        SET QAQMHDR="Followup Code 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^Placement Followup^~91;"Placement Followup"^DAO^::AETS^D DATE^QAQAHOC2

 +4       ;;1^Conversion To Career Tenure^~93;"Conversion To Career Tenure"^DAO^::AETS^D DATE^QAQAHOC2

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

 +6       ;;1^Expiration Of Formal Detail^~96;"Expiration Of Formal Detail"^DAO^::AETS^D DATE^QAQAHOC2

 +7       ;;1^Redetermination Of WGI^~97;"Redetermination Of WGI"^DAO^::AETS^D DATE^QAQAHOC2

 +8       ;;1^Eligible For Drug Testing^~115.17;"Eligible For Drug Testing"^FAO^1:60^

 +9       ;;1^Followup Code 08^~97.1;"Followup Code 08"^DAO^::AETS^D DATE^QAQAHOC2

 +10      ;;1^Elig For Conv To Comp Service^~98;"Elig For Conv To Comp Service"^DAO^::AETS^D DATE^QAQAHOC2

 +11      ;;1^Annual Leave Restriction^~92;"Annual Leave Restriction"^DAO^::AETS^D DATE^QAQAHOC2

 +12      ;;1^Obligated Service^~99;"Obligated Service"^DAO^::AETS^D DATE^QAQAHOC2

 +13      ;;1^Expiration Of Grade Retention^~100;"Expiration Of Grade Retention"^DAO^::AETS^D DATE^QAQAHOC2

 +14      ;;1^Supervisor/Mgr Prob Period^~102;"Supervisor/Mgr Prob Period"^DAO^::AETS^D DATE^QAQAHOC2

 +15      ;;1^Beginning Of Nonpay Status^~103;"Beginning Of Nonpay Status"^DAO^::AETS^D DATE^QAQAHOC2

 +16      ;;1^1-Year Prob Period Completion^~104;"1-Year Prob Period Completion"^DAO^::AETS^D DATE^QAQAHOC2

 +17      ;;1^Federal Service Date^~110;"Federal Service Date"^DAO^::AETS^D DATE^QAQAHOC2

 +18      ;;1^Career Promotion Determination^~111;"Career Promotion Determination"^DAO^::AETS^D DATE^QAQAHOC2

 +19      ;;1^Expiration Of FERS Period^~113;"Expiration Of FERS Period"^DAO^::AETS^D DATE^QAQAHOC2

 +20      ;;1^Temporary Health Benefits Elig^~114;"Temporary Health Benefits Elig"^DAO^::AETS^D DATE^QAQAHOC2

 +21      ;;1^Expiration Of Geo Location Pay^~114.1;"Expiration Of Geo Location Pay"^DAO^::AETS^D DATE^QAQAHOC2

 +22      ;;1^Followup Code S*^~115.16;"Followup Code S*"^DAO^::AETS^D DATE^QAQAHOC2

 +23      ;;1^Followup Code 30^~116.01;"Followup Code 30"^DAO^::AETS^D DATE^QAQAHOC2

 +24      ;;1^Followup Code 31^~116.02;"Followup Code 31"^DAO^::AETS^D DATE^QAQAHOC2

 +25      ;;1^Followup Code 32^~116.03;"Followup Code 32"^DAO^::AETS^D DATE^QAQAHOC2

 +26      ;;1^Followup Code 33^~116.04;"Followup Code 33"^DAO^::AETS^D DATE^QAQAHOC2

 +27      ;;1^Followup Code 34^~116.05;"Followup Code 34"^DAO^::AETS^D DATE^QAQAHOC2

 +28      ;;1^Followup Code 35^~116.06;"Followup Code 35"^DAO^::AETS^D DATE^QAQAHOC2

 +29      ;;1^Followup Code 36^~116.07;"Followup Code 36"^DAO^::AETS^D DATE^QAQAHOC2

 +30      ;;1^Followup Code 37^~116.08;"Followup Code 37"^DAO^::AETS^D DATE^QAQAHOC2

 +31      ;;1^Followup Code 38^~116.09;"Followup Code 38"^DAO^::AETS^D DATE^QAQAHOC2

 +32      ;;1^Followup Code 39^~116.1;"Followup Code 39"^DAO^::AETS^D DATE^QAQAHOC2

 +33      ;;1^Followup Code 40^~116.11;"Followup Code 40"^DAO^::AETS^D DATE^QAQAHOC2

 +34      ;;1^Followup Code 41^~116.12;"Followup Code 41"^DAO^::AETS^D DATE^QAQAHOC2

 +35      ;;1^Followup Code 42^~116.13;"Followup Code 42"^DAO^::AETS^D DATE^QAQAHOC2

 +36      ;;1^Followup Code 43^~116.14;"Followup Code 43"^DAO^::AETS^D DATE^QAQAHOC2

 +37      ;;1^Followup Code 44^~116.15;"Followup Code 44"^DAO^::AETS^D DATE^QAQAHOC2

 +38      ;;1^Followup Code 45^~116.16;"Followup Code 45"^DAO^::AETS^D DATE^QAQAHOC2

 +39      ;;1^Followup Code 46^~116.17;"Followup Code 46"^DAO^::AETS^D DATE^QAQAHOC2

 +40      ;;1^Followup Code 47^~116.18;"Followup Code 47"^DAO^::AETS^D DATE^QAQAHOC2

 +41      ;;1^Followup Code 48^~116.19;"Followup Code 48"^DAO^::AETS^D DATE^QAQAHOC2

 +42      ;;1^Followup Code 49^~116.2;"Followup Code 49"^DAO^::AETS^D DATE^QAQAHOC2

PRSDAH4.m