source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCMENU.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1IBCMENU ;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
12A W ! S DIC="^DOPT(""IBCMENU"",",DIC(0)="QEAM" D ^DIC Q:Y'>0 D @+Y G A
131 ;;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 ;
162 ;;AUTHORIZE BILL GENERATION
17 D KILL S IBAC=3 D AUT^IBCB,KILL Q
18 ;
193 ;;BILL STATUS REPORT
20 D ^IBOSTUS,KILL
21 I $D(ZTQUEUED) S ZTREQ="@"
22 Q
23 ;
244 ;;CANCEL BILL
25 D KILL S IBCAN=1 D ^IBCC,KILL Q
26 ;
275 ;;ENTER/EDIT BILLING INFORMATION
28 D KILL S IBAC=1 D EDI^IBCB,KILL Q
29 ;
306 ;;PRINT BILL
31 D KILL S IBAC=4 D GEN^IBCB,KILL
32 I $D(ZTQUEUED) S ZTREQ="@"
33 Q
34 ;
357 ;;INPATIENTS WITH INSURANCE (NSC)
36 D KILL S IBINPT=1 D INP^IBCONSC,KILL Q
37 ;
388 ;;MAS BILLING LOG
39 D ^IBOMBL,KILL Q
40 ;
419 ;;OUTPATIENTS WITH INSURANCE (NSC)
42 D KILL S IBOPT=1 D EN^IBCONSC,KILL Q
43 ;
4410 ;;PARAMETER ENTRY/EDIT
45 D ^IBEPAR,KILL Q
46 ;
4711 ;;PATIENT BILLING INQUIRY
48 D ^IBCNQ,KILL Q
49 ;
5012 ;;REOPEN BILLING RECORD
51 W !,"NOT AVAILABLE",! Q ;D ^IBCREO,KILL Q
52 ;
5313 ;;REPORT OF RATE TYPE TOTALS
54 D ^IBORT,KILL
55 I $D(ZTQUEUED) S ZTREQ="@"
56 Q
57 ;
5814 ;; REVIEW BILL
59 Q
60 ;
6115 ;;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
6416 ;;CLONE A BILL (COPY AND CANCEL)
65 D KILL,^IBCCC,KILL Q
66 ;
67KILL 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
Note: See TracBrowser for help on using the repository browser.