| [613] | 1 | IBCSC9 ;ALB/MJB - MCCR SCREEN 9 (LOCAL SCREEN 9 SPECIFIC INFO) ;27 MAY 99 10:20
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN N IBCOB,IBSCRN,IBANY,IBXERR
|
|---|
| 6 | S IBCOB=$$COBN^IBCEF(IBIFN),IBANY=1
|
|---|
| 7 | S IBSCRN=$$LOCSCRN(IBIFN) ;Find screen from file 353
|
|---|
| 8 | I IBSCRN="" S IBANY="No local screen has been defined for this form type"
|
|---|
| 9 | I '$D(^DGCR(399,IBIFN,"I"_IBCOB)),'$P($G(^DGCR(399,IBIFN,"M")),U,11) S IBANY="Bill must have insurance co or resp institution to use this screen"
|
|---|
| 10 | D ^IBCSCU S IBSR=9,IBSR1=""
|
|---|
| 11 | D H^IBCSCU
|
|---|
| 12 | N IBWW,Z,IBPARMS
|
|---|
| 13 | ;Call formatter to extract data for screen here ... read thru the array
|
|---|
| 14 | ; ^TMP("IBXDATA",$J,1,PG,LINE,COL)=DATA to 'display' the data fields
|
|---|
| 15 | S IBPARMS(1)="BILL-SEARCH",IBPARMS(3)=$S($$INPAT^IBCEF(IBIFN):"I",1:"O"),IBPARMS(2)=$P($G(^DGCR(399,IBIFN,"I"_IBCOB)),U)
|
|---|
| 16 | S IBWW=""
|
|---|
| 17 | K ^TMP("IBXDATA",$J),^TMP("IBXEDIT",$J),IBXERR
|
|---|
| 18 | D FPRE^IBCEFG7(+IBSCRN,0,.IBXERR) ;Form pre-processor
|
|---|
| 19 | I $D(IBXERR) S IBANY=IBXERR
|
|---|
| 20 | I IBANY D
|
|---|
| 21 | .N VADM
|
|---|
| 22 | .S IBANY=$$EXTRACT^IBCEFG(IBSCRN,IBIFN,1,.IBPARMS) S:'IBANY IBANY="No local data fields are needed for this bill type/insurance company"
|
|---|
| 23 | I IBANY D
|
|---|
| 24 | .F Z0=1:1:$O(^TMP("IBXDATA",$J,1,1,""),-1) W ! S Z1="" F S Z1=$O(^TMP("IBXDATA",$J,1,1,Z0,Z1)) Q:'Z1 S Z2=^(Z1),Z3="" S:$E(Z2)="[" Z3=+$P(Z2,"[",2),Z2=$P(Z2,"]",2,999) W ?Z1 W:Z3 "[",IBVI,Z3,IBVO,"]" W Z2
|
|---|
| 25 | .S IBV1=""
|
|---|
| 26 | .I $S($G(IBV)=1:0,1:$$STATOK^IBCEU4(IBIFN,"12")) S Z="" F S Z=$O(^TMP("IBXEDIT",$J,Z)) Q:'Z S $E(IBV1,Z)=0
|
|---|
| 27 | I 'IBANY S IBV1="1" W !!,IBANY
|
|---|
| 28 | G ^IBCSCP
|
|---|
| 29 | ;
|
|---|
| 30 | EDIT ;
|
|---|
| 31 | N Z,DR,DA,DIE,FLDS,Z0,IBCUFT
|
|---|
| 32 | S IBCUFT=$P($G(^DGCR(399,IBIFN,0)),U,19)
|
|---|
| 33 | F Z=1:1:$L(IBDR20,",") S Z0=$P(IBDR20,",",Z) D
|
|---|
| 34 | .S DR=""
|
|---|
| 35 | .S IBGRP=Z0-90,Z0=0 F S Z0=$O(^TMP("IBXEDIT",$J,IBGRP,Z0)) Q:'Z0 S DR=DR_$S($L(DR):";",1:"")_^(Z0)
|
|---|
| 36 | .I $L(DR) S DIE=+$G(^IBE(353,IBCUFT,2)),DA=IBIFN D ^DIE
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | LOCSCRN(IBIFN) ; Find the local screen from the bill form type
|
|---|
| 40 | Q $P($G(^IBE(353,+$P($G(^DGCR(399,IBIFN,0)),U,19),2)),U,9)
|
|---|
| 41 | ;
|
|---|
| 42 | Q Q
|
|---|
| 43 | ;IBCSC9
|
|---|
| 44 | ;
|
|---|
