XUXPRT.m

XUXPRT ;MJM/SF-CIOFO - PRINT OF EXCEPTIONS FOUND IN STATE FILE;OCT 30, 1998@11:07

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUXPRT   422     printed  Apr 09, 2024@21:16:27                                                                                                                                                                                                       Page 2

XUXPRT    ;MJM/SF-CIOFO - PRINT OF EXCEPTIONS FOUND IN STATE FILE;OCT 30, 1998@11:07

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

 +2        SET Y="PRT^XUXPRT"

           SET Z="EXCEPTIONS LISTING FROM STATE FILE"

 +3        DO EN^XUTMDEVQ(Y,Z)

 +4        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