PXRRPCR4.m

PXRRPCR4 ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

SET ;_._._._._._._Set Local Variables for Report Writing_._._._._._._._.

 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)

 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)

 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)

 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)

 S PXRRPSUT=$P(PXRR,U,34),PXRRCOST=$P(PXRR,U,35),PXRRBPT=$P(PXRR,U,36),PXRRF50=$P(PXRR,U,37)

 Q

PXRRPCR4  ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

SET       ;_._._._._._._Set Local Variables for Report Writing_._._._._._._._.

 +1        SET PXRR=$GET(^TMP($JOB,"CLINIC TOTALS",PXRRCLIN))

           SET PXRRTVS=$PIECE(PXRR,U)

           SET PXRRSESS=$PIECE(PXRR,U,2)

           SET PXRRAG=$PIECE(PXRR,U,3)

           SET PXRRCAD=$PIECE(PXRR,U,4)

           SET PXRR("CAD")=$PIECE(PXRR,U,5)

           SET PXRRDM=$PIECE(PXRR,U,6)

           SET PXRR("DM")=$PIECE(PXRR,U,7)

           SET PXRRHTN=$PIECE(PXRR,U,8)

           SET PXRR("HTN")=$PIECE(PXRR,U,9)

 +2        SET PXRRHTDM=$PIECE(PXRR,U,10)

           SET PXRR("HTDM")=$PIECE(PXRR,U,11)

           SET PXRRHBA1=$PIECE(PXRR,U,12)

           SET PXRRCDSM=$PIECE(PXRR,U,13)

           SET PXRRLDL=$PIECE(PXRR,U,14)

           SET PXRRNOLD=$PIECE(PXRR,U,15)

           SET PXRR("SXUN")=$PIECE(PXRR,U,16)

 +3        SET PXRR("SXER")=$PIECE(PXRR,U,17)

           SET PXRR("SXHP")=$PIECE(PXRR,U,18)

           SET PXRRSMYR=$PIECE(PXRR,U,19)

           SET PXRRMMYR=$PIECE(PXRR,U,20)

           SET PXRRUTVS=$PIECE(PXRR,U,21)

           SET PXRR("SMOKE")=$PIECE(PXRR,U,22)

           SET PXRR("MAMGRM")=$PIECE(PXRR,U,23)

           SET PXRRHLIP=$PIECE(PXRR,U,24)

 +4        SET PXRR("HLIP")=$PIECE(PXRR,U,25)

           SET PXRRRTVS=$PIECE(PXRR,U,26)

           SET PXRRPTSS=$PIECE(PXRR,U,27)

           SET PXRRMPAT=$PIECE(PXRR,U,28)

           SET PXRRFPAT=$PIECE(PXRR,U,29)

           SET PXRRHBG7=$PIECE(PXRR,U,30)

           SET PXRRGL=$PIECE(PXRR,U,31)

           SET PXRRCHOL=$PIECE(PXRR,U,32)

           SET PXRRCDSX=$PIECE(PXRR,U,33)

 +5        SET PXRRPSUT=$PIECE(PXRR,U,34)

           SET PXRRCOST=$PIECE(PXRR,U,35)

           SET PXRRBPT=$PIECE(PXRR,U,36)

           SET PXRRF50=$PIECE(PXRR,U,37)

 +6        QUIT