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

IBCNSP0.m

Go to the documentation of this file.
  1. IBCNSP0 ;ALB/AAS - INSURANCE MANAGEMENT - EXPANDED POLICY ; 05-MAR-1993
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;
  1. CONTACT ; -- Insurance Contact Information
  1. N OFFSET,START
  1. S START=22,OFFSET=42
  1. N IBTRC,IBTRCD,IBTCOD
  1. S IBTCOD=$O(^IBE(356.11,"ACODE",85,0))
  1. ;
  1. S IBTRC=0,IBTRCD=""
  1. F S IBTRC=$O(^IBT(356.2,"D",DFN,IBTRC)) Q:'IBTRC D
  1. .Q:$P($G(^IBT(356.2,+IBTRC,1)),"^",5)'=IBCDFN ; must be same policy
  1. .Q:$P($G(^IBT(356.2,+IBTRC,0)),"^",4)'=IBTCOD ; must be ins. ver. type
  1. .S IBTRCD=$G(^IBT(356.2,+IBTRC,0))
  1. .;S IBLCNT=IBLCNT+1
  1. .;D SET(START
  1. ;
  1. D SET(START,OFFSET," Insurance Contact (last) ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Person Contacted: "_$$EXPAND^IBTRE(356.2,.06,$P(IBTRCD,"^",6)))
  1. D SET(START+2,OFFSET,"Method of Contact: "_$$EXPAND^IBTRE(356.2,.17,$P(IBTRCD,"^",17)))
  1. D SET(START+3,OFFSET," Contact's Phone: "_$$EXPAND^IBTRE(356.2,.07,$P(IBTRCD,"^",7)))
  1. D SET(START+4,OFFSET," Call Ref. No.: "_$$EXPAND^IBTRE(356.2,.09,$P(IBTRCD,"^",9)))
  1. D SET(START+4,OFFSET," Contact Date: "_$$EXPAND^IBTRE(356.2,.01,$P(IBTRCD,"^")))
  1. Q
  1. ;
  1. POLICY ; -- Policy Region
  1. ; -- if pointer to policy file exists get data from policy file
  1. N OFFSET,START,IBP
  1. S START=1,OFFSET=2
  1. D SET(START,OFFSET," Plan Information ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Is Group Plan: "_$S($P(IBCPOLD,"^",2)=1:"YES",1:"NO"))
  1. D SET(START+2,OFFSET," Group Name: "_$P(IBCPOLD,"^",3))
  1. D SET(START+3,OFFSET," Group Number: "_$P(IBCPOLD,"^",4))
  1. D SET(START+4,OFFSET," Type of Plan: "_$P($G(^IBE(355.1,+$P(IBCPOLD,"^",9),0)),"^"))
  1. ; -- in case pointer is missing
  1. I '$G(^IBA(355.3,+$P(IBCDFND,"^",18),0)) D
  1. .D SET(START+1,OFFSET,"Insurance Number: "_$P(IBCDFND,"^",2))
  1. .D SET(START+2,OFFSET," Group Name: "_$P(IBCDFND,"^",15))
  1. .D SET(START+3,OFFSET," Group Number: "_$P(IBCDFND,"^",3))
  1. .Q
  1. Q
  1. ;
  1. INS ; -- Insurance Co. Region
  1. N OFFSET,START,IBADD,IBCDFNDA
  1. S START=1,OFFSET=45
  1. D SET(START,OFFSET," Insurance Company ",IORVON,IORVOFF)
  1. D SET(START+1,OFFSET," Company: "_$P($G(^DIC(36,+IBCDFND,0)),"^"))
  1. S IBCDFNDA=$G(^DIC(36,+IBCDFND,.11))
  1. G:IBCDFNDA="" INSQ
  1. D SET(START+2,OFFSET," Street: "_$P(IBCDFNDA,"^")) S IBADD=1
  1. I $P(IBCDFNDA,"^",2)'="" D SET(START+3,OFFSET," Street 2: "_$P(IBCDFNDA,"^",2)) S IBADD=2
  1. I $P(IBCDFNDA,"^",3)'="" D SET(START+4,OFFSET," Street 3: "_$P(IBCDFNDA,"^",3)) S IBADD=3
  1. D SET(START+2+IBADD,OFFSET,"City/State: "_$E($P(IBCDFNDA,"^",4),1,15)_$S($P(IBCDFNDA,"^",4)="":"",1:", ")_$P($G(^DIC(5,+$P(IBCDFNDA,"^",5),0)),"^",2)_" "_$E($P(IBCDFNDA,"^",6),1,5))
  1. ;
  1. INSQ Q
  1. ;
  1. BLANK(LINE) ; -- Build blank line
  1. D SET^VALM10(.LINE,$J("",80))
  1. Q
  1. ;
  1. SET(LINE,COL,TEXT,ON,OFF) ; -- set display info in array
  1. D:'$D(@VALMAR@(LINE,0)) BLANK(.LINE)
  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