AQAODICI.m

AQAODICI ; IHS/ORDC/LJF - INDICATOR MENU OPTIONS ;

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

 ;

 ;This rtn contains various entry points for simple data entry options

 ;which then call ^AQAODIC after setting up appropriate variables.

 ;

FUNC ;ENTRY POINT for option to describe key functions

 D FNCEDIT^AQAOHFNC ;display intro text

 S AQAODIC="^AQAO(1,",AQAODIC(0)="AEMZL",AQAODR="[AQAO FUNCTION EDIT]"

 D DIC^AQAODIC ;call dic/die driver

 D END Q

 ;

 ;

INDC ;ENTRY POINT for option to define indicators

 D INDEDIT^AQAOHIND ;display intro text

 S AQAODIC="^AQAO(2,",AQAODIC(0)="AEMZL",AQAODR="[AQAO IND EDIT-E1]"

 S AQAODIC("S")="D INDCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 D DIC^AQAODIC ;call dic/die driver

 D END Q

 ;

 ;

EXCP ;ENTRY POINT for option to define exceptions to criteria

 D EXCEDIT^AQAOHEX

 S AQAODIC="^AQAO1(2,",AQAODIC(0)="AEMZL",AQAODR="[AQAO EXCEPTION EDIT]"

 D DIC^AQAODIC ;call dic/die driver

 D END Q

 ;

 ;

INACT ;ENTRY POINT for option that activates inactive indicators

 D INACT^AQAOHIND

 S AQAODIC="^AQAO(2,",AQAODIC(0)="AEMZ",AQAODR="[AQAO INACTIVE EDIT]"

 S AQAODIC("S")="D INDCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 D DIC^AQAODIC ;call dic/die driver

 D END Q

 ;

 ;

END ; >>> eoj

 D KILL^AQAOUTIL Q

AQAODICI  ; IHS/ORDC/LJF - INDICATOR MENU OPTIONS ;

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

 +2       ;

 +3       ;This rtn contains various entry points for simple data entry options

 +4       ;which then call ^AQAODIC after setting up appropriate variables.

 +5       ;

FUNC      ;ENTRY POINT for option to describe key functions

 +1       ;display intro text

           DO FNCEDIT^AQAOHFNC

 +2        SET AQAODIC="^AQAO(1,"

           SET AQAODIC(0)="AEMZL"

           SET AQAODR="[AQAO FUNCTION EDIT]"

 +3       ;call dic/die driver

           DO DIC^AQAODIC

 +4        DO END

           QUIT 

 +5       ;

 +6       ;

INDC      ;ENTRY POINT for option to define indicators

 +1       ;display intro text

           DO INDEDIT^AQAOHIND

 +2        SET AQAODIC="^AQAO(2,"

           SET AQAODIC(0)="AEMZL"

           SET AQAODR="[AQAO IND EDIT-E1]"

 +3        SET AQAODIC("S")="D INDCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 +4       ;call dic/die driver

           DO DIC^AQAODIC

 +5        DO END

           QUIT 

 +6       ;

 +7       ;

EXCP      ;ENTRY POINT for option to define exceptions to criteria

 +1        DO EXCEDIT^AQAOHEX

 +2        SET AQAODIC="^AQAO1(2,"

           SET AQAODIC(0)="AEMZL"

           SET AQAODR="[AQAO EXCEPTION EDIT]"

 +3       ;call dic/die driver

           DO DIC^AQAODIC

 +4        DO END

           QUIT 

 +5       ;

 +6       ;

INACT     ;ENTRY POINT for option that activates inactive indicators

 +1        DO INACT^AQAOHIND

 +2        SET AQAODIC="^AQAO(2,"

           SET AQAODIC(0)="AEMZ"

           SET AQAODR="[AQAO INACTIVE EDIT]"

 +3        SET AQAODIC("S")="D INDCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 +4       ;call dic/die driver

           DO DIC^AQAODIC

 +5        DO END

           QUIT 

 +6       ;

 +7       ;

END       ; >>> eoj

 +1        DO KILL^AQAOUTIL

           QUIT