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

ABSPOSMI.m

Go to the documentation of this file. 
  1. ABSPOSMI ; IHS/SD/RLT - POS Claims not Passed to 3PB ;     [ 09/18/07  02:00 PM ]
  1.  ;;1.0;PHARMACY POINT OF SALE;**22,28**;SEP 18, 2007;Build 38
  1.  ;----------------------------------------------------------
  1.  ;IHS/OIT/SCR - 09/24/08 patch 28 - commented out to remove HOLD functionality introduced 
  1.  ;                                  by patch 22
  1.  ;----------------------------------------------------------
  1.  Q
  1.  ;----------------------------------------------------------
  1.  ;
  1.  ;EN ;EP
  1.  ;
  1.  ;K ^TMP("ABSPOSMI",$J)
  1.  ;W @IOF
  1.  ;W "Count of POS Claims not Passed to 3PB by Insurer",!
  1.  ;W !
  1.  ;N POP D ^%ZIS Q:$G(POP)
  1.  ;D GETDATA
  1.  ;U IO
  1.  ;D DISDATA
  1.  ;D ^%ZISC
  1.  ;K ^TMP("ABSPOSMI",$J)
  1.  ;Q
  1.  ;
  1.  ;GETDATA ;
  1.  ;N ABSPLOG,ABSPTYPE,ABSPIIEN,ABSPINS
  1.  ;S ABSPLOG=0
  1.  ;F  S ABSPLOG=$O(^ABSPHOLD(ABSPLOG)) Q:'+ABSPLOG  D
  1.  ;. S ABSPTYPE=$P($G(^ABSPHOLD(ABSPLOG,0)),U,2)
  1.  ;. S ABSPIIEN=""
  1.  ;. I ABSPTYPE="P" S ABSPIIEN=$P($G(^ABSPHOLD(ABSPLOG,"P")),U,8)
  1.  ;. I ABSPTYPE="R" S ABSPIIEN=$P($G(^ABSPHOLD(ABSPLOG,"R")),U,3)
  1.  ;. Q:ABSPIIEN=""
  1.  ;. S ABSPINS=$$GET1^DIQ(9999999.18,ABSPIIEN_",",.01)        ;name
  1.  ;. S $P(^TMP("ABSPOSMI",$J,ABSPINS,ABSPIIEN),U)=+$P($G(^TMP("ABSPOSMI",$J,ABSPINS,ABSPIIEN)),U)+1
  1.  ;. S $P(^TMP("ABSPOSMI",$J,"ZZZTOTAL",1),U)=+$P($G(^TMP("ABSPOSMI",$J,"ZZZTOTAL",1)),U)+1
  1.  ;Q
  1.  ;DISDATA ;
  1.  ;N DASHES
  1.  ;S $P(DASHES,"-",81)=""
  1.  ;N ABSPINS,ABSPIIEN,ABSPICNT
  1.  ;D HEADING
  1.  ;I '$D(^TMP("ABSPOSMI",$J)) D  Q
  1.  ;. W !,"No held 3PB claims found!"
  1.  ;. D ENDRPT^ABSPOSU5()
  1.  ;S ABSPINS=""
  1.  ;F  S ABSPINS=$O(^TMP("ABSPOSMI",$J,ABSPINS)) Q:ABSPINS=""  D
  1.  ;. S ABSPIIEN=0
  1.  ;. F  S ABSPIIEN=$O(^TMP("ABSPOSMI",$J,ABSPINS,ABSPIIEN)) Q:'+ABSPIIEN  D
  1.  ;.. S ABSPICNT=$G(^TMP("ABSPOSMI",$J,ABSPINS,ABSPIIEN))
  1.  ;.. I ABSPINS="ZZZTOTAL" D
  1.  ;... W !,?60,"=========="
  1.  ;... W !,"TOTAL",?60,$J(ABSPICNT,10)
  1.  ;.. E  W !,ABSPINS," (`",ABSPIIEN,")",?60,$J(ABSPICNT,10)
  1.  ;.. I $$EOPQ^ABSPOSU8(3,,"D HEADING^"_$T(+0)) S ABSPINS="ZZZZZ"
  1.  ;D ENDRPT^ABSPOSU5()
  1.  ;W @IOF
  1.  ;Q
  1.  ;HEADING ;
  1.  ;W @IOF
  1.  ;N RPTDATE S RPTDATE=$$NOWEXT^ABSPOSU1
  1.  ;W "Count of POS Claims not Passed to 3PB by Insurer (",$T(+0),")",?60,RPTDATE
  1.  ;W !!,"Insurer",?60,"Count"
  1.  ;W !,DASHES
  1.  ;Q