| [613] | 1 | IBNCPDPC ;DALOI/SS - CLAIMS TRACKING EDITOR for ECME ;27-JUN-2005
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**276,339,363**;21-MAR-94;Build 35
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | % ; -- main entry point for IBT CLAIMS TRACKING EDIT
|
|---|
| 7 | ;DFN- patients IEN (file #2)
|
|---|
| 8 | ;IBECMEN - NCPDP/ECME number (last 7 digits of the IEN of file #52)
|
|---|
| 9 | ; that belong to this claim.
|
|---|
| 10 | ;ien in CLAIMS TRACKING file #356
|
|---|
| 11 | ;
|
|---|
| 12 | CT(DFN,IBECMEN,IBREFNUM) ;
|
|---|
| 13 | Q:$$PFSSON^IBNCPDPI() ;quit if PFSS is ON
|
|---|
| 14 | Q:'$G(DFN)
|
|---|
| 15 | Q:'$G(IBECMEN)
|
|---|
| 16 | N IBTRN
|
|---|
| 17 | S IBTRN=+$$SELCT(IBECMEN,IBREFNUM)
|
|---|
| 18 | I +IBTRN=0 D Q
|
|---|
| 19 | . W !,"There is no claims tracking record for this claim."
|
|---|
| 20 | . D PAUSE^VALM1
|
|---|
| 21 | D EN^VALM("IBNCPDP LSTMN CT")
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | EN ; -- main entry point for IBT EXPAND/EDIT TRACKING
|
|---|
| 25 | D EN^IBTRED
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | INIT ; -- init variables and list array
|
|---|
| 29 | D INIT^IBTRED
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | HELP ; -- help code
|
|---|
| 33 | D HELP^IBTRED
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | EXIT ; -- exit code
|
|---|
| 37 | D EXIT^IBTRED
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | BLANK(LINE) ; -- Build blank line
|
|---|
| 41 | D BLANK^IBTRED(.LINE)
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | ETYP(IBTRN) ; -- Expand type of epidose and date
|
|---|
| 45 | Q $$ETYP^IBTRED(IBTRN)
|
|---|
| 46 | ;
|
|---|
| 47 | ENCL(IBOE) ; -- output format of classifications
|
|---|
| 48 | Q $$ENCL^IBTRED(IBOE)
|
|---|
| 49 | ;
|
|---|
| 50 | SELCT(IBECMEN,IBREFNUM) ;
|
|---|
| 51 | N IBRET,IB356
|
|---|
| 52 | S (IB356,IBRET)=0
|
|---|
| 53 | F S IB356=+$O(^IBT(356,"AE",IBECMEN,IB356)) Q:((IB356=0)!(IBRET'=0)) D
|
|---|
| 54 | . I IBREFNUM=+$P($G(^IBT(356,IB356,0)),U,10) S IBRET=IB356
|
|---|
| 55 | Q +IBRET
|
|---|
| 56 | ;
|
|---|
| 57 | ;return RX info
|
|---|
| 58 | ;IBDFN - patient's DFN
|
|---|
| 59 | ;IBRX - ien in #52
|
|---|
| 60 | ;output in .PSOTMP array
|
|---|
| 61 | PSOCPVW(IBDFN,IBRX,PSOTMP) ;
|
|---|
| 62 | Q:($G(IBDFN)=0)!($G(IBRX)=0)
|
|---|
| 63 | K ^TMP($J,"IBNCPDP-RXINFO")
|
|---|
| 64 | D RX^PSO52API(IBDFN,"IBNCPDP-RXINFO",IBRX,"",0)
|
|---|
| 65 | S PSOTMP(52,+$P(IBTRND,"^",8),.01,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,.01))
|
|---|
| 66 | S PSOTMP(52,+$P(IBTRND,"^",8),7,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,7))
|
|---|
| 67 | S PSOTMP(52,+$P(IBTRND,"^",8),8,"E")=$G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,8))
|
|---|
| 68 | S PSOTMP(52,+$P(IBTRND,"^",8),6,"E")=$P($G(^TMP($J,"IBNCPDP-RXINFO",IBDFN,IBRX,6)),U,2)
|
|---|
| 69 | K ^TMP($J,"IBNCPDP-RXINFO")
|
|---|
| 70 | Q
|
|---|
| 71 | ;
|
|---|
