- 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 ;;