source: FOIAVistA/trunk/r/PAID-PRS/PRSDSRP1.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: 3.4 KB
Line 
1PRSDSRP1 ;HISC/GWB-STRENGTH REPORT PRINT (CONTINUED);4/19/93 10:53
2 ;;4.0;PAID;**6**;Sep 21, 1995
3 S $P(LINE,"-",60)="-"
4 S LINE=LINE_"|-------------------------|------------------"
5 S THREE=^PRSP(454.1,CCORGIEN,3),FOUR=^PRSP(454.1,CCORGIEN,4)
6 S FIVE=^PRSP(454.1,CCORGIEN,5)
7 S RNCLG=$P(ZERO,U,6),LPCLG=$P(ZERO,U,7),NACLG=$P(ZERO,U,8)
8 S RNFTP=$P(THREE,U,1),RNFTT=$P(THREE,U,2),RNPTP=$P(THREE,U,3)
9 S RNPTPFTE=$P(THREE,U,4),RNPTT=$P(THREE,U,5),RNPTTFTE=$P(THREE,U,6)
10 S RNINT=$P(THREE,U,7),RNINTFTE=$P(THREE,U,8),RNTSR=$P(THREE,U,9)
11 S RNTSRFTE=$P(THREE,U,10),RNSIS=$P(THREE,U,11),RNTOT=$P(THREE,U,12)
12 S RNFTETOT=$P(THREE,U,13),RNVAR=$P(THREE,U,14),RNLWOP=$P(THREE,U,15)
13 S RNFEE=$P(THREE,U,16)
14 S LPFTP=$P(FOUR,U,1),LPFTT=$P(FOUR,U,2),LPPTP=$P(FOUR,U,3)
15 S LPPTPFTE=$P(FOUR,U,4),LPPTT=$P(FOUR,U,5),LPPTTFTE=$P(FOUR,U,6)
16 S LPINT=$P(FOUR,U,7),LPINTFTE=$P(FOUR,U,8),LPTSR=$P(FOUR,U,9)
17 S LPTSRFTE=$P(FOUR,U,10),LPSIS=$P(FOUR,U,11),LPTOT=$P(FOUR,U,12)
18 S LPFTETOT=$P(FOUR,U,13),LPVAR=$P(FOUR,U,14),LPLWOP=$P(FOUR,U,15)
19 S LPFEE=$P(FOUR,U,16)
20 S NAFTP=$P(FIVE,U,1),NAFTT=$P(FIVE,U,2),NAPTP=$P(FIVE,U,3)
21 S NAPTPFTE=$P(FIVE,U,4),NAPTT=$P(FIVE,U,5),NAPTTFTE=$P(FIVE,U,6)
22 S NAINT=$P(FIVE,U,7),NAINTFTE=$P(FIVE,U,8),NATSR=$P(FIVE,U,9)
23 S NATSRFTE=$P(FIVE,U,10),NASIS=$P(FIVE,U,11),NATOT=$P(FIVE,U,12)
24 S NAFTETOT=$P(FIVE,U,13),NAVAR=$P(FIVE,U,14),NALWOP=$P(FIVE,U,15)
25 S NAFEE=$P(FIVE,U,16)
26 W ?8,"NURSES",?24,$J(RNCLG,7,2),?33,$J(RNFTP,4),?38,$J(RNPTP,4)
27 W ?43,$J(RNPTPFTE,7,2),?51,$J(RNFTT,4),?56,$J(RNPTT,4)
28 W ?61,$J(RNPTTFTE,7,2),?69,$J(RNINT,4),?74,$J(RNSIS,4)
29 W ?79,$J(RNINTFTE,7,2),?87,"|",?90,$J(RNTOT,4),?97,$J(RNFTETOT,7,2)
30 W ?105,$J(RNVAR,7,2),?113,"|",?113,$J(RNTSR,3),?117,$J(RNTSRFTE,7,2)
31 W ?125,$J(RNLWOP,3),?129,$J(RNFEE,3)
32 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR^PRSDSRP
33 W !,?8,"PRACTICAL NURSES",?24,$J(LPCLG,7,2),?33,$J(LPFTP,4)
34 W ?38,$J(LPPTP,4),?43,$J(LPPTPFTE,7,2),?51,$J(LPFTT,4),?56,$J(LPPTT,4)
35 W ?61,$J(LPPTTFTE,7,2),?69,$J(LPINT,4),?74,$J(LPSIS,4)
36 W ?79,$J(LPINTFTE,7,2),?87,"|",?90,$J(LPTOT,4),?97,$J(LPFTETOT,7,2)
37 W ?105,$J(LPVAR,7,2),?113,"|",?113,$J(LPTSR,3),?117,$J(LPTSRFTE,7,2)
38 W ?125,$J(LPLWOP,3),?129,$J(LPFEE,3)
39 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR^PRSDSRP
40 W !,?8,"NURSING ASSTS",?24,$J(NACLG,7,2),?33,$J(NAFTP,4)
41 W ?38,$J(NAPTP,4),?43,$J(NAPTPFTE,7,2),?51,$J(NAFTT,4),?56,$J(NAPTT,4)
42 W ?61,$J(NAPTTFTE,7,2),?69,$J(NAINT,4),?74,$J(NASIS,4)
43 W ?79,$J(NAINTFTE,7,2),?87,"|",?90,$J(NATOT,4),?97,$J(NAFTETOT,7,2)
44 W ?105,$J(NAVAR,7,2),?113,"|",?113,$J(NATSR,3),?117,$J(NATSRFTE,7,2)
45 W ?125,$J(NALWOP,3),?129,$J(NAFEE,3)
46 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR^PRSDSRP
47 W !,?8,"OTHER",?24,$J(CLG-(RNCLG+LPCLG+NACLG),7,2)
48 W ?33,$J(FTP-(RNFTP+LPFTP+NAFTP),4),?38,$J(PTP-(RNPTP+LPPTP+NAPTP),4)
49 W ?43,$J(PTPFTE-(RNPTPFTE+LPPTPFTE+NAPTPFTE),7,2)
50 W ?51,$J(FTT-(RNFTT+LPFTT+NAFTT),4),?56,$J(PTT-(RNPTT+LPPTT+NAPTT),4)
51 W ?61,$J(PTTFTE-(RNPTTFTE+LPPTTFTE+NAPTTFTE),7,2)
52 W ?69,$J(INT-(RNINT+LPINT+NAINT),4)
53 W ?74,$J(SIS-(RNSIS+LPSIS+NASIS),4)
54 W ?79,$J(INTFTE-(RNINTFTE+LPINTFTE+NAINTFTE),7,2),?87,"|"
55 W ?90,$J(TOT-(RNTOT+LPTOT+NATOT),4)
56 W ?97,$J(FTETOT-(RNFTETOT+LPFTETOT+NAFTETOT),7,2)
57 W ?105,$J(VAR-(RNVAR+LPVAR+NAVAR),7,2)
58 W ?113,"|",?113,$J(TSR-(RNTSR+LPTSR+NATSR),3)
59 W ?117,$J(TSRFTE-(RNTSRFTE+LPTSRFTE+NATSRFTE),7,2)
60 W ?125,$J(LWOP-(RNLWOP+LPLWOP+NALWOP),3)
61 W ?129,$J(FEE-(RNFEE+LPFEE+NAFEE),3)
62 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0 D HDR^PRSDSRP
63 W !,?27,LINE,!
64 Q
Note: See TracBrowser for help on using the repository browser.