source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRPCR4.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PXRRPCR4 ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3SET ;_._._._._._._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
Note: See TracBrowser for help on using the repository browser.