Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIY7.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/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIY7.m
r628 r636 1 1 RMPRPIY7 ;HINCIO/ODJ - PIP EDIT - PROMPTS ;9/18/02 15:17 2 ;;3.0;PROSTHETICS;**61,118 ,139**;Feb 09, 1996;Build 42 ;;3.0;PROSTHETICS;**61,118**;Feb 09, 1996 3 3 ; 4 4 ;DBIA # 800 - FILEMAN read of file #440. … … 21 21 S RMPR5("IEN")="" 22 22 LOCNM1 D ^DIR 23 ;Patch *139 removes upper case translation to allow access to lower 24 ;case entries used in location creation option 25 ;S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") 23 S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") 26 24 I $G(RMPR5("IEN"))'="" S RMPREXC="" G LOCNMX 27 25 I $D(DTOUT) S RMPREXC="T" G LOCNMX
Note:
See TracChangeset
for help on using the changeset viewer.