Print Page as PDF
FBCS Access to FBUCUTL5 routine ICR (5441)

FBCS Access to FBUCUTL5 routine    ICR (5441)

Name Value
NUMBER 5441
IA # 5441
DATE CREATED 2009/05/06
CUSTODIAL PACKAGE FEE BASIS
USAGE Controlled Subscription
TYPE Routine
ROUTINE FBUCUTL5
NAME FBCS Access to FBUCUTL5 routine
STATUS Retired
KEYWORDS FBCS
DURATION Till Otherwise Agreed
ID FBUCUTL5
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
DISP9
set array for display from files 162.9*

Usage: D DISP9^FBUCUTL5(FB,IG)
VARIABLES TYPE VARIABLES DESCRIPTION
FN Input
FN = file number (162.91, 162.92, 162.93, or 162.94)
IG Input
IG = ignore screen (optional)
TMP(FBAR,$J,ARRAY Output
^TMP("FBAR",$J,"FBAR")=total count;5^ ^TMP("FBAR
,$J,number)=ien;.01 field value

Example for file 162.91

D DISP9^FBUCUTL5(162.91)

^TMP("FBAR",546787498,1)=1;APPROVED
2)=2;DISAPPROVED
3)=3;CANCELLED/WITHDRAWN
4)=4;APPROVED TO STABILIZATION
5)=5;ABANDONED
"FBAR")=5;5^
DISP7
set array for display from file 162.7

Usage: D DISP7^FBUCUTL5(IX,IEN,FBO,FB1725R)
VARIABLES TYPE VARIABLES DESCRIPTION
IX Input
X-REF to use for sort
"APMS    for patient (veteran)
"AVMS    for vendor
"AOMS    for other party
IEN Input
Veteran or Vendor or other party IEN (depends on
specified x-ref)
FBO Input
either 0 for all status' for a patient/vendor or a
status list in string format, delimited by "^" EG: ("10^50^")
FB1725R Input
(optional) mill bill screening criteria with value
"M" for just mill bill claims
"N" for just non-mill bill claims
"A" (or null) for all claims
TMP(FBAR,$J Output

^TMP("FBAR ,$J, FBAR )= display count in array;piece positions for display
(only if count)

^TMP("FBAR ,$J,number) = ien;name(vet or ven)^name(ven or vet)^fee
program^date of claim^status^may be more information and pieces in string

Example:
D DISP7^FBUCUTL5("AVMS",1427,0)

Global ^TMP("FBAR" -- NOTE: translation in effect


^TMP("FBAR",546787498,1)=713;FEEHOSPITAL^FEEPATIENT,T^CIVIL
HOSPIT^12/18/08^DISPOSITIONED^!^TREATMENT FROM: 12/8/08^TREATMENT TO: 12/12/08

2)=714;FEEHOSPITAL^FEEPATIENT,T^OUTPATIENT^2/12/09^DISPOSI
TIONED^!^TREATMENT FROM: 2/10/09^TREATMENT TO: 2/10/09

3)=716;FEEHOSPITAL^FEEPATIENT,T^CIVIL HOSPIT^6/10/09^DISPO
SITIONED^!^TREATMENT FROM: 6/1/09^TREATMENT TO: 6/6/09


"FBAR")=3;5^20^35^52^63^6^33^57^
SUBSCRIBING PACKAGE FEE BASIS CLAIMS SYSTEM