| [613] | 1 | IBCEFG61 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING (CONT) ;28-JAN-96
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | VIEW(IBDA,IBDA1) ; Display contents of ien IBDA in file 364.6 and
|
|---|
| 5 | ; field definition (ien IBDA1 in file 364.7)
|
|---|
| 6 | N IB0,IB00,IBELE,IBELE0,IB0X,Z,L,IBSEC
|
|---|
| 7 | S IB0=$G(^IBA(364.6,IBDA,0)),IB00=$G(^IBA(364.7,IBDA1,0)),IBELE=$P(IB00,U,3),IBELE0=$G(^IBA(364.5,+IBELE,0)),IBSEC=$S($P(IB00,U,2)="N":"National",1:"Local")
|
|---|
| 8 | S Z=$P(IB0,U,3),IB0X=$S('Z:IB0,1:$G(^IBA(364.6,Z,0)))
|
|---|
| 9 | S L="",$P(L,"*",81)="" W !,L
|
|---|
| 10 | I Z,Z'=+IB00 S Z="*Over-rides "_IBSEC_" Form Field: "_$P(IB0X,U,10)_"*" W !,?(80-$L(Z)\2),Z
|
|---|
| 11 | W !!," Page/Seg: ",$P(IB0X,U,4),?28,"First Line: ",$P(IB0X,U,5),?52,"Col/Pc: ",$P(IB0X,U,8)
|
|---|
| 12 | W !," Length: ",$P(IB0X,U,9),?35,"Pad: ",$$EXTERNAL^DILFD(364.7,.07,"",$P(IB00,U,7))
|
|---|
| 13 | W:$P(IB0X,U,6) !," Max #: ",$P(IB0X,U,6)
|
|---|
| 14 | W !
|
|---|
| 15 | S Z=$$EXTERNAL^DILFD(364.7,.05,"",$P(IB00,U,5)) S:Z="" Z="ALL"
|
|---|
| 16 | W !," Ins. Co.: ",Z
|
|---|
| 17 | S Z=$$EXTERNAL^DILFD(364.7,.06,"",$P(IB00,U,6)) S:Z="" Z="BOTH"
|
|---|
| 18 | W !," Bill Type: ",Z
|
|---|
| 19 | W:$P(IB00,U,3) !,"Data Element: ",$P(IBELE0,U)
|
|---|
| 20 | W:$P(IB00,U,4)'="" !," Scrn Prompt: ",$P(IB00,U,4)
|
|---|
| 21 | W:$P(IB00,U,9)'="" !," Edit Status: ",$$EXTERNAL^DILFD(364.7,.09,"",$P(IB00,U,9))
|
|---|
| 22 | W !
|
|---|
| 23 | W:$G(^IBA(364.5,+IBELE,2))'="" !," Array: ",^(2)
|
|---|
| 24 | W:$P(IBELE0,U,6)'="" !," Fileman Fld: ",$P(IBELE0,U,6)_"("_$S($P(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
|
|---|
| 25 | W:$P(IBELE0,U,8)'="" !,"Constant Val: ",$P(IBELE0,U,8)
|
|---|
| 26 | W:$G(^IBA(364.5,+IBELE,1))'="" !,"Extract Code:",!," ",^(1)
|
|---|
| 27 | W:$G(^IBA(364.7,IBDA1,1))'="" !," Format Code:",!," ",^(1)
|
|---|
| 28 | W !,L,!!!
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | VIEWE(IB) ; Display contents of data element ien IB in file 364.5
|
|---|
| 32 | N IBELE0,IB0X,Z,L
|
|---|
| 33 | S IBELE0=$G(^IBA(364.5,IB,0))
|
|---|
| 34 | S L="",$P(L,"*",81)="" W !,L
|
|---|
| 35 | W !,"National/Loc: ",$$EXTERNAL^DILFD(364.5,.02,"",$P(IBELE0,U,2))
|
|---|
| 36 | W !," Base File: ",$P(IBELE0,U,5)," - ",$P($G(^DIC(+$P(IBELE0,U,5),0)),U)
|
|---|
| 37 | W !," Type: ",$$EXTERNAL^DILFD(364.5,.03,"",$P(IBELE0,U,3))
|
|---|
| 38 | S Z=$P(IBELE0,U,4) S:Z="" Z="I"
|
|---|
| 39 | W !," Category: ",$$EXTERNAL^DILFD(364.5,.04,"",Z)
|
|---|
| 40 | W:$P(IBELE0,U,6)'="" !," Fileman Fld: ",$P(IBELE0,U,6)_"("_$S($P(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
|
|---|
| 41 | W:$P(IBELE0,U,8)'="" !,"Constant Val: ",$P(IBELE0,U,8)
|
|---|
| 42 | W:$G(^IBA(364.5,IB,2))'="" !," Array: ",^(2)
|
|---|
| 43 | W:$G(^IBA(364.5,IB,1))'="" !,"Extract Code:",!," ",^(1)
|
|---|
| 44 | I $O(^IBA(364.5,IB,3,0)) D
|
|---|
| 45 | .W !,"Description: "
|
|---|
| 46 | .S Z=0 F S Z=$O(^IBA(364.5,IB,3,Z)) Q:'Z W !," ",^(Z,0)
|
|---|
| 47 | W !,L,!!!
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
