source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUXPRT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 410 bytes
Line 
1XUXPRT ;MJM/SF-CIOFO - PRINT OF EXCEPTIONS FOUND IN STATE FILE;OCT 30, 1998@11:07
2 ;;8.0;KERNEL;**105**;OCT 30,1998
3 S Y="PRT^XUXPRT",Z="EXCEPTIONS LISTING FROM STATE FILE"
4 D EN^XUTMDEVQ(Y,Z)
5 Q
6PRT ;LINE TAG TO PRINT EXCEPTION FOUND WITH COUNTY FIELDS IN THE STATE FILE
7 S XUXNUM=0
8 F S XUXNUM=$O(^XTMP("XUXTMP",XUXNUM)) Q:+XUXNUM'>0 D
9 .S XUXLINE=^XTMP("XUXTMP",XUXNUM)
10 .W !,XUXLINE
11 K XUXNUM,XUXLINE
12 Q
Note: See TracBrowser for help on using the repository browser.