XU8343Q.m

XU8343Q ;BPOIFO/DW-UPDATE NEW-STYLE XREF FOR XU*8*343;9:19 AM  22 Jun 2004

 ;;8.0;KERNEL;**343**; Jul 10, 1995;

 ;

NEWXR ;Update the new-style "B" cross-reference of file #200

 D BMES^XPDUTL("Updating the B cross-reference...")

 ;

 N XUXR,XURES,XUOUT

 S XUXR("FILE")=200

 S XUXR("NAME")="B"

 S XUXR("TYPE")="R"

 S XUXR("USE")="LS"

 S XUXR("EXECUTION")="F"

 S XUXR("ACTIVITY")="IR"

 S XUXR("SHORT DESCR")="Regular ""B"" index on .01 field with transform, length 35."

 S XUXR("VAL",1)=.01

 S XUXR("VAL",1,"SUBSCRIPT")=1

 S XUXR("VAL",1,"LENGTH")=35

 S XUXR("VAL",1,"COLLATION")="F"

 S XUXR("VAL",1,"XFORM FOR LOOKUP")="N XLFNAME S XLFNAME=X S X=$$FORMAT^XLFNAME7(.XLFNAME,3,35,,0)"

 D CREIXN^DDMOD(.XUXR,"SW",.XURES,"XUOUT")

 Q

XU8343Q   ;BPOIFO/DW-UPDATE NEW-STYLE XREF FOR XU*8*343;9:19 AM  22 Jun 2004

 +1       ;;8.0;KERNEL;**343**; Jul 10, 1995;

 +2       ;

NEWXR     ;Update the new-style "B" cross-reference of file #200

 +1        DO BMES^XPDUTL("Updating the B cross-reference...")

 +2       ;

 +3        NEW XUXR,XURES,XUOUT

 +4        SET XUXR("FILE")=200

 +5        SET XUXR("NAME")="B"

 +6        SET XUXR("TYPE")="R"

 +7        SET XUXR("USE")="LS"

 +8        SET XUXR("EXECUTION")="F"

 +9        SET XUXR("ACTIVITY")="IR"

 +10       SET XUXR("SHORT DESCR")="Regular ""B"" index on .01 field with transform, length 35."

 +11       SET XUXR("VAL",1)=.01

 +12       SET XUXR("VAL",1,"SUBSCRIPT")=1

 +13       SET XUXR("VAL",1,"LENGTH")=35

 +14       SET XUXR("VAL",1,"COLLATION")="F"

 +15       SET XUXR("VAL",1,"XFORM FOR LOOKUP")="N XLFNAME S XLFNAME=X S X=$$FORMAT^XLFNAME7(.XLFNAME,3,35,,0)"

 +16       DO CREIXN^DDMOD(.XUXR,"SW",.XURES,"XUOUT")

 +17       QUIT