RABWPCE.m

RABWPCE ;HISC/MM - Billing Awareness Project: PCE API ; 3/23/04 10:17am

 ;;5.0;Radiology/Nuclear Medicine;**41,70**; Mar 16, 1998;Build 7

 Q

 ;

DX(RAO) ; Create ^TMP("RAPXAPI",$J,"DX/PL" for PCE API:  Ordering ICD Dx.

 ; Called from LON+n^RAPCE.

 ; ^RAO(75.1,RAO,"BAx",0) = ICD Diagnosis^SC^AO^IR^EC^SHAD^MST^HNC

 ; NOTE: "EC" now represents "SWAC" but this internal value is not being changed.  only

 ; external display text is being modified.  This instance of "EC" is passed to PCE and 

 ; PCE will handle converting it to any external value on their end. 

 ; Set an Order" node for Billing Replacement

 S ^TMP("RAPXAPI",$J,"PROCEDURE",1,"ORD REFERENCE")=$P(^RAO(75.1,RAO,0),U,7)

 I '$D(^RAO(75.1,RAO,"BA")) Q

 N RA1,RA2,RA3,RACNT,RADXTYP,RAIND

 ;

 ; Create Temp. Array of the Clinical Indicators.

 S RAIND(1)="SC",RAIND(2)="AO",RAIND(3)="IR"

 S RAIND(4)="EC",RAIND(5)="MST",RAIND(6)="HNC",RAIND(7)="CV",RAIND(8)="SHAD"

 ;

 S RACNT=0

 S RA2=^RAO(75.1,RAO,"BA") D DXPL ; Primary Ordering ICD Dx.

 S RA1=0

 F  S RA1=$O(^RAO(75.1,RAO,"BAS",RA1)) Q:+RA1<1  S RA2=^(RA1,0) D DXPL

 Q

 ;

DXPL ; Create "DX/PL" Node.

 S RACNT=RACNT+1

 S RADXTYP=$S(RACNT=1:"P",1:"S")

 S ^TMP("RAPXAPI",$J,"DX/PL",RACNT,"DIAGNOSIS")=$P(RA2,U)

 S ^TMP("RAPXAPI",$J,"DX/PL",RACNT,"PRIMARY")=RADXTYP

 ;F RA3=2:1:8 I $P(RA2,U,RA3)'="" D

 F RA3=2:1:9 D

 .S ^TMP("RAPXAPI",$J,"DX/PL",RACNT,"PL "_RAIND(RA3-1))=$P(RA2,U,RA3)

 Q

 ;

PROCDX(X) ; Called from PROC^RAPCE.

 ; Add Ordering ICD Dx to Procedure for Billing Purposes.

 N I

 F I=1:1:9 Q:'$D(^TMP("RAPXAPI",$J,"DX/PL",I,"DIAGNOSIS"))  D

 .I I=1 S ^TMP("RAPXAPI",$J,"PROCEDURE",X,"DIAGNOSIS")=^("DIAGNOSIS") Q

 .S ^TMP("RAPXAPI",$J,"PROCEDURE",X,"DIAGNOSIS "_I)=^("DIAGNOSIS")

 Q

RABWPCE   ;HISC/MM - Billing Awareness Project: PCE API ; 3/23/04 10:17am

 +1       ;;5.0;Radiology/Nuclear Medicine;**41,70**; Mar 16, 1998;Build 7

 +2        QUIT 

 +3       ;

DX(RAO)   ; Create ^TMP("RAPXAPI",$J,"DX/PL" for PCE API:  Ordering ICD Dx.

 +1       ; Called from LON+n^RAPCE.

 +2       ; ^RAO(75.1,RAO,"BAx",0) = ICD Diagnosis^SC^AO^IR^EC^SHAD^MST^HNC

 +3       ; NOTE: "EC" now represents "SWAC" but this internal value is not being changed.  only

 +4       ; external display text is being modified.  This instance of "EC" is passed to PCE and 

 +5       ; PCE will handle converting it to any external value on their end. 

 +6       ; Set an Order" node for Billing Replacement

 +7        SET ^TMP("RAPXAPI",$JOB,"PROCEDURE",1,"ORD REFERENCE")=$PIECE(^RAO(75.1,RAO,0),U,7)

 +8        IF '$DATA(^RAO(75.1,RAO,"BA"))

               QUIT 

 +9        NEW RA1,RA2,RA3,RACNT,RADXTYP,RAIND

 +10      ;

 +11      ; Create Temp. Array of the Clinical Indicators.

 +12       SET RAIND(1)="SC"

           SET RAIND(2)="AO"

           SET RAIND(3)="IR"

 +13       SET RAIND(4)="EC"

           SET RAIND(5)="MST"

           SET RAIND(6)="HNC"

           SET RAIND(7)="CV"

           SET RAIND(8)="SHAD"

 +14      ;

 +15       SET RACNT=0

 +16      ; Primary Ordering ICD Dx.

           SET RA2=^RAO(75.1,RAO,"BA")

           DO DXPL

 +17       SET RA1=0

 +18       FOR 

               SET RA1=$ORDER(^RAO(75.1,RAO,"BAS",RA1))

               IF +RA1<1

                   QUIT 

               SET RA2=^(RA1,0)

               DO DXPL

 +19       QUIT 

 +20      ;

DXPL      ; Create "DX/PL" Node.

 +1        SET RACNT=RACNT+1

 +2        SET RADXTYP=$SELECT(RACNT=1:"P",1:"S")

 +3        SET ^TMP("RAPXAPI",$JOB,"DX/PL",RACNT,"DIAGNOSIS")=$PIECE(RA2,U)

 +4        SET ^TMP("RAPXAPI",$JOB,"DX/PL",RACNT,"PRIMARY")=RADXTYP

 +5       ;F RA3=2:1:8 I $P(RA2,U,RA3)'="" D

 +6        FOR RA3=2:1:9

               Begin DoDot:1

 +7                SET ^TMP("RAPXAPI",$JOB,"DX/PL",RACNT,"PL "_RAIND(RA3-1))=$PIECE(RA2,U,RA3)

               End DoDot:1

 +8        QUIT 

 +9       ;

PROCDX(X) ; Called from PROC^RAPCE.

 +1       ; Add Ordering ICD Dx to Procedure for Billing Purposes.

 +2        NEW I

 +3        FOR I=1:1:9

               IF '$DATA(^TMP("RAPXAPI",$JOB,"DX/PL",I,"DIAGNOSIS"))

                   QUIT 

               Begin DoDot:1

 +4                IF I=1

                       SET ^TMP("RAPXAPI",$JOB,"PROCEDURE",X,"DIAGNOSIS")=^("DIAGNOSIS")

                       QUIT 

 +5                SET ^TMP("RAPXAPI",$JOB,"PROCEDURE",X,"DIAGNOSIS "_I)=^("DIAGNOSIS")

               End DoDot:1

 +6        QUIT