ACMMENU.m

ACMMENU ; IHS/TUCSON/TMJ - UTILITY ROUTINES MENU & SCREEN HANDLING ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 ;

TITLE D HEAD

 W:ACMY'="" !!?80-$L(ACMY)/2,ACMY

 W:ACMY="" !!?21,@ACMRVON,"DATA ENTRY",@ACMRVOFF,!?17,"for ",@ACMRVON,ACMPTNA2,@ACMRVOFF

 K ACMY

 Q

ENTRY ;EP;THIS SECTION OF LINE LABELS ARE ALL ENTRY POINTS USED IN MENU

 ;HEADER PRESENTATION

MM ;EP - called from option

 K ACMESQK,ACMRG,ACMRGNA S ACMY="MAIN MENU" G TITLE

 ;EP;ALL LINE LABELS MGR - DM ARE EXTERNAL ENTRY POINTS TO CONTROL HEADER DISPLAY

MGR S ACMY="MANAGER'S MENU" G TITLE

LSS S ACMY="LOCAL SYSTEMS SETUP" G TITLE

SCS S ACMY="SETUP LIST CATEGORIES" G TITLE

PDE S ACMY="" G TITLE

 S ACMY="PATIENT AND STATISTICAL REPORT GENERATION" G TITLE

PR ;EP - CALLED FROM OPTION

SR S ACMY="STATISTICAL REPORTS" G TITLE

LOR ;EP - called from option

 S ACMY="LOCAL OPTION REPORTS" G TITLE

DM ;EP -call from option

 S ACMY="PATIENT DATA MANAGEMENT" G TITLE

RES  ;EP - CALLED FROM OPTION

 S ACMY="RESOURCE DIRECTORY LISTING" G TITLE

LTR ;EP - called from option

 S ACMY="RECALL LETTER MANAGEMENT" G TITLE

 ;

HEAD ;EP;TO DISPLAY HEADER

 I $E(IOST,1,2)'="P-" W:$D(IOF) @IOF

 F ACMJ=1:1:3 S ACMX=$T(TEXT+ACMJ),ACMX=$P(ACMX,";;",2) S:ACMJ=2&$D(ACMRG) ACMX=$S(ACMRGNA'="":ACMRGNA,ACMX:ACMX,1:"")_" REGISTER" S:ACMJ=2&$D(ACMRG)&$D(ACMRGCUS) ACMX="CUSTOMIZE "_ACMX W !?80-$L(ACMX)\2,ACMX K ACMX

 K ACMJ

 I $D(ACMY),ACMY="MAIN MENU" D HDVS

 I $D(ACMY),ACMY="RECALL LETTER MANAGEMENT" D HDVS

 I $D(ACMY),ACMY="LOCAL OPTION REPORTS" D HDVS

 I $D(ACMY),ACMY="PATIENT DATA MANAGEMENT" D HDVS

 I $D(ACMY),ACMY="RESOURCE DIRECTORY LISTING" D HDVS

 I $D(ACMY),ACMY="PATIENT AND STATISTICAL REPORT GENERATION" D HDVS

 Q

 ;

TEXT ;

 ;;**************************************

 ;;**      CASE MANAGEMENT SYSTEM      **

 ;;**************************************

HDVS ;

 I $D(DUZ(2))#2,DUZ(2) S:$D(^DIC(4,DUZ(2),0)) ACMX=$P(^(0),U)

 S ACMZ=$O(^DIC(9.4,"C","ACM",0))

 Q:'ACMZ

 S ACMZ=$P(^DIC(9.4,ACMZ,"VERSION"),U),ACMZ="VERSION "_ACMZ

DISP ;

 I IOST'["P-" W:$D(ACMZ) !?80-$L(ACMZ)\2,ACMZ

 W:$D(ACMX) !?80-$L(ACMX)\2,ACMX

EXIT ;

 K ACMX,ACMZ

 Q

PAUSE ;EP;USED FOR ALL PAUSES FOR SCREEN CONTROL

 S DIR(0)="EOA",DIR("A")="Press <ENTER> to continue..... "

 D ^DIR K DIR

 Q

 ;

ACMMENU   ; IHS/TUCSON/TMJ - UTILITY ROUTINES MENU & SCREEN HANDLING ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2       ;

TITLE      DO HEAD

 +1        IF ACMY'=""

               WRITE !!?80-$LENGTH(ACMY)/2,ACMY

 +2        IF ACMY=""

               WRITE !!?21,@ACMRVON,"DATA ENTRY",@ACMRVOFF,!?17,"for ",@ACMRVON,ACMPTNA2,@ACMRVOFF

 +3        KILL ACMY

 +4        QUIT 

ENTRY     ;EP;THIS SECTION OF LINE LABELS ARE ALL ENTRY POINTS USED IN MENU

 +1       ;HEADER PRESENTATION

MM        ;EP - called from option

 +1        KILL ACMESQK,ACMRG,ACMRGNA

           SET ACMY="MAIN MENU"

           GOTO TITLE

 +2       ;EP;ALL LINE LABELS MGR - DM ARE EXTERNAL ENTRY POINTS TO CONTROL HEADER DISPLAY

MGR        SET ACMY="MANAGER'S MENU"

           GOTO TITLE

LSS        SET ACMY="LOCAL SYSTEMS SETUP"

           GOTO TITLE

SCS        SET ACMY="SETUP LIST CATEGORIES"

           GOTO TITLE

PDE        SET ACMY=""

           GOTO TITLE

 +1        SET ACMY="PATIENT AND STATISTICAL REPORT GENERATION"

           GOTO TITLE

PR        ;EP - CALLED FROM OPTION

SR         SET ACMY="STATISTICAL REPORTS"

           GOTO TITLE

LOR       ;EP - called from option

 +1        SET ACMY="LOCAL OPTION REPORTS"

           GOTO TITLE

DM        ;EP -call from option

 +1        SET ACMY="PATIENT DATA MANAGEMENT"

           GOTO TITLE

RES       ;EP - CALLED FROM OPTION

 +1        SET ACMY="RESOURCE DIRECTORY LISTING"

           GOTO TITLE

LTR       ;EP - called from option

 +1        SET ACMY="RECALL LETTER MANAGEMENT"

           GOTO TITLE

 +2       ;

HEAD      ;EP;TO DISPLAY HEADER

 +1        IF $EXTRACT(IOST,1,2)'="P-"

               IF $DATA(IOF)

                   WRITE @IOF

 +2        FOR ACMJ=1:1:3

               SET ACMX=$TEXT(TEXT+ACMJ)

               SET ACMX=$PIECE(ACMX,";;",2)

               IF ACMJ=2&$DATA(ACMRG)

                   SET ACMX=$SELECT(ACMRGNA'="":ACMRGNA,ACMX:ACMX,1:"")_" REGISTER"

               IF ACMJ=2&$DATA(ACMRG)&$DATA(ACMRGCUS)

                   SET ACMX="CUSTOMIZE "_ACMX

               WRITE !?80-$LENGTH(ACMX)\2,ACMX

               KILL ACMX

 +3        KILL ACMJ

 +4        IF $DATA(ACMY)

               IF ACMY="MAIN MENU"

                   DO HDVS

 +5        IF $DATA(ACMY)

               IF ACMY="RECALL LETTER MANAGEMENT"

                   DO HDVS

 +6        IF $DATA(ACMY)

               IF ACMY="LOCAL OPTION REPORTS"

                   DO HDVS

 +7        IF $DATA(ACMY)

               IF ACMY="PATIENT DATA MANAGEMENT"

                   DO HDVS

 +8        IF $DATA(ACMY)

               IF ACMY="RESOURCE DIRECTORY LISTING"

                   DO HDVS

 +9        IF $DATA(ACMY)

               IF ACMY="PATIENT AND STATISTICAL REPORT GENERATION"

                   DO HDVS

 +10       QUIT 

 +11      ;

TEXT      ;

 +1       ;;**************************************

 +2       ;;**      CASE MANAGEMENT SYSTEM      **

 +3       ;;**************************************

HDVS      ;

 +1        IF $DATA(DUZ(2))#2

               IF DUZ(2)

                   IF $DATA(^DIC(4,DUZ(2),0))

                       SET ACMX=$PIECE(^(0),U)

 +2        SET ACMZ=$ORDER(^DIC(9.4,"C","ACM",0))

 +3        IF 'ACMZ

               QUIT 

 +4        SET ACMZ=$PIECE(^DIC(9.4,ACMZ,"VERSION"),U)

           SET ACMZ="VERSION "_ACMZ

DISP      ;

 +1        IF IOST'["P-"

               IF $DATA(ACMZ)

                   WRITE !?80-$LENGTH(ACMZ)\2,ACMZ

 +2        IF $DATA(ACMX)

               WRITE !?80-$LENGTH(ACMX)\2,ACMX

EXIT      ;

 +1        KILL ACMX,ACMZ

 +2        QUIT 

PAUSE     ;EP;USED FOR ALL PAUSES FOR SCREEN CONTROL

 +1        SET DIR(0)="EOA"

           SET DIR("A")="Press <ENTER> to continue..... "

 +2        DO ^DIR

           KILL DIR

 +3        QUIT 

 +4       ;