source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCPAT1.m@ 1800

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1ONCPAT1 ;Hines OIFO/GWB - PATIENT IDENTIFICATION (continued) ;12/08/00
2 ;;2.11;ONCOLOGY;**45**;Mar 07, 1995
3 ;
4CC W !," Comorbidity/Complication #1.: ",ONC(160,D0,25)
5 W !," Comorbidity/Complication #2.: ",ONC(160,D0,25.1)
6 W !," Comorbidity/Complication #3.: ",ONC(160,D0,25.2)
7 W !," Comorbidity/Complication #4.: ",ONC(160,D0,25.3)
8 W !," Comorbidity/Complication #5.: ",ONC(160,D0,25.4)
9 W !," Comorbidity/Complication #6.: ",ONC(160,D0,25.5)
10 W !," Comorbidity/Complication #7.: ",ONC(160,D0,25.6)
11 W !," Comorbidity/Complication #8.: ",ONC(160,D0,25.7)
12 W !," Comorbidity/Complication #9.: ",ONC(160,D0,25.8)
13 W !," Comorbidity/Complication #10: ",ONC(160,D0,25.9)
14 Q
15 ;
16CC2 W !," COMORBIDITY/COMPLICATION #2:"
17CC3 W !," COMORBIDITY/COMPLICATION #3:"
18CC4 W !," COMORBIDITY/COMPLICATION #4:"
19CC5 W !," COMORBIDITY/COMPLICATION #5:"
20CC6 W !," COMORBIDITY/COMPLICATION #6:"
21CC7 W !," COMORBIDITY/COMPLICATION #7:"
22CC8 W !," COMORBIDITY/COMPLICATION #8:"
23CC9 W !," COMORBIDITY/COMPLICATION #9:"
24CC10 W !," COMORBIDITY/COMPLICATION #10:"
25 Q
Note: See TracBrowser for help on using the repository browser.