| 1 | IBJPM ;ALB/MAF,ARH - IBSP MCCR PARAMETERS SCREEN ;14-DEC-1995
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**39,137,184,271,316**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; -- main entry point for JOINT INQUIRY PARAMETERS option
|
|---|
| 6 | D EN^VALM("IBJP MCCR PARAMETERS")
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | HDR ; -- header code
|
|---|
| 10 | S VALMHDR(1)="Display/Edit MCCR Site Parameters."
|
|---|
| 11 | S VALMHDR(2)="Only authorized persons may edit this data."
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ; -- init variables and list array
|
|---|
| 15 | K ^TMP("IBJPM",$J)
|
|---|
| 16 | D BLD
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | HELP ; -- help code
|
|---|
| 20 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | EXIT ; -- exit code
|
|---|
| 24 | K ^TMP("IBJPM",$J),IBFASTXT,VALMBCK
|
|---|
| 25 | D CLEAR^VALM1
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | BLD ; -- build screen array, no variables required for input
|
|---|
| 29 | N IBNC,IBTC,IBTW,IBSW,IBLN,IBGRPB,IBGRPE,IBLR
|
|---|
| 30 | S IBNC(1)=1,IBTW(1)=0,IBTC(1)=5,IBSW(1)=30,IBNC(2)=43,IBTW(2)=0,IBTC(2)=47,IBSW(2)=30
|
|---|
| 31 | ;
|
|---|
| 32 | S (VALMCNT,IBLN)=1,IBLR=1,IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN
|
|---|
| 33 | ;
|
|---|
| 34 | ; - IB Site Parameters
|
|---|
| 35 | S IBLN=$$SETN("IB Site Parameters",IBLN,IBLR,1)
|
|---|
| 36 | S IBLN=$$SET("","Facility Definition",IBLN,IBLR)
|
|---|
| 37 | S IBLN=$$SET("","Mail Groups",IBLN,IBLR)
|
|---|
| 38 | S IBLN=$$SET("","Patient Billing",IBLN,IBLR)
|
|---|
| 39 | S IBLN=$$SET("","Third Party Billing",IBLN,IBLR)
|
|---|
| 40 | S IBLN=$$SET("","Provider Id",IBLN,IBLR)
|
|---|
| 41 | S IBLN=$$SET("","EDI Transmission",IBLN,IBLR)
|
|---|
| 42 | ;
|
|---|
| 43 | S IBLR=2,IBGRPE=IBLN,IBLN=IBGRPB
|
|---|
| 44 | ;
|
|---|
| 45 | ; - Claim Tracking Parameters
|
|---|
| 46 | S IBLN=$$SETN("Claims Tracking Parameters",IBLN,IBLR,1)
|
|---|
| 47 | S IBLN=$$SET("","General Parameters",IBLN,IBLR)
|
|---|
| 48 | S IBLN=$$SET("","Tracking Parameters",IBLN,IBLR)
|
|---|
| 49 | S IBLN=$$SET("","Random Sampling",IBLN,IBLR)
|
|---|
| 50 | ;
|
|---|
| 51 | S IBLN=$S(IBLN>IBGRPE:IBLN,1:IBGRPE),IBLR=1,IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN
|
|---|
| 52 | ;
|
|---|
| 53 | ; - Automated Billing Parameters
|
|---|
| 54 | S IBLN=$$SETN("Third Party Auto Billing Parameters",IBLN,IBLR,1)
|
|---|
| 55 | S IBLN=$$SET("","General Parameters",IBLN,IBLR)
|
|---|
| 56 | S IBLN=$$SET("","Inpatient Admission",IBLN,IBLR)
|
|---|
| 57 | S IBLN=$$SET("","Outpatient Visit",IBLN,IBLR)
|
|---|
| 58 | S IBLN=$$SET("","Prescription Refill",IBLN,IBLR)
|
|---|
| 59 | ;
|
|---|
| 60 | ; DAOU/BHS - Added 13-JUN-2002
|
|---|
| 61 | S IBLR=2,IBLN=IBGRPB
|
|---|
| 62 | ;
|
|---|
| 63 | ; DAOU/BHS - Added 13-JUN-2002
|
|---|
| 64 | ; - IIV Parameters
|
|---|
| 65 | S IBLN=$$SETN("Insurance Id and Verification",IBLN,IBLR,1)
|
|---|
| 66 | S IBLN=$$SET("","General Parameters",IBLN,IBLR)
|
|---|
| 67 | S IBLN=$$SET("","Batch Extracts Parameters",IBLN,IBLR)
|
|---|
| 68 | S IBLN=$$SET("","Patients Without Insurance",IBLN,IBLR)
|
|---|
| 69 | ;
|
|---|
| 70 | S (IBLN,VALMCNT)=$S(IBLN>IBGRPE:IBLN,1:IBGRPE)-1
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
| 73 | SET(TTL,DATA,LN,LR) ;
|
|---|
| 74 | N IBY
|
|---|
| 75 | S IBY=$J(TTL,IBTW(LR))_DATA D SET1(IBY,LN,IBTC(LR),(IBTW(LR)+IBSW(LR)))
|
|---|
| 76 | S LN=LN+1
|
|---|
| 77 | Q LN
|
|---|
| 78 | ;
|
|---|
| 79 | SETN(TTL,LN,LR,RV) ;
|
|---|
| 80 | N IBY
|
|---|
| 81 | S IBY=" "_TTL_" " D SET1(IBY,LN,IBNC(LR),$L(IBY),$G(RV))
|
|---|
| 82 | S LN=LN+1
|
|---|
| 83 | Q LN
|
|---|
| 84 | ;
|
|---|
| 85 | SET1(STR,LN,COL,WD,RV) ; set up TMP array with screen data
|
|---|
| 86 | N IBX S IBX=$G(^TMP("IBJPM",$J,LN,0))
|
|---|
| 87 | S IBX=$$SETSTR^VALM1(STR,IBX,COL,WD)
|
|---|
| 88 | D SET^VALM10(LN,IBX) I $G(RV)'="" D CNTRL^VALM10(LN,COL,WD,IOINHI,IOINORM)
|
|---|
| 89 | Q
|
|---|
