| 1 | IBCEPC ;ALB/WCJ - Insurance company plan type list ;22-DEC-2005
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**320,348**;21-MAR-94;Build 5
|
|---|
| 3 | EN ; -- main entry point for IBCE INSCO BILL PROV MAINT
|
|---|
| 4 | D EN^VALM("IBCE INSCO BILL PROV MAINT")
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | HDR ; -- header code
|
|---|
| 8 | N PCF,PCDISP
|
|---|
| 9 | I '$D(IBCNS) N IBCNS S IBCNS=IBINS
|
|---|
| 10 | S PCF=$P($G(^DIC(36,+IBCNS,3)),U,13),PCDISP=$S(PCF="P":"(Parent)",1:"")
|
|---|
| 11 | S VALMHDR(1)="Insurance Co: "_$P($G(^DIC(36,+IBCNS,0)),U)_PCDISP
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ; Initialize
|
|---|
| 15 | N IBLCT,IBCT
|
|---|
| 16 | I '$D(IBCNS) N IBCNS S IBCNS=IBINS
|
|---|
| 17 | S (IBCT,IBLCT)=0
|
|---|
| 18 | ; Display the list
|
|---|
| 19 | D SET1(.IBLCT,"Transmit no billing Provider Sec ID for the following Electronic Plan Types:",IBCT+1)
|
|---|
| 20 | D LIST^DIC(36.013,","_IBCNS_",",".01",,10,,,,,,"TAR","ERR")
|
|---|
| 21 | F IBCT=1:1:+$G(TAR("DILIST",0)) D
|
|---|
| 22 | . D SET1(.IBLCT,IBCT_" "_TAR("DILIST",1,IBCT),IBCT)
|
|---|
| 23 | . S ^TMP("IBCE INSCO BILL PROV MAINT",$J,"ZIDX",IBCT)=TAR("DILIST",2,IBCT)_U_TAR("DILIST",1,IBCT)
|
|---|
| 24 | S VALMBG=1,VALMCNT=IBLCT
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | SET1(IBLCT,TEXT,IBCT) ;
|
|---|
| 28 | S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,TEXT,$G(IBCT))
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | EXPND ;
|
|---|
| 32 | Q
|
|---|
| 33 | HELP ;
|
|---|
| 34 | Q
|
|---|
| 35 | EXIT ;
|
|---|
| 36 | D CLEAN^VALM10
|
|---|
| 37 | Q
|
|---|
| 38 | ADD ;
|
|---|
| 39 | D FULL^VALM1
|
|---|
| 40 | S VALMBCK="R"
|
|---|
| 41 | N DIR,X,Y,DIC,DA
|
|---|
| 42 | I '$D(IBCNS) N IBCNS S IBCNS=IBINS
|
|---|
| 43 | S DIR("A")="Plan Type: ",DIR(0)="36.013,.01AOr"
|
|---|
| 44 | D ^DIR K DIR
|
|---|
| 45 | Q:$D(DTOUT)!$D(DUOUT)
|
|---|
| 46 | ;
|
|---|
| 47 | S X=Y
|
|---|
| 48 | S DIC(0)="L",DA(1)=IBCNS
|
|---|
| 49 | S DIC="^DIC(36,"_DA(1)_",13,"
|
|---|
| 50 | D ^DIC
|
|---|
| 51 | K ^TMP("IBCE INSCO BILL PROV MAINT",$J)
|
|---|
| 52 | D INIT
|
|---|
| 53 | ;
|
|---|
| 54 | Q
|
|---|
| 55 | DEL ;
|
|---|
| 56 | S VALMBCK="R"
|
|---|
| 57 | I '$D(^TMP("IBCE INSCO BILL PROV MAINT",$J,"ZIDX")) Q ;nothing to delete
|
|---|
| 58 | N IBDA
|
|---|
| 59 | I '$D(IBCNS) N IBCNS S IBCNS=IBINS
|
|---|
| 60 | D SEL
|
|---|
| 61 | Q:'$G(IBDA)
|
|---|
| 62 | N DA,DIK,X,Y
|
|---|
| 63 | S DA=+IBDA,DA(1)=IBCNS
|
|---|
| 64 | S DIK="^DIC(36,"_IBCNS_",13,"
|
|---|
| 65 | D ^DIK
|
|---|
| 66 | K ^TMP("IBCE INSCO BILL PROV MAINT",$J)
|
|---|
| 67 | D INIT
|
|---|
| 68 | Q
|
|---|
| 69 | ;
|
|---|
| 70 | SEL ;
|
|---|
| 71 | N Z
|
|---|
| 72 | K IBDA
|
|---|
| 73 | D FULL^VALM1
|
|---|
| 74 | D EN^VALM2($G(XQORNOD(0)),"OS")
|
|---|
| 75 | S Z=+$O(VALMY(0)) Q:'Z
|
|---|
| 76 | ; fac/ins co default
|
|---|
| 77 | S IBDA=$G(^TMP("IBCE INSCO BILL PROV MAINT",$J,"ZIDX",Z))
|
|---|
| 78 | Q
|
|---|
