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

IBCNSC4.m

Go to the documentation of this file.
  1. IBCNSC4 ;ALB/TMP - INSURANCE PLAN DETAIL SCREEN UTILITIES ; 09-AUG-94
  1. ;;2.0;INTEGRATED BILLING;**43,85,103,251,416,497,516**;21-MAR-94;Build 123
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. INIT ; -- Load the plan detail segments
  1. N IBLCNT
  1. K ^TMP("IBCNSCP",$J)
  1. K VALMQUIT
  1. S VALMBG=1,(IBLCNT,VALMCNT)=0
  1. D KILL^VALM10()
  1. ;
  1. Q:'$G(IBCPOL)
  1. ;
  1. S IBCPOLD=$G(^IBA(355.3,IBCPOL,0)),IBCND1=$G(^(1)),$P(IBCDFND,U,18)=IBCPOL
  1. S IBCPOLD2=$G(^IBA(355.3,IBCPOL,6)) ;; Daou/EEN adding BIN and PCN
  1. S IBCPOLDL=$G(^IBA(355.3,IBCPOL,2)) ;; Daou/EEN adding BIN and PCN
  1. D POLICY^IBCNSP0,UR,LIM,AB,VER,COMMENT
  1. Q
  1. ;
  1. UR ; -- UR region
  1. N START,OFFSET
  1. ; MRD;IB*2.0*516 - Moved the UR section to be on its own lines, no
  1. ; longer to the right of the Plan Information.
  1. ;S START=1,OFFSET=43,VALMCNT=+$O(@VALMAR@(""),-1)
  1. S START=+$O(@VALMAR@(""),-1)+1,OFFSET=2,VALMCNT=+$O(@VALMAR@(""),-1)
  1. D SET(START,OFFSET," Utilization Review Info ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Require UR: "_$$EXPAND^IBTRE(355.3,.05,$P(IBCPOLD,"^",5)))
  1. D SET(START+2,OFFSET," Require Amb Cert: "_$$EXPAND^IBTRE(355.3,.12,$P(IBCPOLD,"^",12)))
  1. D SET(START+3,OFFSET," Require Pre-Cert: "_$$EXPAND^IBTRE(355.3,.06,$P(IBCPOLD,"^",6)))
  1. D SET(START+4,OFFSET," Exclude Pre-Cond: "_$$EXPAND^IBTRE(355.3,.07,$P(IBCPOLD,"^",7)))
  1. D SET(START+5,OFFSET,"Benefits Assignable: "_$$EXPAND^IBTRE(355.3,.08,$P(IBCPOLD,"^",8)))
  1. Q
  1. ;
  1. LIM ; Plan coverage limitations region
  1. N START,OFFSET
  1. S START=+$O(@VALMAR@(""),-1)+$S($P($G(IBCPOLD),U,14)]"":3,1:2),OFFSET=2
  1. D BLANK(START-1) S VALMCNT=VALMCNT+1
  1. D LIMBLD^IBCNSC41(START,OFFSET,.IBLCNT)
  1. Q
  1. ;
  1. AB ; -- Annual benefit years region
  1. N OFFSET,START,ADT,Z
  1. S START=+$O(@VALMAR@(""),-1)+2,OFFSET=2
  1. D BLANK(START-1) S VALMCNT=VALMCNT+1
  1. D SET(START,OFFSET," Annual Benefit Dates ",IORVON,IORVOFF)
  1. I $O(^IBA(355.4,"APY",IBCPOL,""))="" D SET(START+1,OFFSET+2,"No Annual Benefits Information") G ABQ
  1. S ADT="" F Z=0:1:6 S ADT=$O(^IBA(355.4,"APY",IBCPOL,ADT)) Q:'ADT D SET(START+1,OFFSET+3+(10*Z),$$DAT1^IBOUTL(-ADT))
  1. I ADT'="",$O(^IBA(355.4,"APY",IBCPOL,ADT))'="" D SET(START+1,OFFSET+3+(10*(Z+1)),"*More dates on file - use AB to see them")
  1. ABQ Q
  1. ;
  1. VER ; -- Plan detail User Information Region
  1. N OFFSET,START
  1. S START=+$O(@VALMAR@(""),-1)+2,OFFSET=2
  1. D BLANK(START-1) S VALMCNT=VALMCNT+1
  1. D SET(START,OFFSET," User Information ",IORVON,IORVOFF)
  1. I IBCND1="" D SET(START+1,OFFSET,"No User Information") G VERQ
  1. D SET(START+1,OFFSET," Entered By: "_$E($P($G(^VA(200,+$P(IBCND1,"^",2),0)),"^",1),1,20))
  1. D SET(START+2,OFFSET," Entered On: "_$$DAT1^IBOUTL(+IBCND1))
  1. D SET(START+3,OFFSET," Last Updated By: "_$E($P($G(^VA(200,+$P(IBCND1,"^",6),0)),"^",1),1,20))
  1. D SET(START+4,OFFSET," Last Updated On: "_$$DAT1^IBOUTL(+$P(IBCND1,"^",5)))
  1. VERQ Q
  1. ;
  1. COMMENT ; -- Plan detail comment region
  1. N START,OFFSET,LINE
  1. S START=+$O(@VALMAR@(""),-1)+2,OFFSET=2,LINE=1
  1. D BLANK(START-1) S VALMCNT=VALMCNT+1
  1. D SET(START,OFFSET," Plan Comments ",IORVON,IORVOFF)
  1. S IBI=0
  1. F LINE=LINE:1 S IBI=$O(^IBA(355.3,+IBCPOL,11,IBI)) Q:'IBI D SET(START+LINE,OFFSET," "_$E($G(^IBA(355.3,+IBCPOL,11,IBI,0)),1,80))
  1. D SET(START+LINE,OFFSET," ")
  1. S IBLCNT=$G(IBLCNT)+LINE
  1. Q
  1. ;
  1. BLANK(LINE) ; -- Build blank line
  1. D SET^VALM10(.LINE,$J("",90))
  1. Q
  1. ;
  1. SET(LINE,COL,TEXT,ON,OFF) ; -- set display info in array
  1. I '$D(@VALMAR@(LINE,0)) D BLANK(.LINE) S VALMCNT=$G(VALMCNT)+1
  1. D SET^VALM10(.LINE,$$SETSTR^VALM1(.TEXT,@VALMAR@(LINE,0),.COL,$L(TEXT)))
  1. D:$G(ON)]""!($G(OFF)]"") CNTRL^VALM10(.LINE,.COL,$L(TEXT),$G(ON),$G(OFF))
  1. W:'(LINE#5) "."
  1. Q
  1. ;
  1. HDR ; Active plan list header
  1. N IBCNS0,IBLEAD,X,X2
  1. S IBCNS0=$G(^DIC(36,+IBCNS,0))
  1. S IBLEAD=$S($G(IBIND):"All ",1:"")_$S($G(IBW):"",1:"Active ")_"Plans for: "_$P(IBCNS0,U)_" Insurance Company"
  1. S VALMHDR(1)=$$SETSTR^VALM1(IBLEAD,"",1,80)
  1. S X=$TR($J("",$L(IBLEAD)),""," ")
  1. S VALMHDR(2)=$$SETSTR^VALM1(X,"",$L(IBLEAD)+1,80)
  1. S X="#" I $G(IBIND) S X="# + => Indiv. Plan"
  1. I $G(IBW) S X=$E(X_$J("",23),1,23)_"* => Inactive Plan"
  1. S VALMHDR(3)=$$SETSTR^VALM1("Pre- Pre- Ben",X,64,17)
  1. Q
  1. ;