AQAOLARP.m

AQAOLARP ; IHS/ORDC/LJF - SET UP FACILITY REPORT FORMATS ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This rtn contains code for the user interface to set up facility

 ;specific report formats for slected occurrence reports.

 ;

MENU ; >>> ask user for facility to edit then which links

 I $D(AQAOFAC) L -^AQAGP(AQAOFAC)

 W !! K DIC S DIC="^AQAGP(",DIC(0)="AEMZQ"

 S DIC("A")="Select QI PARAMETER FACILITY:  " D ^DIC

 G EXIT:$D(DTOUT),EXIT:$D(DUOUT),EXIT:X="",MENU:Y=-1 S AQAOFAC=+Y

 L +^AQAGP(AQAOFAC):1 I '$T W !!,"CANNOT EDIT; ANOTHER USER IS EDITING THIS ENTRY. TRY AGAIN.",! G EXIT

 ;

REPORT ; >>> ask user to select report to set up

 I '$D(^AQAGP(AQAOFAC,"FACRPT",0)) S ^(0)="^9002166.41"

 W !! K DIC S DIC(0)="ALEMZQ",DIC="^AQAGP("_AQAOFAC_",""FACRPT"","

 S DA(1)=AQAOFAC D ^DIC

 G EXIT:$D(DTOUT),EXIT:$D(DOUT),MENU:X="",REPORT:Y=-1

 S AQAORPT=+Y K DIE S DIE="^AQAGP("_AQAOFAC_",""FACRPT"","

 S DA=AQAORPT,DA(1)=AQAOFAC

 S DR=".01;.02;D ACCESS^AQAOHPAR;1;D MSF^AQAOHPAR;2;D FWIDE^AQAOHPAR;3;D KEYF^AQAOHPAR;4;D DIM^AQAOHPAR;6;D OTHER^AQAOHPAR;5"

 D ^DIE

 G REPORT

 ;

EXIT ; >>> eoj

 D KILL^AQAOUTIL Q

AQAOLARP  ; IHS/ORDC/LJF - SET UP FACILITY REPORT FORMATS ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This rtn contains code for the user interface to set up facility

 +4       ;specific report formats for slected occurrence reports.

 +5       ;

MENU      ; >>> ask user for facility to edit then which links

 +1        IF $DATA(AQAOFAC)

               LOCK -^AQAGP(AQAOFAC)

 +2        WRITE !!

           KILL DIC

           SET DIC="^AQAGP("

           SET DIC(0)="AEMZQ"

 +3        SET DIC("A")="Select QI PARAMETER FACILITY:  "

           DO ^DIC

 +4        IF $DATA(DTOUT)

               GOTO EXIT

           IF $DATA(DUOUT)

               GOTO EXIT

           IF X=""

               GOTO EXIT

           IF Y=-1

               GOTO MENU

           SET AQAOFAC=+Y

 +5        LOCK +^AQAGP(AQAOFAC):1

           IF '$TEST

               WRITE !!,"CANNOT EDIT; ANOTHER USER IS EDITING THIS ENTRY. TRY AGAIN.",!

               GOTO EXIT

 +6       ;

REPORT    ; >>> ask user to select report to set up

 +1        IF '$DATA(^AQAGP(AQAOFAC,"FACRPT",0))

               SET ^(0)="^9002166.41"

 +2        WRITE !!

           KILL DIC

           SET DIC(0)="ALEMZQ"

           SET DIC="^AQAGP("_AQAOFAC_",""FACRPT"","

 +3        SET DA(1)=AQAOFAC

           DO ^DIC

 +4        IF $DATA(DTOUT)

               GOTO EXIT

           IF $DATA(DOUT)

               GOTO EXIT

           IF X=""

               GOTO MENU

           IF Y=-1

               GOTO REPORT

 +5        SET AQAORPT=+Y

           KILL DIE

           SET DIE="^AQAGP("_AQAOFAC_",""FACRPT"","

 +6        SET DA=AQAORPT

           SET DA(1)=AQAOFAC

 +7        SET DR=".01;.02;D ACCESS^AQAOHPAR;1;D MSF^AQAOHPAR;2;D FWIDE^AQAOHPAR;3;D KEYF^AQAOHPAR;4;D DIM^AQAOHPAR;6;D OTHER^AQAOHPAR;5"

 +8        DO ^DIE

 +9        GOTO REPORT

 +10      ;

EXIT      ; >>> eoj

 +1        DO KILL^AQAOUTIL

           QUIT