| 1 | IBCEP0B ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; -- 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 | ;
|
|---|
| 10 | HDR ; -- header code
|
|---|
| 11 | K VALMHDR
|
|---|
| 12 | I $G(IBINS) S VALMHDR(1)="INSURANCE CO: "_$P($G(^DIC(36,+IBINS,0)),U)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | INIT ; Initialization
|
|---|
| 16 | D BLD($G(IBINS))
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | BLD(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)
|
|---|
| 34 | BLDQ S VALMCNT=IBLCT,VALMBG=1
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | EXPND ;
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | HELP ;
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | EXIT ;
|
|---|
| 44 | K ^TMP("IBPRV_INS_PARAM",$J)
|
|---|
| 45 | D CLEAN^VALM10
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | EDIT ; 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 | ;
|
|---|
| 57 | SET1(Z0,CT) ; Set lines into display array
|
|---|
| 58 | S CT=CT+1
|
|---|
| 59 | D SET^VALM10(CT,Z0)
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
