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