| [613] | 1 | IBCMENU ;ALB/MRL,MJB - UB-82 BILLING MENU ;01 JUN 88 12:00
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; DBIA for reference to ^DOPT : DBIA55
|
|---|
| 6 | ;
|
|---|
| 7 | ;MAP TO DGCRMENU
|
|---|
| 8 | ;
|
|---|
| 9 | D DT^DICRW S DIK="^DOPT(""IBCMENU"","
|
|---|
| 10 | G:$D(^DOPT("IBCMENU",16)) A S ^DOPT("IBCMENU",0)="Billing Option^1N^" F I=1:1 S X=$T(@I) Q:X="" S ^DOPT("IBCMENU",I,0)=$P(X,";;",2,99)
|
|---|
| 11 | D IXALL^DIK
|
|---|
| 12 | A W ! S DIC="^DOPT(""IBCMENU"",",DIC(0)="QEAM" D ^DIC Q:Y'>0 D @+Y G A
|
|---|
| 13 | 1 ;;ACTIVATE/INACTIVATE REVENUE CODES
|
|---|
| 14 | W ! S DIC="^DGCR(399.2,",DIC(0)="AEQM" D ^DIC G KILL:Y'>0 S DA=+Y,DIE=DIC,DR="[IB ACTIVATE]" D ^DIE K DR G 1
|
|---|
| 15 | ;
|
|---|
| 16 | 2 ;;AUTHORIZE BILL GENERATION
|
|---|
| 17 | D KILL S IBAC=3 D AUT^IBCB,KILL Q
|
|---|
| 18 | ;
|
|---|
| 19 | 3 ;;BILL STATUS REPORT
|
|---|
| 20 | D ^IBOSTUS,KILL
|
|---|
| 21 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | 4 ;;CANCEL BILL
|
|---|
| 25 | D KILL S IBCAN=1 D ^IBCC,KILL Q
|
|---|
| 26 | ;
|
|---|
| 27 | 5 ;;ENTER/EDIT BILLING INFORMATION
|
|---|
| 28 | D KILL S IBAC=1 D EDI^IBCB,KILL Q
|
|---|
| 29 | ;
|
|---|
| 30 | 6 ;;PRINT BILL
|
|---|
| 31 | D KILL S IBAC=4 D GEN^IBCB,KILL
|
|---|
| 32 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | 7 ;;INPATIENTS WITH INSURANCE (NSC)
|
|---|
| 36 | D KILL S IBINPT=1 D INP^IBCONSC,KILL Q
|
|---|
| 37 | ;
|
|---|
| 38 | 8 ;;MAS BILLING LOG
|
|---|
| 39 | D ^IBOMBL,KILL Q
|
|---|
| 40 | ;
|
|---|
| 41 | 9 ;;OUTPATIENTS WITH INSURANCE (NSC)
|
|---|
| 42 | D KILL S IBOPT=1 D EN^IBCONSC,KILL Q
|
|---|
| 43 | ;
|
|---|
| 44 | 10 ;;PARAMETER ENTRY/EDIT
|
|---|
| 45 | D ^IBEPAR,KILL Q
|
|---|
| 46 | ;
|
|---|
| 47 | 11 ;;PATIENT BILLING INQUIRY
|
|---|
| 48 | D ^IBCNQ,KILL Q
|
|---|
| 49 | ;
|
|---|
| 50 | 12 ;;REOPEN BILLING RECORD
|
|---|
| 51 | W !,"NOT AVAILABLE",! Q ;D ^IBCREO,KILL Q
|
|---|
| 52 | ;
|
|---|
| 53 | 13 ;;REPORT OF RATE TYPE TOTALS
|
|---|
| 54 | D ^IBORT,KILL
|
|---|
| 55 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | 14 ;; REVIEW BILL
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | 15 ;;UPDATE RATE TYPE FILE
|
|---|
| 62 | W ! S DIC="^DGCR(399.3,",DIC(0)="AEQMZL",DLAYGO=399.3 D ^DIC K DLAYGO G KILL:Y'>0 S DA=+Y,DIE=DIC,DR="[IB RATE EDIT]" D ^DIE
|
|---|
| 63 | D KILL Q
|
|---|
| 64 | 16 ;;CLONE A BILL (COPY AND CANCEL)
|
|---|
| 65 | D KILL,^IBCCC,KILL Q
|
|---|
| 66 | ;
|
|---|
| 67 | KILL S IBKILL=1 D Q5^IBCVA K IBADI,IB00,DGCT1,IBPAR,IB,IBEDIT,IBK,IBPRNT,IBN,IBNEW,IBTAG,IBAUT,IBCAN,IBZ,IBZ,IBOUT,IBKILL,IBAC,IBDPT,IBDG,DGS,IBCCC,IBCCCC,IBIFN,DFN
|
|---|
| 68 | K IB1,IBA,IBA2,IBAC1,IBAD,IBADD1,IBDATA,IBU,IBUN,IBV1,IBVI,IBVO,IBW,IBWW,DGDRS1,IBX1,IBX2,X3,IBX3,DIC,G,%H,J1,X,X1,X2,XZ,Y,Z0,PRCASV,IBPNT,IBIFN2
|
|---|
| 69 | K IBYN,IBUB,IBU1,IBOPT,IBDR,IBABRT,IB6,IB7,IB8,IB9,IBCT,IBDIA,IBDX,IBDXC,IBHCN,IBNC,IBOPC,IBP,IBSP,IBUC,IBWE,IBWO,DGMTLL,DGPCM,DGPT,F,VAERR,VA,IBQUIT,PRCAPAYR,PTF,DGPTUPDT Q
|
|---|
| 70 | K IBEPAR
|
|---|
| 71 | ;IBCMENU
|
|---|
