AQAOHEX.m

AQAOHEX ; IHS/ORDC/LJF - HELP TEXT FOR EXCEPTIONS ;

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

 ;

 ;This rtn contains entry points for the introductory text on options

 ;and help text on data fields for Exceptions to Criteria.

 ;

EXCEDIT ;ENTRY POINT >> intro text for exception entry/edit; entry action call

 W @IOF,!!?20,"EXCEPTIONS TO INDICATOR"

 W !!?5,"Use this option to enter any exceptions to clinical"

 W !?5,"indicators already defined.  Exceptions are flags which show"

 W !?5,"that a particular case doesn't belong in the general grouping."

 W !?5,"For example, for the indicator 'READMISSION WITHIN 14 DAYS',"

 W !?5,"an exception could be 'PLANNED READMISSION'.",!

 Q

 ;

REASON ;ENTRY POINT  >>> help text for reason field; xecutable help

 W !!

 W ?5,"Enter the REASON a particular occurrence may be excepted from a"

 W !,"clinical indicator.  The reason can be up to 100 characters long."

 W ! Q

 ;

CODE ;ENTRY POINT  >>> help text for code field; xecutable help

 W !!?5,"Enter a code number to identify this reason.  You may use"

 W !,"both numbers and letters up to 5 characters long.  You may wish"

 W !,"to group exceptions by service (OB001) or just number them in"

 W !,"sequential order.",!

 Q

AQAOHEX   ; IHS/ORDC/LJF - HELP TEXT FOR EXCEPTIONS ;

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

 +2       ;

 +3       ;This rtn contains entry points for the introductory text on options

 +4       ;and help text on data fields for Exceptions to Criteria.

 +5       ;

EXCEDIT   ;ENTRY POINT >> intro text for exception entry/edit; entry action call

 +1        WRITE @IOF,!!?20,"EXCEPTIONS TO INDICATOR"

 +2        WRITE !!?5,"Use this option to enter any exceptions to clinical"

 +3        WRITE !?5,"indicators already defined.  Exceptions are flags which show"

 +4        WRITE !?5,"that a particular case doesn't belong in the general grouping."

 +5        WRITE !?5,"For example, for the indicator 'READMISSION WITHIN 14 DAYS',"

 +6        WRITE !?5,"an exception could be 'PLANNED READMISSION'.",!

 +7        QUIT 

 +8       ;

REASON    ;ENTRY POINT  >>> help text for reason field; xecutable help

 +1        WRITE !!

 +2        WRITE ?5,"Enter the REASON a particular occurrence may be excepted from a"

 +3        WRITE !,"clinical indicator.  The reason can be up to 100 characters long."

 +4        WRITE !

           QUIT 

 +5       ;

CODE      ;ENTRY POINT  >>> help text for code field; xecutable help

 +1        WRITE !!?5,"Enter a code number to identify this reason.  You may use"

 +2        WRITE !,"both numbers and letters up to 5 characters long.  You may wish"

 +3        WRITE !,"to group exceptions by service (OB001) or just number them in"

 +4        WRITE !,"sequential order.",!

 +5        QUIT