VENPCCQP.m

VENPCCQP ; IHS/OIT/GIS - POST INSTALL ROUTINE FOR THE WCM ; 

 ;;2.6;PCC+;;NOV 12, 2007

 ;

 ;

 ;

IT ; FIX INPUT TEMPLATES

 N DA

 S DA=$O(^DIE("B","APCD WC (ADD)",0)) I DA S ^DIE(DA,"ROU")="^APCDTWC"

 S DA=$O(^DIE("B","APCD WC (MOD)",0)) I DA S ^DIE(DA,"ROU")="^APCDTWC"

 Q

 ; 

VENPCCQP  ; IHS/OIT/GIS - POST INSTALL ROUTINE FOR THE WCM ; 

 +1       ;;2.6;PCC+;;NOV 12, 2007

 +2       ;

 +3       ;

 +4       ;

IT        ; FIX INPUT TEMPLATES

 +1        NEW DA

 +2        SET DA=$ORDER(^DIE("B","APCD WC (ADD)",0))

           IF DA

               SET ^DIE(DA,"ROU")="^APCDTWC"

 +3        SET DA=$ORDER(^DIE("B","APCD WC (MOD)",0))

           IF DA

               SET ^DIE(DA,"ROU")="^APCDTWC"

 +4        QUIT 

 +5       ;