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

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.8 KB
RevLine 
[613]1PRSDSRC1 ;HISC/GWB-STRENGTH REPORT COMPILATION ;8/23/93 15:34
2 ;;4.0;PAID;**6**;Sep 21, 1995
3 S $P(^PRSP(454.1,CCORGPT,0),U,3)=COMPDT
4 S ONE=""
5 S $P(ONE,U,1)=$P(^PRSP(454.1,CCORGPT,1),U,1)+FTP
6 S $P(ONE,U,2)=$P(^PRSP(454.1,CCORGPT,1),U,2)+FTT
7 S $P(ONE,U,3)=$P(^PRSP(454.1,CCORGPT,1),U,3)+PTP
8 S $P(ONE,U,4)=$P(^PRSP(454.1,CCORGPT,1),U,4)+PTPFTE
9 S $P(ONE,U,5)=$P(^PRSP(454.1,CCORGPT,1),U,5)+PTT
10 S $P(ONE,U,6)=$P(^PRSP(454.1,CCORGPT,1),U,6)+PTTFTE
11 S $P(ONE,U,7)=$P(^PRSP(454.1,CCORGPT,1),U,7)+INT
12 S $P(ONE,U,8)=$P(^PRSP(454.1,CCORGPT,1),U,8)+INTFTE
13 S $P(ONE,U,9)=$P(^PRSP(454.1,CCORGPT,1),U,9)+TSR
14 S $P(ONE,U,10)=$P(^PRSP(454.1,CCORGPT,1),U,10)+TSRFTE
15 S $P(ONE,U,11)=$P(^PRSP(454.1,CCORGPT,1),U,11)+SIS
16 S $P(ONE,U,12)=$P(^PRSP(454.1,CCORGPT,1),U,12)+TOT
17 S $P(ONE,U,13)=$P(^PRSP(454.1,CCORGPT,1),U,13)+FTETOT
18 S $P(ONE,U,14)=$P(ONE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,4)
19 S $P(ONE,U,15)=$P(^PRSP(454.1,CCORGPT,1),U,15)+LWOP
20 S $P(ONE,U,16)=$P(^PRSP(454.1,CCORGPT,1),U,16)+FEE
21 S ^PRSP(454.1,CCORGPT,1)=ONE
22 S $P(^PRSP(454.1,CCORGPT,6),U,1)=$P(^PRSP(454.1,CCORGPT,6),U,1)+GPYTOT
23 S $P(^PRSP(454.1,CCORGPT,6),U,2)=$P(^PRSP(454.1,CCORGPT,6),U,2)+PRJSAL
24 G:MDTOT=0 RN
25 S TWO=""
26 S $P(TWO,U,1)=$P(^PRSP(454.1,CCORGPT,2),U,1)+MDFTP
27 S $P(TWO,U,2)=$P(^PRSP(454.1,CCORGPT,2),U,2)+MDFTT
28 S $P(TWO,U,3)=$P(^PRSP(454.1,CCORGPT,2),U,3)+MDPTP
29 S $P(TWO,U,4)=$P(^PRSP(454.1,CCORGPT,2),U,4)+MDPTPFTE
30 S $P(TWO,U,5)=$P(^PRSP(454.1,CCORGPT,2),U,5)+MDPTT
31 S $P(TWO,U,6)=$P(^PRSP(454.1,CCORGPT,2),U,6)+MDPTTFTE
32 S $P(TWO,U,7)=$P(^PRSP(454.1,CCORGPT,2),U,7)+MDINT
33 S $P(TWO,U,8)=$P(^PRSP(454.1,CCORGPT,2),U,8)+MDINTFTE
34 S $P(TWO,U,9)=$P(^PRSP(454.1,CCORGPT,2),U,9)+MDTSR
35 S $P(TWO,U,10)=$P(^PRSP(454.1,CCORGPT,2),U,10)+MDTSRFTE
36 S $P(TWO,U,11)=$P(^PRSP(454.1,CCORGPT,2),U,11)+MDSIS
37 S $P(TWO,U,12)=$P(^PRSP(454.1,CCORGPT,2),U,12)+MDTOT
38 S $P(TWO,U,13)=$P(^PRSP(454.1,CCORGPT,2),U,13)+MDFTETOT
39 S $P(TWO,U,14)=$P(TWO,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,5)
40 S $P(TWO,U,15)=$P(^PRSP(454.1,CCORGPT,2),U,15)+MDLWOP
41 S $P(TWO,U,16)=$P(^PRSP(454.1,CCORGPT,2),U,16)+MDFEE
42 S ^PRSP(454.1,CCORGPT,2)=TWO
43RN Q:CCORGNAM'="NURSING"
44 S THREE=""
45 S $P(THREE,U,1)=$P(^PRSP(454.1,CCORGPT,3),U,1)+RNFTP
46 S $P(THREE,U,2)=$P(^PRSP(454.1,CCORGPT,3),U,2)+RNFTT
47 S $P(THREE,U,3)=$P(^PRSP(454.1,CCORGPT,3),U,3)+RNPTP
48 S $P(THREE,U,4)=$P(^PRSP(454.1,CCORGPT,3),U,4)+RNPTPFTE
49 S $P(THREE,U,5)=$P(^PRSP(454.1,CCORGPT,3),U,5)+RNPTT
50 S $P(THREE,U,6)=$P(^PRSP(454.1,CCORGPT,3),U,6)+RNPTTFTE
51 S $P(THREE,U,7)=$P(^PRSP(454.1,CCORGPT,3),U,7)+RNINT
52 S $P(THREE,U,8)=$P(^PRSP(454.1,CCORGPT,3),U,8)+RNINTFTE
53 S $P(THREE,U,9)=$P(^PRSP(454.1,CCORGPT,3),U,9)+RNTSR
54 S $P(THREE,U,10)=$P(^PRSP(454.1,CCORGPT,3),U,10)+RNTSRFTE
55 S $P(THREE,U,11)=$P(^PRSP(454.1,CCORGPT,3),U,11)+RNSIS
56 S $P(THREE,U,12)=$P(^PRSP(454.1,CCORGPT,3),U,12)+RNTOT
57 S $P(THREE,U,13)=$P(^PRSP(454.1,CCORGPT,3),U,13)+RNFTETOT
58 S $P(THREE,U,14)=$P(THREE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,6)
59 S $P(THREE,U,15)=$P(^PRSP(454.1,CCORGPT,3),U,15)+RNLWOP
60 S $P(THREE,U,16)=$P(^PRSP(454.1,CCORGPT,3),U,16)+RNFEE
61 S ^PRSP(454.1,CCORGPT,3)=THREE
62 S FOUR=""
63 S $P(FOUR,U,1)=$P(^PRSP(454.1,CCORGPT,4),U,1)+LPFTP
64 S $P(FOUR,U,2)=$P(^PRSP(454.1,CCORGPT,4),U,2)+LPFTT
65 S $P(FOUR,U,3)=$P(^PRSP(454.1,CCORGPT,4),U,3)+LPPTP
66 S $P(FOUR,U,4)=$P(^PRSP(454.1,CCORGPT,4),U,4)+LPPTPFTE
67 S $P(FOUR,U,5)=$P(^PRSP(454.1,CCORGPT,4),U,5)+LPPTT
68 S $P(FOUR,U,6)=$P(^PRSP(454.1,CCORGPT,4),U,6)+LPPTTFTE
69 S $P(FOUR,U,7)=$P(^PRSP(454.1,CCORGPT,4),U,7)+LPINT
70 S $P(FOUR,U,8)=$P(^PRSP(454.1,CCORGPT,4),U,8)+LPINTFTE
71 S $P(FOUR,U,9)=$P(^PRSP(454.1,CCORGPT,4),U,9)+LPTSR
72 S $P(FOUR,U,10)=$P(^PRSP(454.1,CCORGPT,4),U,10)+LPTSRFTE
73 S $P(FOUR,U,11)=$P(^PRSP(454.1,CCORGPT,4),U,11)+LPSIS
74 S $P(FOUR,U,12)=$P(^PRSP(454.1,CCORGPT,4),U,12)+LPTOT
75 S $P(FOUR,U,13)=$P(^PRSP(454.1,CCORGPT,4),U,13)+LPFTETOT
76 S $P(FOUR,U,14)=$P(FOUR,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,7)
77 S $P(FOUR,U,15)=$P(^PRSP(454.1,CCORGPT,4),U,15)+LPLWOP
78 S $P(FOUR,U,16)=$P(^PRSP(454.1,CCORGPT,4),U,16)+LPFEE
79 S ^PRSP(454.1,CCORGPT,4)=FOUR
80 S FIVE=""
81 S $P(FIVE,U,1)=$P(^PRSP(454.1,CCORGPT,5),U,1)+NAFTP
82 S $P(FIVE,U,2)=$P(^PRSP(454.1,CCORGPT,5),U,2)+NAFTT
83 S $P(FIVE,U,3)=$P(^PRSP(454.1,CCORGPT,5),U,3)+NAPTP
84 S $P(FIVE,U,4)=$P(^PRSP(454.1,CCORGPT,5),U,4)+NAPTPFTE
85 S $P(FIVE,U,5)=$P(^PRSP(454.1,CCORGPT,5),U,5)+NAPTT
86 S $P(FIVE,U,6)=$P(^PRSP(454.1,CCORGPT,5),U,6)+NAPTTFTE
87 S $P(FIVE,U,7)=$P(^PRSP(454.1,CCORGPT,5),U,7)+NAINT
88 S $P(FIVE,U,8)=$P(^PRSP(454.1,CCORGPT,5),U,8)+NAINTFTE
89 S $P(FIVE,U,9)=$P(^PRSP(454.1,CCORGPT,5),U,9)+NATSR
90 S $P(FIVE,U,10)=$P(^PRSP(454.1,CCORGPT,5),U,10)+NATSRFTE
91 S $P(FIVE,U,11)=$P(^PRSP(454.1,CCORGPT,5),U,11)+NASIS
92 S $P(FIVE,U,12)=$P(^PRSP(454.1,CCORGPT,5),U,12)+NATOT
93 S $P(FIVE,U,13)=$P(^PRSP(454.1,CCORGPT,5),U,13)+NAFTETOT
94 S $P(FIVE,U,14)=$P(FIVE,U,13)-$P(^PRSP(454.1,CCORGPT,0),U,8)
95 S $P(FIVE,U,15)=$P(^PRSP(454.1,CCORGPT,5),U,15)+NALWOP
96 S $P(FIVE,U,16)=$P(^PRSP(454.1,CCORGPT,5),U,16)+NAFEE
97 S ^PRSP(454.1,CCORGPT,5)=FIVE
98 Q
Note: See TracBrowser for help on using the repository browser.