| 1 | RABWIBB ;HOIFO/MDM - Radiology Billing Awareness ;12/20/04 12:55am
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**57**;Mar 16, 1998
|
|---|
| 3 | ; $$SWSTAT^IBBAPI uses DBIA #4663
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | FB(RAOIFN) ; called by ACC^RAO7OKS and FILEDX^RABWORD
|
|---|
| 7 | ; Functional Requirement 12
|
|---|
| 8 | ; Check PFSS Master Switch and quit if it is not on.
|
|---|
| 9 | I '$$SWSTAT^IBBAPI() Q
|
|---|
| 10 | ;
|
|---|
| 11 | ; Initialize relevent variables
|
|---|
| 12 | ; IBBARFN = Account Reference Number
|
|---|
| 13 | ; IBBEVENT = HL7 Event Code
|
|---|
| 14 | S IBBARFN="",IBBEVENT="A05"
|
|---|
| 15 | ; Calling routine
|
|---|
| 16 | S IBBAPLR="FB^RABWIBB"
|
|---|
| 17 | ;
|
|---|
| 18 | ; Define remaining (Required) IBB Variables and Arrays
|
|---|
| 19 | D GA^RABWIBB2(RAOIFN)
|
|---|
| 20 | ;
|
|---|
| 21 | ; Functional Requirement 5
|
|---|
| 22 | D STOR751^RABWIBB2(RAOIFN)
|
|---|
| 23 | Q
|
|---|
| 24 | PV1 ; (called by RAO7UTL) Front Door
|
|---|
| 25 | ; OR EVSEND -> RA RECEIVE -> RAO7RO -> RAO7UTL
|
|---|
| 26 | ;
|
|---|
| 27 | I '$$SWSTAT^IBBAPI() Q ; PFSS is not turned on so stop
|
|---|
| 28 | I $G(RACCOUNT)="" Q ; Needed data is missing so stop
|
|---|
| 29 | ;
|
|---|
| 30 | ; set RAPF to include PV1.50
|
|---|
| 31 | ; $$STR(n) returns n delimiters.
|
|---|
| 32 | S RAPF="PV1"_$$STR^RAO7UTL(2)_RA("PV1",2)_RAHLFS_RA("PV1",3)_$$STR^RAO7UTL(47)_RACCOUNT
|
|---|
| 33 | ;
|
|---|
| 34 | Q
|
|---|
| 35 | DC(RAOIFN) ; called by EXMCAN^RAORDC
|
|---|
| 36 | ;
|
|---|
| 37 | I '$$SWSTAT^IBBAPI() Q ; PFSS is not turned on so stop
|
|---|
| 38 | S RACCOUNT=$P(^RAO(75.1,RAOIFN,0),U,28) ; Get Account Reference
|
|---|
| 39 | S IBBARFN=RACCOUNT
|
|---|
| 40 | S IBBEVENT="A38"
|
|---|
| 41 | ; Calling routine
|
|---|
| 42 | S IBBAPLR="DC^RABWIBB"
|
|---|
| 43 | D GA^RABWIBB2(RAOIFN)
|
|---|
| 44 | ;
|
|---|
| 45 | Q
|
|---|
| 46 | GETDEPT ; called by PROC^RAPCE
|
|---|
| 47 | S RAOIMG=$P($G(^RAO(75.1,RAOIFN,0)),U,3),RACCOUNT=$P($G(^RAO(75.1,RAOIFN,0)),U,28)
|
|---|
| 48 | S RAIDPT=$P($G(^RA(79.2,RAOIMG,0)),U,6)
|
|---|
| 49 | S ^TMP("RAPXAPI",$J,"PROCEDURE",X,"DEPARTMENT")=RAIDPT ; Requirement 11
|
|---|
| 50 | Q
|
|---|
