| [613] | 1 | FBFHLU ;OIFO/SAB-FPPS HL UTILITIES ;08/24/2003
|
|---|
| 2 | ;;3.5;FEE BASIS;**61**;JULY 18, 2003
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | PAYMETH(FBCKNO) ; payment method extrinsic function
|
|---|
| 7 | ; input
|
|---|
| 8 | ; FBCHNO - check number
|
|---|
| 9 | ; result is string value
|
|---|
| 10 | ; CC, EFT, CHK
|
|---|
| 11 | ;
|
|---|
| 12 | I $G(FBCKNO)="" Q "" ; no check number
|
|---|
| 13 | I $E(FBCKNO,1,2)="CC" Q "CC" ; credit card payment
|
|---|
| 14 | I $L(FBCKNO)<8 Q "EFT" ; electronic funds transfer
|
|---|
| 15 | Q "CHK" ; all other are paper check
|
|---|
| 16 | ;
|
|---|
| 17 | POST(FBAAIN,FBFLAG,FBMSG) ; Post Exception/Warning
|
|---|
| 18 | ; input
|
|---|
| 19 | ; FBAAIN - invoice number
|
|---|
| 20 | ; FBFLAG - flag (E or W) for (E)xception or (W)arning
|
|---|
| 21 | ; exceptions will prevent transmit of invoice to FPPS
|
|---|
| 22 | ; warnings will not prevent transmit
|
|---|
| 23 | ; FBMSG - text of message
|
|---|
| 24 | ;
|
|---|
| 25 | N FBI
|
|---|
| 26 | ; determine last seq number used for invoice
|
|---|
| 27 | S FBI=$O(^TMP($J,"FB"_FBFLAG,FBAAIN," "),-1)
|
|---|
| 28 | ; post new message
|
|---|
| 29 | S ^TMP($J,"FB"_FBFLAG,FBAAIN,FBI+1)=FBMSG
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | STANO(FBBATCH) ; station number extrinsic function
|
|---|
| 33 | ; Input
|
|---|
| 34 | ; FBBATCH - ien of entry in FEE BASIS BATCH (#161.7) file
|
|---|
| 35 | ; Returns station number or NULL value
|
|---|
| 36 | ;
|
|---|
| 37 | N FBRET,FBY
|
|---|
| 38 | S FBRET=""
|
|---|
| 39 | I $G(FBBATCH) D
|
|---|
| 40 | . S FBY=$G(^FBAA(161.7,FBBATCH,0))
|
|---|
| 41 | . S FBRET=$$SUB^FBAAUTL5(+$P(FBY,U,8)_"-"_$P(FBY,U,2))
|
|---|
| 42 | . Q:FBRET]"" ; have value from IFCAP API
|
|---|
| 43 | . ; else get from Institution file based on fee site parameters
|
|---|
| 44 | . S FBRET=$$GET1^DIQ(161.4,"1,","27:99")
|
|---|
| 45 | Q FBRET
|
|---|
| 46 | ;
|
|---|
| 47 | LAST(FBAAIN) ; function to return last entry in file 163.5 for invoice
|
|---|
| 48 | ; input
|
|---|
| 49 | ; FBAAIN - invoice number
|
|---|
| 50 | ; result is string with ien of last entry in file or null
|
|---|
| 51 | N FBRET
|
|---|
| 52 | S FBRET=""
|
|---|
| 53 | I $G(FBAAIN) S FBRET=$O(^FBHL(163.5,"B",FBAAIN," "),-1)
|
|---|
| 54 | Q FBRET
|
|---|
| 55 | ;
|
|---|
| 56 | ;FBFHLU
|
|---|
