IBNCPDPC ;DALOI/SS - CLAIMS TRACKING EDITOR for ECME ;3/6/08 16:17
;;2.0;INTEGRATED BILLING;**276,339,363,384,435**;21-MAR-94;Build 27
;;Per VHA Directive 2004-038, this routine should not be modified.
;
CT(IBRXIEN,IBRXFIL) ; look up CT entry and call CT listman
; entry point for DBIA# 4693
; Input: IBRXIEN - internal Rx ien
; IBRXFIL - fill#
;
N IBTRN,DFN
S IBTRN=+$O(^IBT(356,"ARXFL",+$G(IBRXIEN),+$G(IBRXFIL),0))
I 'IBTRN D Q
. W !,"There is no Claims Tracking record for this prescription/fill."
. D PAUSE^VALM1
. Q
;
S DFN=+$P($G(^IBT(356,IBTRN,0)),U,2)
D EN^VALM("IBNCPDP LSTMN CT")
Q
;
EN ; -- main entry point for IBT EXPAND/EDIT TRACKING
D EN^IBTRED
Q
;
INIT ; -- init variables and list array
D INIT^IBTRED
Q
;
HELP ; -- help code
D HELP^IBTRED
Q
;
EXIT ; -- exit code
D EXIT^IBTRED
Q
;
BLANK(LINE) ; -- Build blank line
D BLANK^IBTRED(.LINE)
Q
;
ETYP(IBTRN) ; -- Expand type of epidose and date
Q $$ETYP^IBTRED(IBTRN)
;
ENCL(IBOE) ; -- output format of classifications
Q $$ENCL^IBTRED(IBOE)
;
PSOCPVW(IBDFN,IBRX,PSOTMP) ; return RX info
; IBDFN - patient's DFN
; IBRX - ien in #52
; output in .PSOTMP array
;
Q:($G(IBDFN)=0)!($G(IBRX)=0)
K ^TMP($J,"IBNCPDP-RXINFO")
D RX^PSO52API(IBDFN,"IBNCPDP-RXINFO",IBRX,"",0)
S PSOTMP(52,+$P(IBTRND,"^",8),.01,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,.01))
S PSOTMP(52,+$P(IBTRND,"^",8),7,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,7))
S PSOTMP(52,+$P(IBTRND,"^",8),8,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,8))
S PSOTMP(52,+$P(IBTRND,"^",8),6,"E")=$P($G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,6)),U,2)
K ^TMP($J,"IBNCPDP-RXINFO")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBNCPDPC 1712 printed Dec 13, 2024@02:24:42 Page 2
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
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
CT(IBRXIEN,IBRXFIL) ; look up CT entry and call CT listman
+1 ; entry point for DBIA# 4693
+2 ; Input: IBRXIEN - internal Rx ien
+3 ; IBRXFIL - fill#
+4 ;
+5 NEW IBTRN,DFN
+6 SET IBTRN=+$ORDER(^IBT(356,"ARXFL",+$GET(IBRXIEN),+$GET(IBRXFIL),0))
+7 IF 'IBTRN
Begin DoDot:1
+8 WRITE !,"There is no Claims Tracking record for this prescription/fill."
+9 DO PAUSE^VALM1
+10 QUIT
End DoDot:1
QUIT
+11 ;
+12 SET DFN=+$PIECE($GET(^IBT(356,IBTRN,0)),U,2)
+13 DO EN^VALM("IBNCPDP LSTMN CT")
+14 QUIT
+15 ;
EN ; -- main entry point for IBT EXPAND/EDIT TRACKING
+1 DO EN^IBTRED
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 DO INIT^IBTRED
+2 QUIT
+3 ;
HELP ; -- help code
+1 DO HELP^IBTRED
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 DO EXIT^IBTRED
+2 QUIT
+3 ;
BLANK(LINE) ; -- Build blank line
+1 DO BLANK^IBTRED(.LINE)
+2 QUIT
+3 ;
ETYP(IBTRN) ; -- Expand type of epidose and date
+1 QUIT $$ETYP^IBTRED(IBTRN)
+2 ;
ENCL(IBOE) ; -- output format of classifications
+1 QUIT $$ENCL^IBTRED(IBOE)
+2 ;
PSOCPVW(IBDFN,IBRX,PSOTMP) ; return RX info
+1 ; IBDFN - patient's DFN
+2 ; IBRX - ien in #52
+3 ; output in .PSOTMP array
+4 ;
+5 if ($GET(IBDFN)=0)!($GET(IBRX)=0)
QUIT
+6 KILL ^TMP($JOB,"IBNCPDP-RXINFO")
+7 DO RX^PSO52API(IBDFN,"IBNCPDP-RXINFO",IBRX,"",0)
+8 SET PSOTMP(52,+$PIECE(IBTRND,"^",8),.01,"E")=$GET(^TMP($JOB,"IBNCPDP-RXINFO",IBDFN,IBRX,.01))
+9 SET PSOTMP(52,+$PIECE(IBTRND,"^",8),7,"E")=$GET(^TMP($JOB,"IBNCPDP-RXINFO",IBDFN,IBRX,7))
+10 SET PSOTMP(52,+$PIECE(IBTRND,"^",8),8,"E")=$GET(^TMP($JOB,"IBNCPDP-RXINFO",IBDFN,IBRX,8))
+11 SET PSOTMP(52,+$PIECE(IBTRND,"^",8),6,"E")=$PIECE($GET(^TMP($JOB,"IBNCPDP-RXINFO",IBDFN,IBRX,6)),U,2)
+12 KILL ^TMP($JOB,"IBNCPDP-RXINFO")
+13 QUIT
+14 ;
