XUXPRT.m

XUXPRT ;MJM/SF-CIOFO - PRINT OF EXCEPTIONS FOUND IN STATE FILE;OCT 30, 1998@11:07 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;8.0;KERNEL;**105**;OCT 30,1998

 S Y="PRT^XUXPRT",Z="EXCEPTIONS LISTING FROM STATE FILE"

 D EN^XUTMDEVQ(Y,Z)

 Q

PRT ;LINE TAG TO PRINT EXCEPTION FOUND WITH COUNTY FIELDS IN THE STATE FILE

 S XUXNUM=0

 F  S XUXNUM=$O(^XTMP("XUXTMP",XUXNUM)) Q:+XUXNUM'>0  D

 .S XUXLINE=^XTMP("XUXTMP",XUXNUM)

 .W !,XUXLINE

 K XUXNUM,XUXLINE

 Q

XUXPRT    ;MJM/SF-CIOFO - PRINT OF EXCEPTIONS FOUND IN STATE FILE;OCT 30, 1998@11:07 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 +2       ;;8.0;KERNEL;**105**;OCT 30,1998

 +3        SET Y="PRT^XUXPRT"

           SET Z="EXCEPTIONS LISTING FROM STATE FILE"

 +4        DO EN^XUTMDEVQ(Y,Z)

 +5        QUIT 

PRT       ;LINE TAG TO PRINT EXCEPTION FOUND WITH COUNTY FIELDS IN THE STATE FILE

 +1        SET XUXNUM=0

 +2        FOR 

               SET XUXNUM=$ORDER(^XTMP("XUXTMP",XUXNUM))

               IF +XUXNUM'>0

                   QUIT 

               Begin DoDot:1

 +3                SET XUXLINE=^XTMP("XUXTMP",XUXNUM)

 +4                WRITE !,XUXLINE

               End DoDot:1

 +5        KILL XUXNUM,XUXLINE

 +6        QUIT