Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
676 bytes
|
Rev | Line | |
---|
[613] | 1 | ONCTEXT ;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.