ACMMCR.m

ACMMCR ;cmi/anch/maw - ACM Modify Register Creator 8/29/2007 8:37:43 AM

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;**7**;AUG 27, 2007

 ;

 ;this routine will allow the user to edit the register creator

 ;

MAIN ;-- main routine driver

 D ASK

 Q:'$G(ACMREG)

 D DISP(ACMREG)

 D EDIT(ACMREG)

 D EOJ

 Q

 ;

ASK ;-- display the register data

 S DIC(0)="AEMQZ",DIC="^ACM(41.1,",DIC("A")="Select Register: "

 D ^DIC

 Q:'Y

 S ACMREG=+Y

 Q

 ;

DISP(REG) ;-- display the register

 S DIC="^ACM(41.1,",DA=REG

 D EN^DIQ

 Q

 ;

EDIT(REG) ;-- edit the creator

 N ACMKEY

 S ACMKEY=$O(^DIC(19.1,"B","ACMZ MANAGER",0))

 I '$D(^VA(200,DUZ,51,"B",ACMKEY)) D  Q

 . W !,"You do not hold the key ACMZ EDIT required to edit the register creator" H 2

 W !

 S DIE="^ACM(41.1,",DA=ACMREG,DR="3.5"

 D ^DIE

 Q

 ;

EOJ ;-- kill variables and quit

 K ACMREG

 K DIC,DIE,DR,DA

 Q

 ;

ACMMCR    ;cmi/anch/maw - ACM Modify Register Creator 8/29/2007 8:37:43 AM

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;**7**;AUG 27, 2007

 +2       ;

 +3       ;this routine will allow the user to edit the register creator

 +4       ;

MAIN      ;-- main routine driver

 +1        DO ASK

 +2        IF '$GET(ACMREG)

               QUIT 

 +3        DO DISP(ACMREG)

 +4        DO EDIT(ACMREG)

 +5        DO EOJ

 +6        QUIT 

 +7       ;

ASK       ;-- display the register data

 +1        SET DIC(0)="AEMQZ"

           SET DIC="^ACM(41.1,"

           SET DIC("A")="Select Register: "

 +2        DO ^DIC

 +3        IF 'Y

               QUIT 

 +4        SET ACMREG=+Y

 +5        QUIT 

 +6       ;

DISP(REG) ;-- display the register

 +1        SET DIC="^ACM(41.1,"

           SET DA=REG

 +2        DO EN^DIQ

 +3        QUIT 

 +4       ;

EDIT(REG) ;-- edit the creator

 +1        NEW ACMKEY

 +2        SET ACMKEY=$ORDER(^DIC(19.1,"B","ACMZ MANAGER",0))

 +3        IF '$DATA(^VA(200,DUZ,51,"B",ACMKEY))

               Begin DoDot:1

 +4                WRITE !,"You do not hold the key ACMZ EDIT required to edit the register creator"

                   HANG 2

               End DoDot:1

               QUIT 

 +5        WRITE !

 +6        SET DIE="^ACM(41.1,"

           SET DA=ACMREG

           SET DR="3.5"

 +7        DO ^DIE

 +8        QUIT 

 +9       ;

EOJ       ;-- kill variables and quit

 +1        KILL ACMREG

 +2        KILL DIC,DIE,DR,DA

 +3        QUIT 

 +4       ;