source: FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9LNP.m@ 1700

RMPR9LNP ;Hines OIFO/HNC - REMOTE PROCEDURE, LIST NPPD DATA ;9/8/03  07:23
 ;;3.0;PROSTHETICS;**71,77,90,75,60**;Feb 09, 1996;Build 18
 ;
 ;    HNC - Sept 2, 2003 - patch 77 remove the " for Excel CSV
 ;    HNC - Feb 14, 2005 - patch 90 add flex field to GUI display
 ;    HNC - Nov 15, 2005 - patch 75 add 2 additional flex field to gui
 ;
 ;RESULTS passed to broker in ^TMP($J,
 ;delimited by "^"
 ;piece 1 = ENTRY DATE
 ;piece 2 = PATIENT NAME  IF OEF/OIF <!> PRECEDES THE NAME
 ;piece 3 = PSAS HCPCS with * if hcpcs has Calculation Flag
 ;piece 4 = QTY
 ;piece 5 = VENDOR
 ;piece 6 = INITIAL ACTION DATE
 ;piece 7 = TOTAL COST
 ;piece 8 = DESCRIPTION
 ;piece 9 = INITIATOR
 ;piece 10 = NPPD LINE BEFORE GROUPER
 ;piece 11 = STATION
 ;piece 12 = GROUPER NUMBER
 ;piece 13 = FORM REQUESTED ON
 ;piece 14 = TYPE OF TRANSACTION
 ;piece 15 = SSN
 ;piece 16 = IEN TO FILE 660
 ;piece 17 = HCPCS SHORT DESCRIPTION
 ;piece 18 = SOURCE
 ;piece 19 = Optional Flex Field
 ;piece 20 = Optional Flex Field
 ;piece 21 = Optional Flex Field
 Q
 ;
EN(RESULT,DATE1,DATE2,FLEXF,FLEX2,FLEX3) ;broker entry point
 ;
 K ^TMP($J)
 I '$D(DATE1)!('$D(DATE2)) G EXIT
 S DATE=DATE1-1
 F  S DATE=$O(^RMPR(660,"B",DATE)) Q:(DATE="")!($P(DATE,".",1)>DATE2)  D
 .S RMPRB=0
 .F  S RMPRB=$O(^RMPR(660,"B",DATE,RMPRB)) Q:RMPRB=""  D
 ..I $P(^RMPR(660,RMPRB,0),U,15)["*" Q:$P($G(^RMPR(660,RMPRB,"HSTV1")),U,3)=""
 ..S PHCPCS=$P($G(^RMPR(660,RMPRB,1)),U,4)
 ..Q:PHCPCS=""
 ..Q:PHCPCS'>0
 ..S HDES=$P(^RMPR(661.1,PHCPCS,0),U,2)
 ..S TYPE=$P($G(^RMPR(660,RMPRB,0)),U,4)
 ..I TYPE'="X" S LINE=$P(^RMPR(661.1,PHCPCS,0),U,7)
 ..I TYPE="X" S LINE=$P(^RMPR(661.1,PHCPCS,0),U,6)
 ..S CAL=$P(^RMPR(661.1,PHCPCS,0),U,8)
 ..I CAL'="" S CAL="*"
 ..S DFN=$P(^RMPR(660,RMPRB,0),U,2)
 ..D DEM^VADPT,SVC^VADPT
 ..S RMPROEOI=$S(VASV(11)>0:"<!>",VASV(12)>0:"<!>",VASV(13)>0:"<!>",1:0)
 ..D DATA
 S RESULT=$NA(^TMP($J))
 K DATE,DFN,HDES,LINE,PHCPCS,RMPRB,RMPRFLD,TYPE,B
 Q
 ;
DATA ;
 S B=RMPRB
 I FLEXF'="" S RMPRFLD=".01;.02;4.5;5;7;8;8.3;11;12;14;24;27;68;"_FLEXF
 I FLEXF="" S RMPRFLD=".01;.02;4.5;5;7;8;8.3;11;12;14;24;27;68"
 I FLEX2'="" S RMPRFLD=RMPRFLD_";"_FLEX2
 I FLEX3'="" S RMPRFLD=RMPRFLD_";"_FLEX3
 D GETS^DIQ(660,B,RMPRFLD,"","RMXM")
 S RMPRPTNM=$G(RMXM(660,B_",",.02))
 I RMPROEOI["<" S RMPRPTNM=RMPROEOI_RMPRPTNM
 S $P(^TMP($J,B),U,1)=$G(RMXM(660,B_",",.01))
 S $P(^TMP($J,B),U,2)=RMPRPTNM
 S $P(^TMP($J,B),U,3)=$G(RMXM(660,B_",",4.5))_CAL
 S $P(^TMP($J,B),U,4)=$G(RMXM(660,B_",",5))
 S $P(^TMP($J,B),U,5)=$G(RMXM(660,B_",",7))
 S $P(^TMP($J,B),U,6)=$G(RMXM(660,B_",",8.3))
 S $P(^TMP($J,B),U,7)=$G(RMXM(660,B_",",14))
 ;patch 77 remove the " for Excel CSV
 S $P(^TMP($J,B),U,8)=$TR($G(RMXM(660,B_",",24)),"""","'")
 S $P(^TMP($J,B),U,9)=$G(RMXM(660,B_",",27))
 S $P(^TMP($J,B),U,10)=LINE
 S $P(^TMP($J,B),U,11)=$G(RMXM(660,B_",",8))
 S $P(^TMP($J,B),U,12)=$G(RMXM(660,B_",",68))
 S $P(^TMP($J,B),U,13)=$G(RMXM(660,B_",",11))
 S $P(^TMP($J,B),U,14)=TYPE
 S $P(^TMP($J,B),U,15)=$P(VADM(2),U,2)
 S $P(^TMP($J,B),U,16)=B
 S $P(^TMP($J,B),U,17)=HDES
 S $P(^TMP($J,B),U,18)=$E($G(RMXM(660,B_",",12)),0,1)
 I FLEXF'="" S $P(^TMP($J,B),U,19)=$G(RMXM(660,B_",",FLEXF))
 I FLEXF="" S $P(^TMP($J,B),U,19)=""
 I FLEX2'="" S $P(^TMP($J,B),U,20)=$G(RMXM(660,B_",",FLEX2))
 I FLEX2="" S $P(^TMP($J,B),U,20)=""
 I FLEX3'="" S $P(^TMP($J,B),U,21)=$G(RMXM(660,B_",",FLEX3))
 I FLEX3="" S $P(^TMP($J,B),U,21)=""
 K RMXM,VADM,CAL
 Q
EXIT ;common exit point
 Q
 ;END