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

ABMDE5D.m

Go to the documentation of this file. 
  1. ABMDE5D ; IHS/ASDST/DMJ - Edit Page 5 - ICD PROCEDURE VIEW ; 
  1.  ;;2.6;IHS 3P BILLING SYSTEM;**10,14,19**;NOV 12, 2009;Build 300
  1.  ;
  1.  ;IHS/DED/DMJ - 5/12/1999 - NOIS HQW-0599-100027
  1.  ;      Changed mm/dd DOS display to full Charge Date
  1.  ;
  1.  ; IHS/SD/SDR - v2.6 CSV
  1.  ;IHS/SD/SDR - 2.6*14 - ICD10 - ICD10 changes
  1.  ;IHS/SD/SDR - 2.6*19 - HEAT239182 - Updated so only ICD9 or only ICD10 can be selected on a claim based on the DOS and the ICD10 effective date
  1.  ;
  1. DISP2 ;EP - Entry Point to Display Dx Info
  1.  K ABMZ S ABMZ("TITL")="ICD PROCEDURES",ABMZ("PG")="5B"
  1.  D B^ABMDE5X
  1.  I $D(ABMP("DDL")),$Y>(IOSL-9) D PAUSE^ABMDE1 G:$D(DUOUT)!$D(DTOUT)!$D(DIROUT) XIT I 1
  1.  E  D SUM^ABMDE1
  1.  ;
  1. PROC ; ICD Procedure Info
  1.  S ABMZ("SUB")=19,ABMZ("ITEM")="Procedure",ABMZ("DIC")="^ICD0("
  1.  ;start new abm*2.6*19 IHS/SD/SDR HEAT239182
  1.  I ABMP("ICD10")>ABMP("VDT") S ABMZ("DICS")="I $P($$ICDOP^ABMCVAPI(+Y,ABMP(""VDT"")),U,15)'=31"
  1.  E  S ABMZ("DICS")="I $P($$ICDOP^ABMCVAPI(+Y,ABMP(""VDT"")),U,15)=31"
  1.  ;end new abm*2.6*19 IHS/SD/SDR HEAT239182
  1.  S ABMZ("X")="DINUM"
  1.  S ABMZ("DR")=";W !;.03//"_ABMP("VISTDT")
  1.  S ABMZ("NARR")=";.04////"_U_4_U_5
  1.  D HD2 G LOOP2
  1. HD2 ;
  1.  W !,"ICD Indicator for "_$$GET1^DIQ(9999999.18,ABMP("INS"),".01","E")_" : "  ;abm*2.6*14 ICD10 002H
  1.  W $S(ABMP("ICD10")>ABMP("VDT"):"ICD-9",1:"ICD-10"),!  ;abm*2.6*14 ICD10 002H
  1.  ;W !,"BIL",?4,"SERV",?12,"ICD0"  ;abm*2.6*10 ICD10 002H
  1.  W !,"BIL",?4,"SERV",?16,"ICD"  ;abm*2.6*10 ICD10 002H
  1.  ;W !,"SEQ",?4,"DATE",?12,"CODE -",?19,"PROCEDURE DESCRIPTION",?54,"PROVIDER'S NARRATIVE"  ;abm*2.6*10 ICD10 002H
  1.  W !,"SEQ",?4,"DATE",?11,"IND",?16,"CODE -",?23,"PROCEDURE DESCRIPTION",?56,"PROVIDER'S NARRATIVE"  ;abm*2.6*10 ICD10 002H
  1.  ;W !,"===",?4,"=====",?11,"===================================",?48,"================================"  ;abm*2.6*10 ICD10 002H
  1.  W !,"===",?4,"=====",?11,"===",?16,"===================================",?52,"============================"  ;abm*2.6*10 ICD10 002H
  1.  Q
  1. LOOP2 ;LOOP 2
  1.  ;start old code abm*2.6*14 ICD10 002H
  1.  ;S (ABMZ("LNUM"),ABMZ("NUM"),ABMZ(1))=0,ABM=0
  1.  ;F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABM)) Q:'ABM!($D(DIROUT))!($D(DTOUT))!($D(DUOUT))  D
  1.  ;.S ABM("X")=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABM,0))
  1.  ;.S ABMZ("NUM")=ABM("I")
  1.  ;.D PX
  1.  ;G XIT:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)
  1.  ;S ABM("L")=ABMZ("LNUM")+1,ABMZ("DR2")=";.02////"_ABM("L")
  1.  ;I +$O(ABME(0)) S ABME("CONT")="" D ^ABMDERR K ABME("CONT")
  1.  ;end old start new code abm*2.6*14 ICD10 002H
  1.  ;this will remove codes from page 5B if the code set on the sequenced codes doesn't match the code set for the insurer
  1.  ;manual claims will be a problem (because it will delete everything), but for a PCC claim all POVs will be viewable on
  1.  ;the View option of page5B
  1.  S ABMI=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",0))
  1.  I +ABMI'=0 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABMI,0))
  1.  I (+$G(ABM)'=0) D
  1.  .S ABMICDI=+$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,ABM,0)),U,6)
  1.  .I (ABMICDI=1&(ABMP("ICD10")>ABMP("VDT")))!((ABMICDI=0)&(ABMP("ICD10")<ABMP("VDT"))) D
  1.  ..;remove all entries
  1.  ..K ^ABMDCLM(DUZ(2),ABMP("CDFN"),ABMZ("SUB")) S ^ABMDCLM(DUZ(2),ABMP("CDFN"),ABMZ("SUB"),0)="^9002274.30"_ABMZ("SUB")_"P^^"
  1.  ..D B^ABMDE5X
  1.  ;end new code ICD10 002H
  1.  S (ABMZ("LNUM"),ABMZ("NUM"),ABMZ(1))=0,ABM=0
  1.  S ABM=""
  1.  F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,"C",ABM)) Q:'ABM  S ABM("X")=$O(^(ABM,"")),ABMZ("NUM")=ABM("I") D PX
  1.  S ABM("L")=ABMZ("LNUM")+1,ABMZ("DR2")=";.02////"_ABM("L")
  1.  I +$O(ABME(0)) S ABME("CONT")="" D ^ABMDERR K ABME("CONT")
  1.  ;end new code ICD10 002H
  1.  Q
  1. PX ;
  1.  S ABM("X0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),19,ABM("X"),0)
  1.  S ABM("ICD0IEN")=$P(ABM("X0"),U)
  1.  ;Q:'$D(^ICD0(ABM("ICD0IEN"),0))  S ABMZ(ABM("I"))=$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)_U_ABM("X")_U_$P(ABM("X0"),U)_U_$P(ABM("X0"),U,3)_U_$P(ABM("X0"),U,4)  ;CSV-c  ;abm*2.6*14 ICD10 002H
  1.  Q:'$D(^ICD0(ABM("ICD0IEN"),0))  S ABMZ(ABM("I"))=$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)_U_ABM("X")_U_$P(ABM("X0"),U)_U_$P(ABM("X0"),U,3)_U_$P(ABM("X0"),U,4)_U_U_$P(ABM("X0"),U,6)  ;CSV-c  ;abm*2.6*14 ICD10 002H
  1.  I $Y>(IOSL-5) D PAUSE^ABMDE1 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)  D HD2
  1.  ;S ABM("Y")=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,ABM("X"),0),U,3) S:ABMZ("LNUM")<$P(^(0),U,2) ABMZ("LNUM")=$P(^(0),U,2) I $D(^(1)),$P(^ABMDPARM(DUZ(2),1,0),U,14)="Y" S ABMU("TXT")=$$ICDDX^ABMCVAPI(ABM("X"),ABMP("VDT"))  ;CSV-c  ;abm*2.6*14
  1.  S ABM("Y")=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,ABM("X"),0),U,3) S:ABMZ("LNUM")<$P(^(0),U,2) ABMZ("LNUM")=$P(^(0),U,2) I $D(^(1)),$P(^ABMDPARM(DUZ(2),1,0),U,14)="Y" S ABMU("TXT")=$$ICDDX^ABMCVAPI(+ABM("X"),ABMP("VDT"))  ;CSV-c ;abm*2.6*14 +'d
  1.  E  S ABMU("TXT")=$P($$DX^ABMCVAPI(+ABM("X"),ABMP("VDT")),U,4)  ;CSV-c
  1.  W !,$J(ABM("I"),2),?4,"CHARGE DATE: ",$$SDT^ABMDUTL(ABM("Y"))
  1.  W !,?12,$S($P(ABM("X0"),U,6)=1:"10",1:"9")  ;abm*2.6*14 ICD10 002H
  1.  ;W !,?11,$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)," -" I $D(^(1)),$P(^ABMDPARM(DUZ(2),1,0),U,14)="Y" S ABMU("TXT")=$P($$ICDDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U)  ;CSV-c  ;abm*2.6*10 ICD10 002H
  1.  ;W !,?16,$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)," -" I $D(^(1)),$P(^ABMDPARM(DUZ(2),1,0),U,14)="Y" S ABMU("TXT")=$P($$ICDDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U)  ;CSV-c  ;abm*2.6*10 ICD10 002H  ;abm*2.6*14 ICD10 002H
  1.  W ?16,$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)," -"  ;abm*2.6*14 ICD10 002H
  1.  ;E  S ABMU("TXT")=$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,5)  ;CSV-c  ;ABM*2.6*14 ICD10 002H
  1.  S ABMU("TXT")=$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,5) ;abm*2.6*14 ICD10 002H
  1.  ;S ABMU("LM")=19,ABMU("RM")=46,ABMU("TAB")=5  ;abm*2.6*10 ICD10 002H
  1.  S ABMU("LM")=22,ABMU("RM")=50,ABMU("TAB")=5  ;abm*2.6*10 ICD10 002H
  1.  ;S ABMU("2TXT")=$S($P(ABM("X0"),U,4)]"":$P($G(^AUTNPOV($P(ABM("X0"),U,4),0)),U),1:""),ABMU("2TAB")=-2,ABMU("2LM")=48,ABMU("2RM")=80  ;abm*2.6*10 ICD10 002H
  1.  S ABMU("2TXT")=$S($P(ABM("X0"),U,4)]"":$P($G(^AUTNPOV($P(ABM("X0"),U,4),0)),U),1:""),ABMU("2TAB")=-2,ABMU("2LM")=52,ABMU("2RM")=80  ;abm*2.6*10 ICD10 002H
  1.  D ^ABMDWRAP
  1.  Q
  1.  ;
  1. XIT K ABME
  1.  Q