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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRPCR4 1133 printed Dec 13, 2024@02:31:06 Page 2
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