- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRABWPCE 1746 printed Mar 13, 2025@21:38:44 Page 2
- 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
