Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACMMENU

ACMMENU.m

Go to the documentation of this file.
  1. ACMMENU ; IHS/TUCSON/TMJ - UTILITY ROUTINES MENU & SCREEN HANDLING ;
  1. ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996
  1. ;
  1. TITLE D HEAD
  1. W:ACMY'="" !!?80-$L(ACMY)/2,ACMY
  1. W:ACMY="" !!?21,@ACMRVON,"DATA ENTRY",@ACMRVOFF,!?17,"for ",@ACMRVON,ACMPTNA2,@ACMRVOFF
  1. K ACMY
  1. Q
  1. ENTRY ;EP;THIS SECTION OF LINE LABELS ARE ALL ENTRY POINTS USED IN MENU
  1. ;HEADER PRESENTATION
  1. MM ;EP - called from option
  1. K ACMESQK,ACMRG,ACMRGNA S ACMY="MAIN MENU" G TITLE
  1. ;EP;ALL LINE LABELS MGR - DM ARE EXTERNAL ENTRY POINTS TO CONTROL HEADER DISPLAY
  1. MGR S ACMY="MANAGER'S MENU" G TITLE
  1. LSS S ACMY="LOCAL SYSTEMS SETUP" G TITLE
  1. SCS S ACMY="SETUP LIST CATEGORIES" G TITLE
  1. PDE S ACMY="" G TITLE
  1. S ACMY="PATIENT AND STATISTICAL REPORT GENERATION" G TITLE
  1. PR ;EP - CALLED FROM OPTION
  1. SR S ACMY="STATISTICAL REPORTS" G TITLE
  1. LOR ;EP - called from option
  1. S ACMY="LOCAL OPTION REPORTS" G TITLE
  1. DM ;EP -call from option
  1. S ACMY="PATIENT DATA MANAGEMENT" G TITLE
  1. RES ;EP - CALLED FROM OPTION
  1. S ACMY="RESOURCE DIRECTORY LISTING" G TITLE
  1. LTR ;EP - called from option
  1. S ACMY="RECALL LETTER MANAGEMENT" G TITLE
  1. ;
  1. I $E(IOST,1,2)'="P-" W:$D(IOF) @IOF
  1. 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
  1. K ACMJ
  1. I $D(ACMY),ACMY="MAIN MENU" D HDVS
  1. I $D(ACMY),ACMY="RECALL LETTER MANAGEMENT" D HDVS
  1. I $D(ACMY),ACMY="LOCAL OPTION REPORTS" D HDVS
  1. I $D(ACMY),ACMY="PATIENT DATA MANAGEMENT" D HDVS
  1. I $D(ACMY),ACMY="RESOURCE DIRECTORY LISTING" D HDVS
  1. I $D(ACMY),ACMY="PATIENT AND STATISTICAL REPORT GENERATION" D HDVS
  1. Q
  1. ;
  1. TEXT ;
  1. ;;**************************************
  1. ;;** CASE MANAGEMENT SYSTEM **
  1. ;;**************************************
  1. HDVS ;
  1. I $D(DUZ(2))#2,DUZ(2) S:$D(^DIC(4,DUZ(2),0)) ACMX=$P(^(0),U)
  1. S ACMZ=$O(^DIC(9.4,"C","ACM",0))
  1. Q:'ACMZ
  1. S ACMZ=$P(^DIC(9.4,ACMZ,"VERSION"),U),ACMZ="VERSION "_ACMZ
  1. DISP ;
  1. I IOST'["P-" W:$D(ACMZ) !?80-$L(ACMZ)\2,ACMZ
  1. W:$D(ACMX) !?80-$L(ACMX)\2,ACMX
  1. EXIT ;
  1. K ACMX,ACMZ
  1. Q
  1. PAUSE ;EP;USED FOR ALL PAUSES FOR SCREEN CONTROL
  1. S DIR(0)="EOA",DIR("A")="Press <ENTER> to continue..... "
  1. D ^DIR K DIR
  1. Q
  1. ;