IBNCPDPC.m

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 ---IBNCPDPC   1712     printed  Apr 09, 2024@21:36:05                                                                                                                                                                                                    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      ;