RABWIBB.m

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

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