- 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 Mar 13, 2025@21:38:39 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
