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