|
Last change
on this file since 770 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.
