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

IBCEF62.m

Go to the documentation of this file.
  1. IBCEF62 ;ALB/TMP - EDI TRANSMISSION RULES BT RESTRICTIONS DISPLAY ;30-APR-99
  1. ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
  1. ;
  1. EN ; -- main entry point for IBCE RULE BT RESTRICT
  1. D EN^VALM("IBCE RULE BT RESTRICT")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. N IB0
  1. Q:'$G(IBRULE)
  1. S IB0=$G(^IBE(364.4,IBRULE,0))
  1. S VALMHDR(1)=IORVON_"BILL TYPE RESTRICTIONS FOR RULE #"_$P(IB0,U)_IORVOFF
  1. S VALMHDR(2)=$J("",4)_"Transmit type: "_$S($P(IB0,U,3)=1:"EDI ",$P(IB0,U,3)=2:"MRA ",1:"BOTH")_$J("",8)_" Form Type : "_$S($P(IB0,U,5)=1:"INST",$P(IB0,U,5)=2:"PROF",1:"BOTH")
  1. S VALMHDR(2)=VALMHDR(2)_" Ins Co Option: "_$S($P(IB0,U,7)=1:"INCLUDE",$P(IB0,U,7)=2:"EXCLUDE",1:"ALL ")
  1. S VALMHDR(3)=$J("",4)_"Active Date : "_$E($$EXPAND^IBTRE(364.4,.02,$P(IB0,U,2))_$J("",12),1,12)_" Inactive Date: "_$E($$EXPAND^IBTRE(364.4,.06,$P(IB0,U,6))_$J("",12),1,12)
  1. S VALMHDR(4)=$J("",4)_$P(IB0,U,8)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N IBI,IBR,IBRT
  1. S VALMCNT=0,VALMBG=1
  1. ; -- build list of rule's bill type restrictions
  1. D REBLD
  1. Q
  1. ;
  1. REBLD ; Set up formatted global
  1. ;
  1. N IBI,IBBT,IBCNT,X,IB0,Z
  1. D CLEAN^VALM10
  1. K ^TMP("IBCE-BT",$J),^TMP("IBCE-BTDX",$J)
  1. I '$G(IBRULE) Q
  1. S IBBT="",X="",(VALMCNT,IBCNT)=0
  1. F S IBBT=$O(^IBE(364.4,IBRULE,"BTYP","B",IBBT),-1) Q:IBBT="" S IBI=0 F S IBI=$O(^IBE(364.4,IBRULE,"BTYP","B",IBBT,IBI)) Q:'IBI S IB0=$G(^IBE(364.4,IBRULE,"BTYP",IBI,0)) D
  1. . S IBCNT=IBCNT+1
  1. . S X=$$SETFLD^VALM1(" "_IBCNT,X,"NUMBER")
  1. . S X=$$SETFLD^VALM1(" "_IBBT,X,"BILL TYPE")
  1. . S X=$$SETFLD^VALM1($$EXPAND^IBTRE(364.41,.02,$P(IB0,U,2)),X,"ACT")
  1. . S X=$$SETFLD^VALM1($$EXPAND^IBTRE(364.41,.03,$P(IB0,U,3)),X,"INACT")
  1. . D SET(X,IBCNT,IBI)
  1. ;
  1. I '$D(^TMP("IBCE-BT",$J)) S VALMCNT=2,IBCNT=2,^TMP("IBCE-BT",$J,1,0)=" ",^TMP("IBCE-BT",$J,2,0)=" No Bill Type Restrictions Found",^TMP("IBCE-BT",$J,"IDX",1,1)="",^TMP("IBCE-BT",$J,"IDX",2,2)=""
  1. Q
  1. ;
  1. SET(X,IBCNT,IBIEN) ;
  1. ; X = Text to set into display global
  1. ; IBCNT = the count of the entries in display
  1. ; IBIEN = ien of rule's bill type restriction being displayed
  1. ;
  1. S VALMCNT=VALMCNT+1,^TMP("IBCE-BT",$J,VALMCNT,0)=X
  1. D SET^VALM10(VALMCNT,X,IBCNT)
  1. S ^TMP("IBCE-BTDX",$J,VALMCNT)=IBIEN
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("IBCE-BT",$J),^TMP("IBCE-BTDX",$J),IBRULE
  1. D FULL^VALM1
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. SUCCBT ; Display success message after bill type restriction delete
  1. ;
  1. N DIR,Y,X
  1. S DIR(0)="EA"
  1. W !
  1. S DIR("A",1)="THE BILL TYPE RESTRICTION(S) WAS/WERE DELETED"
  1. S DIR("A")="PRESS RETURN " D ^DIR K DIR
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. BTDEL(IBRULE) ; Delete bill type restriction
  1. ; IBRULE = the ien of the rule being processed in file 364.4
  1. ;
  1. ; Function returns 1 if successful, 0 if not
  1. ;
  1. N IBOK,DA,DIK,Y,X,IBHT,Z,Z0,VALMY,IBCT,IBX
  1. ;
  1. S IBOK=0,IBCT=0
  1. D SEL^IBCEF61(.VALMY)
  1. G:'$O(VALMY(0)) BTDQ ; None selected
  1. ;
  1. S IBX=0 F S IBX=$O(VALMY(IBX)) Q:'IBX S Z0=+$G(^TMP("IBCE-BTDX",$J,IBX)),Z=$P($G(^IBE(364.4,IBRULE,"BTYP",Z0,0)),U) I Z'="" S IBX(Z)=Z0,IBCT=IBCT+1
  1. ; First check that delete will leave the rest of the restrictions valid
  1. S Z="" F S Z=$O(^IBE(364.4,IBRULE,"BTYP","B",Z)) Q:Z="" F Z0=0:0 S Z0=$O(^IBE(364.4,IBRULE,"BTYP","B",Z,Z0)) Q:'Z0 I '$D(IBX(Z)) S IB0=$G(^IBE(364.4,IBRULE,"BTYP",Z0,0)) I IB0'="" S IBHT($P(IB0,U))=Z0 ;Extract all bill types
  1. ;
  1. S Z="",IBOK=1
  1. F S Z=$O(IBHT(Z)) Q:Z="" D Q:'IBOK
  1. . N IBB
  1. . M IBB=IBHT K IBB(Z)
  1. . S IBOK=$$BTOK^IBCEF51(Z,.IBB,1)
  1. . I 'IBOK D
  1. .. S DIR(0)="EA",DIR("A",1)="Bill type"_$S(IBCT=1:"",1:"s")_" not deleted - deleting "_$S(IBCT=1:"this restriction",1:"these restrictions")_" would cause an inconsistency",DIR("A")="Press return: "
  1. .. D ^DIR K DIR
  1. ;
  1. I IBOK D
  1. . S Z="" F S Z=$O(IBX(Z)) Q:Z="" S DA=IBX(Z),DA(1)=IBRULE,DIK="^IBE(364.4,"_DA(1)_",""BTYP""," I DA D ^DIK
  1. . D REBLD
  1. ;
  1. BTDQ S VALMBCK="R"
  1. Q IBOK
  1. ;