Last change
on this file since 1714 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Rev | Line | |
---|
[613] | 1 | PRCUFC0E ;WISC/SJG-OBLIGATION CONVERSION ERROR ROUTINE ;7/22/94 9:35 AM
|
---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;
|
---|
| 5 | EN(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
|
---|
| 12 | ERR1 ;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
|
---|
| 16 | ERR2 ;
|
---|
| 17 | ;N DIC,DIE,DA,DR,FIELD
|
---|
| 18 | ;D NEXT S DR=DR_"6///^S X=2" D ^DIE Q
|
---|
| 19 | Q
|
---|
| 20 | ERR3 ;
|
---|
| 21 | ;N DIC,DIE,DA,DR,FIELD
|
---|
| 22 | ;D NEXT S DR=DR_"6///^S X=3" D ^DIE Q
|
---|
| 23 | Q
|
---|
| 24 | ERR4 ; 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 | ;
|
---|
| 28 | ERR5 ; '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 | ;
|
---|
| 32 | NEXT ;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.