ACRFTR.m

ACRFTR ;IHS/OIRM/DSD/THL,AEF - TRAINING REPORTS;  [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;UTILITY TO SELECT AND PRINT VARIOUS TRAINING SUMMARY REPORTS

EN ;EP;

 F  D EN1 Q:$D(ACRQUIT)!$D(ACROUT)

EXIT ;EP

 K ACR,ACRFOR,ACRDFN,ACRXREF,ACRBEGIN,AC,TREND,ACRTYPE,ACRDC,ACRTOTD,ACRTRNG,ACRY,ACRRTN,ACRNVAL,ACRLOC,ACRPOZ,ACRFOR,ACRLOC,ACRTRNEE,ACRGRD,ACRTITLE,ACRTUIT,ACRBOOKS,ACR1,ACR2,ACR3,ACRDUTHR,ACRNDHR,ACRTOTD,ACRTOTND,ACRTTUIT,ACRTBOOK,ACRT1

 K ACRT2,ACRT3,ACRT4,ACRT5,ACRT6,ACRDOC0,ACRTRNG,ACRTRNG3,ACRTRNG4,ACRCME,ACRDUZ,ACRFROM,ACRTO,ACRDATES,ACRNVAL,ACR4,ACR5,ACR6,ACRTGNO,ACROUT,ACRTYPE,ACRTYPET,ACRXT,ACRAREA,ACRCAN,ACRSG,ACRTT

 Q

EN1 W @IOF

 D EXIT

 W !?10,"TRAINING SUMMARY REPORTS"

 S DIR(0)="SO^1:Individual Employee;2:Department;3:Location Code;4:Purchasing Office;5:Area Office;6:CAN No.;7:Series/Grade;8:Training Type"

 S DIR("A")="Which one"

 D DIR^ACRFDIC

 Q:+Y<1

 S ACRTYPE=Y

 S ACRXREF=$S(Y=1:"F",Y=2:"M",1:"REF")

 I ACRTYPE=1 D IND

 I ACRTYPE=2 D DEPT

 I ACRTYPE=3 D LOCATION

 I ACRTYPE=4 D PO

 I ACRTYPE=5 D AREA

 I $D(ACRQUIT) K ACRQUIT Q

 I ACRTYPE=6 D CAN(.ACRDFN,.ACRFOR,.ACRCAN,.ACRQUIT)

 I $D(ACRQUIT) K ACRQUIT Q

 I ACRTYPE=7 D SG(.ACRDFN,.ACRFOR,.ACRSG,.ACRQUIT)

 I $D(ACRQUIT) K ACRQUIT Q

 I ACRTYPE=8 D TT(.ACRDFN,.ACRFOR,.ACRTT,.ACRQUIT)

 I $D(ACRQUIT) K ACRQUIT Q

 K ACRTYPE

 D DATES

 I $D(ACRQUIT) K ACRQUIT Q

 D TE

 I $D(ACRQUIT) K ACRQUIT Q

 D TYPE

 I $D(ACRQUIT) K ACRQUIT Q

 I ACRTYPE=8 S ACRSMRY=""

 E  D SUMMARY

 I $D(ACRQUIT) K ACRQUIT Q

 D ZIS,EXIT

 Q

ZIS S ACRRTN="START^ACRFTR1"

 S ZTDESC=$S(ACRTYPE=1:"INDIVIDUAL",ACRTYPE=2:"DEPARTMENT",ACRTYPE=3:"LOCATION CODE",1:"PURCHASING OFFICE")_" TRAINING REPORT"

 D ^ACRFZIS

 Q

IND S DIR(0)="PO^200:AEMNQZ"

 S DIR("A")="Employee Name."

 S DIR("?",1)="Enter the name of the employee for whom you want to print a training summary"

 S DIR("?")="in the format 'LAST,FIRST MI'"

 W !

 D DIR^ACRFDIC

 Q:+Y<1

 S ACRDFN=+Y

 S ACRFOR=Y(0,0)

 Q

DEPT ;

 W !!?21,"Department Training summary"

 S DIR(0)="PO^AUTTPRG(:AEMNQZ"

 S DIR("A")="Department...."

 S DIR("?",1)="Enter the name of the DEPARTMENT for which you want to print a training summary"

 S DIR("?")="in the format 'LAST,FIRST MI'"

 W !

 D DIR^ACRFDIC

 Q:+Y<1

 S ACRDFN=+Y

 S ACRFOR=$P(Y(0),U)

 Q

LOCATION ;

 W !!?21,"Location Code Training summary"

 S DIR(0)="PO^AUTTLCOD(:AEMNQZ"

 S DIR("A")="Location Code."

 S DIR("?")="Enter the name of the LOCATION CODE for which to print a training summary"

 W !

 D DIR^ACRFDIC

 Q:+Y<1

 S ACRLOC=+Y

 S ACRDFN=53

 S ACRFOR=$P(Y(0),U)

 Q

DATES ;

 S DIR(0)="DO^::E"

 S DIR("A")="Beginning Date"

 S DIR("?",1)="Enter the earliest date for which you want to include training for the employee."

 S DIR("?")="Do not enter any date if you want to list all the employee's training."

 W !

 D DIR^ACRFDIC

 Q:$D(ACROUT)

 I +Y<1 D  G DATES

 .W !!,"You must enter a Beginning Date.  Enter '^^' to exit."

 K ACRQUIT

 S ACRBEGIN=+Y

 S ACREND=""

 I ACRBEGIN D  Q:$D(ACRQUIT)

 . S DIR(0)="DO^::E"

 .S DIR("A")="Ending Date..."

 .S DIR("?",1)="Enter the latest date for which you want to include training for the employee."

 .S DIR("?")="Do not enter any date if you want to list all the employee's training."

 .D DIR^ACRFDIC

 .I $E(X)[U S ACRQUIT="" Q

 .K ACRQUIT

 .S ACREND=$S(Y="":DT,1:Y)

 Q

PO ;SELECT PURCHASING OFFICE

 D PO^ACRFPSR

 Q:$D(ACRQUIT)

 S ACRDFN=53

 S ACRFOR=+^ACRPO(ACRPOZ,0)

 S ACRFOR=$P($G(^DIC(4,+ACRFOR,0)),U)

 Q

AREA ;SELECT AREA OFFICE

 I '$O(^ACRSYS(1)) S Y=1

 E  D

 .S DIC="^ACRSYS("

 .S DIC(0)="AEMQZ"

 .S DIC("A")="Training Report for which Area: "

 .S DIC("B")=$P($G(^AUTTAREA(+$G(^ACRSYS(1,0)),0)),U)

 .W !

 .D DIC^ACRFDIC

 I +Y<1 S ACRQUIT="" Q

 S ACRAREA=+Y

 S ACRDFN=53

 S ACRFOR=+^ACRSYS(ACRAREA,0)

 S ACRFOR=$P($G(^AUTTAREA(+ACRFOR,0)),U)

 Q

CAN(ACRDFN,ACRFOR,ACRCAN,ACRQUIT)      ;

 ;----- SELECT CAN NUMBER

 ;

 N DIC,DTOUT,DUOUT,X,Y

 S DIC="^ACRCAN("

 S DIC(0)="AEMQ"

 S DIC("A")="Training Report for which CAN No.: "

 D ^DIC

 I +Y'>0!($D(DTOUT))!($D(DUOUT)) S ACRQUIT="" Q

 S ACRCAN=+Y

 S ACRFOR=$P(^AUTTCAN(+Y,0),U)

 S ACRDFN=53

 Q

SG(ACRDFN,ACRFOR,ACRSG,ACRQUIT)        ;

 ;----- SELECT SERIES/GRADE

 ;

 N DIR,DIRUT,DTOUT,DUOUT,X,Y

 S DIR(0)="F^1:4"

 S DIR("A")="Select PERSONNEL SERIES"

 D ^DIR

 I Y']""!($D(DIRUT))!($D(DTOUT))!($D(DUOUT)) S ACRQUIT="" Q

 S ACRSG=Y

 ;

 S DIR(0)="N^1:18"

 S DIR("A")="Select PAY GRADE"

 D ^DIR

 I Y'>0!($D(DIRUT))!($D(DTOUT))!($D(DUOUT)) K ACRSG S ACRQUIT="" Q

 S ACRSG=ACRSG_U_Y

 S ACRFOR="SERIES-GRADE "_$P(ACRSG,U)_"-"_$P(ACRSG,U,2)

 S ACRDFN=53

 Q

TT(ACRDFN,ACRFOR,ACRTT,ACRQUIT)        ;

 ;

 N DIC,DTOUT,DUOUT,X,Y

 S DIC="^ACRTT("

 S DIC(0)="AEMQ"

 S DIC("A")="Training Report for which Training Type: "

 D ^DIC

 I +Y'>0!($D(DTOUT))!($D(DUOUT)) S ACRQUIT="" Q

 S ACRTT=+Y

 S ACRFOR="TRAINING TYPE "_$P(^ACRTT(+Y,0),U)_" ("_$P(^ACRTT(+Y,0),U,2)_")"

 S ACRDFN=53

 Q

TE ;

 S DIR(0)="YO"

 S DIR("A")="Include ONLY 350's WITHOUT completed TRAINING EVALUATION"

 S DIR("B")="NO"

 W !

 D DIR^ACRFDIC

 Q:$D(ACRQUIT)

 S:$G(Y)=1 ACRNVAL=""

 Q

CME ;

 S DIR(0)="SO^1:Continuing MEDICAL Education;2:Continuing NURSING Education;3:All Training"

 S DIR("A")="Which report"

 S DIR("B")="All Training"

 W !

 D DIR^ACRFDIC

 K ACRQUIT

 I $D(ACROUT) S ACRQUIT="" Q

 S ACRCME=+Y

 Q

TYPE ;

 S DIR(0)="SO^1:Purpose of Training;2:Type of Training;3:Source of Training;4:Special Interest Code;5:Skill Code;6:Professional Category;7:All Training;8:All of the Above"

 S DIR("A")="Report for Which of the Above"

 S DIR("B")="All Training"

 W !

 D DIR^ACRFDIC

 K ACRQUIT

 I $D(ACROUT) S ACRQUIT="" Q

 S ACRTYPE=+Y

 S ACRTYPE("G")=$$TTYPE(ACRTYPE)

 Q

SUMMARY ;

 S DIR(0)="SO^1:Summary Only;2:Detailed Report Only;3:Both"

 S DIR("A")="Which report"

 S DIR("B")="Both"

 W !

 D DIR^ACRFDIC

 K ACRQUIT

 I $D(ACROUT) S ACRQUIT="" Q

 I Y=1 S ACRSMRY="" K ACRDTAIL

 I Y=2 S ACRDTAIL="" K ACRSMRY

 I Y=3 S (ACRSMRY,ACRDTAIL)=""

 Q

TTYPE(X) ;EP;FIND GLOBAL REFERENCE FOR REPORT TYPE

 I X=1 S X="^ACRTP(" Q X

 I X=2 S X="^ACRTT(" Q X

 I X=3 S X="^ACRTS(" Q X

 I X=4 S X="^ACRTSI(" Q X

 I X=5 S X="^ACRTSC(" Q X

 I X=6 S X="^ACRCME(" Q X

 Q ""

ACRFTR    ;IHS/OIRM/DSD/THL,AEF - TRAINING REPORTS;  [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;UTILITY TO SELECT AND PRINT VARIOUS TRAINING SUMMARY REPORTS

EN        ;EP;

 +1        FOR 

               DO EN1

               IF $DATA(ACRQUIT)!$DATA(ACROUT)

                   QUIT 

EXIT      ;EP

 +1        KILL ACR,ACRFOR,ACRDFN,ACRXREF,ACRBEGIN,AC,TREND,ACRTYPE,ACRDC,ACRTOTD,ACRTRNG,ACRY,ACRRTN,ACRNVAL,ACRLOC,ACRPOZ,ACRFOR,ACRLOC,ACRTRNEE,ACRGRD,ACRTITLE,ACRTUIT,ACRBOOKS,ACR1,ACR2,ACR3,ACRDUTHR,ACRNDHR,ACRTOTD,ACRTOTND,ACRTTUIT,ACRTBOOK,ACRT1

 +2        KILL ACRT2,ACRT3,ACRT4,ACRT5,ACRT6,ACRDOC0,ACRTRNG,ACRTRNG3,ACRTRNG4,ACRCME,ACRDUZ,ACRFROM,ACRTO,ACRDATES,ACRNVAL,ACR4,ACR5,ACR6,ACRTGNO,ACROUT,ACRTYPE,ACRTYPET,ACRXT,ACRAREA,ACRCAN,ACRSG,ACRTT

 +3        QUIT 

EN1        WRITE @IOF

 +1        DO EXIT

 +2        WRITE !?10,"TRAINING SUMMARY REPORTS"

 +3        SET DIR(0)="SO^1:Individual Employee;2:Department;3:Location Code;4:Purchasing Office;5:Area Office;6:CAN No.;7:Series/Grade;8:Training Type"

 +4        SET DIR("A")="Which one"

 +5        DO DIR^ACRFDIC

 +6        IF +Y<1

               QUIT 

 +7        SET ACRTYPE=Y

 +8        SET ACRXREF=$SELECT(Y=1:"F",Y=2:"M",1:"REF")

 +9        IF ACRTYPE=1

               DO IND

 +10       IF ACRTYPE=2

               DO DEPT

 +11       IF ACRTYPE=3

               DO LOCATION

 +12       IF ACRTYPE=4

               DO PO

 +13       IF ACRTYPE=5

               DO AREA

 +14       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +15       IF ACRTYPE=6

               DO CAN(.ACRDFN,.ACRFOR,.ACRCAN,.ACRQUIT)

 +16       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +17       IF ACRTYPE=7

               DO SG(.ACRDFN,.ACRFOR,.ACRSG,.ACRQUIT)

 +18       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +19       IF ACRTYPE=8

               DO TT(.ACRDFN,.ACRFOR,.ACRTT,.ACRQUIT)

 +20       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +21       KILL ACRTYPE

 +22       DO DATES

 +23       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +24       DO TE

 +25       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +26       DO TYPE

 +27       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +28       IF ACRTYPE=8

               SET ACRSMRY=""

 +29      IF '$TEST

               DO SUMMARY

 +30       IF $DATA(ACRQUIT)

               KILL ACRQUIT

               QUIT 

 +31       DO ZIS

           DO EXIT

 +32       QUIT 

ZIS        SET ACRRTN="START^ACRFTR1"

 +1        SET ZTDESC=$SELECT(ACRTYPE=1:"INDIVIDUAL",ACRTYPE=2:"DEPARTMENT",ACRTYPE=3:"LOCATION CODE",1:"PURCHASING OFFICE")_" TRAINING REPORT"

 +2        DO ^ACRFZIS

 +3        QUIT 

IND        SET DIR(0)="PO^200:AEMNQZ"

 +1        SET DIR("A")="Employee Name."

 +2        SET DIR("?",1)="Enter the name of the employee for whom you want to print a training summary"

 +3        SET DIR("?")="in the format 'LAST,FIRST MI'"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        IF +Y<1

               QUIT 

 +7        SET ACRDFN=+Y

 +8        SET ACRFOR=Y(0,0)

 +9        QUIT 

DEPT      ;

 +1        WRITE !!?21,"Department Training summary"

 +2        SET DIR(0)="PO^AUTTPRG(:AEMNQZ"

 +3        SET DIR("A")="Department...."

 +4        SET DIR("?",1)="Enter the name of the DEPARTMENT for which you want to print a training summary"

 +5        SET DIR("?")="in the format 'LAST,FIRST MI'"

 +6        WRITE !

 +7        DO DIR^ACRFDIC

 +8        IF +Y<1

               QUIT 

 +9        SET ACRDFN=+Y

 +10       SET ACRFOR=$PIECE(Y(0),U)

 +11       QUIT 

LOCATION  ;

 +1        WRITE !!?21,"Location Code Training summary"

 +2        SET DIR(0)="PO^AUTTLCOD(:AEMNQZ"

 +3        SET DIR("A")="Location Code."

 +4        SET DIR("?")="Enter the name of the LOCATION CODE for which to print a training summary"

 +5        WRITE !

 +6        DO DIR^ACRFDIC

 +7        IF +Y<1

               QUIT 

 +8        SET ACRLOC=+Y

 +9        SET ACRDFN=53

 +10       SET ACRFOR=$PIECE(Y(0),U)

 +11       QUIT 

DATES     ;

 +1        SET DIR(0)="DO^::E"

 +2        SET DIR("A")="Beginning Date"

 +3        SET DIR("?",1)="Enter the earliest date for which you want to include training for the employee."

 +4        SET DIR("?")="Do not enter any date if you want to list all the employee's training."

 +5        WRITE !

 +6        DO DIR^ACRFDIC

 +7        IF $DATA(ACROUT)

               QUIT 

 +8        IF +Y<1

               Begin DoDot:1

 +9                WRITE !!,"You must enter a Beginning Date.  Enter '^^' to exit."

               End DoDot:1

               GOTO DATES

 +10       KILL ACRQUIT

 +11       SET ACRBEGIN=+Y

 +12       SET ACREND=""

 +13       IF ACRBEGIN

               Begin DoDot:1

 +14               SET DIR(0)="DO^::E"

 +15               SET DIR("A")="Ending Date..."

 +16               SET DIR("?",1)="Enter the latest date for which you want to include training for the employee."

 +17               SET DIR("?")="Do not enter any date if you want to list all the employee's training."

 +18               DO DIR^ACRFDIC

 +19               IF $EXTRACT(X)[U

                       SET ACRQUIT=""

                       QUIT 

 +20               KILL ACRQUIT

 +21               SET ACREND=$SELECT(Y="":DT,1:Y)

               End DoDot:1

               IF $DATA(ACRQUIT)

                   QUIT 

 +22       QUIT 

PO        ;SELECT PURCHASING OFFICE

 +1        DO PO^ACRFPSR

 +2        IF $DATA(ACRQUIT)

               QUIT 

 +3        SET ACRDFN=53

 +4        SET ACRFOR=+^ACRPO(ACRPOZ,0)

 +5        SET ACRFOR=$PIECE($GET(^DIC(4,+ACRFOR,0)),U)

 +6        QUIT 

AREA      ;SELECT AREA OFFICE

 +1        IF '$ORDER(^ACRSYS(1))

               SET Y=1

 +2       IF '$TEST

               Begin DoDot:1

 +3                SET DIC="^ACRSYS("

 +4                SET DIC(0)="AEMQZ"

 +5                SET DIC("A")="Training Report for which Area: "

 +6                SET DIC("B")=$PIECE($GET(^AUTTAREA(+$GET(^ACRSYS(1,0)),0)),U)

 +7                WRITE !

 +8                DO DIC^ACRFDIC

               End DoDot:1

 +9        IF +Y<1

               SET ACRQUIT=""

               QUIT 

 +10       SET ACRAREA=+Y

 +11       SET ACRDFN=53

 +12       SET ACRFOR=+^ACRSYS(ACRAREA,0)

 +13       SET ACRFOR=$PIECE($GET(^AUTTAREA(+ACRFOR,0)),U)

 +14       QUIT 

CAN(ACRDFN,ACRFOR,ACRCAN,ACRQUIT) ;

 +1       ;----- SELECT CAN NUMBER

 +2       ;

 +3        NEW DIC,DTOUT,DUOUT,X,Y

 +4        SET DIC="^ACRCAN("

 +5        SET DIC(0)="AEMQ"

 +6        SET DIC("A")="Training Report for which CAN No.: "

 +7        DO ^DIC

 +8        IF +Y'>0!($DATA(DTOUT))!($DATA(DUOUT))

               SET ACRQUIT=""

               QUIT 

 +9        SET ACRCAN=+Y

 +10       SET ACRFOR=$PIECE(^AUTTCAN(+Y,0),U)

 +11       SET ACRDFN=53

 +12       QUIT 

SG(ACRDFN,ACRFOR,ACRSG,ACRQUIT) ;

 +1       ;----- SELECT SERIES/GRADE

 +2       ;

 +3        NEW DIR,DIRUT,DTOUT,DUOUT,X,Y

 +4        SET DIR(0)="F^1:4"

 +5        SET DIR("A")="Select PERSONNEL SERIES"

 +6        DO ^DIR

 +7        IF Y']""!($DATA(DIRUT))!($DATA(DTOUT))!($DATA(DUOUT))

               SET ACRQUIT=""

               QUIT 

 +8        SET ACRSG=Y

 +9       ;

 +10       SET DIR(0)="N^1:18"

 +11       SET DIR("A")="Select PAY GRADE"

 +12       DO ^DIR

 +13       IF Y'>0!($DATA(DIRUT))!($DATA(DTOUT))!($DATA(DUOUT))

               KILL ACRSG

               SET ACRQUIT=""

               QUIT 

 +14       SET ACRSG=ACRSG_U_Y

 +15       SET ACRFOR="SERIES-GRADE "_$PIECE(ACRSG,U)_"-"_$PIECE(ACRSG,U,2)

 +16       SET ACRDFN=53

 +17       QUIT 

TT(ACRDFN,ACRFOR,ACRTT,ACRQUIT) ;

 +1       ;

 +2        NEW DIC,DTOUT,DUOUT,X,Y

 +3        SET DIC="^ACRTT("

 +4        SET DIC(0)="AEMQ"

 +5        SET DIC("A")="Training Report for which Training Type: "

 +6        DO ^DIC

 +7        IF +Y'>0!($DATA(DTOUT))!($DATA(DUOUT))

               SET ACRQUIT=""

               QUIT 

 +8        SET ACRTT=+Y

 +9        SET ACRFOR="TRAINING TYPE "_$PIECE(^ACRTT(+Y,0),U)_" ("_$PIECE(^ACRTT(+Y,0),U,2)_")"

 +10       SET ACRDFN=53

 +11       QUIT 

TE        ;

 +1        SET DIR(0)="YO"

 +2        SET DIR("A")="Include ONLY 350's WITHOUT completed TRAINING EVALUATION"

 +3        SET DIR("B")="NO"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        IF $DATA(ACRQUIT)

               QUIT 

 +7        IF $GET(Y)=1

               SET ACRNVAL=""

 +8        QUIT 

CME       ;

 +1        SET DIR(0)="SO^1:Continuing MEDICAL Education;2:Continuing NURSING Education;3:All Training"

 +2        SET DIR("A")="Which report"

 +3        SET DIR("B")="All Training"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        KILL ACRQUIT

 +7        IF $DATA(ACROUT)

               SET ACRQUIT=""

               QUIT 

 +8        SET ACRCME=+Y

 +9        QUIT 

TYPE      ;

 +1        SET DIR(0)="SO^1:Purpose of Training;2:Type of Training;3:Source of Training;4:Special Interest Code;5:Skill Code;6:Professional Category;7:All Training;8:All of the Above"

 +2        SET DIR("A")="Report for Which of the Above"

 +3        SET DIR("B")="All Training"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        KILL ACRQUIT

 +7        IF $DATA(ACROUT)

               SET ACRQUIT=""

               QUIT 

 +8        SET ACRTYPE=+Y

 +9        SET ACRTYPE("G")=$$TTYPE(ACRTYPE)

 +10       QUIT 

SUMMARY   ;

 +1        SET DIR(0)="SO^1:Summary Only;2:Detailed Report Only;3:Both"

 +2        SET DIR("A")="Which report"

 +3        SET DIR("B")="Both"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        KILL ACRQUIT

 +7        IF $DATA(ACROUT)

               SET ACRQUIT=""

               QUIT 

 +8        IF Y=1

               SET ACRSMRY=""

               KILL ACRDTAIL

 +9        IF Y=2

               SET ACRDTAIL=""

               KILL ACRSMRY

 +10       IF Y=3

               SET (ACRSMRY,ACRDTAIL)=""

 +11       QUIT 

TTYPE(X)  ;EP;FIND GLOBAL REFERENCE FOR REPORT TYPE

 +1        IF X=1

               SET X="^ACRTP("

               QUIT X

 +2        IF X=2

               SET X="^ACRTT("

               QUIT X

 +3        IF X=3

               SET X="^ACRTS("

               QUIT X

 +4        IF X=4

               SET X="^ACRTSI("

               QUIT X

 +5        IF X=5

               SET X="^ACRTSC("

               QUIT X

 +6        IF X=6

               SET X="^ACRCME("

               QUIT X

 +7        QUIT ""