- ABMDPST1 ; IHS/SD/SDR - Pending Claims Status Report ; JUN 29, 2005
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;
- PRINT ;EP for printing data
- K ABM("LOCATION TEMP"),ABM("PS UPDATER TEMP"),ABM("VISIT TEMP")
- K ABM("CLINIC TEMP"),ABM("ACTIVE INSURER TEMP")
- S ABM("PG")=0
- D HDB
- S ABM("SUB CNT")=0
- S ABM("TOTAL CNT")=0
- S ABM("Z")="TMP(""ABM-ICS"","_$J
- S 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-ICS",2),ABM("TXT")=$P($P(ABM("T"),",",3,99),"""",2),ABM("TXT")=+$P(ABM("T"),",",3)_U_ABM("TXT")
- .S ABM("LOCATION NAME")=$P(ABM("TXT"),U,2)
- .S ABM("SORT")=$P(ABM("TXT"),U,3)
- .S ABM("PATIENT")=$P(ABM("TXT"),U,4)
- .S ABM("HRN")=$P(ABM("TXT"),U,5)
- .S ABM("CLAIM")=$P(ABM("TXT"),U,6)
- .S ABM("VISIT TYPE")=$P(ABM("TXT"),U,7)
- .S ABM("CLINIC")=$P(ABM("TXT"),U,8)
- .S ABM("CLINIC")=$S(ABM("CLAIM")'="":$E($P($G(^DIC(40.7,ABM("CLINIC"),0)),U),1,12),1:"UNDEFINED")
- .S ABM("PS REASON")=$P(ABM("TXT"),U,9)
- .S ABM("VISIT DATE")=$P(ABM("TXT"),U,10)
- .S ABM("I")=$P(ABM("TXT"),U,11)
- .S:ABM("I")="" ABM("I")="UNDEFINED"
- .S ABM("PS UPDATER")=$P(ABM("TXT"),U,12)
- .I ABM("PS UPDATER")="" S ABM("PS UPDATER")="UNDEFINED"
- .E S ABM("PS UPDATER")=$P($G(^VA(200,ABM("PS UPDATER"),0)),U)
- .;
- .;DO SUB HEADERS
- .I $G(ABM("LOCATION TEMP"))'=ABM("LOCATION NAME") D:$G(ABM("LOCATION TEMP"))'="" SUBHDR,TOTHDR W !?3,"Visit Location: ",$G(ABM("LOCATION NAME")) S ABM("LOCATION TEMP")=ABM("LOCATION NAME")
- .I $G(ABM("PS UPDATER TEMP"))'=ABM("PS UPDATER") W !?6,"Status Updater: ",$G(ABM("PS UPDATER")) S ABM("PS UPDATER TEMP")=ABM("PS UPDATER")
- .I ABMY("SORT")="V" I $G(ABM("VISIT TEMP"))'=ABM("VISIT TYPE") D:$G(ABM("VISIT TEMP"))'="" SUBHDR W !?5,"Visit Type: "_$P(^ABMDVTYP(ABM("VISIT TYPE"),0),U) S ABM("VISIT TEMP")=ABM("VISIT TYPE")
- .I ABMY("SORT")="C" I $G(ABM("CLINIC TEMP"))'=ABM("CLINIC") D:$G(ABM("CLINIC TEMP"))'="" SUBHDR W !?5," Clinic: "_$G(ABM("CLINIC")) S ABM("CLINIC TEMP")=ABM("CLINIC")
- .I $G(ABM("ACTIVE INSURER TEMP"))'=$G(ABM("I")) W !?11,"Active Insurer: ",$P($G(^AUTNINS(ABM("I"),0)),U) S ABM("ACTIVE INSURER TEMP")=ABM("I")
- .W !!
- .W $E(ABM("PATIENT"),1,16) ;pat name
- .W ?18,ABM("HRN") ;hrn
- .W ?26,ABM("CLAIM") ;claim number
- .W ?34,$$SDT^ABMDUTL(ABM("VISIT DATE")) ;visit date
- .W ?46,ABM("CLINIC") ;clinic
- .K ^UTILITY($J,"W")
- .S DIWL=60,DIWR=79
- .S DIWF="WC19"
- .S X=ABM("PS REASON") ;reason
- .D ^DIWP
- .D ^DIWW
- .S ABM("SUB CNT")=$G(ABM("SUB CNT"))+1
- .S ABM("TOTAL CNT")=$G(ABM("TOTAL CNT"))+1
- D SUBHDR
- D TOTHDR
- W !!,"E N D O F R E P O R T"
- D PAZ^ABMDRUTL
- 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 !?26,"Claim",?34,"Visit"
- W !?2,"Patient",?18,"HRN",?26,"Number",?34,"Date",?46,"Clinic",?60,"Reason"
- W !,"-------------------------------------------------------------------------------"
- Q
- ;
- SUBHDR Q:'ABM("SUB CNT")
- W !?27,"------"
- W !?16,"Subtotal:",?27,ABM("SUB CNT")
- S ABM("SUB CNT")=0
- Q
- ;
- TOTHDR Q:'ABM("TOTAL CNT")
- W !?27,"------"
- W !?19,"Total:",?27,ABM("TOTAL CNT")
- S ABM("TOTAL CNT")=0
- Q
- XIT ;EXIT POINT
- K ^TMP("ABM-ICS",$J)
- Q
- ABMDPST1 ; IHS/SD/SDR - Pending Claims Status Report ; JUN 29, 2005
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;
- PRINT ;EP for printing data
- +1 KILL ABM("LOCATION TEMP"),ABM("PS UPDATER TEMP"),ABM("VISIT TEMP")
- +2 KILL ABM("CLINIC TEMP"),ABM("ACTIVE INSURER TEMP")
- +3 SET ABM("PG")=0
- +4 DO HDB
- +5 SET ABM("SUB CNT")=0
- +6 SET ABM("TOTAL CNT")=0
- +7 SET ABM("Z")="TMP(""ABM-ICS"","_$JOB
- +8 SET ABM="^"_ABM("Z")_")"
- +9 IF '$DATA(@ABM)
- QUIT
- +10 FOR
- SET ABM=$QUERY(@ABM)
- IF ABM'[ABM("Z")
- QUIT
- Begin DoDot:1
- +11 IF $Y>(IOSL-5)
- DO HD
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- WRITE " (cont)"
- +12 SET ABM("T")=$PIECE(ABM,"ABM-ICS",2)
- SET ABM("TXT")=$PIECE($PIECE(ABM("T"),",",3,99),"""",2)
- SET ABM("TXT")=+$PIECE(ABM("T"),",",3)_U_ABM("TXT")
- +13 SET ABM("LOCATION NAME")=$PIECE(ABM("TXT"),U,2)
- +14 SET ABM("SORT")=$PIECE(ABM("TXT"),U,3)
- +15 SET ABM("PATIENT")=$PIECE(ABM("TXT"),U,4)
- +16 SET ABM("HRN")=$PIECE(ABM("TXT"),U,5)
- +17 SET ABM("CLAIM")=$PIECE(ABM("TXT"),U,6)
- +18 SET ABM("VISIT TYPE")=$PIECE(ABM("TXT"),U,7)
- +19 SET ABM("CLINIC")=$PIECE(ABM("TXT"),U,8)
- +20 SET ABM("CLINIC")=$SELECT(ABM("CLAIM")'="":$EXTRACT($PIECE($GET(^DIC(40.7,ABM("CLINIC"),0)),U),1,12),1:"UNDEFINED")
- +21 SET ABM("PS REASON")=$PIECE(ABM("TXT"),U,9)
- +22 SET ABM("VISIT DATE")=$PIECE(ABM("TXT"),U,10)
- +23 SET ABM("I")=$PIECE(ABM("TXT"),U,11)
- +24 IF ABM("I")=""
- SET ABM("I")="UNDEFINED"
- +25 SET ABM("PS UPDATER")=$PIECE(ABM("TXT"),U,12)
- +26 IF ABM("PS UPDATER")=""
- SET ABM("PS UPDATER")="UNDEFINED"
- +27 IF '$TEST
- SET ABM("PS UPDATER")=$PIECE($GET(^VA(200,ABM("PS UPDATER"),0)),U)
- +28 ;
- +29 ;DO SUB HEADERS
- +30 IF $GET(ABM("LOCATION TEMP"))'=ABM("LOCATION NAME")
- IF $GET(ABM("LOCATION TEMP"))'=""
- DO SUBHDR
- DO TOTHDR
- WRITE !?3,"Visit Location: ",$GET(ABM("LOCATION NAME"))
- SET ABM("LOCATION TEMP")=ABM("LOCATION NAME")
- +31 IF $GET(ABM("PS UPDATER TEMP"))'=ABM("PS UPDATER")
- WRITE !?6,"Status Updater: ",$GET(ABM("PS UPDATER"))
- SET ABM("PS UPDATER TEMP")=ABM("PS UPDATER")
- +32 IF ABMY("SORT")="V"
- IF $GET(ABM("VISIT TEMP"))'=ABM("VISIT TYPE")
- IF $GET(ABM("VISIT TEMP"))'=""
- DO SUBHDR
- WRITE !?5,"Visit Type: "_$PIECE(^ABMDVTYP(ABM("VISIT TYPE"),0),U)
- SET ABM("VISIT TEMP")=ABM("VISIT TYPE")
- +33 IF ABMY("SORT")="C"
- IF $GET(ABM("CLINIC TEMP"))'=ABM("CLINIC")
- IF $GET(ABM("CLINIC TEMP"))'=""
- DO SUBHDR
- WRITE !?5," Clinic: "_$GET(ABM("CLINIC"))
- SET ABM("CLINIC TEMP")=ABM("CLINIC")
- +34 IF $GET(ABM("ACTIVE INSURER TEMP"))'=$GET(ABM("I"))
- WRITE !?11,"Active Insurer: ",$PIECE($GET(^AUTNINS(ABM("I"),0)),U)
- SET ABM("ACTIVE INSURER TEMP")=ABM("I")
- +35 WRITE !!
- +36 ;pat name
- WRITE $EXTRACT(ABM("PATIENT"),1,16)
- +37 ;hrn
- WRITE ?18,ABM("HRN")
- +38 ;claim number
- WRITE ?26,ABM("CLAIM")
- +39 ;visit date
- WRITE ?34,$$SDT^ABMDUTL(ABM("VISIT DATE"))
- +40 ;clinic
- WRITE ?46,ABM("CLINIC")
- +41 KILL ^UTILITY($JOB,"W")
- +42 SET DIWL=60
- SET DIWR=79
- +43 SET DIWF="WC19"
- +44 ;reason
- SET X=ABM("PS REASON")
- +45 DO ^DIWP
- +46 DO ^DIWW
- +47 SET ABM("SUB CNT")=$GET(ABM("SUB CNT"))+1
- +48 SET ABM("TOTAL CNT")=$GET(ABM("TOTAL CNT"))+1
- End DoDot:1
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- GOTO XIT
- +49 DO SUBHDR
- +50 DO TOTHDR
- +51 WRITE !!,"E N D O F R E P O R T"
- +52 DO PAZ^ABMDRUTL
- +53 QUIT
- +54 ;
- HD DO PAZ^ABMDRUTL
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- HDB SET ABM("PG")=ABM("PG")+1
- SET ABM("I")=""
- DO WHD^ABMDRHD
- +1 WRITE !?26,"Claim",?34,"Visit"
- +2 WRITE !?2,"Patient",?18,"HRN",?26,"Number",?34,"Date",?46,"Clinic",?60,"Reason"
- +3 WRITE !,"-------------------------------------------------------------------------------"
- +4 QUIT
- +5 ;
- SUBHDR IF 'ABM("SUB CNT")
- QUIT
- +1 WRITE !?27,"------"
- +2 WRITE !?16,"Subtotal:",?27,ABM("SUB CNT")
- +3 SET ABM("SUB CNT")=0
- +4 QUIT
- +5 ;
- TOTHDR IF 'ABM("TOTAL CNT")
- QUIT
- +1 WRITE !?27,"------"
- +2 WRITE !?19,"Total:",?27,ABM("TOTAL CNT")
- +3 SET ABM("TOTAL CNT")=0
- +4 QUIT
- XIT ;EXIT POINT
- +1 KILL ^TMP("ABM-ICS",$JOB)
- +2 QUIT
