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

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1IBJPC ;ALB/MAF - IBSP CLAIMS TRACKING PARAMETER SCREEN ; 27-DEC-1995
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; -- main entry point for IBJP CLAIMS TRACKING
6 D EN^VALM("IBJP CLAIMS TRACKING")
7 Q
8HDR ; -- header code
9 S VALMHDR(1)="Only authorized persons may edit this data."
10 Q
11 ;
12INIT ; -- Display tracking parameters
13 K ^TMP("IBJPC",$J)
14 D BLD
15 Q
16 ;
17HELP ; -- help code
18 S X="?" D DISP^XQORM1 W !!
19 Q
20 ;
21EXIT ; -- exit code
22 K ^TMP("IBJPC",$J)
23 D CLEAR^VALM1
24 Q
25 ;
26BLD ; -- build screen array, no variables required for input
27 N IBTRKR,IBTRKR5,IBNC,IBTC,IBTW,IBSW,IBLN,IBGRPB,IBGRPE,IBLR
28 S IBNC(1)=11,IBTW(1)=21,IBTC(1)=2,IBSW(1)=19,IBNC(2)=48,IBTW(2)=21,IBTC(2)=45,IBSW(2)=10
29 S IBTRKR=$G(^IBE(350.9,1,6)),IBTRKR5=$G(^IBE(350.9,1,5))
30 ;
31 S (VALMCNT,IBLN)=1,IBLR=1,IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN
32 ;
33 ; - claim tracking parameters
34 S IBLN=$$SETN("Tracking Parameters",IBLN,IBLR,1)
35 S IBLN=$$SET("Track Inpatient: ",$$EXSET^IBJU1($P(IBTRKR,U,2),350.9,6.02),IBLN,IBLR)
36 S IBLN=$$SET("Track Outpatient: ",$$EXSET^IBJU1($P(IBTRKR,U,3),350.9,6.03),IBLN,IBLR)
37 S IBLN=$$SET("Track Rx: ",$$EXSET^IBJU1($P(IBTRKR,U,4),350.9,6.04),IBLN,IBLR)
38 S IBLN=$$SET("Track Prosthetics: ",$$EXSET^IBJU1($P(IBTRKR,U,5),350.9,6.05),IBLN,IBLR)
39 S IBLN=$$SET("Reports Can Add CT: ",$S(+$P(IBTRKR,U,23):"YES",1:"NO"),IBLN,IBLR)
40 ;
41 S IBGRPE=IBLN,IBLN=IBGRPB,IBLR=2
42 ;
43 ; - random sample parameters
44 S IBLN=$$SETN("Random Sample Parameters",IBLN,IBLR,1)
45 S IBLN=$$SET("Medicine Sample: ",$P(IBTRKR,U,8),IBLN,IBLR)
46 S IBLN=$$SET("Medicine Admissions: ",$P(IBTRKR,U,9),IBLN,IBLR)
47 S IBLN=$$SET("Surgery Sample: ",$P(IBTRKR,U,13),IBLN,IBLR)
48 S IBLN=$$SET("Surgery Admissions: ",$P(IBTRKR,U,14),IBLN,IBLR)
49 S IBLN=$$SET("Psych Sample: ",$P(IBTRKR,U,18),IBLN,IBLR)
50 S IBLN=$$SET("Psych Admissions: ",$P(IBTRKR,U,19),IBLN,IBLR)
51 ;
52 S (IBLN,VALMCNT)=$S(IBLN>IBGRPE:IBLN,1:IBGRPE),IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN,IBLR=1,IBSW(1)=55
53 ;
54 ; - general parameters
55 S IBLN=$$SETN("General Parameters",IBLN,IBLR,1)
56 S IBLN=$$SET("Initialization Date: ",$$DATE^IBJU1($P(IBTRKR,U,1)),IBLN,IBLR)
57 S IBLN=$$SET("Use Admission Sheet: ",$S(+$P(IBTRKR,U,6):"YES",1:"NO"),IBLN,IBLR)
58 S IBLN=$$SET("Header Line 1: ",$P(IBTRKR5,U,1),IBLN,IBLR)
59 S IBLN=$$SET("Header Line 2: ",$P(IBTRKR5,U,2),IBLN,IBLR)
60 S IBLN=$$SET("Header Line 3: ",$P(IBTRKR5,U,3),IBLN,IBLR)
61 ;
62 S (IBLN,VALMCNT)=$S(IBLN>IBGRPE:IBLN,1:IBGRPE)-1
63 Q
64 ;
65SET(TTL,DATA,LN,LR) ;
66 N IBY
67 S IBY=$J(TTL,IBTW(LR))_DATA D SET1(IBY,LN,IBTC(LR),(IBTW(LR)+IBSW(LR)))
68 S LN=LN+1
69 Q LN
70 ;
71SETN(TTL,LN,LR,RV) ;
72 N IBY
73 S IBY=" "_TTL_" " D SET1(IBY,LN,IBNC(LR),$L(IBY),$G(RV))
74 S LN=LN+1
75 Q LN
76 ;
77SET1(STR,LN,COL,WD,RV) ; set up TMP array with screen data
78 N IBX S IBX=$G(^TMP("IBJPC",$J,LN,0))
79 S IBX=$$SETSTR^VALM1(STR,IBX,COL,WD)
80 D SET^VALM10(LN,IBX) I $G(RV)'="" D CNTRL^VALM10(LN,COL,WD,IORVON,IORVOFF)
81 Q
82 ;
83CTEDIT(IBJDR) ; -- IBJP CT EDIT ACTIONS (TP,RS,GP,EA): Edit Claims Tracking Parameters
84 ; flag inidcating which set of paramters to edit passed in
85 D FULL^VALM1
86 I IBJDR'="" S DR=$P($T(@IBJDR),";;",2,999)
87 I DR'="" S DIE="^IBE(350.9,",DA=1 D ^DIE K DA,DR,DIE,DIC,X,Y
88 D INIT^IBJPC S VALMBCK="R"
89 Q
90 ;
910 ;;6.02;6.03;6.04;6.05;6.23;6.08;6.09;6.13;6.14;6.18;6.19;4.01;6.01;6.06;I 'X S Y="@50";5.01;5.02;5.03;@50
921 ;;6.02;6.03;6.04;6.05;6.23
932 ;;6.08;6.09;6.13;6.14;6.18;6.19
943 ;;4.01;6.01;6.06;I 'X S Y="@50";5.01;5.02;5.03;@50
Note: See TracBrowser for help on using the repository browser.