source:
FOIAVistA/trunk/r/DIETETICS-FH/FHIP1.m@
1318
Last change on this file since 1318 was 628, checked in by , 15 years ago | |
---|---|
File size: 167 bytes |
Line | |
---|---|
1 | FHIP1 ; HISC/JH - Routine to Change ALTERNATE NAME X Ref ;5/13/97 11:44 |
2 | ;;5.0;Dietetics;**8**;Jun 07, 1995 |
3 | K ^FH(111,"B") |
4 | S DIK="^FH(111," D IXALL^DIK K DA,DIK |
5 | Q |
Note:
See TracBrowser
for help on using the repository browser.