source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEFG61.m@ 1274

Last change on this file since 1274 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1IBCEFG61 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING (CONT) ;28-JAN-96
2 ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
3 ;
4VIEW(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 ;
31VIEWE(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 ;
Note: See TracBrowser for help on using the repository browser.