| 1 | PXRRPCR4 ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | SET ;_._._._._._._Set Local Variables for Report Writing_._._._._._._._.
|
|---|
| 4 | S PXRR=$G(^TMP($J,"CLINIC TOTALS",PXRRCLIN)),PXRRTVS=$P(PXRR,U),PXRRSESS=$P(PXRR,U,2),PXRRAG=$P(PXRR,U,3),PXRRCAD=$P(PXRR,U,4),PXRR("CAD")=$P(PXRR,U,5),PXRRDM=$P(PXRR,U,6),PXRR("DM")=$P(PXRR,U,7),PXRRHTN=$P(PXRR,U,8),PXRR("HTN")=$P(PXRR,U,9)
|
|---|
| 5 | S PXRRHTDM=$P(PXRR,U,10),PXRR("HTDM")=$P(PXRR,U,11),PXRRHBA1=$P(PXRR,U,12),PXRRCDSM=$P(PXRR,U,13),PXRRLDL=$P(PXRR,U,14),PXRRNOLD=$P(PXRR,U,15),PXRR("SXUN")=$P(PXRR,U,16)
|
|---|
| 6 | S PXRR("SXER")=$P(PXRR,U,17),PXRR("SXHP")=$P(PXRR,U,18),PXRRSMYR=$P(PXRR,U,19),PXRRMMYR=$P(PXRR,U,20),PXRRUTVS=$P(PXRR,U,21),PXRR("SMOKE")=$P(PXRR,U,22),PXRR("MAMGRM")=$P(PXRR,U,23),PXRRHLIP=$P(PXRR,U,24)
|
|---|
| 7 | S PXRR("HLIP")=$P(PXRR,U,25),PXRRRTVS=$P(PXRR,U,26),PXRRPTSS=$P(PXRR,U,27),PXRRMPAT=$P(PXRR,U,28),PXRRFPAT=$P(PXRR,U,29),PXRRHBG7=$P(PXRR,U,30),PXRRGL=$P(PXRR,U,31),PXRRCHOL=$P(PXRR,U,32),PXRRCDSX=$P(PXRR,U,33)
|
|---|
| 8 | S PXRRPSUT=$P(PXRR,U,34),PXRRCOST=$P(PXRR,U,35),PXRRBPT=$P(PXRR,U,36),PXRRF50=$P(PXRR,U,37)
|
|---|
| 9 | Q
|
|---|
