source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCTEXT.m@ 789

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

initial load of WorldVistAEHR

File size: 676 bytes
Line 
1ONCTEXT ;Hines OIFO/GWB - ONCOLOGY TEXT EDITS ;09/29/00
2 ;;2.11;ONCOLOGY;**27**;Mar 07, 1995
3 ;
4 ;Maximum NAACCR length text edit
5 S FIELD=$P(^DD(165.5,FLDNUM,0),U,1)
6 S (LENGTH,WPIEN)=0
7 F S WPIEN=$O(^ONCO(165.5,D0,NODE,WPIEN)) Q:WPIEN'>0 D
8 .S LENGTH=LENGTH+$L(^ONCO(165.5,D0,NODE,WPIEN,0))
9 I LENGTH>LIMIT D
10 .W !,*7
11 .W !," WARNING: ",FIELD," too long: ",LENGTH," characters"
12 .W !?10,"Text should not exceed NAACCR length of ",LIMIT," characters"
13 .W !
14 .N DIR,X S SAVEY=Y
15 .S DIR("A")=" Do you want to re-edit this field"
16 .S DIR(0)="Y",DIR("B")="No" D ^DIR
17 .I (Y=0)!(Y="") S Y=SAVEY Q
18 .I Y[U S Y="@0" Q
19 .S Y=FLDNUM
20 K FIELD,FLDNUM,LENGTH,LIMIT,NODE,SAVEY,WPIEN
21 Q
Note: See TracBrowser for help on using the repository browser.