| 1 | IVMRNQ1 ;ALB/CPM - IVM CASE INQUIRY (CON'T) ; 16-JUN-94
|
|---|
| 2 | ;;2.0;INCOME VERIFICATION MATCH ;**13,17**; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | HDR ; Display inquiry header.
|
|---|
| 5 | N IVMS
|
|---|
| 6 | I $E(IOST,1,2)="C-"!(IVMPAG) W @IOF,*13
|
|---|
| 7 | S IVMPAG=IVMPAG+1
|
|---|
| 8 | W "IVM Case Inquiry",?28,IVMDAT,?70,"Page: ",IVMPAG,!,$TR($J("",79)," ","-")
|
|---|
| 9 | W !?5,"Name: ",$P(IVMNAM,"^"),?47,"Awaiting Trans: ",$S('$P(IVM0,"^",3):"YES",1:"NO")
|
|---|
| 10 | W !?6,"SSN: ",$P(IVMNAM,"^",2),?50,"Case Status: ",$S($P(IVM0,"^",4):"CLOSED",1:"OPEN")
|
|---|
| 11 | ;"5D" will return only the date with a 4 digit year.
|
|---|
| 12 | W !?1,"Inc Year: ",1700+$E(IVMYR,1,3),?39,"Full Transmission Sent: ",$S($P(IVM0,"^",5):$TR($$FMTE^XLFDT($P(IVM0,"^",5),"5DF")," ","0"),1:"**Not Sent**")
|
|---|
| 13 | W !?2,"MT/CT Date: ",$TR($$FMTE^XLFDT($P(IVMMT,"^",2),"5DF")," ","0")," (",$P(IVMMT,"^",3),")",!!,$TR($J("",80)," ","=")
|
|---|
| 14 | ;
|
|---|
| 15 | ; - display sub-header if case is closed
|
|---|
| 16 | I IVMPAG=1,$P(IVM0,"^",4) D
|
|---|
| 17 | .W !?4,"--- T H I S C A S E R E C O R D H A S B E E N C L O S E D ---",!
|
|---|
| 18 | .W !?2,"Closure Reason: " S IVMS=$$EXPAND^IVMUFNC(301.5,1.01,+IVM1) W $S($L(IVMS)>3:IVMS,1:"<UNKNOWN>")
|
|---|
| 19 | .W !?2,"Closure Source: " S IVMS=$$EXPAND^IVMUFNC(301.5,1.02,+$P(IVM1,"^",2)) W $S($L(IVMS)>3:IVMS,1:"<UNKNOWN>")
|
|---|
| 20 | .W !?4,"Closure Date: " S IVMS=$$FMTE^XLFDT($P(IVM1,"^",3)) W $S($L(IVMS)>3:IVMS,1:"<UNKNOWN>")
|
|---|
| 21 | .W !,$TR($J("",80)," ","=")
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | THDR ; Display transmission history header.
|
|---|
| 25 | W !!,"Means/Copay Test Transmission History:",!?56,"Transmitted As"
|
|---|
| 26 | W !?2,"Trans Date/Time",?25,"Status",?53,"MT/CT Cat",?67,"Had Ins?",!?2,$TR($J("",77)," ","-")
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | BHDR ; Display billing transmission history header.
|
|---|
| 30 | W !!,"Billing Transmission History:",!?37,"Amt",?46,"Amt"
|
|---|
| 31 | W !?2,"Bill Type",?14,"Bill From",?25,"Bill To",?36,"Billed",?46,"Coll",?54,"Canc?",?61,"Closed?",?69,"Last Trans"
|
|---|
| 32 | W !?2,$TR($J("",77)," ","-")
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | INS(X) ; Has any insurance been acted upon?
|
|---|
| 36 | ; Input: X -- Pointer to the case record in file #301.5
|
|---|
| 37 | ; Output: Zeroth node of multiple in #301.5 with ins. upload data
|
|---|
| 38 | N Y,Z S Z=""
|
|---|
| 39 | S Y=0 F S Y=$O(^IVM(301.5,+$G(X),"IN",Y)) Q:'Y S Z=$G(^(Y,0)) I $P(Z,"^",4)]"" Q
|
|---|
| 40 | Q Z
|
|---|
| 41 | ;
|
|---|
| 42 | CKUPL ; Any upload information to display?
|
|---|
| 43 | N IVMS,IVMS1
|
|---|
| 44 | K IVMTXT
|
|---|
| 45 | S IVMS=0 F S IVMS=$O(^IVM(301.5,"B",DFN,IVMS)) Q:'IVMS D
|
|---|
| 46 | .I $O(^IVM(301.5,"ASEG","PID",IVMS,0)) S IVMTXT(1)=""
|
|---|
| 47 | .I $O(^IVM(301.5,"ASEG","ZIV",IVMS,0)) S IVMTXT(2)=""
|
|---|
| 48 | .I $O(^IVM(301.5,"ASEG","IN1",IVMS,0)) S IVMTXT(3)=""
|
|---|
| 49 | .S IVMS1=$$INS(IVMS) I IVMS1]"" S IVMTXT(4,IVMS)=IVMS1
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | UPTXT ; Upload Text to display.
|
|---|
| 53 | ;;This patient has demographics which need to be uploaded.
|
|---|
| 54 | ;;This patient has SSNs which need to be uploaded.
|
|---|
| 55 | ;;This patient has insurance which needs to be uploaded.
|
|---|
