source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUFC0E.m@ 724

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PRCUFC0E ;WISC/SJG-OBLIGATION CONVERSION ERROR ROUTINE ;7/22/94 9:35 AM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN(IEN,ERR) ;
6 ; IEN = Internal record number from 442
7 ; ERR = Error from Obligation conversion routines
8 N TAG
9 S TRANS=$S($D(PRCFA("CONVG")):"GPF",$D(PRCFA("CONVS")):"SFF")
10 S TAG=ERR D @TAG
11 Q
12ERR1 ;STATION NUMBER NOT FOUND IN 411
13 ;N DIC,DIE,DA,DR,FIELD
14 ;D NEXT S DR=DR_"6///^S X=1" D ^DIE Q
15 Q
16ERR2 ;
17 ;N DIC,DIE,DA,DR,FIELD
18 ;D NEXT S DR=DR_"6///^S X=2" D ^DIE Q
19 Q
20ERR3 ;
21 ;N DIC,DIE,DA,DR,FIELD
22 ;D NEXT S DR=DR_"6///^S X=3" D ^DIE Q
23 Q
24ERR4 ; Purchase Order Receipts and Purchase Status do not match
25 N DIC,DIE,DA,DR,FIELD
26 D NEXT S DR=DR_"6///^S X=8" D ^DIE Q
27 ;
28ERR5 ; 'Dummy' GPF Fund Control point is missing
29 N DIC,DIE,DA,DR
30 D NEXT S DR=DR_"6///^S X=9" D ^DIE Q
31 ;
32NEXT ;GET THE NEXT FREE ENTRY IN FILE 411.3
33 N NEXT,DLAYGO
34 S NEXT=$P($G(^PRC(411.3,0)),U,4) F S NEXT=NEXT+1 Q:$G(^PRC(411.3,NEXT,0))=""
35 K DD,DO S DIC="^PRC(411.3,",DIC(0)="L",DLAYGO=411.3,X=NEXT D FILE^DICN Q:+Y'>0 S DA=+Y,DIE=DIC,DR="9///^S X=TRANS;12///^S X=IEN;"
Note: See TracBrowser for help on using the repository browser.