Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCEP0B

IBCEP0B.m

Go to the documentation of this file.
  1. IBCEP0B ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
  1. ;;2.0;INTEGRATED BILLING;**137,296**;21-MAR-94
  1. ;
  1. EN ; -- main entry point for IBCE PRVINS PARAM DISPLAY
  1. N IBINS,IBDSP,IBSORT ; Variables should be available throughout actions
  1. D FULL^VALM1
  1. D EN^VALM("IBCE PRVINS PARAM DISPLAY")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. K VALMHDR
  1. I $G(IBINS) S VALMHDR(1)="INSURANCE CO: "_$P($G(^DIC(36,+IBINS,0)),U)
  1. Q
  1. ;
  1. INIT ; Initialization
  1. D BLD($G(IBINS))
  1. Q
  1. ;
  1. BLD(IBINS) ; Build display for insurance co parameter display
  1. ; IBINS = the ien of the insurance co (file 36)
  1. ;
  1. ;ejk 4/20/05 Add IB3 to list of NEWed variables.
  1. N IBLCT,IB4,IB3,IBP,Z0
  1. K ^TMP("IBPRV_INS_PARAM",$J)
  1. S IB4=$G(^DIC(36,+IBINS,4))
  1. ;EJK 4/20/05 Create and pass IB3 to fix undefined variable error.
  1. S IB3=$G(^DIC(36,+IBINS,3))
  1. ;
  1. D PARAMS^IBCNSC1(IB4,IB3,.IBP)
  1. S (IBLCT,IBP)=0
  1. F S IBP=$O(IBP(IBP)) Q:'IBP D
  1. . S Z0=$E($J("",+IBP(IBP))_$P(IBP(IBP),U,2),1,79)
  1. . D SET1(Z0,.IBLCT)
  1. BLDQ S VALMCNT=IBLCT,VALMBG=1
  1. Q
  1. ;
  1. EXPND ;
  1. Q
  1. ;
  1. HELP ;
  1. Q
  1. ;
  1. EXIT ;
  1. K ^TMP("IBPRV_INS_PARAM",$J)
  1. D CLEAN^VALM10
  1. Q
  1. ;
  1. EDIT ; Edit provider id insurance co parameters
  1. N IBY,DA,X,Y,DIE,DR
  1. D FULL^VALM1
  1. S IBY=",12,",DIE="^DIC(36,",DA=+$G(IBINS),DR="[IBEDIT INS CO1]"
  1. I DA>0 D ^DIE,BLD(IBINS)
  1. ;
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. SET1(Z0,CT) ; Set lines into display array
  1. S CT=CT+1
  1. D SET^VALM10(CT,Z0)
  1. Q
  1. ;