| 1 | IBCOMN1 ;ALB/CMS - PATIENTS NO COVERAGE VERIFIED REPORT (CON'T); 10-09-98
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**103**;21-MAR-94
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | BEG ; Entry to run Patients w/no Coverage Verification Report
|
|---|
| 6 | ; Input variables:
|
|---|
| 7 | ; IBAIB - Required. How to sort
|
|---|
| 8 | ; 1= Patient Name Range 2= Termianl Digit Range
|
|---|
| 9 | ;
|
|---|
| 10 | ; IBRF - Required. Name or Terminal Digit Range Start value
|
|---|
| 11 | ; IBRL - Required. Name or Terminal Digit Range Go to value
|
|---|
| 12 | ; IBBDT - Required. Begining Verification Date Range
|
|---|
| 13 | ; IBEDT - Required. Ending Verification Date Range
|
|---|
| 14 | ;
|
|---|
| 15 | N DFN,IBDT,IBGP,IBI,IBQUIT,IBPAGE,IBTMP,IBTD,IBX,VA,VADM,VAERR,X,Y
|
|---|
| 16 | K ^TMP("IBCOMN",$J) S IBPAGE=0,IBQUIT=0
|
|---|
| 17 | S IBDT=IBBDT F S IBDT=$O(^IBA(354,"AVDT",IBDT)) Q:('IBDT)!(IBDT>IBEDT) D
|
|---|
| 18 | .S DFN=0 F S DFN=$O(^IBA(354,"AVDT",IBDT,DFN)) Q:'DFN D
|
|---|
| 19 | ..K VA,VADM,VAERR,VAPA
|
|---|
| 20 | ..D DEM^VADPT,ADD^VADPT
|
|---|
| 21 | ..;
|
|---|
| 22 | ..; I Pt. name out of range quit
|
|---|
| 23 | ..S VADM(1)=$P($G(VADM(1)),U,1) I VADM(1)="" Q
|
|---|
| 24 | ..I IBAIB=1,VADM(1)]IBRL Q
|
|---|
| 25 | ..I IBAIB=1,IBRF]VADM(1) Q
|
|---|
| 26 | ..;
|
|---|
| 27 | ..; I Terminal Digit out of range quit
|
|---|
| 28 | ..I IBAIB=2 S IBTD=$$TERMDG^IBCONS2(DFN) I (+IBTD>IBRL)!(IBRF>+IBTD) Q
|
|---|
| 29 | ..;
|
|---|
| 30 | ..; set data line, set global * if deceased
|
|---|
| 31 | ..;S IBTMP=PT NAME^SSN^AGE^DOB^HOME PHONE^VERIFICATION NO COV
|
|---|
| 32 | ..S IBTMP=$S($G(VADM(6)):"*",1:"")_VADM(1)_U_$P($P(VADM(2),U,2),"-",3)_U_+VADM(4)_U_$$FMTE^XLFDT(VADM(3),"5ZD")_U_$P(VAPA(8),U,1)_U_$$FMTE^XLFDT(IBDT,"5ZD")
|
|---|
| 33 | ..S ^TMP("IBCOMN",$J,$S(IBAIB=2:IBTD,1:VADM(1)),DFN)=IBTMP
|
|---|
| 34 | ..;
|
|---|
| 35 | ;
|
|---|
| 36 | I '$D(^TMP("IBCOMN",$J)) D HD W !!,"** NO RECORDS FOUND **" G QUEQ
|
|---|
| 37 | D HD,WRT
|
|---|
| 38 | ;
|
|---|
| 39 | QUEQ ; Exit clean-UP
|
|---|
| 40 | W ! D ^%ZISC K IBTMP,IBAIB,IBRF,IBRL,VA,VAERR,VADM,VAPA,^TMP("IBCOMN",$J)
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | HD ;Write Heading
|
|---|
| 44 | S IBPAGE=IBPAGE+1
|
|---|
| 45 | W @IOF,!,"Patients w/No Coverage Verification Date Report",?50,$$FMTE^XLFDT($$NOW^XLFDT,"Z"),?70," Page ",IBPAGE
|
|---|
| 46 | W !,?5,"Verification Date Range: "_$$FMTE^XLFDT(IBBDT,"Z")_" to "_$$FMTE^XLFDT(IBEDT,"Z")
|
|---|
| 47 | W !,?5," Sorted by: "_$S(IBAIB=1:"Patient Name",1:"Terminal Digit")_" Range: "_$S(IBRF="A":"FIRST",1:IBRF)_" to "_$S(IBRL="zzzzzz":"LAST",1:IBRL)
|
|---|
| 48 | W !,?20,"(* - Patient Deceased)"
|
|---|
| 49 | W !,"Patient Name",?31,"SSN",?38,"Age",?43,"DOB",?55,"Phone",?70,"Verified"
|
|---|
| 50 | W ! F IBX=1:1:79 W "="
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | WRT ;Write data lines
|
|---|
| 54 | N IBA,IBDFN,IBPT,X,Y S IBQUIT=0
|
|---|
| 55 | S IBA="" F S IBA=$O(^TMP("IBCOMN",$J,IBA)) Q:(IBA="")!(IBQUIT=1) D
|
|---|
| 56 | .S IBDFN=0 F S IBDFN=$O(^TMP("IBCOMN",$J,IBA,IBDFN)) Q:('IBDFN)!(IBQUIT=1) D
|
|---|
| 57 | ..S IBPT=$G(^TMP("IBCOMN",$J,IBA,IBDFN))
|
|---|
| 58 | ..;
|
|---|
| 59 | ..I ($Y+5)>IOSL D I IBQUIT=1 Q
|
|---|
| 60 | ...D ASK I IBQUIT=1 Q
|
|---|
| 61 | ...D HD
|
|---|
| 62 | ..;
|
|---|
| 63 | ..W !,$E($P(IBPT,U,1),1,30),?31,$E($P(IBPT,U,1),1,1),$P(IBPT,U,2),?38,$J($P(IBPT,U,3),3),?43,$P(IBPT,U,4),?55,$E($P(IBPT,U,5),1,15),?70,$P(IBPT,U,6)
|
|---|
| 64 | ..;
|
|---|
| 65 | Q
|
|---|
| 66 | ;
|
|---|
| 67 | ASK ; Ask to Continue with display
|
|---|
| 68 | I $E(IOST,1,2)'["C-" Q
|
|---|
| 69 | N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
|
|---|
| 70 | S DIR(0)="E" D ^DIR
|
|---|
| 71 | I ($D(DIRUT))!($D(DUOUT)) S IBQUIT=1
|
|---|
| 72 | Q
|
|---|
| 73 | ;IBCOMN
|
|---|
