ACMLTR1.m

ACMLTR1 ; IHS/TUCSON/TMJ - RECALL LETTER..ADDS SORT CHOICES ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 ;RECALL LETTER - ADDS "APPL" TO DISPLAY SORT OF LETTER CHOICES

 ;;EP;ENTRY POINT

 ;

 S:ACMCTRL'["APPL" ACMCTRLP=ACMCTRLP_";APPL"

 S ACMENTRY="APPL ;;RECALL LETTERS;;49"

 D ^ACMSRT

 G EXIT Q

 ;

EXIT ;

 Q

ACMLTR1   ; IHS/TUCSON/TMJ - RECALL LETTER..ADDS SORT CHOICES ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2       ;RECALL LETTER - ADDS "APPL" TO DISPLAY SORT OF LETTER CHOICES

 +3       ;;EP;ENTRY POINT

 +4       ;

 +5        IF ACMCTRL'["APPL"

               SET ACMCTRLP=ACMCTRLP_";APPL"

 +6        SET ACMENTRY="APPL ;;RECALL LETTERS;;49"

 +7        DO ^ACMSRT

 +8        GOTO EXIT

           QUIT 

 +9       ;

EXIT      ;

 +1        QUIT