source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDSRC1.m@ 975

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