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

ABMDE2X5.m

Go to the documentation of this file.
  1. ABMDE2X5 ; IHS/ASDST/DMJ - PAGE 2 - Primary Insurer Check-CONT ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. ; IHS/SD/SDR - v2.5 p10 - IM21846
  1. ; Fix for <UNDEF>EXP+1^ABMDE2X5
  1. ;
  1. ; *********************************************************************
  1. ;
  1. EXP ;EP - Entry Point for setting billing parms
  1. S ABM("H")=$S($P($G(^ABMDPARM(DUZ(2),1,2)),U,9):$P(^(2),U,9),1:2)
  1. I '$D(ABMP("EXP")) D EXP^ABMDEVAR
  1. S $P(ABMV("X6"),U)=ABMP("EXP")
  1. I '$D(ABMP("FEE")) S ABMP("FEE")=$S($P(^ABMDPARM(DUZ(2),1,0),U,9)]"":$P(^(0),U,9),1:1)
  1. S ABMP("PX")=$S($P(ABMV("X6"),U,2)]"":$P(ABMV("X6"),U,2),1:"C"),$P(ABMV("X6"),U,2)=ABMP("PX")
  1. D PAGE^ABMDEVAR
  1. Q
  1. ;
  1. COV ;EP - Entry Point for setting Coverage Types
  1. Q:'$G(ABM("XIEN"))
  1. S ABMX=0
  1. S ABMP("COV")=""
  1. F S ABMX=$O(@(ABMP("GL")_"13,"_ABM("XIEN")_",11,"_ABMX_")")) Q:'ABMX S ABMP("COV")=$S(ABMP("COV")]"":ABMP("COV")_";"_ABMX,1:ABMX)
  1. Q