APCLP6.m

APCLP6 ; IHS/CMI/LAB - post init to patch 5 ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ;add new report to menu

 NEW X

 S X=$$ADD^XPDMENU("APCL M MAN ALL REPORTS","APCL CNTS GENERAL/DENTAL","GCDC")

 I 'X W "Attempt to add General/Dental Report option failed." H 3

 Q

APCLP6    ; IHS/CMI/LAB - post init to patch 5 ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3       ;add new report to menu

 +4        NEW X

 +5        SET X=$$ADD^XPDMENU("APCL M MAN ALL REPORTS","APCL CNTS GENERAL/DENTAL","GCDC")

 +6        IF 'X

               WRITE "Attempt to add General/Dental Report option failed."

               HANG 3

 +7        QUIT