- 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 Jan 18, 2025@03:25:54 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 ;