- 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 Feb 18, 2025@23:37:54 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 ;