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

ABMDE2A.m

Go to the documentation of this file. 
  1. ABMDE2A ; IHS/SD/SDR - PAGE 2 - INSURER VIEW OPTION ;  
  1.  ;;2.6;IHS 3P BILLING SYSTEM;**21,26,27**;NOV 12, 2009;Build 486
  1.  ;
  1.  ;IHS/SD/SDR V2.5 P2 4/17/02 - NOIS NEA-0401-180046 - Modified to include coverage
  1.  ;    type in claim editor for the insurer view portion
  1.  ;
  1.  ;IHS/SD/SDR v2.5 p8 task 8 - Added code to look for replacement insurer
  1.  ;IHS/SD/SDR v2.5 p9 IM18938 - Added RATE CODE to display
  1.  ;IHS/SD/SDR v2.5 p12 UFMS - Added display of TIN
  1.  ;
  1.  ;IHS/SD/SDR 2.6*21 VMBP RQMT_109 - Updated View option for VAMB Eligible data
  1.  ;IHS/SD/SDR 2.6*26 CR9264 Updated Page 2 View to for MBI with default to HICN for Medicare
  1.  ;IHS/SD/SDR 2.6*27 CR10170 Fixed so insurer info and errors display correctly when replacement insurer is being used
  1.  ;
  1.  ; *********************************************************************
  1.  ;
  1. V1 ; view
  1.  I $E(Y,2)>0&($E(Y,2)<(ABMZ("NUM")+1)) D  G V2
  1.  .S Y=$E(Y,2)
  1.  I ABMZ("NUM")=1 D  G V2
  1.  .S Y=1
  1.  K DIR
  1.  S DIR(0)="NO^1:"_ABMZ("NUM")_":0"
  1.  S DIR("?")="Enter the Sequence Number of "_ABMZ("ITEM")_" to View"
  1.  S DIR("A")="Sequence Number to VIEW"
  1.  D ^DIR
  1.  K DIR
  1.  G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(+Y'>0)
  1.  ;
  1. V2 ;
  1.  S Y=$P(ABMZ(+Y),U,3)
  1.  S ABM("XIEN")=+Y
  1.  S ABMP("GL")="^ABMDCLM(DUZ(2),"_ABMP("CDFN")_","
  1.  ;S Y=$S($P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,+Y,0),U,11)'="":$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,+Y,0),U,11),1:$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,+Y,0),U))  ;abm*2.6*27 IHS/SD/SDR CR10170
  1.  S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,+Y,0),U)  ;abm*2.6*27 IHS/SD/SDR CR10170
  1.  D SEL^ABMDE2X
  1.  S ABMZ("TITL")="INSURER - VIEW OPTION"
  1.  D SUM^ABMDE1
  1.  S ABMV="",$P(ABMV,"-",80)=""
  1.  ;W !,"Insurer..: ",$E($P($P(ABMV("X1"),U),";",2),1,30)  ;abm*2.6*27 IHS/SD/SDR CR10170
  1.  S ABMT("INS")=$S($P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,+ABM("XIEN"),0),U,11)'="":$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("XIEN"),0),U,11),1:$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("XIEN"),0),U))  ;abm*2.6*27 IHS/SD/SDR CR10170
  1.  W !,"Insurer..: ",$E($P($G(^AUTNINS(ABMT("INS"),0)),U),1,30)  ;abm*2.6*27 IHS/SD/SDR CR10170
  1.  W ?45,"Phone....: ",$P(ABMV("X1"),U,2)
  1.  W !,"Prov. No.: ",$P(ABMV("X1"),U,7)
  1.  W ?45,"Contact..: ",$E($P(ABMV("X1"),U,3),1,24)
  1.  W !,"TIN......: ",$P($G(^AUTNINS($P(ABMV("X1"),";"),0)),U,11)
  1.  S ABMPRI=0,ABMPFLG=0
  1.  F  S ABMPRI=$O(ABML(ABMPRI)) Q:+ABMPRI=0!($G(ABMPFLG)=1)!($G(ABMPFLG)=2)  D  Q:($G(ABMPFLG)=1)!($G(ABMPFLG)=2)
  1.  .I $G(ABML(ABMPRI,Y))'="",(ABMPRI>97) S ABMPFLG=1
  1.  .I $G(ABML(ABMPRI,Y))'="" S ABMPFLG=2
  1.  I $G(ABMPFLG)=1 W !,"*UNBILLABLE* for reason ",$P($G(^ABMDCS($P($G(ABML(ABMPRI,Y)),U,6),0)),U)
  1.  I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("XIEN"),0)),U,11)'="" D
  1.  .W !?5,"**This insurer replaces "
  1.  .W $P($G(^AUTNINS($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),13,ABM("XIEN"),0)),U),0)),U)
  1.  .W " for this claim only!"
  1.  W !,ABMV
  1.  ;W !,$S($P($P(ABMV("X1"),U),";",2)="MEDICARE":"HIC Number.......: ",1:"Policy Number....: "),$P(ABMV("X1"),U,4)  ;abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  ;start new abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  ;W !,$S($P($P(ABMV("X1"),U),";",2)="MEDICARE":"HIC Number....: ",$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,+ABMV("X1"),".211","I"),1,"I")="V":"VMBP Enrollment Number..: ",1:"Policy Number...: "),$P(ABMV("X1"),U,4)  ;abm*2.6*26 CR9264
  1.  ;start new abm*2.6*26 IHS/SD/SDR CR9264
  1.  W !
  1.  W $S($P($P(ABMV("X1"),U),";",2)="MEDICARE":"Medicare Number....: ",$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,+ABMV("X1"),".211","I"),1,"I")="V":"VMBP Enrollment Number..: ",1:"Policy Number...: ")
  1.  W $P(ABMV("X1"),U,4)
  1.  ;end new abm*2.6*26 IHS/SD/SDR CR9264
  1.  ;end new abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  I $P($G(ABMV("X1")),U,13)'="" W ?45,"Rate Code.......:",$P($G(ABMV("X1")),U,13)
  1.  I ABMV("X2")="" G ERR
  1.  ;start old code abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  ;W !,"Group Name.......: ",$P(ABMV("X3"),U,6)
  1.  ;W ?45,"Group Number....: ",$P(ABMV("X3"),U,7)
  1.  ;end old start new abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  I $$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,+ABMV("X1"),".211","I"),1,"I")'="V" D
  1.  .W !,"Group Name.......: ",$P(ABMV("X3"),U,6)
  1.  .W ?45,"Group Number....: ",$P(ABMV("X3"),U,7)
  1.  ;end new abm*2.6*21 IHS/SD/SDR VMBP RQMT_109
  1.  S ABMCOV=""
  1.  F  S ABMCOV=$O(ABMP("COV",ABMCOV)) Q:ABMCOV=""  D
  1.  .S ABMEDT=$P(ABMP("COV",ABMCOV),U)
  1.  .S ABMEEDT=$P(ABMP("COV",ABMCOV),U,2)
  1.  .W !,?3,"Elig dt: ",$$SDT^ABMDUTL(ABMEDT),?30,"Elig end dt: ",$$SDT^ABMDUTL(ABMEEDT)
  1.  .W ?55,"Coverage: ",$E(ABMCOV,1,24)
  1.  W !,ABMV
  1.  W !,"Policy Holder.: ",$P($P(ABMV("X2"),U),";",2)
  1.  W ?48,"Relationship..: ",$P($P(ABMV("X2"),U,2),";",2)
  1.  W !?16,$P(ABMV("X2"),U,3)
  1.  W ?48,"Home Phone....: ",$P(ABMV("X2"),U,5)
  1.  W !?16,$P(ABMV("X2"),U,4)
  1.  W !!?3,"Employer...: ",$P(ABMV("X3"),U)
  1.  W ?48,"Empl. Status..: ",$P($P(ABMV("X3"),U,5),";",2)
  1.  W !?16,$P(ABMV("X3"),U,2)
  1.  W ?48,"Work Phone....: ",$P(ABMV("X3"),U,4)
  1.  W !?16,$P(ABMV("X3"),U,3)
  1.  ;
  1. ERR ;
  1.  D ^ABMDERR
  1.  W !
  1.  S ABM("Y")=+Y
  1.  ;
  1. XIT ;
  1.  K ABM
  1.  Q