VENKINI5.m

VENKINI5 ; ; 16-MAR-2007

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

 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:6 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1

 Q

IXF ;;

 ;;19707.11;VEN EHP KB CATEGORY;^VEN(7.11,;0;y;y;;;;;y;m

 ;;

 ;;19707.12P;VEN EHP KB ITEM;^VEN(7.12,;0;y;y;;;;;y;m

 ;;

 ;;19707.13;VEN EHP KB CLINICAL DOMAIN;^VEN(7.13,;0;y;y;;;;;y;m

 ;;

VENKINI5  ; ; 16-MAR-2007

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

 +2        KILL ^UTILITY("DIF",$JOB)

           SET DIFRDIFI=1

           FOR I=1:1:6

               SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)

               SET DIFRDIFI=DIFRDIFI+1

 +3        QUIT 

IXF       ;;

 +1       ;;19707.11;VEN EHP KB CATEGORY;^VEN(7.11,;0;y;y;;;;;y;m

 +2       ;;

 +3       ;;19707.12P;VEN EHP KB ITEM;^VEN(7.12,;0;y;y;;;;;y;m

 +4       ;;

 +5       ;;19707.13;VEN EHP KB CLINICAL DOMAIN;^VEN(7.13,;0;y;y;;;;;y;m

 +6       ;;