Changeset 636 for FOIAVistA/tag/r/DIETETICS-FH/FHSELA1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DIETETICS-FH/FHSELA1.m
r628 r636 1 1 FHSELA1 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ;3/07/2007 2 ;;5.5;DIETETICS;**8,12**;Jan 28, 2005;Build 3 3 ; 4 ;10/16/2007 BAY/KAM FH*5.5*12 Remedy Call 210385 Do not allow 5 ; user to change Food Preference name or 6 ; LIKE/DISLIKE field 2 ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28 7 3 ; 8 4 CREATE ; Check for any missing Allergy-type FP's or one's not renamed in 115.2 … … 42 38 S X=FHAFPNM K DIC,DO 43 39 S (DIC,DIE)="^FH(115.2,",DIC(0)="L" D FILE^DICN 44 ; 10/16/2007 BP/KAM FH*5.5*12 Default DISLIKE and prevent Food Preference name change in the next line 45 S (FHDA,DA)=+Y,DR="26;1////D" 40 S (FHDA,DA)=+Y,DR=".01;26;1//DISLIKE;S:X=""D"" Y=0;3;20;S:'X Y=99;21;99" 46 41 D ^DIE K DA,DIE,DR 47 42 D TRAN^FHSEL1
Note:
See TracChangeset
for help on using the changeset viewer.