- ABMRVTPB ; IHS/SD/SDR - VISIT W/THIRD PARTY BILLED REPORT ;
- ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009
- ;
- K ABM,ABMY
- ;
- SEL S ABM("STA","NM")="PCC Status Report"
- S ABM("TXT")=""
- S ABM("NODX")=""
- S ABMY("DT")="V"
- START W !!," ============ Entry of VISIT Range =============",!
- S DIR("A")="Enter STARTING Visit for the Report"
- S DIR(0)="DO^::EP"
- D ^DIR
- ;G START:$D(DIRUT) ;abm*2.6*6 NOHEAT
- Q:$D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) ;abm*2.6*6 NOHEAT
- S ABMY("DT",1)=Y
- W !
- END S DIR("A")="Enter ENDING DATE for the Report"
- D ^DIR
- K DIR
- G START:$D(DIRUT)
- S ABMY("DT",2)=Y
- I ABMY("DT",1)>ABMY("DT",2) W !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! G START
- Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- S ABM("HD",0)=ABM("STA","NM")
- D ^ABMDRHD
- S ABMQ("RC")="COMPUTE^ABMRVTPB"
- S ABMQ("RX")="POUT^ABMDRUTL"
- S ABMQ("NS")="ABM"
- S ABMQ("RP")="PRINT^ABMRVTPB"
- D ^ABMDRDBQ
- Q
- ;
- COMPUTE ;EP - Entry Point for Setting up Data
- S ABM("SUBR")="ABM-VTPB" K ^TMP("ABM-VTPB",$J) Q:'$D(ABM("STA")) S ABM("PG")=0
- ALL ;ALL STATUS
- SLOOP S ABMV=ABMY("DT",1)-.5
- F S ABMV=$O(^AUPNVSIT("B",ABMV)) Q:'ABMV!(ABMV>ABMY("DT",2)) D
- .S ABMVIEN=0
- .F S ABMVIEN=$O(^AUPNVSIT("B",ABMV,ABMVIEN)) Q:'ABMVIEN D DATA
- Q
- ;
- DATA ;
- S ABMP("TPB")=$$GET1^DIQ(9000010,ABMVIEN_",",.04,"E")
- S ABMP("VLOC")=$$GET1^DIQ(9000010,ABMVIEN_",",.06,"E")
- S ABMP("SCAT")=$$GET1^DIQ(9000010,ABMVIEN_",",.07,"E")
- S ABMP("CLIN")=$$GET1^DIQ(9000010,ABMVIEN_",",.08,"E")
- S ABMP("PDFN")=$$GET1^DIQ(9000010,ABMVIEN_",",.05,"I")
- S ^TMP("ABM-VTPB",$J,ABMP("VLOC")_U_ABMP("TPB")_U_ABMP("SCAT")_U_ABMVIEN_U_ABMP("PDFN")_U_ABMP("CLIN"))=""
- Q
- PRINT ;EP for printing data
- S ABM("PG")=0 D HDB
- S (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0
- S ABM("VLOC")=""
- S ABM("Z")="TMP(""ABM-VTPB"","_$J,ABM="^"_ABM("Z")_")" I '$D(@ABM) Q
- F S ABM=$Q(@ABM) Q:ABM'[ABM("Z") D G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) XIT
- .I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) W " (cont)"
- .S ABM("T")=$P(ABM,"ABM-VTPB",2),ABM("TXT")=$P($P(ABM("T"),",",3,99),"""",2),ABM("TXT")=+$P(ABM("T"),",",3)_U_ABM("TXT")
- .I ABM("VLOC")'=$P(ABM("TXT"),U,2) D SUB:ABM("VLOC")]"" W:(ABM("VLOC")'="") ! W !?3,"Visit Location: ",$P(ABM("TXT"),U,2)
- .S ABM("VLOC")=$P(ABM("TXT"),U,2)
- .S ABM("TPB")=$P(ABM("TXT"),U,3)
- .S ABM("SCAT")=$P(ABM("TXT"),U,4)
- .S ABM("VDFN")=$P(ABM("TXT"),U,5)
- .S ABM("PDFN")=$P(ABM("TXT"),U,6)
- .S ABM("CLIN")=$P(ABM("TXT"),U,7)
- .W !
- .W $E($P(^DPT($P(ABM("PDFN"),U),0),U),1,16) ;pat name
- .S ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,ABM("VLOC"),0)),U,2) ;HRN
- .S:ABM("HRN")="" ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,DUZ(2),0)),U,2) ;HRN
- .W ?18,ABM("HRN")
- .W ?25,$E(ABM("CLIN"),1,10) ;clinic
- .W ?37,$$GET1^DIQ(9000010,ABM("VDFN")_",",.01,"E") ;visit date/time
- .W ?57,$E(ABM("TPB"),1,22) ;third party billed
- .S ABM("CNT1")=ABM("CNT1")+1,ABM("CNT2")=ABM("CNT2")+1,ABM("CNT")=ABM("CNT")+1,ABM("TOT")=ABM("TOT")+ABM("T")
- .S ABM("TOT1")=ABM("TOT1")+ABM("T"),ABM("TOT2")=ABM("TOT2")+ABM("T")
- D SUB
- Q
- ;
- HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- HDB S ABM("PG")=ABM("PG")+1,ABM("I")="" D WHD^ABMDRHD
- W !?2,"Patient",?18,"HRN",?25,"Clinic",?37,"Visit Date/Time",?57,"Third Party Billed"
- W !,"-------------------------------------------------------------------------------"
- Q
- ;
- SUB Q:'ABM("CNT1")
- W !?27,"------"
- W !?19,"Count:",?27,ABM("CNT1")
- S ABM("CNT1")=0,ABM("TOT1")=0,ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
- Q
- XIT ;EXIT POINT
- Q
- ABMRVTPB ; IHS/SD/SDR - VISIT W/THIRD PARTY BILLED REPORT ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009
- +2 ;
- +3 KILL ABM,ABMY
- +4 ;
- SEL SET ABM("STA","NM")="PCC Status Report"
- +1 SET ABM("TXT")=""
- +2 SET ABM("NODX")=""
- +3 SET ABMY("DT")="V"
- START WRITE !!," ============ Entry of VISIT Range =============",!
- +1 SET DIR("A")="Enter STARTING Visit for the Report"
- +2 SET DIR(0)="DO^::EP"
- +3 DO ^DIR
- +4 ;G START:$D(DIRUT) ;abm*2.6*6 NOHEAT
- +5 ;abm*2.6*6 NOHEAT
- IF $DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DIRUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA">DATA">DATA">DATA">DATA(DIROUT)
- QUIT
- +6 SET ABMY("DT",1)=Y
- +7 WRITE !
- END SET DIR("A")="Enter ENDING DATE for the Report"
- +1 DO ^DIR
- +2 KILL DIR
- +3 IF $DATA(DIRUT)
- GOTO START
- +4 SET ABMY("DT",2)=Y
- +5 IF ABMY("DT",1)>ABMY("DT",2)
- WRITE !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!!
- GOTO START
- +6 IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
- QUIT
- +7 SET ABM("HD",0)=ABM("STA","NM")
- +8 DO ^ABMDRHD
- +9 SET ABMQ("RC")="COMPUTE^ABMRVTPB"
- +10 SET ABMQ("RX")="POUT^ABMDRUTL"
- +11 SET ABMQ("NS")="ABM"
- +12 SET ABMQ("RP")="PRINT^ABMRVTPB"
- +13 DO ^ABMDRDBQ
- +14 QUIT
- +15 ;
- COMPUTE ;EP - Entry Point for Setting up Data
- +1 SET ABM("SUBR")="ABM-VTPB"
- KILL ^TMP("ABM-VTPB",$JOB)
- IF '$DATA(ABM("STA"))
- QUIT
- SET ABM("PG")=0
- ALL ;ALL STATUS
- SLOOP SET ABMV=ABMY("DT",1)-.5
- +1 FOR
- SET ABMV=$ORDER(^AUPNVSIT("B",ABMV))
- IF 'ABMV!(ABMV>ABMY("DT",2))
- QUIT
- Begin DoDot:1
- +2 SET ABMVIEN=0
- +3 FOR
- SET ABMVIEN=$ORDER(^AUPNVSIT("B",ABMV,ABMVIEN))
- IF 'ABMVIEN
- QUIT
- DO DATA
- End DoDot:1
- +4 QUIT
- +5 ;
- DATA ;
- +1 SET ABMP("TPB")=$$GET1^DIQ(9000010,ABMVIEN_",",.04,"E")
- +2 SET ABMP("VLOC")=$$GET1^DIQ(9000010,ABMVIEN_",",.06,"E")
- +3 SET ABMP("SCAT")=$$GET1^DIQ(9000010,ABMVIEN_",",.07,"E")
- +4 SET ABMP("CLIN")=$$GET1^DIQ(9000010,ABMVIEN_",",.08,"E")
- +5 SET ABMP("PDFN")=$$GET1^DIQ(9000010,ABMVIEN_",",.05,"I")
- +6 SET ^TMP("ABM-VTPB",$JOB,ABMP("VLOC")_U_ABMP("TPB")_U_ABMP("SCAT")_U_ABMVIEN_U_ABMP("PDFN")_U_ABMP("CLIN"))=""
- +7 QUIT
- PRINT ;EP for printing data
- +1 SET ABM("PG")=0
- DO HDB
- +2 SET (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0
- +3 SET ABM("VLOC")=""
- +4 SET ABM("Z")="TMP(""ABM-VTPB"","_$JOB
- SET ABM="^"_ABM("Z")_")"
- IF '$DATA(@ABM)
- QUIT
- +5 FOR
- SET ABM=$QUERY(@ABM)
- IF ABM'[ABM("Z")
- QUIT
- Begin DoDot:1
- +6 IF $Y>(IOSL-5)
- DO HD
- IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
- QUIT
- WRITE " (cont)"
- +7 SET ABM("T")=$PIECE(ABM,"ABM-VTPB",2)
- SET ABM("TXT")=$PIECE($PIECE(ABM("T"),",",3,99),"""",2)
- SET ABM("TXT")=+$PIECE(ABM("T"),",",3)_U_ABM("TXT")
- +8 IF ABM("VLOC")'=$PIECE(ABM("TXT"),U,2)
- IF ABM("VLOC")]""
- DO SUB
- IF (ABM("VLOC")'="")
- WRITE !
- WRITE !?3,"Visit Location: ",$PIECE(ABM("TXT"),U,2)
- +9 SET ABM("VLOC")=$PIECE(ABM("TXT"),U,2)
- +10 SET ABM("TPB")=$PIECE(ABM("TXT"),U,3)
- +11 SET ABM("SCAT")=$PIECE(ABM("TXT"),U,4)
- +12 SET ABM("VDFN")=$PIECE(ABM("TXT"),U,5)
- +13 SET ABM("PDFN")=$PIECE(ABM("TXT"),U,6)
- +14 SET ABM("CLIN")=$PIECE(ABM("TXT"),U,7)
- +15 WRITE !
- +16 ;pat name
- WRITE $EXTRACT($PIECE(^DPT($PIECE(ABM("PDFN"),U),0),U),1,16)
- +17 ;HRN
- SET ABM("HRN")=$PIECE($GET(^AUPNPAT($PIECE(ABM("PDFN"),U),41,ABM("VLOC"),0)),U,2)
- +18 ;HRN
- IF ABM("HRN")=""
- SET ABM("HRN")=$PIECE($GET(^AUPNPAT($PIECE(ABM("PDFN"),U),41,DUZ(2),0)),U,2)
- +19 WRITE ?18,ABM("HRN")
- +20 ;clinic
- WRITE ?25,$EXTRACT(ABM("CLIN"),1,10)
- +21 ;visit date/time
- WRITE ?37,$$GET1^DIQ(9000010,ABM("VDFN")_",",.01,"E")
- +22 ;third party billed
- WRITE ?57,$EXTRACT(ABM("TPB"),1,22)
- +23 SET ABM("CNT1")=ABM("CNT1")+1
- SET ABM("CNT2")=ABM("CNT2")+1
- SET ABM("CNT")=ABM("CNT")+1
- SET ABM("TOT")=ABM("TOT")+ABM("T")
- +24 SET ABM("TOT1")=ABM("TOT1")+ABM("T")
- SET ABM("TOT2")=ABM("TOT2")+ABM("T")
- End DoDot:1
- IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
- GOTO XIT
- +25 DO SUB
- +26 QUIT
- +27 ;
- HD DO PAZ^ABMDRUTL
- IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
- QUIT
- HDB SET ABM("PG")=ABM("PG")+1
- SET ABM("I")=""
- DO WHD^ABMDRHD
- +1 WRITE !?2,"Patient",?18,"HRN",?25,"Clinic",?37,"Visit Date/Time",?57,"Third Party Billed"
- +2 WRITE !,"-------------------------------------------------------------------------------"
- +3 QUIT
- +4 ;
- SUB IF 'ABM("CNT1")
- QUIT
- +1 WRITE !?27,"------"
- +2 WRITE !?19,"Count:",?27,ABM("CNT1")
- +3 SET ABM("CNT1")=0
- SET ABM("TOT1")=0
- SET ABM("CNT2")=0
- SET ABM("TOT2")=0
- SET ABM("I")=""
- +4 QUIT
- XIT ;EXIT POINT
- +1 QUIT
