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 Nov 22, 2024@17:36:06 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
