AVAP18.m

AVAP18 ;IHS/OIRM/DSD/AEF - PATCH AVA*93.2*15 RESTORE X-REFS ON FILE 200 FOR KERNEL UPDATE [ 02/06/2004  11:52 AM ]

 ;;93.2;VA SUPPORT FILES;**18**;JAN 31, 2003;Build 12

 ;

X200535 ;----- RESET AIHS CROSSREFERENCE ON FIELD 53.5 OF FILE 200

 ;

 S ^DD(200,53.5,1,1,0)="200^AIHS^MUMPS"

 S ^DD(200,53.5,1,1,1)="G F6S^AVA4A7"

 S ^DD(200,53.5,1,1,2)="G F6K^AVA4A7"

 S ^DD(200,53.5,1,1,3)="GIVES PROVIDER KEY; UPDATES ENTRY IN FILE 6"

 S ^DD(200,53.5,1,1,"DT")="2960516"

 Q

AVAP18    ;IHS/OIRM/DSD/AEF - PATCH AVA*93.2*15 RESTORE X-REFS ON FILE 200 FOR KERNEL UPDATE [ 02/06/2004  11:52 AM ]

 +1       ;;93.2;VA SUPPORT FILES;**18**;JAN 31, 2003;Build 12

 +2       ;

X200535   ;----- RESET AIHS CROSSREFERENCE ON FIELD 53.5 OF FILE 200

 +1       ;

 +2        SET ^DD(200,53.5,1,1,0)="200^AIHS^MUMPS"

 +3        SET ^DD(200,53.5,1,1,1)="G F6S^AVA4A7"

 +4        SET ^DD(200,53.5,1,1,2)="G F6K^AVA4A7"

 +5        SET ^DD(200,53.5,1,1,3)="GIVES PROVIDER KEY; UPDATES ENTRY IN FILE 6"

 +6        SET ^DD(200,53.5,1,1,"DT")="2960516"

 +7        QUIT