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

ABMDE0X1.m

Go to the documentation of this file. 
  1. ABMDE0X1 ; IHS/ASDST/DMJ - Set Summary Display Variables ;  
  1.  ;;2.6;IHS 3P BILLING SYSTEM;**14,19,21**;NOV 12, 2009;Build 379
  1.  ;
  1.  ; IHS/DSD/LSL - 05/18/98 -  NOIS QBA-0598-130045
  1.  ;               Get error 004 - Claim has no charges or procedures to
  1.  ;               bill when items exist only on page 8J (Charge Master).
  1.  ;
  1.  ; IHS/SD/SDR - v2.5 p8 - task 6
  1.  ;    Added code for new ambulance multiple (47)
  1.  ;
  1.  ; IHS/SD/SDR - v2.6 CSV
  1.  ;IHS/SD/SDR - 2.6*14 - ICD10 008 - warning if Service Date cross over ICD10 EFFECTIVE DATE
  1.  ;IHS/SD/SDR - 2.6*19 - HEAT109144 - Made change to 72-hr check so it will work for error 255 as well as 191.
  1.  ;IHS/SD/SDR - 2.6*21 - VMBP RQMT_92 - Added warning 254 to page0 if active insurer has insurer type 'V' and
  1.  ;   there are entries in V Med file.
  1.  ;
  1.  ; *********************************************************************
  1.  I ABMP("PX")="C" D CPT
  1.  I ABMP("PX")="I" D PX
  1.  D 72
  1.  N I
  1.  F I=1:1 Q:'$D(ABM("P"_I))  S ABM("P"_I)=$TR(ABM("P"_I),"""","'")
  1.  S ABMP("SDF")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U)  ;abm*2.6*14 ICD10 008
  1.  S ABMP("SDT")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,2)  ;abm*2.6*14 ICD10 008
  1.  I (ABMP("ICD10")>ABMP("SDF"))&(ABMP("ICD10")<ABMP("SDT")) S ABME(249)=""  ;abm*2.6*14 ICD10 008
  1.  I ABMP("VDT")>ABMP("ICD10") S ABME(250)=""  ;abm*2.6*14 ICD10 008C
  1.  ;start new code abm*2.6*14 ICD10 027A
  1.  S ABM=0
  1.  F  S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),17,"C",ABM)) Q:'ABM  D
  1.  .S ABMI=0
  1.  .F  S ABMI=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),17,"C",ABM,ABMI)) Q:'ABMI  D
  1.  ..S ABMCS=+$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),17,ABMI,0),U,6)
  1.  ..S ABM("ABMCS",ABMCS)=+$G(ABM("ABMCS",ABMCS))+1
  1.  I ABMP("ICD10")>ABMP("VDT"),+$G(ABM("ABMCS",0))=0 S ABME(251)=""
  1.  I ABMP("ICD10")<ABMP("VDT"),+$G(ABM("ABMCS",1))=0 S ABME(251)=""
  1.  ;end new code ICD10 027A
  1.  I +$G(ABMVIEN)'=0,$D(^AUPNVMED("AD",ABMVIEN))&($$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMP("INS"),".211","I"),1,"I")="V") S ABME(254)=""  ;abm*2.6*21 VMBP RQMT_92
  1.  ;start new abm*2.6*21 IHS/SD/SDR VMBP RQMT_90
  1.  D FIND^DIC(9999999.18,"","@;.01;.211","CP","V","*",,"I $$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,Y,"".211"",""I""),1,""I"")=""V""","","ABMIL")
  1.  I +$O(ABMIL("DILIST",0))=0 S ABME(252)=""
  1.  ;end new abm*2.6*21 IHS/SD/SDR VMBP RQMT_90
  1.  Q
  1.  ;
  1.  ; *********************************************************************
  1. PX ;
  1.  S ABM=""
  1.  F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABM)) Q:ABM=""  D
  1.  .S Y=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABM,0))
  1.  .S ABMICD0=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,Y,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$ICDOP^ABMCVAPI(ABMICD0,ABMP("VDT")),U,5),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")
  1.  Q
  1.  ;
  1.  ; *********************************************************************
  1. CPT ;EP - Entry Point for setting up display array
  1.  S ABM=""
  1.  F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),21,"C",ABM)) Q:ABM=""  D
  1.  .S Y=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),21,"C",ABM,""))
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),21,Y,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")
  1.  S ABM=0
  1.  F ABM("I")=ABM("I"):1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),27,ABM)) Q:'ABM  D
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),27,ABM,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(+Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")-1
  1.  S ABM=0
  1.  F ABM("I")=ABM("I"):1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),35,ABM)) Q:'ABM  D
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),35,ABM,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")-1
  1.  S ABM=0
  1.  F ABM("I")=ABM("I"):1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),37,ABM)) Q:'ABM  D
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),37,ABM,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")-1
  1.  S ABM=0
  1.  F ABM("I")=ABM("I"):1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM)) Q:'ABM  D
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")-1
  1.  S ABM=0
  1.  F ABM("I")=ABM("I"):1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),43,ABM)) Q:'ABM  D
  1.  .S Y=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),43,ABM,0),U)
  1.  .S ABM("P"_ABM("I"))=$E($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3),1,34)  ;CSV-c
  1.  S ABM("CNT2")=ABM("CNT2")+ABM("I")-1
  1.  I '$D(ABM("P1")) D
  1.  .Q:$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),25,0))
  1.  .Q:$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),23,0))
  1.  .Q:$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),33,0))
  1.  .Q:$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),45,0))
  1.  .Q:$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),47,0))
  1.  .S ABME(4)=""
  1.  Q
  1. 72 ;check 72 hour rule
  1.  ;Q:'$$IN72H^ABMDVCK0(ABMP("CDFN"))  ;abm*2.6*19 IHS/SD/SDR HEAT109144
  1.  ;S ABME(191)=""  ;abm*2.6*19 IHS/SD/SDR HEAT109144
  1.  S ABM72=$$IN72H^ABMDVCK0(ABMP("CDFN"))  ;abm*2.6*19 IHS/SD/SDR HEAT109144
  1.  I ABM72=1 S ABME(191)=""  ;abm*2.6*19 IHS/SD/SDR HEAT109144
  1.  I ABM72=2 S ABME(255)=""  ;abm*2.6*19 IHS/SD/SDR HEAT109144
  1.  Q