RABWIBB ;HOIFO/MDM - Radiology Billing Awareness ;12/20/04 12:55am
;;5.0;Radiology/Nuclear Medicine;**57**;Mar 16, 1998
; $$SWSTAT^IBBAPI uses DBIA #4663
;
Q
FB(RAOIFN) ; called by ACC^RAO7OKS and FILEDX^RABWORD
; Functional Requirement 12
; Check PFSS Master Switch and quit if it is not on.
I '$$SWSTAT^IBBAPI() Q
;
; Initialize relevent variables
; IBBARFN = Account Reference Number
; IBBEVENT = HL7 Event Code
S IBBARFN="",IBBEVENT="A05"
; Calling routine
S IBBAPLR="FB^RABWIBB"
;
; Define remaining (Required) IBB Variables and Arrays
D GA^RABWIBB2(RAOIFN)
;
; Functional Requirement 5
D STOR751^RABWIBB2(RAOIFN)
Q
PV1 ; (called by RAO7UTL) Front Door
; OR EVSEND -> RA RECEIVE -> RAO7RO -> RAO7UTL
;
I '$$SWSTAT^IBBAPI() Q ; PFSS is not turned on so stop
I $G(RACCOUNT)="" Q ; Needed data is missing so stop
;
; set RAPF to include PV1.50
; $$STR(n) returns n delimiters.
S RAPF="PV1"_$$STR^RAO7UTL(2)_RA("PV1",2)_RAHLFS_RA("PV1",3)_$$STR^RAO7UTL(47)_RACCOUNT
;
Q
DC(RAOIFN) ; called by EXMCAN^RAORDC
;
I '$$SWSTAT^IBBAPI() Q ; PFSS is not turned on so stop
S RACCOUNT=$P(^RAO(75.1,RAOIFN,0),U,28) ; Get Account Reference
S IBBARFN=RACCOUNT
S IBBEVENT="A38"
; Calling routine
S IBBAPLR="DC^RABWIBB"
D GA^RABWIBB2(RAOIFN)
;
Q
GETDEPT ; called by PROC^RAPCE
S RAOIMG=$P($G(^RAO(75.1,RAOIFN,0)),U,3),RACCOUNT=$P($G(^RAO(75.1,RAOIFN,0)),U,28)
S RAIDPT=$P($G(^RA(79.2,RAOIMG,0)),U,6)
S ^TMP("RAPXAPI",$J,"PROCEDURE",X,"DEPARTMENT")=RAIDPT ; Requirement 11
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRABWIBB 1563 printed Dec 13, 2024@02:33:54 Page 2
RABWIBB ;HOIFO/MDM - Radiology Billing Awareness ;12/20/04 12:55am
+1 ;;5.0;Radiology/Nuclear Medicine;**57**;Mar 16, 1998
+2 ; $$SWSTAT^IBBAPI uses DBIA #4663
+3 ;
+4 QUIT
FB(RAOIFN) ; called by ACC^RAO7OKS and FILEDX^RABWORD
+1 ; Functional Requirement 12
+2 ; Check PFSS Master Switch and quit if it is not on.
+3 IF '$$SWSTAT^IBBAPI()
QUIT
+4 ;
+5 ; Initialize relevent variables
+6 ; IBBARFN = Account Reference Number
+7 ; IBBEVENT = HL7 Event Code
+8 SET IBBARFN=""
SET IBBEVENT="A05"
+9 ; Calling routine
+10 SET IBBAPLR="FB^RABWIBB"
+11 ;
+12 ; Define remaining (Required) IBB Variables and Arrays
+13 DO GA^RABWIBB2(RAOIFN)
+14 ;
+15 ; Functional Requirement 5
+16 DO STOR751^RABWIBB2(RAOIFN)
+17 QUIT
PV1 ; (called by RAO7UTL) Front Door
+1 ; OR EVSEND -> RA RECEIVE -> RAO7RO -> RAO7UTL
+2 ;
+3 ; PFSS is not turned on so stop
IF '$$SWSTAT^IBBAPI()
QUIT
+4 ; Needed data is missing so stop
IF $GET(RACCOUNT)=""
QUIT
+5 ;
+6 ; set RAPF to include PV1.50
+7 ; $$STR(n) returns n delimiters.
+8 SET RAPF="PV1"_$$STR^RAO7UTL(2)_RA("PV1",2)_RAHLFS_RA("PV1",3)_$$STR^RAO7UTL(47)_RACCOUNT
+9 ;
+10 QUIT
DC(RAOIFN) ; called by EXMCAN^RAORDC
+1 ;
+2 ; PFSS is not turned on so stop
IF '$$SWSTAT^IBBAPI()
QUIT
+3 ; Get Account Reference
SET RACCOUNT=$PIECE(^RAO(75.1,RAOIFN,0),U,28)
+4 SET IBBARFN=RACCOUNT
+5 SET IBBEVENT="A38"
+6 ; Calling routine
+7 SET IBBAPLR="DC^RABWIBB"
+8 DO GA^RABWIBB2(RAOIFN)
+9 ;
+10 QUIT
GETDEPT ; called by PROC^RAPCE
+1 SET RAOIMG=$PIECE($GET(^RAO(75.1,RAOIFN,0)),U,3)
SET RACCOUNT=$PIECE($GET(^RAO(75.1,RAOIFN,0)),U,28)
+2 SET RAIDPT=$PIECE($GET(^RA(79.2,RAOIMG,0)),U,6)
+3 ; Requirement 11
SET ^TMP("RAPXAPI",$JOB,"PROCEDURE",X,"DEPARTMENT")=RAIDPT
+4 QUIT
