Print Page as PDF
5090 - FBAAUTL for FBCS (DSS) ICR (5090)

5090 - FBAAUTL for FBCS (DSS)    ICR (5090)

Name Value
NUMBER 5090
IA # 5090
DATE CREATED 2008/01/31
CUSTODIAL PACKAGE FEE BASIS
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE FBAAUTL
NAME 5090 - FBAAUTL for FBCS (DSS)
ORIGINAL NUMBER 5089
STATUS Active
KEYWORDS FBCS
DURATION Till Otherwise Agreed
ID FBAAUTL
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PDF
Date converter (FM to external)
VARIABLES TYPE VARIABLES DESCRIPTION
Y Both
FM date passed in, external date returned
SITEP
SET FBSITE(0),FBSITE(1) VARIABLE TO FEE SITE
PARAMETERS (File 161.4)
VARIABLES TYPE VARIABLES DESCRIPTION
FBSITE(0) Output
FBSITE(0)=$G(^FBAA(161.4,1,0))
FBSITE(1) Output
FBSITE(1)=$G(^FBAA(161.4,1,1))
FBPOP Output
ERROR flag = "Fee Basis Site Parameters must be
entered to proceed"
$$SSN(DFN)

;PID = DFN of Patient. If this is all that is past,
;full Pt.ID (000-00-0000) will be returned.
;If BID = 1 the call will return last 4 of Pt.ID only.
;If DOD is defined to internal entry # of eligibility the appropriate
;Pt.ID will be returned
VARIABLES TYPE VARIABLES DESCRIPTION
PID Input
Pt IEN
BID Input
If BID = 1 the call will return last 4 of Pt.ID only
DOD Input
If DOD is defined to internal entry # of eligibility
the appropriate Pt.ID will be returned
FBSSN Output
SSN, terminal digits, or error message
$$DATX(FBVCHDT)
external output function for date format
VARIABLES TYPE VARIABLES DESCRIPTION
FBVCHDT Both
INPUT = FM internal date format (time optional)

OUTPUT = date/time with slashes
$$GETNXI
GET NEXT AVAILABLE INVOICE NUMBER
VARIABLES TYPE VARIABLES DESCRIPTION
FBAAIN Output
Invoice number File 161.4, field #11
GETNXB
GET NEXT AVAILABLE BATCH NUMBER
VARIABLES TYPE VARIABLES DESCRIPTION
FBBN Output
Batch IEN
STATION
Get Station Number from INSTITUTION (#4) file
VARIABLES TYPE VARIABLES DESCRIPTION
FBSN Output
Station Number
FBAASN Output
Station Number
SUBSCRIBING PACKAGE FEE BASIS CLAIMS SYSTEM
CREATOR DEWAYNE,ROBERT
EDITOR CLARK,KAREN Y
DATE ACTIVATED 2009/06/11
MAIL MESSAGE 47648040
DATE/TIME EDITED
DATE/TIME EDITED ACTION AT THE REQUEST OF WITH CONCURRENCE OF
2009/06/11 19:16 APPROVED DEWAYNE,ROBERT BAUMANN,SCOTT
Generated from AUG 12, 2020@ IA Listing Descriptions