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

ABMDEERL.m

Go to the documentation of this file.
  1. ABMDEERL ; IHS/ASDST/DMJ - Error Claim Data Display ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. I '$D(IO),'$D(IOF),'$D(IOST) S IOP="HOME" D ^%ZIS
  1. CLM ;
  1. CLM2 K ABM,ABMP W !! K %P,DIR,DIC S DIR("A")="Select CLAIM or PATIENT",DIR(0)="FO^1:30",DIR("?")="Enter the Claim Data Number or the Patient's Name" D ^DIR K DIR
  1. G XIT:$D(DIRUT)
  1. K ABMP("MULT")
  1. CLMD S DIC="^ABMDCLM(DUZ(2),",DIC(0)="ZIE" D ^DIC K DIC
  1. I +Y>0 S ABMP("CDFN")=+Y
  1. G CLM2:+Y<1 S ABMP("CDFN")=+Y
  1. DFN S ABMP("PDFN")=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),0),U,1),ABMP("VTYP")=$P(^(0),U,7)
  1. S ABMP("BLK")="",(ABMP("REVON"),ABMP("REVOF"),ABMP("HI"),ABMP("NI"))="ABMP(""BLK"")"
  1. ;
  1. EXT K ABMD
  1. S ABMP("PG")=0,U="^",ABMP("HEAD2")="CLAIM DATA ERRORS"
  1. ZIS W !! S %ZIS("A")="Output DEVICE: ",%ZIS="QNP",%ZIS("B")="" D ^%ZIS G:POP XIT
  1. S ABMP("IOP")=ION G QUE:$D(IO("Q"))
  1. I IO'=IO(0),$E(IOST)'="C",'$D(IO("S")),$P($G(^ABMDPARM(DUZ(2),1,0)),U,13)="Y" W !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! G QUE
  1. G BEGIN
  1. QUE K IO("Q") I IO=IO(0) W !,"Cannot Queue to Screen or Slave Printer!",! G ZIS
  1. S ZTRTN="ENT^ABMDEERL",ZTDESC="3P BILLING CLAIM DATA ERROR DISPLAY" F ABM="ZTRTN","ZTDESC","ABMP(" S ZTSAVE(ABM)=""
  1. F ABM="IO","IOBS","IOF","IOM","ION","IOPAR","IOSL","IOST","IOST(","IOT" S ZTSAVE(ABM)=""
  1. D ^%ZTLOAD
  1. D ^%ZISC
  1. G CLM2
  1. ;
  1. ENT ;TaskMan Entry Point
  1. S IOP=ABMP("IOP")_";80" D ^%ZIS U IO
  1. S ABMD("QUEON")="",ABMP("QUEON")=""
  1. BEGIN S ABMD("CTR")=0
  1. U IO
  1. D ^ABMDEVAR
  1. S ABMP("ERROR LIST")=""
  1. S ABMP("GL")="^ABMDCLM(DUZ(2),"_ABMP("CDFN")_","
  1. D ERRIN^ABMDECK
  1. I IO'=IO(0)!($E(IOST)'="C") W $$EN^ABMVDF("IOF")
  1. D ^%ZISC
  1. I '$D(ABMP("QUEON")) G CLM
  1. ;
  1. XIT K ABMP,ABM,ABMD,POP,ZTSK,DIRUT,DTOUT,IO("Q"),DIR,DIRUT,DIQ
  1. Q