|
Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
373 bytes
|
| Line | |
|---|
| 1 | PX10P185 ;ALB/RLC - PX*1.0*185 POST INIT INSTALL
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**185**;Aug 12, 1996;Build 12
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;Update field .08 to "Y" for any records where the field is null
|
|---|
| 5 | S HFIEN=0
|
|---|
| 6 | F S HFIEN=$O(^AUTTHF(HFIEN)) Q:'HFIEN D
|
|---|
| 7 | .Q:'$D(^AUTTHF(HFIEN,0)) S NODE=^(0)
|
|---|
| 8 | .Q:$P(NODE,U,8)'=""
|
|---|
| 9 | .S DIE="^AUTTHF(",DA=HFIEN,DR=".08///Y" D ^DIE
|
|---|
| 10 | K HFIEN,NODE,DIE,DA,DR
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
