source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBAMTV31.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1IBAMTV31 ;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 ;
5SP ; '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")
13SPQ S VALMBCK=$S(IBCOMMIT:"R",1:"")
14 I IBCOMMIT S IBBG=VALMBG D INIT^IBAMTV3 S VALMBG=IBBG
15 Q
16 ;
17HDR ; 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 ;
25INIT ; 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 ;
43HELP ; Help code.
44 S X="?" D DISP^XQORM1 W !!
45 Q
46 ;
47EXIT ; Exit action.
48 K ^TMP("IBAMTV31",$J)
49 D FULL^VALM1,CLEAN^VALM10
50 Q
Note: See TracBrowser for help on using the repository browser.