AVAPINI5.m

AVAPINI5 ; ; 15-AUG-1995

 ;;93.2;PATCHES FOR VA SUPPPORT FILES;;AUG 15, 1995;Build 12

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

 Q

IXF ;;PATCHES FOR VA SUPPPORT FILES^AVAP

 ;;200;NEW PERSON;^VA(200,;1;y

 ;;

AVAPINI5  ; ; 15-AUG-1995

 +1       ;;93.2;PATCHES FOR VA SUPPPORT FILES;;AUG 15, 1995;Build 12

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

           SET DIFRDIFI=1

           FOR I=1:1:2

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

               SET DIFRDIFI=DIFRDIFI+1

 +3        QUIT 

IXF       ;;PATCHES FOR VA SUPPPORT FILES^AVAP

 +1       ;;200;NEW PERSON;^VA(200,;1;y

 +2       ;;