|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
517 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | AUTNPOV ;IHS/LB - PROVIDER NARRATIVE TRUE INPUT TRANSFORM ;6/20/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | ;;92.1;IHS STANDARD DICTIONARIES;;NOV 13, 1991
|
|---|
| 4 | ;
|
|---|
| 5 | START ;
|
|---|
| 6 | Q:'$D(APCDOVRR)
|
|---|
| 7 | I X="=",$D(APCDTNQP) S X=APCDTNQP
|
|---|
| 8 | Q:X?.E1C.E
|
|---|
| 9 | I $L(X)>30,$D(^AUTNPOV("B",X)) S X="`"_$O(^(X,0)) Q
|
|---|
| 10 | S AUTNPOVX=$E(X,1,30)
|
|---|
| 11 | F AUTNPOVY=0:0 S AUTNPOVY=$O(^AUTNPOV("B",AUTNPOVX,AUTNPOVY)) Q:'AUTNPOVY Q:$P(^AUTNPOV(AUTNPOVY,0),U,1)=X
|
|---|
| 12 | S X=$S(AUTNPOVY:"`"_AUTNPOVY,$E(X)="`":X,$E(X)="""":X,1:""""_X_"""")
|
|---|
| 13 | K AUTNPOVX,AUTNPOVY
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
