- 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 Mar 13, 2025@21:31:08 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
