APCDDCG.m

APCDDCG ; IHS/CMI/LAB - display coding guidelines ;

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

 ;

 ;

EP ;EP - called from data entry input template

 D EN^XBNEW("EP1^APCDDCG","")

 Q

EP1 ;EP called from xbnew

 ;display word processing field of coding guidelines

 D DIQ^XBLM("^APCDSUPP(",1)

 Q

APCDDCG   ; IHS/CMI/LAB - display coding guidelines ;

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

 +2       ;

 +3       ;

EP        ;EP - called from data entry input template

 +1        DO EN^XBNEW("EP1^APCDDCG","")

 +2        QUIT 

EP1       ;EP called from xbnew

 +1       ;display word processing field of coding guidelines

 +2        DO DIQ^XBLM("^APCDSUPP(",1)

 +3        QUIT