source:
FOIAVistA/tag/r/DIETETICS-FH/FHIPST.m@
1641
| Last change on this file since 1641 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 388 bytes | |
| Line | |
|---|---|
| 1 | FHIPST ; HISC/REL/NCA - Post-Init Conversions ;10/31/96 08:26 |
| 2 | ;;5.0;Dietetics;**6**;Oct 11, 1995 |
| 3 | Q:$$PATCH^XPDUTL("FH*5.0*6") |
| 4 | F X="FHORCW","FHORDW","FHORDW1","FHORDW2","FHORDW3","FHOREW","FHOROW","FHORTW","FHWWFIX" X ^%ZOSF("DEL") |
| 5 | K X D ^FHXOR3,^FHWORP |
| 6 | W ! K %X,%Y,ADM,ALLTF,C,CF,D,DA,DD,DFN,DIC,DIK,DIU,DO,DP,DRSVC,FHX,K,KK,KKK,LLL,M,NAM,NX,P,P0,PF,SF,SP,SVC,WRD,X,Y,Z1,ZC,ZT Q |
| 7 | Q |
Note:
See TracBrowser
for help on using the repository browser.
