source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDSRP1.m@ 1605

PRSDSRP1 ;HISC/GWB-STRENGTH REPORT PRINT (CONTINUED);4/19/93  10:53
 ;;4.0;PAID;**6**;Sep 21, 1995
 S $P(LINE,"-",60)="-"
 S LINE=LINE_"|-------------------------|------------------"
 S THREE=^PRSP(454.1,CCORGIEN,3),FOUR=^PRSP(454.1,CCORGIEN,4)
 S FIVE=^PRSP(454.1,CCORGIEN,5)
 S RNCLG=$P(ZERO,U,6),LPCLG=$P(ZERO,U,7),NACLG=$P(ZERO,U,8)
 S RNFTP=$P(THREE,U,1),RNFTT=$P(THREE,U,2),RNPTP=$P(THREE,U,3)
 S RNPTPFTE=$P(THREE,U,4),RNPTT=$P(THREE,U,5),RNPTTFTE=$P(THREE,U,6)
 S RNINT=$P(THREE,U,7),RNINTFTE=$P(THREE,U,8),RNTSR=$P(THREE,U,9)
 S RNTSRFTE=$P(THREE,U,10),RNSIS=$P(THREE,U,11),RNTOT=$P(THREE,U,12)
 S RNFTETOT=$P(THREE,U,13),RNVAR=$P(THREE,U,14),RNLWOP=$P(THREE,U,15)
 S RNFEE=$P(THREE,U,16)
 S LPFTP=$P(FOUR,U,1),LPFTT=$P(FOUR,U,2),LPPTP=$P(FOUR,U,3)
 S LPPTPFTE=$P(FOUR,U,4),LPPTT=$P(FOUR,U,5),LPPTTFTE=$P(FOUR,U,6)
 S LPINT=$P(FOUR,U,7),LPINTFTE=$P(FOUR,U,8),LPTSR=$P(FOUR,U,9)
 S LPTSRFTE=$P(FOUR,U,10),LPSIS=$P(FOUR,U,11),LPTOT=$P(FOUR,U,12)
 S LPFTETOT=$P(FOUR,U,13),LPVAR=$P(FOUR,U,14),LPLWOP=$P(FOUR,U,15)
 S LPFEE=$P(FOUR,U,16)
 S NAFTP=$P(FIVE,U,1),NAFTT=$P(FIVE,U,2),NAPTP=$P(FIVE,U,3)
 S NAPTPFTE=$P(FIVE,U,4),NAPTT=$P(FIVE,U,5),NAPTTFTE=$P(FIVE,U,6)
 S NAINT=$P(FIVE,U,7),NAINTFTE=$P(FIVE,U,8),NATSR=$P(FIVE,U,9)
 S NATSRFTE=$P(FIVE,U,10),NASIS=$P(FIVE,U,11),NATOT=$P(FIVE,U,12)
 S NAFTETOT=$P(FIVE,U,13),NAVAR=$P(FIVE,U,14),NALWOP=$P(FIVE,U,15)
 S NAFEE=$P(FIVE,U,16)
 W ?8,"NURSES",?24,$J(RNCLG,7,2),?33,$J(RNFTP,4),?38,$J(RNPTP,4)
 W ?43,$J(RNPTPFTE,7,2),?51,$J(RNFTT,4),?56,$J(RNPTT,4)
 W ?61,$J(RNPTTFTE,7,2),?69,$J(RNINT,4),?74,$J(RNSIS,4)
 W ?79,$J(RNINTFTE,7,2),?87,"|",?90,$J(RNTOT,4),?97,$J(RNFTETOT,7,2)
 W ?105,$J(RNVAR,7,2),?113,"|",?113,$J(RNTSR,3),?117,$J(RNTSRFTE,7,2)
 W ?125,$J(RNLWOP,3),?129,$J(RNFEE,3)
 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0  D HDR^PRSDSRP
 W !,?8,"PRACTICAL NURSES",?24,$J(LPCLG,7,2),?33,$J(LPFTP,4)
 W ?38,$J(LPPTP,4),?43,$J(LPPTPFTE,7,2),?51,$J(LPFTT,4),?56,$J(LPPTT,4)
 W ?61,$J(LPPTTFTE,7,2),?69,$J(LPINT,4),?74,$J(LPSIS,4)
 W ?79,$J(LPINTFTE,7,2),?87,"|",?90,$J(LPTOT,4),?97,$J(LPFTETOT,7,2)
 W ?105,$J(LPVAR,7,2),?113,"|",?113,$J(LPTSR,3),?117,$J(LPTSRFTE,7,2)
 W ?125,$J(LPLWOP,3),?129,$J(LPFEE,3)
 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0  D HDR^PRSDSRP
 W !,?8,"NURSING ASSTS",?24,$J(NACLG,7,2),?33,$J(NAFTP,4)
 W ?38,$J(NAPTP,4),?43,$J(NAPTPFTE,7,2),?51,$J(NAFTT,4),?56,$J(NAPTT,4)
 W ?61,$J(NAPTTFTE,7,2),?69,$J(NAINT,4),?74,$J(NASIS,4)
 W ?79,$J(NAINTFTE,7,2),?87,"|",?90,$J(NATOT,4),?97,$J(NAFTETOT,7,2)
 W ?105,$J(NAVAR,7,2),?113,"|",?113,$J(NATSR,3),?117,$J(NATSRFTE,7,2)
 W ?125,$J(NALWOP,3),?129,$J(NAFEE,3)
 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0  D HDR^PRSDSRP
 W !,?8,"OTHER",?24,$J(CLG-(RNCLG+LPCLG+NACLG),7,2)
 W ?33,$J(FTP-(RNFTP+LPFTP+NAFTP),4),?38,$J(PTP-(RNPTP+LPPTP+NAPTP),4)
 W ?43,$J(PTPFTE-(RNPTPFTE+LPPTPFTE+NAPTPFTE),7,2)
 W ?51,$J(FTT-(RNFTT+LPFTT+NAFTT),4),?56,$J(PTT-(RNPTT+LPPTT+NAPTT),4)
 W ?61,$J(PTTFTE-(RNPTTFTE+LPPTTFTE+NAPTTFTE),7,2)
 W ?69,$J(INT-(RNINT+LPINT+NAINT),4)
 W ?74,$J(SIS-(RNSIS+LPSIS+NASIS),4)
 W ?79,$J(INTFTE-(RNINTFTE+LPINTFTE+NAINTFTE),7,2),?87,"|"
 W ?90,$J(TOT-(RNTOT+LPTOT+NATOT),4)
 W ?97,$J(FTETOT-(RNFTETOT+LPFTETOT+NAFTETOT),7,2)
 W ?105,$J(VAR-(RNVAR+LPVAR+NAVAR),7,2)
 W ?113,"|",?113,$J(TSR-(RNTSR+LPTSR+NATSR),3)
 W ?117,$J(TSRFTE-(RNTSRFTE+LPTSRFTE+NATSRFTE),7,2)
 W ?125,$J(LWOP-(RNLWOP+LPLWOP+NALWOP),3)
 W ?129,$J(FEE-(RNFEE+LPFEE+NAFEE),3)
 I $Y>(IOSL-4) D:$E(IOST,1)="C" PRTC^PRSDSRP Q:PRTC=0  D HDR^PRSDSRP
 W !,?27,LINE,!
 Q