- PRSDSRC1 ;HISC/GWB-STRENGTH REPORT COMPILATION ;8/23/93 15:34
- ;;4.0;PAID;**6**;Sep 21, 1995
- S $P(^PRSP(454.1,CCORGPT,0),U,3)=COMPDT
- S ONE=""
- S $P(ONE,U,1)=$P(^PRSP(454.1,CCORGPT,1),U,1)+FTP
- S $P(ONE,U,2)=$P(^PRSP(454.1,CCORGPT,1),U,2)+FTT
- S $P(ONE,U,3)=$P(^PRSP(454.1,CCORGPT,1),U,3)+PTP
- S $P(ONE,U,4)=$P(^PRSP(454.1,CCORGPT,1),U,4)+PTPFTE
- S $P(ONE,U,5)=$P(^PRSP(454.1,CCORGPT,1),U,5)+PTT
- S $P(ONE,U,6)=$P(^PRSP(454.1,CCORGPT,1),U,6)+PTTFTE
- S $P(ONE,U,7)=$P(^PRSP(454.1,CCORGPT,1),U,7)+INT
- S $P(ONE,U,8)=$P(^PRSP(454.1,CCORGPT,1),U,8)+INTFTE
- S $P(ONE,U,9)=$P(^PRSP(454.1,CCORGPT,1),U,9)+TSR
- S $P(ONE,U,10)=$P(^PRSP(454.1,CCORGPT,1),U,10)+TSRFTE
- S $P(ONE,U,11)=$P(^PRSP(454.1,CCORGPT,1),U,11)+SIS
- S $P(ONE,U,12)=$P(^PRSP(454.1,CCORGPT,1),U,12)+TOT
- S $P(ONE,U,13)=$P(^PRSP(454.1,CCORGPT,1),U,13)+FTETOT
- S $P(ONE,U,14)=$P(ONE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,4)
- S $P(ONE,U,15)=$P(^PRSP(454.1,CCORGPT,1),U,15)+LWOP
- S $P(ONE,U,16)=$P(^PRSP(454.1,CCORGPT,1),U,16)+FEE
- S ^PRSP(454.1,CCORGPT,1)=ONE
- S $P(^PRSP(454.1,CCORGPT,6),U,1)=$P(^PRSP(454.1,CCORGPT,6),U,1)+GPYTOT
- S $P(^PRSP(454.1,CCORGPT,6),U,2)=$P(^PRSP(454.1,CCORGPT,6),U,2)+PRJSAL
- G:MDTOT=0 RN
- S TWO=""
- S $P(TWO,U,1)=$P(^PRSP(454.1,CCORGPT,2),U,1)+MDFTP
- S $P(TWO,U,2)=$P(^PRSP(454.1,CCORGPT,2),U,2)+MDFTT
- S $P(TWO,U,3)=$P(^PRSP(454.1,CCORGPT,2),U,3)+MDPTP
- S $P(TWO,U,4)=$P(^PRSP(454.1,CCORGPT,2),U,4)+MDPTPFTE
- S $P(TWO,U,5)=$P(^PRSP(454.1,CCORGPT,2),U,5)+MDPTT
- S $P(TWO,U,6)=$P(^PRSP(454.1,CCORGPT,2),U,6)+MDPTTFTE
- S $P(TWO,U,7)=$P(^PRSP(454.1,CCORGPT,2),U,7)+MDINT
- S $P(TWO,U,8)=$P(^PRSP(454.1,CCORGPT,2),U,8)+MDINTFTE
- S $P(TWO,U,9)=$P(^PRSP(454.1,CCORGPT,2),U,9)+MDTSR
- S $P(TWO,U,10)=$P(^PRSP(454.1,CCORGPT,2),U,10)+MDTSRFTE
- S $P(TWO,U,11)=$P(^PRSP(454.1,CCORGPT,2),U,11)+MDSIS
- S $P(TWO,U,12)=$P(^PRSP(454.1,CCORGPT,2),U,12)+MDTOT
- S $P(TWO,U,13)=$P(^PRSP(454.1,CCORGPT,2),U,13)+MDFTETOT
- S $P(TWO,U,14)=$P(TWO,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,5)
- S $P(TWO,U,15)=$P(^PRSP(454.1,CCORGPT,2),U,15)+MDLWOP
- S $P(TWO,U,16)=$P(^PRSP(454.1,CCORGPT,2),U,16)+MDFEE
- S ^PRSP(454.1,CCORGPT,2)=TWO
- RN Q:CCORGNAM'="NURSING"
- S THREE=""
- S $P(THREE,U,1)=$P(^PRSP(454.1,CCORGPT,3),U,1)+RNFTP
- S $P(THREE,U,2)=$P(^PRSP(454.1,CCORGPT,3),U,2)+RNFTT
- S $P(THREE,U,3)=$P(^PRSP(454.1,CCORGPT,3),U,3)+RNPTP
- S $P(THREE,U,4)=$P(^PRSP(454.1,CCORGPT,3),U,4)+RNPTPFTE
- S $P(THREE,U,5)=$P(^PRSP(454.1,CCORGPT,3),U,5)+RNPTT
- S $P(THREE,U,6)=$P(^PRSP(454.1,CCORGPT,3),U,6)+RNPTTFTE
- S $P(THREE,U,7)=$P(^PRSP(454.1,CCORGPT,3),U,7)+RNINT
- S $P(THREE,U,8)=$P(^PRSP(454.1,CCORGPT,3),U,8)+RNINTFTE
- S $P(THREE,U,9)=$P(^PRSP(454.1,CCORGPT,3),U,9)+RNTSR
- S $P(THREE,U,10)=$P(^PRSP(454.1,CCORGPT,3),U,10)+RNTSRFTE
- S $P(THREE,U,11)=$P(^PRSP(454.1,CCORGPT,3),U,11)+RNSIS
- S $P(THREE,U,12)=$P(^PRSP(454.1,CCORGPT,3),U,12)+RNTOT
- S $P(THREE,U,13)=$P(^PRSP(454.1,CCORGPT,3),U,13)+RNFTETOT
- S $P(THREE,U,14)=$P(THREE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,6)
- S $P(THREE,U,15)=$P(^PRSP(454.1,CCORGPT,3),U,15)+RNLWOP
- S $P(THREE,U,16)=$P(^PRSP(454.1,CCORGPT,3),U,16)+RNFEE
- S ^PRSP(454.1,CCORGPT,3)=THREE
- S FOUR=""
- S $P(FOUR,U,1)=$P(^PRSP(454.1,CCORGPT,4),U,1)+LPFTP
- S $P(FOUR,U,2)=$P(^PRSP(454.1,CCORGPT,4),U,2)+LPFTT
- S $P(FOUR,U,3)=$P(^PRSP(454.1,CCORGPT,4),U,3)+LPPTP
- S $P(FOUR,U,4)=$P(^PRSP(454.1,CCORGPT,4),U,4)+LPPTPFTE
- S $P(FOUR,U,5)=$P(^PRSP(454.1,CCORGPT,4),U,5)+LPPTT
- S $P(FOUR,U,6)=$P(^PRSP(454.1,CCORGPT,4),U,6)+LPPTTFTE
- S $P(FOUR,U,7)=$P(^PRSP(454.1,CCORGPT,4),U,7)+LPINT
- S $P(FOUR,U,8)=$P(^PRSP(454.1,CCORGPT,4),U,8)+LPINTFTE
- S $P(FOUR,U,9)=$P(^PRSP(454.1,CCORGPT,4),U,9)+LPTSR
- S $P(FOUR,U,10)=$P(^PRSP(454.1,CCORGPT,4),U,10)+LPTSRFTE
- S $P(FOUR,U,11)=$P(^PRSP(454.1,CCORGPT,4),U,11)+LPSIS
- S $P(FOUR,U,12)=$P(^PRSP(454.1,CCORGPT,4),U,12)+LPTOT
- S $P(FOUR,U,13)=$P(^PRSP(454.1,CCORGPT,4),U,13)+LPFTETOT
- S $P(FOUR,U,14)=$P(FOUR,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,7)
- S $P(FOUR,U,15)=$P(^PRSP(454.1,CCORGPT,4),U,15)+LPLWOP
- S $P(FOUR,U,16)=$P(^PRSP(454.1,CCORGPT,4),U,16)+LPFEE
- S ^PRSP(454.1,CCORGPT,4)=FOUR
- S FIVE=""
- S $P(FIVE,U,1)=$P(^PRSP(454.1,CCORGPT,5),U,1)+NAFTP
- S $P(FIVE,U,2)=$P(^PRSP(454.1,CCORGPT,5),U,2)+NAFTT
- S $P(FIVE,U,3)=$P(^PRSP(454.1,CCORGPT,5),U,3)+NAPTP
- S $P(FIVE,U,4)=$P(^PRSP(454.1,CCORGPT,5),U,4)+NAPTPFTE
- S $P(FIVE,U,5)=$P(^PRSP(454.1,CCORGPT,5),U,5)+NAPTT
- S $P(FIVE,U,6)=$P(^PRSP(454.1,CCORGPT,5),U,6)+NAPTTFTE
- S $P(FIVE,U,7)=$P(^PRSP(454.1,CCORGPT,5),U,7)+NAINT
- S $P(FIVE,U,8)=$P(^PRSP(454.1,CCORGPT,5),U,8)+NAINTFTE
- S $P(FIVE,U,9)=$P(^PRSP(454.1,CCORGPT,5),U,9)+NATSR
- S $P(FIVE,U,10)=$P(^PRSP(454.1,CCORGPT,5),U,10)+NATSRFTE
- S $P(FIVE,U,11)=$P(^PRSP(454.1,CCORGPT,5),U,11)+NASIS
- S $P(FIVE,U,12)=$P(^PRSP(454.1,CCORGPT,5),U,12)+NATOT
- S $P(FIVE,U,13)=$P(^PRSP(454.1,CCORGPT,5),U,13)+NAFTETOT
- S $P(FIVE,U,14)=$P(FIVE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,8)
- S $P(FIVE,U,15)=$P(^PRSP(454.1,CCORGPT,5),U,15)+NALWOP
- S $P(FIVE,U,16)=$P(^PRSP(454.1,CCORGPT,5),U,16)+NAFEE
- S ^PRSP(454.1,CCORGPT,5)=FIVE
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDSRC1 5005 printed Feb 18, 2025@23:52:34 Page 2
- PRSDSRC1 ;HISC/GWB-STRENGTH REPORT COMPILATION ;8/23/93 15:34
- +1 ;;4.0;PAID;**6**;Sep 21, 1995
- +2 SET $PIECE(^PRSP(454.1,CCORGPT,0),U,3)=COMPDT
- +3 SET ONE=""
- +4 SET $PIECE(ONE,U,1)=$PIECE(^PRSP(454.1,CCORGPT,1),U,1)+FTP
- +5 SET $PIECE(ONE,U,2)=$PIECE(^PRSP(454.1,CCORGPT,1),U,2)+FTT
- +6 SET $PIECE(ONE,U,3)=$PIECE(^PRSP(454.1,CCORGPT,1),U,3)+PTP
- +7 SET $PIECE(ONE,U,4)=$PIECE(^PRSP(454.1,CCORGPT,1),U,4)+PTPFTE
- +8 SET $PIECE(ONE,U,5)=$PIECE(^PRSP(454.1,CCORGPT,1),U,5)+PTT
- +9 SET $PIECE(ONE,U,6)=$PIECE(^PRSP(454.1,CCORGPT,1),U,6)+PTTFTE
- +10 SET $PIECE(ONE,U,7)=$PIECE(^PRSP(454.1,CCORGPT,1),U,7)+INT
- +11 SET $PIECE(ONE,U,8)=$PIECE(^PRSP(454.1,CCORGPT,1),U,8)+INTFTE
- +12 SET $PIECE(ONE,U,9)=$PIECE(^PRSP(454.1,CCORGPT,1),U,9)+TSR
- +13 SET $PIECE(ONE,U,10)=$PIECE(^PRSP(454.1,CCORGPT,1),U,10)+TSRFTE
- +14 SET $PIECE(ONE,U,11)=$PIECE(^PRSP(454.1,CCORGPT,1),U,11)+SIS
- +15 SET $PIECE(ONE,U,12)=$PIECE(^PRSP(454.1,CCORGPT,1),U,12)+TOT
- +16 SET $PIECE(ONE,U,13)=$PIECE(^PRSP(454.1,CCORGPT,1),U,13)+FTETOT
- +17 SET $PIECE(ONE,U,14)=$PIECE(ONE,U,13)-$PIECE(^PRSP(454.1,CCORGPT,0),U,4)
- +18 SET $PIECE(ONE,U,15)=$PIECE(^PRSP(454.1,CCORGPT,1),U,15)+LWOP
- +19 SET $PIECE(ONE,U,16)=$PIECE(^PRSP(454.1,CCORGPT,1),U,16)+FEE
- +20 SET ^PRSP(454.1,CCORGPT,1)=ONE
- +21 SET $PIECE(^PRSP(454.1,CCORGPT,6),U,1)=$PIECE(^PRSP(454.1,CCORGPT,6),U,1)+GPYTOT
- +22 SET $PIECE(^PRSP(454.1,CCORGPT,6),U,2)=$PIECE(^PRSP(454.1,CCORGPT,6),U,2)+PRJSAL
- +23 if MDTOT=0
- GOTO RN
- +24 SET TWO=""
- +25 SET $PIECE(TWO,U,1)=$PIECE(^PRSP(454.1,CCORGPT,2),U,1)+MDFTP
- +26 SET $PIECE(TWO,U,2)=$PIECE(^PRSP(454.1,CCORGPT,2),U,2)+MDFTT
- +27 SET $PIECE(TWO,U,3)=$PIECE(^PRSP(454.1,CCORGPT,2),U,3)+MDPTP
- +28 SET $PIECE(TWO,U,4)=$PIECE(^PRSP(454.1,CCORGPT,2),U,4)+MDPTPFTE
- +29 SET $PIECE(TWO,U,5)=$PIECE(^PRSP(454.1,CCORGPT,2),U,5)+MDPTT
- +30 SET $PIECE(TWO,U,6)=$PIECE(^PRSP(454.1,CCORGPT,2),U,6)+MDPTTFTE
- +31 SET $PIECE(TWO,U,7)=$PIECE(^PRSP(454.1,CCORGPT,2),U,7)+MDINT
- +32 SET $PIECE(TWO,U,8)=$PIECE(^PRSP(454.1,CCORGPT,2),U,8)+MDINTFTE
- +33 SET $PIECE(TWO,U,9)=$PIECE(^PRSP(454.1,CCORGPT,2),U,9)+MDTSR
- +34 SET $PIECE(TWO,U,10)=$PIECE(^PRSP(454.1,CCORGPT,2),U,10)+MDTSRFTE
- +35 SET $PIECE(TWO,U,11)=$PIECE(^PRSP(454.1,CCORGPT,2),U,11)+MDSIS
- +36 SET $PIECE(TWO,U,12)=$PIECE(^PRSP(454.1,CCORGPT,2),U,12)+MDTOT
- +37 SET $PIECE(TWO,U,13)=$PIECE(^PRSP(454.1,CCORGPT,2),U,13)+MDFTETOT
- +38 SET $PIECE(TWO,U,14)=$PIECE(TWO,U,13)-$PIECE(^PRSP(454.1,CCORGPT,0),U,5)
- +39 SET $PIECE(TWO,U,15)=$PIECE(^PRSP(454.1,CCORGPT,2),U,15)+MDLWOP
- +40 SET $PIECE(TWO,U,16)=$PIECE(^PRSP(454.1,CCORGPT,2),U,16)+MDFEE
- +41 SET ^PRSP(454.1,CCORGPT,2)=TWO
- RN if CCORGNAM'="NURSING"
- QUIT
- +1 SET THREE=""
- +2 SET $PIECE(THREE,U,1)=$PIECE(^PRSP(454.1,CCORGPT,3),U,1)+RNFTP
- +3 SET $PIECE(THREE,U,2)=$PIECE(^PRSP(454.1,CCORGPT,3),U,2)+RNFTT
- +4 SET $PIECE(THREE,U,3)=$PIECE(^PRSP(454.1,CCORGPT,3),U,3)+RNPTP
- +5 SET $PIECE(THREE,U,4)=$PIECE(^PRSP(454.1,CCORGPT,3),U,4)+RNPTPFTE
- +6 SET $PIECE(THREE,U,5)=$PIECE(^PRSP(454.1,CCORGPT,3),U,5)+RNPTT
- +7 SET $PIECE(THREE,U,6)=$PIECE(^PRSP(454.1,CCORGPT,3),U,6)+RNPTTFTE
- +8 SET $PIECE(THREE,U,7)=$PIECE(^PRSP(454.1,CCORGPT,3),U,7)+RNINT
- +9 SET $PIECE(THREE,U,8)=$PIECE(^PRSP(454.1,CCORGPT,3),U,8)+RNINTFTE
- +10 SET $PIECE(THREE,U,9)=$PIECE(^PRSP(454.1,CCORGPT,3),U,9)+RNTSR
- +11 SET $PIECE(THREE,U,10)=$PIECE(^PRSP(454.1,CCORGPT,3),U,10)+RNTSRFTE
- +12 SET $PIECE(THREE,U,11)=$PIECE(^PRSP(454.1,CCORGPT,3),U,11)+RNSIS
- +13 SET $PIECE(THREE,U,12)=$PIECE(^PRSP(454.1,CCORGPT,3),U,12)+RNTOT
- +14 SET $PIECE(THREE,U,13)=$PIECE(^PRSP(454.1,CCORGPT,3),U,13)+RNFTETOT
- +15 SET $PIECE(THREE,U,14)=$PIECE(THREE,U,13)-$PIECE(^PRSP(454.1,CCORGPT,0),U,6)
- +16 SET $PIECE(THREE,U,15)=$PIECE(^PRSP(454.1,CCORGPT,3),U,15)+RNLWOP
- +17 SET $PIECE(THREE,U,16)=$PIECE(^PRSP(454.1,CCORGPT,3),U,16)+RNFEE
- +18 SET ^PRSP(454.1,CCORGPT,3)=THREE
- +19 SET FOUR=""
- +20 SET $PIECE(FOUR,U,1)=$PIECE(^PRSP(454.1,CCORGPT,4),U,1)+LPFTP
- +21 SET $PIECE(FOUR,U,2)=$PIECE(^PRSP(454.1,CCORGPT,4),U,2)+LPFTT
- +22 SET $PIECE(FOUR,U,3)=$PIECE(^PRSP(454.1,CCORGPT,4),U,3)+LPPTP
- +23 SET $PIECE(FOUR,U,4)=$PIECE(^PRSP(454.1,CCORGPT,4),U,4)+LPPTPFTE
- +24 SET $PIECE(FOUR,U,5)=$PIECE(^PRSP(454.1,CCORGPT,4),U,5)+LPPTT
- +25 SET $PIECE(FOUR,U,6)=$PIECE(^PRSP(454.1,CCORGPT,4),U,6)+LPPTTFTE
- +26 SET $PIECE(FOUR,U,7)=$PIECE(^PRSP(454.1,CCORGPT,4),U,7)+LPINT
- +27 SET $PIECE(FOUR,U,8)=$PIECE(^PRSP(454.1,CCORGPT,4),U,8)+LPINTFTE
- +28 SET $PIECE(FOUR,U,9)=$PIECE(^PRSP(454.1,CCORGPT,4),U,9)+LPTSR
- +29 SET $PIECE(FOUR,U,10)=$PIECE(^PRSP(454.1,CCORGPT,4),U,10)+LPTSRFTE
- +30 SET $PIECE(FOUR,U,11)=$PIECE(^PRSP(454.1,CCORGPT,4),U,11)+LPSIS
- +31 SET $PIECE(FOUR,U,12)=$PIECE(^PRSP(454.1,CCORGPT,4),U,12)+LPTOT
- +32 SET $PIECE(FOUR,U,13)=$PIECE(^PRSP(454.1,CCORGPT,4),U,13)+LPFTETOT
- +33 SET $PIECE(FOUR,U,14)=$PIECE(FOUR,U,13)-$PIECE(^PRSP(454.1,CCORGPT,0),U,7)
- +34 SET $PIECE(FOUR,U,15)=$PIECE(^PRSP(454.1,CCORGPT,4),U,15)+LPLWOP
- +35 SET $PIECE(FOUR,U,16)=$PIECE(^PRSP(454.1,CCORGPT,4),U,16)+LPFEE
- +36 SET ^PRSP(454.1,CCORGPT,4)=FOUR
- +37 SET FIVE=""
- +38 SET $PIECE(FIVE,U,1)=$PIECE(^PRSP(454.1,CCORGPT,5),U,1)+NAFTP
- +39 SET $PIECE(FIVE,U,2)=$PIECE(^PRSP(454.1,CCORGPT,5),U,2)+NAFTT
- +40 SET $PIECE(FIVE,U,3)=$PIECE(^PRSP(454.1,CCORGPT,5),U,3)+NAPTP
- +41 SET $PIECE(FIVE,U,4)=$PIECE(^PRSP(454.1,CCORGPT,5),U,4)+NAPTPFTE
- +42 SET $PIECE(FIVE,U,5)=$PIECE(^PRSP(454.1,CCORGPT,5),U,5)+NAPTT
- +43 SET $PIECE(FIVE,U,6)=$PIECE(^PRSP(454.1,CCORGPT,5),U,6)+NAPTTFTE
- +44 SET $PIECE(FIVE,U,7)=$PIECE(^PRSP(454.1,CCORGPT,5),U,7)+NAINT
- +45 SET $PIECE(FIVE,U,8)=$PIECE(^PRSP(454.1,CCORGPT,5),U,8)+NAINTFTE
- +46 SET $PIECE(FIVE,U,9)=$PIECE(^PRSP(454.1,CCORGPT,5),U,9)+NATSR
- +47 SET $PIECE(FIVE,U,10)=$PIECE(^PRSP(454.1,CCORGPT,5),U,10)+NATSRFTE
- +48 SET $PIECE(FIVE,U,11)=$PIECE(^PRSP(454.1,CCORGPT,5),U,11)+NASIS
- +49 SET $PIECE(FIVE,U,12)=$PIECE(^PRSP(454.1,CCORGPT,5),U,12)+NATOT
- +50 SET $PIECE(FIVE,U,13)=$PIECE(^PRSP(454.1,CCORGPT,5),U,13)+NAFTETOT
- +51 SET $PIECE(FIVE,U,14)=$PIECE(FIVE,U,13)-$PIECE(^PRSP(454.1,CCORGPT,0),U,8)
- +52 SET $PIECE(FIVE,U,15)=$PIECE(^PRSP(454.1,CCORGPT,5),U,15)+NALWOP
- +53 SET $PIECE(FIVE,U,16)=$PIECE(^PRSP(454.1,CCORGPT,5),U,16)+NAFEE
- +54 SET ^PRSP(454.1,CCORGPT,5)=FIVE
- +55 QUIT
