- 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 ;