IBCEP0B ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
;
EN ; -- main entry point for IBCE PRVINS PARAM DISPLAY
N IBINS,IBDSP,IBSORT ; Variables should be available throughout actions
D FULL^VALM1
D EN^VALM("IBCE PRVINS PARAM DISPLAY")
Q
;
HDR ; -- header code
K VALMHDR
I $G(IBINS) S VALMHDR(1)="INSURANCE CO: "_$P($G(^DIC(36,+IBINS,0)),U)
Q
;
INIT ; Initialization
D BLD($G(IBINS))
Q
;
BLD(IBINS) ; Build display for insurance co parameter display
; IBINS = the ien of the insurance co (file 36)
;
;ejk 4/20/05 Add IB3 to list of NEWed variables.
N IBLCT,IB4,IB3,IBP,Z0
K ^TMP("IBPRV_INS_PARAM",$J)
S IB4=$G(^DIC(36,+IBINS,4))
;EJK 4/20/05 Create and pass IB3 to fix undefined variable error.
S IB3=$G(^DIC(36,+IBINS,3))
;
D PARAMS^IBCNSC1(IB4,IB3,.IBP)
S (IBLCT,IBP)=0
F S IBP=$O(IBP(IBP)) Q:'IBP D
. S Z0=$E($J("",+IBP(IBP))_$P(IBP(IBP),U,2),1,79)
. D SET1(Z0,.IBLCT)
BLDQ S VALMCNT=IBLCT,VALMBG=1
Q
;
EXPND ;
Q
;
HELP ;
Q
;
EXIT ;
K ^TMP("IBPRV_INS_PARAM",$J)
D CLEAN^VALM10
Q
;
EDIT ; Edit provider id insurance co parameters
N IBY,DA,X,Y,DIE,DR
D FULL^VALM1
S IBY=",12,",DIE="^DIC(36,",DA=+$G(IBINS),DR="[IBEDIT INS CO1]"
I DA>0 D ^DIE,BLD(IBINS)
;
S VALMBCK="R"
Q
;
SET1(Z0,CT) ; Set lines into display array
S CT=CT+1
D SET^VALM10(CT,Z0)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEP0B 1426 printed Dec 13, 2024@02:11:30 Page 2
IBCEP0B ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
+1 ;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
+2 ;
EN ; -- main entry point for IBCE PRVINS PARAM DISPLAY
+1 ; Variables should be available throughout actions
NEW IBINS,IBDSP,IBSORT
+2 DO FULL^VALM1
+3 DO EN^VALM("IBCE PRVINS PARAM DISPLAY")
+4 QUIT
+5 ;
HDR ; -- header code
+1 KILL VALMHDR
+2 IF $GET(IBINS)
SET VALMHDR(1)="INSURANCE CO: "_$PIECE($GET(^DIC(36,+IBINS,0)),U)
+3 QUIT
+4 ;
INIT ; Initialization
+1 DO BLD($GET(IBINS))
+2 QUIT
+3 ;
BLD(IBINS) ; Build display for insurance co parameter display
+1 ; IBINS = the ien of the insurance co (file 36)
+2 ;
+3 ;ejk 4/20/05 Add IB3 to list of NEWed variables.
+4 NEW IBLCT,IB4,IB3,IBP,Z0
+5 KILL ^TMP("IBPRV_INS_PARAM",$JOB)
+6 SET IB4=$GET(^DIC(36,+IBINS,4))
+7 ;EJK 4/20/05 Create and pass IB3 to fix undefined variable error.
+8 SET IB3=$GET(^DIC(36,+IBINS,3))
+9 ;
+10 DO PARAMS^IBCNSC1(IB4,IB3,.IBP)
+11 SET (IBLCT,IBP)=0
+12 FOR
SET IBP=$ORDER(IBP(IBP))
if 'IBP
QUIT
Begin DoDot:1
+13 SET Z0=$EXTRACT($JUSTIFY("",+IBP(IBP))_$PIECE(IBP(IBP),U,2),1,79)
+14 DO SET1(Z0,.IBLCT)
End DoDot:1
BLDQ SET VALMCNT=IBLCT
SET VALMBG=1
+1 QUIT
+2 ;
EXPND ;
+1 QUIT
+2 ;
HELP ;
+1 QUIT
+2 ;
EXIT ;
+1 KILL ^TMP("IBPRV_INS_PARAM",$JOB)
+2 DO CLEAN^VALM10
+3 QUIT
+4 ;
EDIT ; Edit provider id insurance co parameters
+1 NEW IBY,DA,X,Y,DIE,DR
+2 DO FULL^VALM1
+3 SET IBY=",12,"
SET DIE="^DIC(36,"
SET DA=+$GET(IBINS)
SET DR="[IBEDIT INS CO1]"
+4 IF DA>0
DO ^DIE
DO BLD(IBINS)
+5 ;
+6 SET VALMBCK="R"
+7 QUIT
+8 ;
SET1(Z0,CT) ; Set lines into display array
+1 SET CT=CT+1
+2 DO SET^VALM10(CT,Z0)
+3 QUIT
+4 ;
