IBJPM ;ALB/MAF,ARH - IBSP MCCR PARAMETERS SCREEN ;14-DEC-1995
;;2.0;INTEGRATED BILLING;**39,137,184,271,316,416,438,517,659,687**;21-MAR-94;Build 88
;;Per VA Directive 6402, this routine should not be modified.
;
EN ; -- main entry point for JOINT INQUIRY PARAMETERS option
D EN^VALM("IBJP MCCR PARAMETERS")
Q
;
HDR ; -- header code
S VALMHDR(1)="Display/Edit MCCR Site Parameters."
S VALMHDR(2)="Only authorized persons may edit this data."
Q
;
INIT ; -- init variables and list array
K ^TMP("IBJPM",$J)
D BLD
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBJPM",$J),IBFASTXT,VALMBCK
D CLEAR^VALM1
Q
;
BLD ; -- build screen array, no variables required for input
N IBNC,IBTC,IBTW,IBSW,IBLN,IBGRPB,IBGRPE,IBLR
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
;
S (VALMCNT,IBLN)=1,IBLR=1,IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN
;
; - IB Site Parameters
S IBLN=$$SETN("IB Site Parameters",IBLN,IBLR,1)
S IBLN=$$SET("","Facility Definition",IBLN,IBLR)
S IBLN=$$SET("","Mail Groups",IBLN,IBLR)
S IBLN=$$SET("","Patient Billing",IBLN,IBLR)
S IBLN=$$SET("","Third Party Billing",IBLN,IBLR)
S IBLN=$$SET("","Provider Id",IBLN,IBLR)
S IBLN=$$SET("","EDI Transmission",IBLN,IBLR)
;
S IBLR=2,IBGRPE=IBLN,IBLN=IBGRPB
;
; - Claim Tracking Parameters
S IBLN=$$SETN("Claims Tracking Parameters",IBLN,IBLR,1)
S IBLN=$$SET("","General Parameters",IBLN,IBLR)
S IBLN=$$SET("","Tracking Parameters",IBLN,IBLR)
S IBLN=$$SET("","Random Sampling",IBLN,IBLR)
S IBLN=$$SET("","HCSR Parameters",IBLN,IBLR)
;
S IBLN=$S(IBLN>IBGRPE:IBLN,1:IBGRPE),IBLR=1,IBLN=$$SET("","",IBLN,IBLR),IBGRPB=IBLN
;
; - Automated Billing Parameters
S IBLN=$$SETN("Third Party Auto Billing Parameters",IBLN,IBLR,1)
S IBLN=$$SET("","General Parameters",IBLN,IBLR)
S IBLN=$$SET("","Inpatient Admission",IBLN,IBLR)
S IBLN=$$SET("","Outpatient Visit",IBLN,IBLR)
S IBLN=$$SET("","Prescription Refill",IBLN,IBLR)
;
; DAOU/BHS - Added 13-JUN-2002
S IBLR=2,IBLN=IBGRPB
;
; DAOU/BHS - Added 13-JUN-2002
; - eIV Parameters
S IBLN=$$SETN("Insurance Verification",IBLN,IBLR,1)
S IBLN=$$SET("","General Parameters",IBLN,IBLR)
;S IBLN=$$SET("","Batch Extracts Parameters",IBLN,IBLR) ;/vd-IB*2*687 - Removed this parameter
;/vd-IB*2*687 - Added the following 3 parameter selections
S IBLN=$$SET("","eIV Parameters",IBLN,IBLR)
S IBLN=$$SET("","eIV Batch Extracts",IBLN,IBLR)
S IBLN=$$SET("","IIU Parameters",IBLN,IBLR)
;/vd-IB*2*687 - End of 3 parameters selections added.
;/vd-IB*2*659 - Removed the following heading for maintenance purposes per
; a request by the ebiz group.
;S IBLN=$$SET("","Service Type Codes",IBLN,IBLR)
;
S (IBLN,VALMCNT)=$S(IBLN>IBGRPE:IBLN,1:IBGRPE)-1
Q
;
SET(TTL,DATA,LN,LR) ;
N IBY
S IBY=$J(TTL,IBTW(LR))_DATA D SET1(IBY,LN,IBTC(LR),(IBTW(LR)+IBSW(LR)))
S LN=LN+1
Q LN
;
SETN(TTL,LN,LR,RV) ;
N IBY
S IBY=" "_TTL_" " D SET1(IBY,LN,IBNC(LR),$L(IBY),$G(RV))
S LN=LN+1
Q LN
;
SET1(STR,LN,COL,WD,RV) ; set up TMP array with screen data
N IBX S IBX=$G(^TMP("IBJPM",$J,LN,0))
S IBX=$$SETSTR^VALM1(STR,IBX,COL,WD)
D SET^VALM10(LN,IBX) I $G(RV)'="" D CNTRL^VALM10(LN,COL,WD,IOINHI,IOINORM)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJPM 3321 printed Dec 13, 2024@02:23:35 Page 2
IBJPM ;ALB/MAF,ARH - IBSP MCCR PARAMETERS SCREEN ;14-DEC-1995
+1 ;;2.0;INTEGRATED BILLING;**39,137,184,271,316,416,438,517,659,687**;21-MAR-94;Build 88
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
EN ; -- main entry point for JOINT INQUIRY PARAMETERS option
+1 DO EN^VALM("IBJP MCCR PARAMETERS")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="Display/Edit MCCR Site Parameters."
+2 SET VALMHDR(2)="Only authorized persons may edit this data."
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("IBJPM",$JOB)
+2 DO BLD
+3 QUIT
+4 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBJPM",$JOB),IBFASTXT,VALMBCK
+2 DO CLEAR^VALM1
+3 QUIT
+4 ;
BLD ; -- build screen array, no variables required for input
+1 NEW IBNC,IBTC,IBTW,IBSW,IBLN,IBGRPB,IBGRPE,IBLR
+2 SET IBNC(1)=1
SET IBTW(1)=0
SET IBTC(1)=5
SET IBSW(1)=30
SET IBNC(2)=43
SET IBTW(2)=0
SET IBTC(2)=47
SET IBSW(2)=30
+3 ;
+4 SET (VALMCNT,IBLN)=1
SET IBLR=1
SET IBLN=$$SET("","",IBLN,IBLR)
SET IBGRPB=IBLN
+5 ;
+6 ; - IB Site Parameters
+7 SET IBLN=$$SETN("IB Site Parameters",IBLN,IBLR,1)
+8 SET IBLN=$$SET("","Facility Definition",IBLN,IBLR)
+9 SET IBLN=$$SET("","Mail Groups",IBLN,IBLR)
+10 SET IBLN=$$SET("","Patient Billing",IBLN,IBLR)
+11 SET IBLN=$$SET("","Third Party Billing",IBLN,IBLR)
+12 SET IBLN=$$SET("","Provider Id",IBLN,IBLR)
+13 SET IBLN=$$SET("","EDI Transmission",IBLN,IBLR)
+14 ;
+15 SET IBLR=2
SET IBGRPE=IBLN
SET IBLN=IBGRPB
+16 ;
+17 ; - Claim Tracking Parameters
+18 SET IBLN=$$SETN("Claims Tracking Parameters",IBLN,IBLR,1)
+19 SET IBLN=$$SET("","General Parameters",IBLN,IBLR)
+20 SET IBLN=$$SET("","Tracking Parameters",IBLN,IBLR)
+21 SET IBLN=$$SET("","Random Sampling",IBLN,IBLR)
+22 SET IBLN=$$SET("","HCSR Parameters",IBLN,IBLR)
+23 ;
+24 SET IBLN=$SELECT(IBLN>IBGRPE:IBLN,1:IBGRPE)
SET IBLR=1
SET IBLN=$$SET("","",IBLN,IBLR)
SET IBGRPB=IBLN
+25 ;
+26 ; - Automated Billing Parameters
+27 SET IBLN=$$SETN("Third Party Auto Billing Parameters",IBLN,IBLR,1)
+28 SET IBLN=$$SET("","General Parameters",IBLN,IBLR)
+29 SET IBLN=$$SET("","Inpatient Admission",IBLN,IBLR)
+30 SET IBLN=$$SET("","Outpatient Visit",IBLN,IBLR)
+31 SET IBLN=$$SET("","Prescription Refill",IBLN,IBLR)
+32 ;
+33 ; DAOU/BHS - Added 13-JUN-2002
+34 SET IBLR=2
SET IBLN=IBGRPB
+35 ;
+36 ; DAOU/BHS - Added 13-JUN-2002
+37 ; - eIV Parameters
+38 SET IBLN=$$SETN("Insurance Verification",IBLN,IBLR,1)
+39 SET IBLN=$$SET("","General Parameters",IBLN,IBLR)
+40 ;S IBLN=$$SET("","Batch Extracts Parameters",IBLN,IBLR) ;/vd-IB*2*687 - Removed this parameter
+41 ;/vd-IB*2*687 - Added the following 3 parameter selections
+42 SET IBLN=$$SET("","eIV Parameters",IBLN,IBLR)
+43 SET IBLN=$$SET("","eIV Batch Extracts",IBLN,IBLR)
+44 SET IBLN=$$SET("","IIU Parameters",IBLN,IBLR)
+45 ;/vd-IB*2*687 - End of 3 parameters selections added.
+46 ;/vd-IB*2*659 - Removed the following heading for maintenance purposes per
+47 ; a request by the ebiz group.
+48 ;S IBLN=$$SET("","Service Type Codes",IBLN,IBLR)
+49 ;
+50 SET (IBLN,VALMCNT)=$SELECT(IBLN>IBGRPE:IBLN,1:IBGRPE)-1
+51 QUIT
+52 ;
SET(TTL,DATA,LN,LR) ;
+1 NEW IBY
+2 SET IBY=$JUSTIFY(TTL,IBTW(LR))_DATA
DO SET1(IBY,LN,IBTC(LR),(IBTW(LR)+IBSW(LR)))
+3 SET LN=LN+1
+4 QUIT LN
+5 ;
SETN(TTL,LN,LR,RV) ;
+1 NEW IBY
+2 SET IBY=" "_TTL_" "
DO SET1(IBY,LN,IBNC(LR),$LENGTH(IBY),$GET(RV))
+3 SET LN=LN+1
+4 QUIT LN
+5 ;
SET1(STR,LN,COL,WD,RV) ; set up TMP array with screen data
+1 NEW IBX
SET IBX=$GET(^TMP("IBJPM",$JOB,LN,0))
+2 SET IBX=$$SETSTR^VALM1(STR,IBX,COL,WD)
+3 DO SET^VALM10(LN,IBX)
IF $GET(RV)'=""
DO CNTRL^VALM10(LN,COL,WD,IOINHI,IOINORM)
+4 QUIT
