- 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 Feb 18, 2025@23:57:23 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