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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDSRP1 3566 printed Dec 13, 2024@02:26:06 Page 2
PRSDSRP1 ;HISC/GWB-STRENGTH REPORT PRINT (CONTINUED);4/19/93 10:53
+1 ;;4.0;PAID;**6**;Sep 21, 1995
+2 SET $PIECE(LINE,"-",60)="-"
+3 SET LINE=LINE_"|-------------------------|------------------"
+4 SET THREE=^PRSP(454.1,CCORGIEN,3)
SET FOUR=^PRSP(454.1,CCORGIEN,4)
+5 SET FIVE=^PRSP(454.1,CCORGIEN,5)
+6 SET RNCLG=$PIECE(ZERO,U,6)
SET LPCLG=$PIECE(ZERO,U,7)
SET NACLG=$PIECE(ZERO,U,8)
+7 SET RNFTP=$PIECE(THREE,U,1)
SET RNFTT=$PIECE(THREE,U,2)
SET RNPTP=$PIECE(THREE,U,3)
+8 SET RNPTPFTE=$PIECE(THREE,U,4)
SET RNPTT=$PIECE(THREE,U,5)
SET RNPTTFTE=$PIECE(THREE,U,6)
+9 SET RNINT=$PIECE(THREE,U,7)
SET RNINTFTE=$PIECE(THREE,U,8)
SET RNTSR=$PIECE(THREE,U,9)
+10 SET RNTSRFTE=$PIECE(THREE,U,10)
SET RNSIS=$PIECE(THREE,U,11)
SET RNTOT=$PIECE(THREE,U,12)
+11 SET RNFTETOT=$PIECE(THREE,U,13)
SET RNVAR=$PIECE(THREE,U,14)
SET RNLWOP=$PIECE(THREE,U,15)
+12 SET RNFEE=$PIECE(THREE,U,16)
+13 SET LPFTP=$PIECE(FOUR,U,1)
SET LPFTT=$PIECE(FOUR,U,2)
SET LPPTP=$PIECE(FOUR,U,3)
+14 SET LPPTPFTE=$PIECE(FOUR,U,4)
SET LPPTT=$PIECE(FOUR,U,5)
SET LPPTTFTE=$PIECE(FOUR,U,6)
+15 SET LPINT=$PIECE(FOUR,U,7)
SET LPINTFTE=$PIECE(FOUR,U,8)
SET LPTSR=$PIECE(FOUR,U,9)
+16 SET LPTSRFTE=$PIECE(FOUR,U,10)
SET LPSIS=$PIECE(FOUR,U,11)
SET LPTOT=$PIECE(FOUR,U,12)
+17 SET LPFTETOT=$PIECE(FOUR,U,13)
SET LPVAR=$PIECE(FOUR,U,14)
SET LPLWOP=$PIECE(FOUR,U,15)
+18 SET LPFEE=$PIECE(FOUR,U,16)
+19 SET NAFTP=$PIECE(FIVE,U,1)
SET NAFTT=$PIECE(FIVE,U,2)
SET NAPTP=$PIECE(FIVE,U,3)
+20 SET NAPTPFTE=$PIECE(FIVE,U,4)
SET NAPTT=$PIECE(FIVE,U,5)
SET NAPTTFTE=$PIECE(FIVE,U,6)
+21 SET NAINT=$PIECE(FIVE,U,7)
SET NAINTFTE=$PIECE(FIVE,U,8)
SET NATSR=$PIECE(FIVE,U,9)
+22 SET NATSRFTE=$PIECE(FIVE,U,10)
SET NASIS=$PIECE(FIVE,U,11)
SET NATOT=$PIECE(FIVE,U,12)
+23 SET NAFTETOT=$PIECE(FIVE,U,13)
SET NAVAR=$PIECE(FIVE,U,14)
SET NALWOP=$PIECE(FIVE,U,15)
+24 SET NAFEE=$PIECE(FIVE,U,16)
+25 WRITE ?8,"NURSES",?24,$JUSTIFY(RNCLG,7,2),?33,$JUSTIFY(RNFTP,4),?38,$JUSTIFY(RNPTP,4)
+26 WRITE ?43,$JUSTIFY(RNPTPFTE,7,2),?51,$JUSTIFY(RNFTT,4),?56,$JUSTIFY(RNPTT,4)
+27 WRITE ?61,$JUSTIFY(RNPTTFTE,7,2),?69,$JUSTIFY(RNINT,4),?74,$JUSTIFY(RNSIS,4)
+28 WRITE ?79,$JUSTIFY(RNINTFTE,7,2),?87,"|",?90,$JUSTIFY(RNTOT,4),?97,$JUSTIFY(RNFTETOT,7,2)
+29 WRITE ?105,$JUSTIFY(RNVAR,7,2),?113,"|",?113,$JUSTIFY(RNTSR,3),?117,$JUSTIFY(RNTSRFTE,7,2)
+30 WRITE ?125,$JUSTIFY(RNLWOP,3),?129,$JUSTIFY(RNFEE,3)
+31 IF $Y>(IOSL-4)
if $EXTRACT(IOST,1)="C"
DO PRTC^PRSDSRP
if PRTC=0
QUIT
DO HDR^PRSDSRP
+32 WRITE !,?8,"PRACTICAL NURSES",?24,$JUSTIFY(LPCLG,7,2),?33,$JUSTIFY(LPFTP,4)
+33 WRITE ?38,$JUSTIFY(LPPTP,4),?43,$JUSTIFY(LPPTPFTE,7,2),?51,$JUSTIFY(LPFTT,4),?56,$JUSTIFY(LPPTT,4)
+34 WRITE ?61,$JUSTIFY(LPPTTFTE,7,2),?69,$JUSTIFY(LPINT,4),?74,$JUSTIFY(LPSIS,4)
+35 WRITE ?79,$JUSTIFY(LPINTFTE,7,2),?87,"|",?90,$JUSTIFY(LPTOT,4),?97,$JUSTIFY(LPFTETOT,7,2)
+36 WRITE ?105,$JUSTIFY(LPVAR,7,2),?113,"|",?113,$JUSTIFY(LPTSR,3),?117,$JUSTIFY(LPTSRFTE,7,2)
+37 WRITE ?125,$JUSTIFY(LPLWOP,3),?129,$JUSTIFY(LPFEE,3)
+38 IF $Y>(IOSL-4)
if $EXTRACT(IOST,1)="C"
DO PRTC^PRSDSRP
if PRTC=0
QUIT
DO HDR^PRSDSRP
+39 WRITE !,?8,"NURSING ASSTS",?24,$JUSTIFY(NACLG,7,2),?33,$JUSTIFY(NAFTP,4)
+40 WRITE ?38,$JUSTIFY(NAPTP,4),?43,$JUSTIFY(NAPTPFTE,7,2),?51,$JUSTIFY(NAFTT,4),?56,$JUSTIFY(NAPTT,4)
+41 WRITE ?61,$JUSTIFY(NAPTTFTE,7,2),?69,$JUSTIFY(NAINT,4),?74,$JUSTIFY(NASIS,4)
+42 WRITE ?79,$JUSTIFY(NAINTFTE,7,2),?87,"|",?90,$JUSTIFY(NATOT,4),?97,$JUSTIFY(NAFTETOT,7,2)
+43 WRITE ?105,$JUSTIFY(NAVAR,7,2),?113,"|",?113,$JUSTIFY(NATSR,3),?117,$JUSTIFY(NATSRFTE,7,2)
+44 WRITE ?125,$JUSTIFY(NALWOP,3),?129,$JUSTIFY(NAFEE,3)
+45 IF $Y>(IOSL-4)
if $EXTRACT(IOST,1)="C"
DO PRTC^PRSDSRP
if PRTC=0
QUIT
DO HDR^PRSDSRP
+46 WRITE !,?8,"OTHER",?24,$JUSTIFY(CLG-(RNCLG+LPCLG+NACLG),7,2)
+47 WRITE ?33,$JUSTIFY(FTP-(RNFTP+LPFTP+NAFTP),4),?38,$JUSTIFY(PTP-(RNPTP+LPPTP+NAPTP),4)
+48 WRITE ?43,$JUSTIFY(PTPFTE-(RNPTPFTE+LPPTPFTE+NAPTPFTE),7,2)
+49 WRITE ?51,$JUSTIFY(FTT-(RNFTT+LPFTT+NAFTT),4),?56,$JUSTIFY(PTT-(RNPTT+LPPTT+NAPTT),4)
+50 WRITE ?61,$JUSTIFY(PTTFTE-(RNPTTFTE+LPPTTFTE+NAPTTFTE),7,2)
+51 WRITE ?69,$JUSTIFY(INT-(RNINT+LPINT+NAINT),4)
+52 WRITE ?74,$JUSTIFY(SIS-(RNSIS+LPSIS+NASIS),4)
+53 WRITE ?79,$JUSTIFY(INTFTE-(RNINTFTE+LPINTFTE+NAINTFTE),7,2),?87,"|"
+54 WRITE ?90,$JUSTIFY(TOT-(RNTOT+LPTOT+NATOT),4)
+55 WRITE ?97,$JUSTIFY(FTETOT-(RNFTETOT+LPFTETOT+NAFTETOT),7,2)
+56 WRITE ?105,$JUSTIFY(VAR-(RNVAR+LPVAR+NAVAR),7,2)
+57 WRITE ?113,"|",?113,$JUSTIFY(TSR-(RNTSR+LPTSR+NATSR),3)
+58 WRITE ?117,$JUSTIFY(TSRFTE-(RNTSRFTE+LPTSRFTE+NATSRFTE),7,2)
+59 WRITE ?125,$JUSTIFY(LWOP-(RNLWOP+LPLWOP+NALWOP),3)
+60 WRITE ?129,$JUSTIFY(FEE-(RNFEE+LPFEE+NAFEE),3)
+61 IF $Y>(IOSL-4)
if $EXTRACT(IOST,1)="C"
DO PRTC^PRSDSRP
if PRTC=0
QUIT
DO HDR^PRSDSRP
+62 WRITE !,?27,LINE,!
+63 QUIT
