source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFUOA.m@ 1006

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

initial load of WorldVistAEHR

File size: 764 bytes
Line 
1PRCFUOA ;WISC/SJG/PL-850 UNDELIVERED ORDERS RECONCILIATION ; 8/22/96 1:40 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4DQ ;
5 S (PRCFAT,PRCFCT,PRCFOT,PRCFCS,PRCFOS,PRCFAS)=0,L=0
6 S DIC="^PRC(442,",FLDS="[PRCFUO]",BY="[PRCFUO]"
7 S DIOEND="D B^PRCFUO" S:$D(ION) IOP=ION
8 S PRCFI=";30;31;33;37;38;40;41;45;48;49;",PRCFMOP=";1;8;"
9 S DIS(0)="I $D(^PRC(442,D0,0)),$O(^PRC(442,D0,22,0))>0 I $P(^PRC(442,D0,0),U,17)'=$P(^(0),U,16) I $G(^PRC(442,D0,7)),PRCFI'[("";""_$P($G(^PRC(442,D0,7)),""^"",2)_"";"")"
10 S DIS(1)="I $D(^PRC(442,D0,0)),$P(^(0),U,2),PRCFMOP[("";""_$P(^(0),U,2)_"";"") D C^PRCFUO I PRCFU>.01"
11 D EN1^DIP
12EXIT ;
13 KILL BY,DIC,DIOEND,DIS,FLDS,L,PRCFAS,PRCFAT,PRCFCS,PRCFCT,PRCFI,PRCFMOP,PRCFOS,PRCFOT
14 Q
Note: See TracBrowser for help on using the repository browser.