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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1IBCEP0B ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
2 ;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
3 ;
4EN ; -- main entry point for IBCE PRVINS PARAM DISPLAY
5 N IBINS,IBDSP,IBSORT ; Variables should be available throughout actions
6 D FULL^VALM1
7 D EN^VALM("IBCE PRVINS PARAM DISPLAY")
8 Q
9 ;
10HDR ; -- header code
11 K VALMHDR
12 I $G(IBINS) S VALMHDR(1)="INSURANCE CO: "_$P($G(^DIC(36,+IBINS,0)),U)
13 Q
14 ;
15INIT ; Initialization
16 D BLD($G(IBINS))
17 Q
18 ;
19BLD(IBINS) ; Build display for insurance co parameter display
20 ; IBINS = the ien of the insurance co (file 36)
21 ;
22 ;ejk 4/20/05 Add IB3 to list of NEWed variables.
23 N IBLCT,IB4,IB3,IBP,Z0
24 K ^TMP("IBPRV_INS_PARAM",$J)
25 S IB4=$G(^DIC(36,+IBINS,4))
26 ;EJK 4/20/05 Create and pass IB3 to fix undefined variable error.
27 S IB3=$G(^DIC(36,+IBINS,3))
28 ;
29 D PARAMS^IBCNSC1(IB4,IB3,.IBP)
30 S (IBLCT,IBP)=0
31 F S IBP=$O(IBP(IBP)) Q:'IBP D
32 . S Z0=$E($J("",+IBP(IBP))_$P(IBP(IBP),U,2),1,79)
33 . D SET1(Z0,.IBLCT)
34BLDQ S VALMCNT=IBLCT,VALMBG=1
35 Q
36 ;
37EXPND ;
38 Q
39 ;
40HELP ;
41 Q
42 ;
43EXIT ;
44 K ^TMP("IBPRV_INS_PARAM",$J)
45 D CLEAN^VALM10
46 Q
47 ;
48EDIT ; Edit provider id insurance co parameters
49 N IBY,DA,X,Y,DIE,DR
50 D FULL^VALM1
51 S IBY=",12,",DIE="^DIC(36,",DA=+$G(IBINS),DR="[IBEDIT INS CO1]"
52 I DA>0 D ^DIE,BLD(IBINS)
53 ;
54 S VALMBCK="R"
55 Q
56 ;
57SET1(Z0,CT) ; Set lines into display array
58 S CT=CT+1
59 D SET^VALM10(CT,Z0)
60 Q
61 ;
Note: See TracBrowser for help on using the repository browser.