IBCEP0B.m

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 ---IBCEP0B   1426     printed  Apr 09, 2024@21:25:49                                                                                                                                                                                                     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       ;