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

IBNCPDPC.m

Go to the documentation of this file.
  1. IBNCPDPC ;DALOI/SS - CLAIMS TRACKING EDITOR for ECME ;3/6/08 16:17
  1. ;;2.0;INTEGRATED BILLING;**276,339,363,384,435**;21-MAR-94;Build 27
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. CT(IBRXIEN,IBRXFIL) ; look up CT entry and call CT listman
  1. ; entry point for DBIA# 4693
  1. ; Input: IBRXIEN - internal Rx ien
  1. ; IBRXFIL - fill#
  1. ;
  1. N IBTRN,DFN
  1. S IBTRN=+$O(^IBT(356,"ARXFL",+$G(IBRXIEN),+$G(IBRXFIL),0))
  1. I 'IBTRN D Q
  1. . W !,"There is no Claims Tracking record for this prescription/fill."
  1. . D PAUSE^VALM1
  1. . Q
  1. ;
  1. S DFN=+$P($G(^IBT(356,IBTRN,0)),U,2)
  1. D EN^VALM("IBNCPDP LSTMN CT")
  1. Q
  1. ;
  1. EN ; -- main entry point for IBT EXPAND/EDIT TRACKING
  1. D EN^IBTRED
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. D INIT^IBTRED
  1. Q
  1. ;
  1. HELP ; -- help code
  1. D HELP^IBTRED
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D EXIT^IBTRED
  1. Q
  1. ;
  1. BLANK(LINE) ; -- Build blank line
  1. D BLANK^IBTRED(.LINE)
  1. Q
  1. ;
  1. ETYP(IBTRN) ; -- Expand type of epidose and date
  1. Q $$ETYP^IBTRED(IBTRN)
  1. ;
  1. ENCL(IBOE) ; -- output format of classifications
  1. Q $$ENCL^IBTRED(IBOE)
  1. ;
  1. PSOCPVW(IBDFN,IBRX,PSOTMP) ; return RX info
  1. ; IBDFN - patient's DFN
  1. ; IBRX - ien in #52
  1. ; output in .PSOTMP array
  1. ;
  1. Q:($G(IBDFN)=0)!($G(IBRX)=0)
  1. K ^TMP($J,"IBNCPDP-RXINFO")
  1. D RX^PSO52API(IBDFN,"IBNCPDP-RXINFO",IBRX,"",0)
  1. S PSOTMP(52,+$P(IBTRND,"^",8),.01,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,.01))
  1. S PSOTMP(52,+$P(IBTRND,"^",8),7,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,7))
  1. S PSOTMP(52,+$P(IBTRND,"^",8),8,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,8))
  1. S PSOTMP(52,+$P(IBTRND,"^",8),6,"E")=$P($G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,6)),U,2)
  1. K ^TMP($J,"IBNCPDP-RXINFO")
  1. Q
  1. ;