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 | |
---|
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.