89 lines
2.8 KiB
Mathematica
89 lines
2.8 KiB
Mathematica
RMPRCPT9 ;HIN/RVD-(2529-3) CPT MODIFIER UTILITY ;11/5/99
|
|
;;3.0;PROSTHETICS;**41,69**;Feb 09, 1996
|
|
;
|
|
;RVD 5/14/03 patch #69 - changed GX modifier to GY.
|
|
;process CPT field
|
|
;Set variable RMCPT for all valid CPT modifier.
|
|
Q:'$D(X)
|
|
N DIR,RM6611,RMCPT1,RMCPSO,RMCP0,RMCP4,RMCRF,RMCBW,RMCPT5,RMHCPCS,RMCP11,RMCLEN,DIROUT,DTOUT,DUOUT
|
|
S RM6611=X
|
|
K RMCPT1,X
|
|
S RMCP4=$G(^RMPR(661.1,RM6611,4))
|
|
S RMCP11=$G(^RMPR(661.1,RM6611,0))
|
|
S RMCP5=$G(^RMPR(661.1,RM6611,5))
|
|
S RMCRF=$P(RMCP5,U,1)
|
|
S (RMCPT1,RMCPHC)=$P(RMCP4,U,1),RMCPT=""
|
|
S RMHCPCS=$P(RMCP11,U,1),RMCPHC2=$E(RMHCPCS,1,2)
|
|
S RMCPSO="V"
|
|
;set CPT MODIFIER field in 664.1 to null if HCPCS has no CPT modifier.
|
|
I RMCPT1="" S $P(^RMPR(664.1,DA(1),2,DA,2),U,2)=RMCPT,X=RM6611 G KILL
|
|
;next code will be used for different CPT Modifiers.
|
|
;G:$D(D6I) QH
|
|
I (RMCPT1["LT"),(RMCPT1["RT") D LRT G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I (RMCPT1["KM"),(RMCPT1["KN") D KMN G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I RMCPT1["RR",$G(RMCRF) D RR G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I RMCPT1["RP" D RP G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I RMCPT1["PL" D PL G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I RMCPT1["UE" D UE G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I RMCPT1["NU" D NU G:$D(DUOUT)!$D(DTOUT)!$D(DIRUT) EXIT
|
|
I (RMCPT1["GY") D GY
|
|
I (RMCPT1["QH") D QH
|
|
I RMCPT1["KA" D KA
|
|
EXIT ;CLEAN-UP
|
|
S RMCLEN=$L(RMCPT),RMCPT=$E(RMCPT,1,RMCLEN-1)
|
|
S $P(^RMPR(664.1,DA(1),2,DA,2),U,2)=RMCPT,X=RM6611
|
|
KILL K DIR,RM6611,RMCPT1,RMCPSO,RMCP0,RMCP4,RMCRF,RMCBW,RMCPT5,RMHCPCS,RMCP11,RMCLEN,RMCP5,RMCPHC2,RMCPHC
|
|
Q
|
|
LRT ;prompt for LEFT OR RIGHT CPT modifier
|
|
K DIR
|
|
S DIR(0)="SBO^LT:Left;RT:Right;B:Both Left and Right"
|
|
S DIR("A")="Enter a CPT MODIFIER for HCPCS "_RMHCPCS
|
|
D ^DIR I $D(DUOUT)!$D(DTOUT)!($D(Y)&(Y="")) W !,"This is a required field!!!" G LRT
|
|
I Y="B" S Y="LT,RT"
|
|
S RMCPT=RMCPT_Y_","
|
|
Q
|
|
;
|
|
KMN ;prompt for new impression/moulage or previous master model.
|
|
K DIR
|
|
S DIR(0)="SBO^KM:new impression/moulage;KN:previous master model"
|
|
S DIR("A")="Enter a CPT MODIFIER for HCPCS "_RMHCPCS
|
|
D ^DIR I $D(DUOUT)!$D(DTOUT)!($D(Y)&(Y="")) W !,"This is a required field!!!" G KMN
|
|
S RMCPT=RMCPT_Y_","
|
|
Q
|
|
;
|
|
RR ;Append "RR" cpt modifier"
|
|
S DIR(0)="Y"
|
|
S DIR("A")="Is this RENTAL "
|
|
S DIR("?")="Enter 'Y for YES' or 'N for NO' ",DIR("B")="Y"
|
|
D ^DIR K DIR I $D(DUOUT)!$D(DTOUT) W !,"This is a required field!!!" G RR
|
|
S:$G(Y) RMCPT=RMCPT_"RR,"
|
|
Q
|
|
;
|
|
RP ;append "RP" cpt modifier.
|
|
I $D(RMTYPE),((RMTYPE="R")!(RMTYPE="X")) S RMCPT=RMCPT_"RP,"
|
|
Q
|
|
;
|
|
UE ;append "UE" cpt modifier.
|
|
I RMCPSO="V" S RMCPT=RMCPT_"UE,"
|
|
Q
|
|
;
|
|
NU ;append "NU" cpt modifier.
|
|
I (RMCPSO="C"),(RMCPT'["RR") S RMCPT=RMCPT_"NU,"
|
|
Q
|
|
;
|
|
QH ;append "QH" CPT modifier for Home Oxygen.
|
|
S RMCPT=RMCPT_"QH,"
|
|
Q
|
|
;
|
|
PL ;Append PL cpt modifier.
|
|
S RMCPT=RMCPT_"PL,"
|
|
Q
|
|
;
|
|
KA ;Append KA cpt modifier for HCPCS that contains wheelchair accessories.
|
|
S RMCPT=RMCPT_"KA,"
|
|
Q
|
|
;
|
|
GY ;Append GY CPT Modifier.
|
|
S RMCPT=RMCPT_"GY,"
|
|
Q
|