| 1 | RMPORAP ;(NG)/DG/CAP - ACTIVE HOME OXY PTS IN ZIP CODE ORDER ;7/24/98
|
|---|
| 2 | ;;3.0;PROSTHETICS;**29**;Feb 09, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | SITE ;Initialize site variables.
|
|---|
| 5 | D HOSITE^RMPOUTL0 I '$D(RMPOXITE) Q
|
|---|
| 6 | ;
|
|---|
| 7 | LI ;List sought patients.
|
|---|
| 8 | N WHO S (WHO,COUNT,RMEND,RMPOPRT)=0
|
|---|
| 9 | S DIC="^RMPR(665,"
|
|---|
| 10 | S DIS(0)="I $P($G(^RMPR(665,D0,""RMPOA"")),U,7)=RMPOXITE,$P($G(^RMPR(665,D0,""RMPOA"")),U,3)="""""
|
|---|
| 11 | S BY="[RMPO-RPT-HOACTZIPLIST]"
|
|---|
| 12 | S FR="",PAGE=0
|
|---|
| 13 | S FLDS="[RMPO-RPT-PRINT-HOACTZIPLIST]"
|
|---|
| 14 | S DHD="W ?0 D RPTHDR^RMPORAP"
|
|---|
| 15 | S DHIT="D CNT^RMPORAP"
|
|---|
| 16 | S DIOEND="I $G(Y)'[U S COUNT=$E("" "",1,(6-$L(COUNT)))_COUNT W !!,?50,""Total Patients: "",COUNT S RMEND=1 S:IOST[""P-"" RMPOPRT=1"
|
|---|
| 17 | D EN1^DIP
|
|---|
| 18 | I RMPOPRT=0,$G(RMEND) K DIR S DIR(0)="E" D ^DIR
|
|---|
| 19 | D EXIT
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | EXIT ;
|
|---|
| 23 | N RMPRSITE,RMPR D KILL^XUSCLEAN
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | RPTHDR ; Report header
|
|---|
| 27 | N Y S Y=""
|
|---|
| 28 | D NOW^%DTC S Y=% X ^DD("DD")
|
|---|
| 29 | S RPTDT=$P(Y,"@",1)_" "_$P($P(Y,"@",2),":",1,2)
|
|---|
| 30 | N RA S RA=RMPO("NAME"),PAGE=PAGE+1
|
|---|
| 31 | W RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_PAGE
|
|---|
| 32 | W !?20,"Active Home Oxygen Patients by Zip Code",!
|
|---|
| 33 | W !,"Zip Code",?12,"Name/Phone Number",?36,"SSN",?43,"Address"
|
|---|
| 34 | W !,"==========",?12,"=====================",?36,"====",?43,"===================================",!
|
|---|
| 35 | Q
|
|---|
| 36 | CNT ;Count the total of patients printed.
|
|---|
| 37 | I WHO'=D0 S COUNT=COUNT+1,WHO=D0
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
