| [613] | 1 | IBAMTV31 ;ALB/CPM - LIST CHARGES PENDING REVIEW ; 03-JUN-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**15,52**; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | SP ; 'Select Patient' entry action.
|
|---|
| 6 | N IBCOMMIT,IBNBR,IBBG
|
|---|
| 7 | S IBCOMMIT=0 D EN^VALM2($G(XQORNOD(0))) I '$O(VALMY(0)) G SPQ
|
|---|
| 8 | S IBNBR="" F S IBNBR=$O(VALMY(IBNBR)) Q:'IBNBR D
|
|---|
| 9 | .S DFN=^TMP("IBAMTV3",$J,"IDX",IBNBR,IBNBR) Q:'DFN
|
|---|
| 10 | .W !,"Generating a list of pending charges for ",$P($$PT^IBEFUNC(DFN),"^")," ..." H 2
|
|---|
| 11 | .N VALMHDR,VALMY S IBCOMMIT=1
|
|---|
| 12 | .D EN^VALM("IB MT REVIEW INDIV CHARGES")
|
|---|
| 13 | SPQ S VALMBCK=$S(IBCOMMIT:"R",1:"")
|
|---|
| 14 | I IBCOMMIT S IBBG=VALMBG D INIT^IBAMTV3 S VALMBG=IBBG
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | HDR ; Build screen header.
|
|---|
| 18 | N IBPT,VA,VAEL,VAERR
|
|---|
| 19 | D ELIG^VADPT
|
|---|
| 20 | S IBPT=$$PT^IBEFUNC(DFN)
|
|---|
| 21 | S VALMHDR(1)="Release Charges 'Pending Review'"_$J("",21)_"List of all Pending Charges"
|
|---|
| 22 | S VALMHDR(2)=$$SETSTR^VALM1("Date","Patient: "_$P(IBPT,"^")_" "_$E(IBPT)_$P(IBPT,"^",3)_$S(VAEL(3):" **SC VETERAN**",1:""),69,4)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | INIT ; Build list.
|
|---|
| 26 | N IBAX,IBN,IBND,IBATYP,IBND1
|
|---|
| 27 | S VALMBG=1,VALMCNT=0,VALMBCK="R"
|
|---|
| 28 | K ^TMP("IBAMTV31",$J)
|
|---|
| 29 | S IBN=0 F S IBN=$O(^IB("AJ",DFN,IBN)) Q:'IBN D
|
|---|
| 30 | .S IBND=$G(^IB(IBN,0)),IBND1=$G(^(1)) Q:'IBND!'IBND1
|
|---|
| 31 | .S VALMCNT=VALMCNT+1
|
|---|
| 32 | .S IBATYP=$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^") S:$E(IBATYP,1,2)="DG" IBATYP=$E(IBATYP,4,99)
|
|---|
| 33 | .S IBAX=$$SETSTR^VALM1($$DAT1^IBOUTL($P(IBND,"^",14)),VALMCNT,+$P(VALMDDF("FDATE"),"^",2),+$P(VALMDDF("FDATE"),"^",3))
|
|---|
| 34 | .S IBAX=$$SETSTR^VALM1($$DAT1^IBOUTL($P(IBND,"^",15)),IBAX,+$P(VALMDDF("TDATE"),"^",2),+$P(VALMDDF("TDATE"),"^",3))
|
|---|
| 35 | .S IBAX=$$SETSTR^VALM1(IBATYP,IBAX,+$P(VALMDDF("TYPE"),"^",2),+$P(VALMDDF("TYPE"),"^",3))
|
|---|
| 36 | .S IBAX=$$SETSTR^VALM1("$"_$P(IBND,"^",7),IBAX,+$P(VALMDDF("AMOUNT"),"^",2),+$P(VALMDDF("AMOUNT"),"^",3))
|
|---|
| 37 | .S IBAX=$$SETSTR^VALM1($$DAT1^IBOUTL($P(IBND1,"^",2)\1),IBAX,+$P(VALMDDF("CREATED"),"^",2),+$P(VALMDDF("CREATED"),"^",3))
|
|---|
| 38 | .S ^TMP("IBAMTV31",$J,VALMCNT,0)=IBAX
|
|---|
| 39 | .S ^TMP("IBAMTV31",$J,"IDX",VALMCNT,VALMCNT)=IBN
|
|---|
| 40 | I '$D(^TMP("IBAMTV31",$J)) S ^TMP("IBAMTV31",$J,1,0)=" ",^TMP("IBAMTV31",$J,2,0)=" There are no charges pending review for this patient.",VALMCNT=2
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | HELP ; Help code.
|
|---|
| 44 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | EXIT ; Exit action.
|
|---|
| 48 | K ^TMP("IBAMTV31",$J)
|
|---|
| 49 | D FULL^VALM1,CLEAN^VALM10
|
|---|
| 50 | Q
|
|---|
