IBCEFG61 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING (CONT) ;28-JAN-96
;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
;
VIEW(IBDA,IBDA1) ; Display contents of ien IBDA in file 364.6 and
; field definition (ien IBDA1 in file 364.7)
N IB0,IB00,IBELE,IBELE0,IB0X,Z,L,IBSEC
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")
S Z=$P(IB0,U,3),IB0X=$S('Z:IB0,1:$G(^IBA(364.6,Z,0)))
S L="",$P(L,"*",81)="" W !,L
I Z,Z'=+IB00 S Z="*Over-rides "_IBSEC_" Form Field: "_$P(IB0X,U,10)_"*" W !,?(80-$L(Z)\2),Z
W !!," Page/Seg: ",$P(IB0X,U,4),?28,"First Line: ",$P(IB0X,U,5),?52,"Col/Pc: ",$P(IB0X,U,8)
W !," Length: ",$P(IB0X,U,9),?35,"Pad: ",$$EXTERNAL^DILFD(364.7,.07,"",$P(IB00,U,7))
W:$P(IB0X,U,6) !," Max #: ",$P(IB0X,U,6)
W !
S Z=$$EXTERNAL^DILFD(364.7,.05,"",$P(IB00,U,5)) S:Z="" Z="ALL"
W !," Ins. Co.: ",Z
S Z=$$EXTERNAL^DILFD(364.7,.06,"",$P(IB00,U,6)) S:Z="" Z="BOTH"
W !," Bill Type: ",Z
W:$P(IB00,U,3) !,"Data Element: ",$P(IBELE0,U)
W:$P(IB00,U,4)'="" !," Scrn Prompt: ",$P(IB00,U,4)
W:$P(IB00,U,9)'="" !," Edit Status: ",$$EXTERNAL^DILFD(364.7,.09,"",$P(IB00,U,9))
W !
W:$G(^IBA(364.5,+IBELE,2))'="" !," Array: ",^(2)
W:$P(IBELE0,U,6)'="" !," Fileman Fld: ",$P(IBELE0,U,6)_"("_$S($P(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
W:$P(IBELE0,U,8)'="" !,"Constant Val: ",$P(IBELE0,U,8)
W:$G(^IBA(364.5,+IBELE,1))'="" !,"Extract Code:",!," ",^(1)
W:$G(^IBA(364.7,IBDA1,1))'="" !," Format Code:",!," ",^(1)
W !,L,!!!
Q
;
VIEWE(IB) ; Display contents of data element ien IB in file 364.5
N IBELE0,IB0X,Z,L
S IBELE0=$G(^IBA(364.5,IB,0))
S L="",$P(L,"*",81)="" W !,L
W !,"National/Loc: ",$$EXTERNAL^DILFD(364.5,.02,"",$P(IBELE0,U,2))
W !," Base File: ",$P(IBELE0,U,5)," - ",$P($G(^DIC(+$P(IBELE0,U,5),0)),U)
W !," Type: ",$$EXTERNAL^DILFD(364.5,.03,"",$P(IBELE0,U,3))
S Z=$P(IBELE0,U,4) S:Z="" Z="I"
W !," Category: ",$$EXTERNAL^DILFD(364.5,.04,"",Z)
W:$P(IBELE0,U,6)'="" !," Fileman Fld: ",$P(IBELE0,U,6)_"("_$S($P(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
W:$P(IBELE0,U,8)'="" !,"Constant Val: ",$P(IBELE0,U,8)
W:$G(^IBA(364.5,IB,2))'="" !," Array: ",^(2)
W:$G(^IBA(364.5,IB,1))'="" !,"Extract Code:",!," ",^(1)
I $O(^IBA(364.5,IB,3,0)) D
.W !,"Description: "
.S Z=0 F S Z=$O(^IBA(364.5,IB,3,Z)) Q:'Z W !," ",^(Z,0)
W !,L,!!!
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEFG61 2473 printed Dec 13, 2024@02:10:35 Page 2
IBCEFG61 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING (CONT) ;28-JAN-96
+1 ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
+2 ;
VIEW(IBDA,IBDA1) ; Display contents of ien IBDA in file 364.6 and
+1 ; field definition (ien IBDA1 in file 364.7)
+2 NEW IB0,IB00,IBELE,IBELE0,IB0X,Z,L,IBSEC
+3 SET IB0=$GET(^IBA(364.6,IBDA,0))
SET IB00=$GET(^IBA(364.7,IBDA1,0))
SET IBELE=$PIECE(IB00,U,3)
SET IBELE0=$GET(^IBA(364.5,+IBELE,0))
SET IBSEC=$SELECT($PIECE(IB00,U,2)="N":"National",1:"Local")
+4 SET Z=$PIECE(IB0,U,3)
SET IB0X=$SELECT('Z:IB0,1:$GET(^IBA(364.6,Z,0)))
+5 SET L=""
SET $PIECE(L,"*",81)=""
WRITE !,L
+6 IF Z
IF Z'=+IB00
SET Z="*Over-rides "_IBSEC_" Form Field: "_$PIECE(IB0X,U,10)_"*"
WRITE !,?(80-$LENGTH(Z)\2),Z
+7 WRITE !!," Page/Seg: ",$PIECE(IB0X,U,4),?28,"First Line: ",$PIECE(IB0X,U,5),?52,"Col/Pc: ",$PIECE(IB0X,U,8)
+8 WRITE !," Length: ",$PIECE(IB0X,U,9),?35,"Pad: ",$$EXTERNAL^DILFD(364.7,.07,"",$PIECE(IB00,U,7))
+9 if $PIECE(IB0X,U,6)
WRITE !," Max #: ",$PIECE(IB0X,U,6)
+10 WRITE !
+11 SET Z=$$EXTERNAL^DILFD(364.7,.05,"",$PIECE(IB00,U,5))
if Z=""
SET Z="ALL"
+12 WRITE !," Ins. Co.: ",Z
+13 SET Z=$$EXTERNAL^DILFD(364.7,.06,"",$PIECE(IB00,U,6))
if Z=""
SET Z="BOTH"
+14 WRITE !," Bill Type: ",Z
+15 if $PIECE(IB00,U,3)
WRITE !,"Data Element: ",$PIECE(IBELE0,U)
+16 if $PIECE(IB00,U,4)'=""
WRITE !," Scrn Prompt: ",$PIECE(IB00,U,4)
+17 if $PIECE(IB00,U,9)'=""
WRITE !," Edit Status: ",$$EXTERNAL^DILFD(364.7,.09,"",$PIECE(IB00,U,9))
+18 WRITE !
+19 if $GET(^IBA(364.5,+IBELE,2))'=""
WRITE !," Array: ",^(2)
+20 if $PIECE(IBELE0,U,6)'=""
WRITE !," Fileman Fld: ",$PIECE(IBELE0,U,6)_"("_$SELECT($PIECE(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
+21 if $PIECE(IBELE0,U,8)'=""
WRITE !,"Constant Val: ",$PIECE(IBELE0,U,8)
+22 if $GET(^IBA(364.5,+IBELE,1))'=""
WRITE !,"Extract Code:",!," ",^(1)
+23 if $GET(^IBA(364.7,IBDA1,1))'=""
WRITE !," Format Code:",!," ",^(1)
+24 WRITE !,L,!!!
+25 QUIT
+26 ;
VIEWE(IB) ; Display contents of data element ien IB in file 364.5
+1 NEW IBELE0,IB0X,Z,L
+2 SET IBELE0=$GET(^IBA(364.5,IB,0))
+3 SET L=""
SET $PIECE(L,"*",81)=""
WRITE !,L
+4 WRITE !,"National/Loc: ",$$EXTERNAL^DILFD(364.5,.02,"",$PIECE(IBELE0,U,2))
+5 WRITE !," Base File: ",$PIECE(IBELE0,U,5)," - ",$PIECE($GET(^DIC(+$PIECE(IBELE0,U,5),0)),U)
+6 WRITE !," Type: ",$$EXTERNAL^DILFD(364.5,.03,"",$PIECE(IBELE0,U,3))
+7 SET Z=$PIECE(IBELE0,U,4)
if Z=""
SET Z="I"
+8 WRITE !," Category: ",$$EXTERNAL^DILFD(364.5,.04,"",Z)
+9 if $PIECE(IBELE0,U,6)'=""
WRITE !," Fileman Fld: ",$PIECE(IBELE0,U,6)_"("_$SELECT($PIECE(IBELE0,U,6)="E":"ex",1:"in"),"ternal)"
+10 if $PIECE(IBELE0,U,8)'=""
WRITE !,"Constant Val: ",$PIECE(IBELE0,U,8)
+11 if $GET(^IBA(364.5,IB,2))'=""
WRITE !," Array: ",^(2)
+12 if $GET(^IBA(364.5,IB,1))'=""
WRITE !,"Extract Code:",!," ",^(1)
+13 IF $ORDER(^IBA(364.5,IB,3,0))
Begin DoDot:1
+14 WRITE !,"Description: "
+15 SET Z=0
FOR
SET Z=$ORDER(^IBA(364.5,IB,3,Z))
if 'Z
QUIT
WRITE !," ",^(Z,0)
End DoDot:1
+16 WRITE !,L,!!!
+17 QUIT
+18 ;
