ACMGAPPT.m

ACMGAPPT ; IHS/TUCSON/TMJ - CMS RECALL LETTER FORMAT EDIT ;

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

 ;EP;ENTRY CALL TO EDIT RECALL LETTER FORMAT STRUCTURE

 ;CALLED AFTER ACMGTP (REGISTER SELECTION)

 ;

HEADING ;

 D HEAD^ACMMENU

 ;

 S DA=ACMRG,DR="[ACM LETTER SETUP]" D DIE

 Q

 ;

DIE D ^DIE K DIC,DIE,DA Q

ACMGAPPT  ; IHS/TUCSON/TMJ - CMS RECALL LETTER FORMAT EDIT ;

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

 +2       ;EP;ENTRY CALL TO EDIT RECALL LETTER FORMAT STRUCTURE

 +3       ;CALLED AFTER ACMGTP (REGISTER SELECTION)

 +4       ;

HEADING   ;

 +1        DO HEAD^ACMMENU

 +2       ;

 +3        SET DA=ACMRG

           SET DR="[ACM LETTER SETUP]"

           DO DIE

 +4        QUIT 

 +5       ;

DIE        DO ^DIE

           KILL DIC,DIE,DA

           QUIT